Linha Microsiga Protheus

Árvore de páginas

Apuração FCI - Rotina Automática

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

SIGAFIS - Livros Fiscais

Função:

FCI (FISA061.PRW)

Situação/Requisito:

Necessidade de executar o processamento dos produtos da 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.

Exemplo:
 #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
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)},aWizAuto,aFilAuto)
If lMsErroAuto
    MostraErro()
EndIf

Return Nil

Maiores detalhes:

FIS0022_FCI_Ficha_de_Conteúdo_de_Importação_e_Valor_de_Importação

http://tdn.totvs.com/x/1hhnF

Tickets relacionados:

1636243

Requisito:

DSERFIS1-3142