CHECK_BAD_SYMBOL_IN_TABLE()

CHECK_BAD_SYMBOL_IN_TABLE atsisiuntimas:

Programa tikrina "blogus" simbolius, dėl kurių nepavyksta suformuoti XML rezultato, todėl per API neišsitraukia sąrašai arba atsiranda problemos, kai valstybinėms įstaigoms reikia teikti XML struktūros ataskaitas.

Programos esmė:

1. Norint patikrinti blogus simbolius konkrečiame sąraše, reikia sukurti kursorių, pavyzdžiui,
   =f_select("SELECT * FROM N08_KLIJ","cur_data")

2. Funkcijai check_bad_symbol_in_table paduodami parametrai:
   - tikrinamo kursoriaus pavadinimas, pavyzdžiui, „cur_data“.
   - kursoriaus, į kurį reikia padėti atsakymą, pavadinimas. Jeigu šis parametras nepaduotas, atsakymas suformuojamas į kursorių „table_bad_data“.

3. Funkcija grąžina .T., jeigu klaidų nerasta ir .F., jeigu rastos klaidos.

   Klavišo užprogramavimo pavyzdys:

EXECSCRIPT(SUBSTR(komanda_v,ATC(CHR(13),komanda_v,ij_k+1)))
EXIT
 ON error
 =f_select("SELECT * FROM N08_KLIJ","cur_data")
 arNeraBlogu = check_bad_symbol_in_table("cur_data", "cur_bad_data")
 if arNeraBlogu = .f.
        select cur_bad_data
        browse
else
        MESSAGEBOX("Nėra blogų simbolių!",64, "Blogi simboliai")
endif