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_DECLARATIICode: 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.)
  ...