Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Agroindústria | ||||
Módulo: | SIGAAGR | ||||
Rotina: |
| ||||
Ponto de Entrada: | AGR620OP | ||||
País(es): | Todos |
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: |
|
#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
