Linha de Produto: | Microsiga Protheus® |
---|---|
Segmento: | Serviços |
Programa: | SPEDFISCAL.PRW |
Módulo: | Fiscal |
Ponto de entrada SPDFIS09, grava informações nos Registros:
C140 - FATURA (CÓDIGO 01)
C141 - VENCIMENTO DA FATURA (CÓDIGO 01)
C
Nome | Tipo | Descrição |
---|---|---|
PARAMIXB | Array of Record | Entrada ou Saída |
Nome | Tipo | Descrição |
---|---|---|
aParc | Array of Record | Array com as parcelas do documento fiscal. |
#include "totvs.ch" User Function SPDFIS09() Local cEntSai := ParamixB[1] Local aParc := {} //------------------------------------------------------------------- //Detalhamento do array aParc // //INFORMAÇÃO POSICAO Tamanho //TIPO 01 03 //NUMERO 02 09 //PARCELA 03 01 //VENCIMENTO REAL 04 08 //VALOR R$ 05 18 //------------------------------------------------------------------- If ("1"$cEntSai) //{(cAliasSE2)->E2_TIPO, (cAliasSE2)->E2_HIST, (cAliasSE2)->E2_NUM, (cAliasSE2)->E2_PARCELA, (cAliasSE2)->E2_VENCREA, (cAliasSE2)->E2_VLCRUZ}) aAdd (aParc, {"","","","",Stod("//"),0}) Else //{(cAliasSE1)->E1_TIPO, (cAliasSE1)->E1_HIST, (cAliasSE1)->E1_NUM, (cAliasSE1)->E1_PARCELA, (cAliasSE1)->E1_VENCREA, (cAliasSE1)->E1_VLCRUZ}) aAdd (aParc, {"","","","",Stod("//"),0}) EndIf Return(aParc) |
Sem mais informações.