Criar ponto de entrada para disponibilizar a filial e código do romaneio, na reabertura do romaneio.

Linha de Produto:

Microsiga Protheus

Segmento:

Agroindústria

Módulo:

SIGAAGR

Rotina:

Rotina	Nome Técnico
OGA250R	Complemento de Romaneios

País(es):

Todos

Ponto de Entrada

Localização:

Ao reabrir o Romaneio c/ pesagem e Romaneio s/ Pesagem.

Programa Fonte:

OGA250R

Retorno:

Nome

Descrição

OG250RDEL

Permite acessar os dados do romaneio que já está reaberto.

Exemplo:

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

//A execução deste PE não influencia na rotina independente do que este PE retorne.
user function OG250ATLZ()

Local cFilRom := PARAMIXB[1]
Local cNumRom := PARAMIXB[2]

DbSelectArea( "NJJ" )
DbSetOrder( 1 )
If NJJ->( DbSeek( cFilRom + cNumRom ) )
alert("Achou o romaneio atualizado: " + cNumRom )
endIf

Return .T.