#include "rwmake.ch"
#include "Topconn.ch"
#include "protheus.ch"
User Function SPDPisTr()
Local cFilial := ParamIXB[ 1 ]
Local dDataDe := ParamIXB[ 2 ]
Local dDataAte := ParamIXB[ 3 ]
Local aRegD350 := {}
Local nPosD350 := 0
Local aRegD359 := {}
Local nPosD359 := 0
Local aConta := {}
Local aReg1010 := {}
Local nPos1010 := 0
Local aReg1020 := {}
Local nPos1020 := 0
Local l400 := .F.
nPosD350 := 1
aAdd(aRegD350, {})
nPos := Len(aRegD350)
aAdd (aRegD350[nPosD350], "D350" )
aAdd (aRegD350[nPosD350], "2E" )
aAdd (aRegD350[nPosD350], "BM MP20" )
aAdd (aRegD350[nPosD350], "BE050975610005005601" )
aAdd (aRegD350[nPosD350], dDataBase )
aAdd (aRegD350[nPosD350], "010" )
aAdd (aRegD350[nPosD350], "000056" )
aAdd (aRegD350[nPosD350], "000999" )
aAdd (aRegD350[nPosD350], 100 )
aAdd (aRegD350[nPosD350], 100 )
aAdd (aRegD350[nPosD350], "01" )
aAdd (aRegD350[nPosD350], 100 )
aAdd (aRegD350[nPosD350], 1.65 )
aAdd (aRegD350[nPosD350], "" )
aAdd (aRegD350[nPosD350], "" )
aAdd (aRegD350[nPosD350], 1.65 )
aAdd (aRegD350[nPosD350], "01" )
aAdd (aRegD350[nPosD350], 100 )
aAdd (aRegD350[nPosD350], 7.60 )
aAdd (aRegD350[nPosD350], "" )
aAdd (aRegD350[nPosD350], "" )
aAdd (aRegD350[nPosD350], 7.60 )
aAdd (aRegD350[nPosD350], "000101" )
If l400
aAdd (aRegD350[nPos], "4311" )
aAdd (aRegD350[nPos], "101" )
aAdd (aRegD350[nPos], "" )
aAdd (aRegD350[nPos], "" )
EndIf
aAdd(aRegD359, {})
nPosD359 := 0
aAdd(aRegD359, {})
nPosD359 := Len(aRegD359)
aAdd (aRegD359[nPosD359], Len(aRegD350) )
aAdd (aRegD359[nPosD359], "D359" )
aAdd (aRegD359[nPosD359], "11234567" )
aAdd (aRegD359[nPosD359], "9" )
aAdd (aReg1010, {})
nPos1010 := Len(aReg1010)
aAdd (aReg1010[nPos1010], "1010" )
aAdd (aReg1010[nPos1010], "101" )
aAdd (aReg1010[nPos1010], "001" )
aAdd (aReg1010[nPos1010], "AB" )
aAdd (aReg1010[nPos1010], "99" )
aAdd (aReg1010[nPos1010], "Teste " )
aAdd (aReg1010[nPos1010], dDataBase )
aAdd (aReg1020, {})
nPos1020 := Len(aReg1020)
aAdd (aReg1020[nPos1020], "1020" )
aAdd (aReg1020[nPos1020], "012" )
aAdd (aReg1020[nPos1020], "99" )
aAdd (aReg1020[nPos1020], dDataBase)
Return {aRegD350,aRegD359,aReg1010,aReg1020}
|