Ponto de Entrada
Descrição: | SIGAAGR -> Atualizações -> UBA -> Recebimento |
Localização: | Romaneio de Fardão (AGRA600); Complemento de Fardão (AGRA610). |
Eventos: | Geração de Pedido de Venda |
Programa Fonte: | AGRXFUN1.PRW |
Função: | AGRA600; AGRA610 |
Retorno: | Nome | Tipo | Descrição | Obrigatório | aRet | Array | Array contendo na primeira posição o array com os dados do cabeçalho do pedido. Na segunda posição os dados de itens do Pedido de Venda. | Sim |
|
Exemplo:
#Include "Protheus.ch"
User Function AGRXCTPED()
Local aRet := {}
Local aPedCab := aClone(PARAMIXB[1])
Local aPedIte := aClone(PARAMIXB[2])
Local cRotina := PARAMIXB[3]
Local nX := 0
If cRotina = "AGRA600"
For nX := 1 to Len(aPedCab)
aPedCab[nX,7] := '01' //Seta condição de pagamento fixa
Next nX
ElseIf cRotina = "AGRA610"
For nX := 1 to Len(aPedIte)
aPedIte[nX,9] := '501' //Seta TES fixa
Next nX
EndIf
aAdd(aRet,aClone(aPedCab))
aAdd(aRet,aClone(aPedIte))
Return aRet