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)