“Check NAS” Process execution & Send Mail (Batch control)
Image may be NSFW.
Clik here to view.
How System Works
> System every “X minutes” check Status of Scheduled Processes and send a mail with Status(batch control)
Scheduling
> You can schedule this codeunit in some or in another Process Category Queue of your NAS; you can use also another separate NAS Server if you need parallelasynchronous check.
Codeunit “Check NAS” C/AL Code
Documentation
RS, NAS01, 20150710, “Check NAS” Codeunit
*** Function “CreaFileErrori”
*** Function “ErrorSendMail”
*** Function “JobStatus”
OnRun()
//RS, NAS01, .sn
//Call Create Errors File
CreaFileErrori;
//RS, NAS01, .en
JobStatus()
//RS, NAS01, .sn
// Check “Job Log Entry” Process Status & Execution Time
IF recJobQEntry.FINDSET THEN
REPEAT //controllo se è in esecuzione da troppo tempo (check for LONG running time execution)
recJobQEntry.”Send error email” := FALSE;
IF (recJobQEntry.Status = recJobQEntry.Status::”In Process”) THEN
BEGIN
recJobQLogEntry.SETRANGE(“Object Type to Run”,recJobQEntry.”Object Type to Run”);
recJobQLogEntry.SETRANGE(“Object ID to Run”,recJobQEntry.”Object ID to Run”);
IF recJobQEntry.”Duration Process Max” > 0 THEN
IF recJobQLogEntry.FINDLAST THEN
IF CURRENTDATETIME – recJobQLogEntry.”Start Date/Time” > recJobQEntry.”Duration Process Max” THEN
recJobQEntry.”Send error email” := TRUE;
END
ELSE //se è in errore , IF process Is in “Error” State
IF (recJobQEntry.Status = recJobQEntry.Status::Error) THEN
recJobQEntry.”Send error email” := TRUE;
recJobQEntry.MODIFY;
UNTIL recJobQEntry.NEXT = 0;
//RS, NAS01, .en
ErrorSendEmail(txtFile01 : Text[100])
//RS, NAS01, .sn
//————— Build & Send Mail ———————-//
recSMTP.GET;
cuSendEmail.CreateMessage(recSMTP.”User ID”,
recSMTP.”Sender Address”,
recSMTP.”Receiver Address Log Interface”,
‘Errori Job Schedulate’,’In allegato i job in errore’,
FALSE);
//Add attachment
cuSendEmail.AddAttachment(txtFile01);
//Send attachment
cuSendEmail.Send;
//RS, NAS01, .en
CreaFileErrori()
//RS, NAS01 .sn
// Registrazione Errori NAS, Wrinting NAS Errors in Outpout File
GLOBALLANGUAGE(1040);
CLEAR(OutFile);
OutFile.TEXTMODE := TRUE;
OutFile.WRITEMODE := TRUE;
recSMTP.GET;
txtFileName_00 := recSMTP.”Error Folder Log” + recSMTP.”Error File Log”
+ DELCHR((FORMAT(TODAY,0,'<Year4><Month,2><Day,2>’) +’_’+ FORMAT(TIME)), ‘=’,’/ : .’) + ‘.csv';
IF OutFile.OPEN(txtFileName_00) THEN
BEGIN
OutFile.CLOSE;
EXIT;
END;
OutFile.CREATE(txtFileName_00);
txtFineRiga:='<CRLF>';
cr:=13;
lf:=10;
recJobQEntry.SETRANGE(“Send error email”,TRUE);
IF recJobQEntry.FINDSET THEN
BEGIN
REPEAT
txtOutText:= ‘TIPO;’ + ‘NR JOB;’ + ‘JOB;';
OutFile.WRITE(txtOutText); //scrivo riga
txtOutText:=FORMAT(FORMAT(recJobQEntry.”Object Type to Run”)+ ‘;’ +
FORMAT(recJobQEntry.”Object ID to Run”)+ ‘;’ +
recJobQEntry.Description, -250);
OutFile.WRITE(txtOutText); //scrivo riga , Write Line
txtOutText := ‘MESSAGGIO;';
OutFile.WRITE(txtOutText); //scrivo riga, Write Line
OutFile.WRITE(FORMAT(recJobQEntry.”Error Message”,-250)); //scrivo riga
OutFile.WRITE(FORMAT(recJobQEntry.”Error Message 2″,-250)); //scrivo riga
OutFile.WRITE(FORMAT(recJobQEntry.”Error Message 3″,-250)); //scrivo riga
OutFile.WRITE(FORMAT(recJobQEntry.”Error Message 4″,-250)); //scrivo riga
CLEAR(txtOutText);
UNTIL recJobQEntry.NEXT = 0;
END
ELSE
BEGIN
txtOutText:=’Nessun Errore';
OutFile.WRITE(txtOutText);
END;
OutFile.CLOSE; //chiudofile
// INVIO EMAIL CON ALLEGATI, SEND MAIL WITH ATTACHMENTS
ErrorSendEmail(txtFileName_00);
//RS, NAS01 .en
CODEUNIT SCHEDULING SAMPLE
Schedule Codeunit on NAS (example every 60 minutes)
Image may be NSFW.
Clik here to view.
“SMTP MAIL Setup” Table with New Fields
Image may be NSFW.
Clik here to view.
New Fields to insert:
- Field: File Attachment
- Field: Patch Attachment
- Field: Receiver Address
- Field: VBScript Folder
- Field: Receiver Address Log Interface
- Field: Error Folder Log
- Field: Receiver Warning
- Field: Error File Log
- Field: Sender Name
- Field: Sender Address
RUN TABLE AND ENTER DATA IN NEW FIELDS (add fields on your Standard NAV Page)
Image may be NSFW.
Clik here to view.
File Directory
- Files are stored in “\NavisionShared\Log” > you can change by Setup
Image may be NSFW.
Clik here to view.
Error File Sample“NavJob20150706_170544” FILE DETAILS
Image may be NSFW.
Clik here to view.
Image may be NSFW.
Clik here to view.
Image may be NSFW.Clik here to view.
Image may be NSFW.Clik here to view.