Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#Include "PROTHEUS.CH"
User Function FCI()
Local lMostraTela := .F.
Local aWizAuto := {} // Array com conteúdo dos campos preenchidos na wizard
Local aFilAuto := {} // Array com as filiais que serão processadas
Local cDir := "\FCI\" // Diretório não pode ser o mesmo informado StartPath
Local cArq := "FCI.TXT"
Local nTipo := 3 // 1-Processar; 2-Importar; 3-Gerar arquivo
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", ; // Data de
"20180228", ; // Data ate
"FCI_P001", ; // Produto de
"FCI_P003", ; // Produto ate
"2" , ; // Seleciona filiais ? 1-Sim|2-Não
"100" , ; // Versão
"2" , ; // Considera produtos bloqueados ? 1-Sim|2-Não
"1"}) // Usar cod.FCI anterior para mesma faixa? 1-Sim|2-Não
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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas