Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada para informação de OP no Encerramento do Beneficiamento

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Agroindústria

Módulo:

SIGAAGR

Rotina:

Rotina

Nome Técnico

Encerramento

AGRA620

Ponto de Entrada:

AGR620OP

País(es):

Todos

Ponto de Entrada

Descrição:

Ponto de Entrada permite que seja informada a Ordem de Produção, tal qual é utilizada na produção que ocorre no encerramento do beneficiamento.

Localização:

Rotina de geração de produção.

Eventos:

O Ponto de Entrada é executado antes da chamada da rotina de geração de Ordem de Produção.

Programa Fonte:

AGRA620

Função:

AGRA260

Retorno:

Nome

Tipo

Descrição

Obrigatório

 cNumOP

Caracter

Código de Ordem de Produção a ser utilizado na geração de produção.

Não

 

#INCLUDE "protheus.ch"

User Function AGR620OP()
Local cProduto := PARAMIXB[1] //Produto que será produzido
Local cConjunto := PARAMIXB[2] //Conjunto
Local cRet := ""

dbSelectArea('DXC')
dbSetOrder(4)
If(dbSeek(xFilial('DXC')+cConjunto+cProduto))

If DXC->DXC_PLUMA = '1' //Sim
cRet := "000226" //C2_NUM
cRet += "01" //C2_ITEM
cRet += "001" //C2_SEQUEN
Endif
Endif

Return cRet