• 30 Aug

    How to count the number of files transferred to destination

    Q: I have another question we have big differences as far as the number of images some of our agencies sending us and the destination vendor receiving. They are asking if Limagito can count the number of files transferred to destination.

    A: In this blog article we added some scripts to count the files sent to a Destination. Transferred files counter data will be written to a monthly csv file. Each scan will be an entry in the csv file (which can be handled in Excel). This is just an example and can be adjusted to your needs.

    • Open our Pascal Script option:

    limagito file mover pascal script option

    • Enable and add the following ‘On Rule Begin’ script:
      • psVIA: an Integer variable which will count the amount of files transferred during the scan
      • psVSA: a String variable which will be used as the filename of the counter csv ( i.e. 2023.august.csv )
      • psVSB: a String variable which will be used for the Date entry in the csv file ( first column )
    Begin
      psExitCode:= 1;
      // ... add your code here
      psVIA := 0;
      // Current Month counter csv filename -psVSA
      psVSA := FormatDateTime('YYYY.MMMM', Now) + '.csv';
      // Current Day - psVSB
      psVSB := FormatDateTime('YYYYMMDDHHNNSS', Now);
    End.

    limagito file mover on rule begin pascal script

    • Enable and add the following ‘On Rule End’ script. Don’t forget to adjust the ctCsvPath constant. This is where we will store the csv files.
    Var
      tmpData, tmpFile: String;
      tmpSuccess: Boolean;
      tmpList: TStringList;
    Const
      ctCsvPath = 'C:\Test\Csv\'; // Must end with a \
    Begin
      psExitCode:= 1;
      // Check if files were moved or copied
      If psVIA = 0 Then
        Exit;
      // Init Var
      tmpData := psVSB + ',' + IntToStr(psVIA);
      tmpFile := ctCsvPath + psVSA;
      tmpSuccess := True;
      tmpList := TStringList.Create;
      Try
        If FileExists(tmpFile) Then
        Begin
          Try
            tmpList.LoadFromFile(tmpFile);
          Except
            tmpSuccess := False;
            psLogWrite(1, '', 'LoadFromFile, ' + tmpFile + ' error, counter data will not be saved: ' + tmpData);
          End;
        End
        Else
          tmpList.Add('Date,Value');
        // Check
        If tmpSuccess Then
        Begin
          tmpList.Add(tmpData);
          // Save To File
          Try
            tmpList.SaveToFile(tmpFile);
            psLogWrite(1, '', 'SaveToFile ' + tmpFile + ' successful');
          Except
            psLogWrite(1, '', 'SaveToFile ' + tmpFile + ' error, could not save counter data: ' + tmpData);
          End;
        End;
      Finally
        tmpList.Free;
      End;
    End.

    limagito file mover on rule end pascal script

    • Set Function Destination Option to ‘Exit Cyclus on Error’. This will skip a next Destination if an error occurs. The last Destination will be a Script where we increase the amount of files transferred so we want to make sure that the previous Destination(s) were successful.

    limagito file mover function setup

    • The last Destination should be the following Pascal Script:

    limagito file mover destination setup

    Begin
      psExitCode:= 1;
      // ... add your code here
      psVIA := psVIA + 1;
    End.

    limagito file mover pascal script as destination

    • Counter values will be stored in a monthly csv file which can be handled in Excel (or alternative):

    limagito file mover count files transferred to destination

    limagito file mover count files transferred to destination

     

    If you need any info about this ‘count the number of files transferred’ request, please let us know.

    #mft #filetransfer #filemanagement

    Best regards,

    Limagito Team

  • 11 Aug

    How to send zpl file to Zebra printer using Limagito file mover

    Q: How to send zpl file to Zebra printer. Do you have a solution in Limagito to send Zpl files to a printer? Zpl is a standard language for label printers.
    A: On request we added an option in Limagito File Mover v2023.8.10.0. The customer did some successful tests. These new options should be able to send other Zpl like type of files (EPL,..) to printers too.

    • In our example we used a Windows folder as Source, searching for zpl files:

    limagito file mover windows folder as source

    • We enabled ‘Exclude Files In Use’ because we don’t want to touch source .zpl file that are still being created:

    limagito file mover exclude files in use

    • Please set the Filename Include filter to *.zpl because we only need this type of files:

    limagito file mover filename include filter

    • Our Rule will be triggered every 30 seconds using a scan timer (Schedule Setup button):

    limagito file mover scan timer setup

    • As function we used ‘Move’ because after a successful print we want to delete the source .zpl file:

    limagito file mover function setup

    • As Destination we are going to use a Script:

    limagito file mover as Destination

    Var
      iList: Integer;
      tmpInfo, tmpFile, tmpString: String;
      tmpList: TStringList;
    Begin
      psExitCode:= 0;
      // ... add your code here
      tmpFile := psFilePath + psFileName;
      // Do Send
      tmpList := TStringList.Create;
      Try
        tmpList.CommaText := psGetPrinters;
        If tmpList.Count > 1 Then
        Begin
          For iList := 0 To (tmpList.count-1) Do 
            psLogWrite(1, '', 'Installed printer [' + IntToStr(iList+1) + ']: ' + tmpList.Strings[iList]);
          psLogWrite(1, '', 'Default printer: ' + psGetDefaultPrinter);
        End
        Else
          psLogWrite(1, '', 'No printer installed');        
        psLogWrite(1, '', 'Send file "' + tmpFile + '" to printer');
        Try
          tmpList.Clear;
          tmpList.LoadFromFile(tmpFile);
          If tmpList.Count > 0 Then
          Begin
            tmpString := tmpList.Text;
            // Method 1
            tmpInfo := psPrintRawString(tmpString, '');
            // Method 2
            // tmpInfo := psPrintRawList(tmpList, '');
            // Debug
            If tmpInfo <> '' Then
            Begin
              psLogWrite(1, '', 'Sent to printer error: ' + tmpInfo);
            End Else
            Begin
              psExitCode := 1;  
              psLogWrite(1, '', 'Sent to printer successfully: ' + tmpFile);
            End;
          End
          Else
          psLogWrite(1, '', 'Found empty file: ' + tmpFile);
        Except
          psLogWrite(1, '', 'LoadFromFileError: ' + tmpFile);
        End;
      Finally
        tmpList.Free;
      End;
    End.
    

    The script above will load the content of the .zpl (or other raw type of files) and will send this data to a selected printer.

            // Method 1
            tmpInfo := psPrintRawString(tmpString, ”);

    By default we’ll use the ‘Default’ printer in Windows which means the Zebra printer should be set as Default printer. If you want to use a Zebra printer that is not set to default in Windows you’ll need to add the printer name to the function.

    Suppose the installed Zebra printer name is: My Zebra Printer

            // Method 1
            tmpInfo := psPrintRawString(tmpString, ‘My Zebra Printer’);

    To help you with the printer names, the script will wrote the names in the RunTime log if you trigger the Rule (please check the output of the RunTime log in the screenshot below).

    limagito file mover send zpl file to Zebra printer

    • RunTime Log result:

    limagito runtime log

    If you need any info about this new ‘zpl file to Zebra printer’ option, please let us know.

    #zpl #zebra #filetransfer #filemanagement

    Best regards,

    Limagito Team

    By Limagito-Team Pascal Script Printer , , ,
  • 06 Aug

    New Precondition File Count option added

    We are working on the new Precondition File Count option. Most of the code is ready and tests are being conducted.

    In the past we created quite some file count scripts for customers and that is why we decided to add this as a new Precondition option. The Precondition option is the first step we do after a Rule is triggered and if the preconditions are valid then we’ll continue. At the moment we have 7 Precondition options.

    Limagito file mover precondition file count option

    • We added a couple of possibilities to handle file count (from previous experience with customers):

    lmiagito file mover precondition option

    If you need any info about this ‘File Count’ option, please let us know.

    Best regards,

    Limagito Team

1 2
SEARCH