Acestea pot genera mesaje de atenţionare sau de eroare, care se afişează pe ecran dar care nu se păstrează.
În continuare prezint o modalitate simplă pentru memorarea eventualelor mesaje de avertisment/eroare apărute şi includerea lor în fişierul log.
În scriptul de import se inserează următoarele modificări:
1.creaţi comanda generală INIT (dacă nu există) şi creaţi secţiunea #DECLARATII (sau dacă există deja completaţi) cu următorul conţinut:
Code: Select all
#DECLARATII
ApelBat := .F.
#SFIRSIT_DECLARATII
Code: Select all
...
// Activarea regimului "batch"
h_SetBat (.T.,.F.)
#SFIRSIT_PAC_DECL
Code: Select all
...
// Citirea eventualelor mesaje si includerea lor in fisierul log
ames := h_MesBat ()
if(Valtype(ames)="A",AEval(ames,{|p| h_PutLine(p)}),)
h_SetBat(.F.)
h_SetBat(.T.,.F.)
#SFIRSIT_DOC_SFIRSIT
Code: Select all
#PAC_SFIRSIT1
h_SetBat (.F.)
...