Histórico da Página
Ponto de Entrada para manipulação dos dados de geração de Pedido de Venda via Complemento de Fardão/Romaneio de Saída
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||||
Segmento: | Agroindústria | ||||||||||
Módulo: | SIGAAGR | ||||||||||
Rotina: |
| ||||||||||
Ponto de Entrada: | AGRXCTPED | ||||||||||
Requisito (ISSUE): | AGROG01-30 | ||||||||||
País(es): | Todos |
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: |
|
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