Histórico da Página

Ponto de Entrada SPDFIS09 no SPEDFISCAL .Grava informações nos Registros C140 e C141. 

SPEDFISCAL.PRW

SPDFIS09 - Grava informações nos Registros C140 e C141 ( [ cEntSai, aPar ] ) --> aParc

(array_of_record)
• Array com as parcelas do documento fiscal.

User

Function

SPDFIS09()

Local

cEntSai

:=

ParamixB[1]

Local

aParc

:=

{}

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Informações do array ParamixB[2]: ³
//³ ³
//³aPar[1] : Numero do documento fiscal ³
//³aPar[2] : Serie do documento fiscal ³
//³aPar[3] :Cliente/Fornecedor do documento fiscal³
//³aPar[4] : Loja do cliente/fornecedor ³
//³aPar[5] : Prefixo do título na SF1/SF2 ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
Local aPar := ParamixB[2]
Local cNumNota := aPar[1]
Local cSerie := aPar[2]
Local cCliefor := aPar[3]
Local cLoja := aPar[4]
Local cPrefix := aPar[5]

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Aten‡„o, Detalhamento do array aParc ³
//³ ³
//³Informa‡„o Posicao Tamanho ³
//³Tipo 01 03 ³
//³Numero 02 09 ³
//³Parcela 03 01 ³
//³Vencto Real 04 08 ³
//³Vlr 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)