$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);
        }