Miscellany

        $VENDOR = "$Dir/VENDOR.DBF";        $db = dbase_open($VENDOR, 0);        if ($db) {                $numero_registros = dbase_numrecords($db);                for ($i = $numero_registros; $i >= 1; $i--) {                        $row = dbase_get_record_with_names($db, $i);                        if ($row['deleted'] == "deleted"){                                $CODIGO = trim ($row['VENDOR_NO']);                                $NOMBRE = trim ($row['VENDOR']);                                $Proveedor[codigo][] = $CODIGO;                                $Proveedor[nombre][] = $NOMBRE;                        }                }                dbase_close($db);        }