Histórico da Página
Ponto de Entrada para informação de Ordem de Produção na geração de Complemento de Peso
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Agroindústria | ||||
Módulo: | SIGAAGR | ||||
Rotina: |
| ||||
Ponto de Entrada: | AG610OPR | ||||
País(es): | Todos |
Ponto de Entrada
Descrição: | Ponto de Entrada para a informação do código de Ordem de Produção no complemento de peso dos fardões, com a finalidade de geração de estoque. | ||||||||
Localização: | Rotina de Complemento de Peso de Fardão. | ||||||||
Eventos: | Ponto de Entrada é executado no carregamento do campo de Ordem de Produção na tela. | ||||||||
Programa Fonte: | AGRA610 | ||||||||
Função: | AGRA610 | ||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus#INCLUDE "protheus.ch
'"
User Function AG610OPR
if ExistBlock(
'AG610OPR')
Local
cRet :=
ExecBlock('AG610OPR',.F.,.F.,)""
cRet := "000229" //C2_NUM
cRet += "01" //C2_ITEM
cRet += "001" //C2_SEQUEN
Return cRet
elseif !Empty (cDXL_OP)
Local cNumOP:= cDXL_OP
else
Local cNumOP:= A601GERAOP( cProd, cLocal, nQtdOP) //Gera a ordem de produção para o complemento dos fardões
EndIf