Product Line: | Microsiga Protheus® |
Industry: | Services |
Module: | SIGAFIS - Tax Records |
Function: | FISA061- Import of FCI Magnetic File |
Scope: | Microsiga Protheus 12 |
Versions: | Microsiga Protheus 12 |
Operating Systems: | All |
Compatible with the following Databases: | All |
Access Level: | Level 1 (Customer Access) |
Languages: | All |
This routine is intended to perform the processing, generation, and import of the FCI magnetic file using the automatic routine mechanism.
Automatic Routine:
FISA061( [aWizAuto], [aFilAuto], cDir, cArq, nTipo ) --> Nil
Return:
Nil
Tips
The aWizAuto Array with the contents of the wizard MUST be entered as in the example shown below when "Example: Using FISA061 as an automatic routine".
The xMagLeWiz feature (automatically loads the Wizard data and displays the wizard on screen) should NOT be used, as this function only works in the GRAPHIC MODE.
The second parameter containing the processing branches is optional. In the example below, it was shown using the MatFilCalc feature (load branches of the current company). If used as shown in the example, it should be invoked by setting the first parameter to .F. E.g.: MatFilCalc(.F.).
For correct operation, the positions 1 and 2 of the aWizAuto array referring to the 'from date' and 'to date' must be entered in the format (YYYYMMDD) - YearMonthDay.
Important
When set to type 2-"Import" or 3-"Generate file", the variable cDir (directory of the file to be imported) should not be the same directory as stated in STARTPATH (e.g.: "\system\"). It must be in STARTPATH, where a copy of the original file is made so that routine FISA061 has exclusive access to data and file processing.
ExecAuto - MATA089 | Name | Type | Description | Default | Mandatory | Reference |
[xAutoCab] | Array of Record | Content of the fields filled in the Wizard. | X | |||
[aFilAuto] | Array of Record | Branches that will be processed. | ||||
cDir | Character | Target folder path. | ||||
cArq | Character | File name. | ||||
nTipo | Numeric | It can be one of the following options: 1-Process; 2-Import; 3-Generate file. | X |
#Include "PROTHEUS.CH" User Function FCI() Local lMostraTela := .F. Local aWizAuto := {} // Array with the content fields filled in the wizard Local aFilAuto := {} // Array with the branches that will be processed Local cDir := "\FCI\" // Directory cannot be the same as StartPath entered Local cArq := "FCI.TXT" Local nTipo := 3 // 1-Process; 2-Import; 3-Generate file Private lMsErroAuto := .F. Private lMsHelpAuto := .T. Private lAutoErrNoFile := .F. IF SELECT("SX2") == 0 cCodEmp := aParams[1] cCodFil := aParams[2] PREPARE ENVIRONMENT EMPRESA cCodEmp FILIAL cCodFil ENDIF aFilAuto := MatFilCalc(.F.) Aadd(aWizAuto,{ "20180201", ; // From date "20180228", ; // To date "FCI_P001", ; // From product "FCI_P003", ; // To product "2" , ; // Select branches? 1-Yes|2-No "100" , ; // Version "2" , ; // Consider blocked products? 1-Yes|2-No "1"}) // Use previous FCI code for same range? 1-Yes|2-No MSExecAuto({|x,y,z,m,n|FISA061(x,y,z,m,n)}, aWizAuto, aFilAuto, cDir, cArq, nTipo) If lMsErroAuto MostraErro() EndIf RESET ENVIRONMENT Return Nil