Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH" #INCLUDE "RWMAKE.CH" User Function SPED1390() Local cAlias := (ParamIxb[1]) Local dDataDe := (ParamIxb[2]) Local dDataAte := (ParamIxb[3]) Local aReg0200 := (ParamIxb[4]) Local aReg0190 := (ParamIxb[5]) Local aReg1390 := {} Local aReg1391 := {} Local nPos1390 := 0 Local nPos1391 := 0 Local cProd := "AT0000000000000000000000000002RV0000000000000000000000000001" aAdd(aReg1390, {}) nPos1390 := Len(aReg1390) aAdd(aReg1390[nPos1390], "1390") aAdd(aReg1390[nPos1390], "03") aAdd(aReg1391, {}) nPos1391 := Len(aReg1391) aAdd(aReg1391[nPos1391], nPos1390) aAdd(aReg1391[nPos1391], "1391") // campo 01 aAdd(aReg1391[nPos1391], "3007201230072024") // campo 02 aAdd(aReg1391[nPos1391], 1000.00) // campo 03 aAdd(aReg1391[nPos1391], 1000.00) // campo 04 aAdd(aReg1391[nPos1391], 1000.00) // campo 05 aAdd(aReg1391[nPos1391], ) // campo 06 aAdd(aReg1391[nPos1391], 1000.00) // campo 07 aAdd(aReg1391[nPos1391], 10.00) // campo 08 aAdd(aReg1391[nPos1391], 50.00) // campo 09 aAdd(aReg1391[nPos1391], ) // campo 10 aAdd(aReg1391[nPos1391], ) // campo 11 aAdd(aReg1391[nPos1391], 0) // campo 12 aAdd(aReg1391[nPos1391], 0) // campo 13 aAdd(aReg1391[nPos1391], 0) // campo 14 aAdd(aReg1391[nPos1391], 0) // campo 15 aAdd(aReg1391[nPos1391], 0) // campo 16 aAdd(aReg1391[nPos1391], "SPED1390") // campo 16 aAdd(aReg1391[nPos1391], cProd) // campo 18 aAdd(aReg1391[nPos1391], 04) // campo 19 aAdd(aReg1391[nPos1391], 04) // campo 20 // Geração dos novos campos aAdd(aReg1391[nPos1391], 01) // campo 21 aAdd(aReg1391[nPos1391], 02)03) // campo 22 aAdd(aReg1391[nPos1391], 1234) 00) // campo 23 //geracao do 0200 SPEDSeek("SB1", , xFilial("SB1") + cProd) SFRG0200(cAlias, @aReg0200, @aReg0190, dDataDe, dDataAte, , cProd) GrRegDep(cAlias, aReg1390, aReg1391) Return aReg0200 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas