Histórico da Página

User Function ACD100G3()

Local cCliente    := "000033"
Local cCondPag    := "003"
Local cLojaEnt    := "01"
Local cAgreg      := ""
Local cArmazem    := "01"
Local cPed        := SC9->C9_PEDIDO
Local cPedido     := ""
Local cTransp     := ""
Local cCondSC5    := "003"
Local aRet        := PARAMIXB[1]
Local aAux        := PARAMIXB[2]

aAdd(aRet,cCliente)
aAdd(aRet,cCondPag)  
aAdd(aRet,cLojaEnt)  
aAdd(aRet,cAgreg)  
aAdd(aRet,cArmazem) 
aAdd(aRet,SC9->( Recno() ))  
aAdd(aRet,cPed) 
aAdd(aRet,cPedido) 
aAdd(aRet,cTransp) 
aAdd(aRet,cCondSC5) 

aAdd(aAux,cCliente)
aAdd(aAux,cCondPag)  
aAdd(aAux,cLojaEnt)  
aAdd(aAux,cAgreg)  
aAdd(aAux,cArmazem) 
aAdd(aAux,SC9->( Recno() ))  
aAdd(aAux,cPed) 
aAdd(aAux,cPedido) 
aAdd(aAux,cTransp) 
aAdd(aAux,cCondSC5)
   
Return aRet