Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada para Gerar Pedido de Vendas Confirmação de Serviços

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Agroindústria

Módulo:

SIGAAGR

Rotina:

Rotina

Nome Técnico

OGA261A

Rotina de Confirmação de Serviços

País(es):

Todos

Ponto de Entrada

Localização:

Apos gerar/gravar os romaneios sem pesagem de origem e destino da transferência simples.

Programa Fonte:

OGA261A

Função:

Permitir manipular dados do Pedido de Venda de Serviços.

Retorno:

Nome

Tipo

Descrição

Obrigatório

OG261APV

Nenhum

Envia como parâmetro array do cabeçalho e itens do Pedido de Venda

NÃO

Exemplo:

 

#include 'protheus.ch'
#include 'parmtype.ch'

user function OG261APV()

Local aCab := aClone(PARAMIXB[1])
Local aItens := aClone(PARAMIXB[2])
Local aRet := {} //Customizações do usuário
Local nP_MENNOTA := 0
Local cMensNF := 'TST OG261APV'

nP_MENNOTA := aSCAN(aCab, {|aCab | UPPER( AllTrim( aCab[1] ) ) == "C5_MENNOTA" })

IF nP_MENNOTA > 0
aCab[nP_MENNOTA,2] := cMensNF
Else
aAdd( aCab, {"C5_MENNOTA" , cMensNF , Nil } )
EndIF

aRet := {aCab,aItens}

Return ( aRet )