Histórico da Página

...

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

SIGAFIS - Livros Fiscais

Função:

Apuração FCI (FISA061.PRW)

Situação/Requisito:

Necessidade de executar a apuração FCI através de rotina automática.

Solução/Implementação:

Alterado rotina de processamento da apuração FCI – Ficha de Conteúdo de Importação para execução através de rotina automática.

Criado Onde devem ser informados os parâmetros abaixo.

1o. parâmetro: Array com conteudo conteúdo dos campos preenchidos na no Assistente (wizard).

2o. parâmetro: Array com as filiais que serão processadas.

3o. parâmetro: (caracter) Caminho Nome da pasta de destino.

4o. parâmetro: (caracter) Nome do arquivo.

5o. parâmetro: (número) contendo as opções: 1-Processar; 2-Importar; 3-Gerar arquivo.

Bloco de código

language	vb
title	Exemplo:
linenumbers	true

 #Include "PROTHEUS.CH"
User Function FCI()
Local cNomeCfp := ""
Local lMostraTela := .F.
Local aWizAuto := {} //Array com conteudo dos campos preenchidos na wizard
Local aFilAuto := {} //Array com as filiais que serao processadas
Local cDir  := "C:\TEMP\"
Local cArq  := "FCI.TXT"
Local nTipo := 3 // 1-Processar; 2-Importar; 3-Gerar arquivo


Private lMsErroAuto := .F.

RpcSetType( 3 )
RpcSetEnv( "99" , "01" )

aFilAuto := MatFilCalc(lMostraTela)

Aadd(aWizAuto,{ "01/02/2018", ; // Data de
    "28/02/2018", ; // Data ate
    "FCI_MP001" , ; // Produto de
    "FCI_PA001" , ; // Produto ate
    "2"  , ; // Seleciona filiais ? 1 - Sim / 2 - Nao
    "100", ; // Versao
    "2"}) // Considera produtos bloqueados ? 1 - Sim / 2 - Nao

If Empty(aWizAuto)
   cNomeCfp:= "FSA061NW"+FWGETCODFILIAL
   If xMagLeWiz( cNomeCfp , @aWizAuto , .T. )
      aWizJob[1,3] := "FCI_MP001"
      aWizJob[1,4] := "FCI_PA001"
   EndIf
EndIf

MSExecAuto({|x,y|FISA061(x,y,z,m,n)},aWizAuto,aFilAuto,cDir,cArq,nTipo)
If lMsErroAuto
    MostraErro()
EndIf

Return Nil

Maiores detalhes:

FIS0022_FCI_Ficha_de_Conteúdo_de_Importação_e_Valor_de_Importação

Rotina Automatica FISA061 - FCIRotina Automática (ExecAuto)

Tickets relacionados:

2537629

Requisito:

DSERFIS1-5722

...

Árvore de páginas

Versões comparadas

Versão antiga 4

Nova versão Atual

Chave