Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Jose Ricardo Bernardo

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Anedino dos Santos

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

CONTEÚDO

  1. Visão Geral
  2. Descrição
  3. Informações Técnicas
  4. Exemplo

01. VISÃO GERAL

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:SIGAFIS - Livros Fiscais
Função:FISA061 - Importação de Arquivo Magnético da FCI
Abrangências:Microsiga Protheus 12
Versões:Microsiga Protheus 12
Sistemas Operacionais:Todos
Compatível com as Bases de Dados:Todos
Nível de Acesso:Nível 1 (Acesso Clientes)
Idiomas:Todos

02. DESCRIÇÃO

Esta rotina tem a finalidade de efetuar o processamento, geração e importação de arquivo magnético da FCI, através do mecanismo de rotina automática.

03. INFORMAÇÕES TÉCNICAS

Rotina Automática:

Bloco de código
languageyml
themeFadeToGrey
firstline1
titleChamada da Rotina Automática:
linenumberstrue
FISA061( [aWizAuto], [aFilAuto], cDir, cArq, nTipo ) --> Nil

...

ExecAuto - MATA089NomeTipoDescriçãoDefaultObrigatórioReferência

[xAutoCab]Array of RecordConteúdo dos campos preenchidos na Wizard.
X

[aFilAuto]Array of RecordFiliais que serão processadas.



cDirCaracterCaminho pasta destino.



cArqCaracterNome do arquivo.



nTipoNumericoPodendo ser uma das opções: 1-Processar; 2-Importar; 3-Gerar arquivo.
X

04. EXEMPLO

Bloco de código
languagegroovy
themeMidnight
firstline1
titleExemplo: Utilização do FISA061 como rotina automática
linenumberstrue
#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

...