Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 2 minutos

ACD314VAL - Efetivar Apontamento de Produção ACD

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGASFC - Chão de Fábrica

Parâmetro(s):


Nome
Tipo
Descrição
Default
Obrigatório Referência

PARAMIXB[1]
Caracter
Código da ordem de produção.







PARAMIXB[2]
Caracter
Código da operação.







PARAMIXB[3]
Caracter
Código do split.







PARAMIXB[4]
Caracter
Código da máquina.







PARAMIXB[5]
Caracter
Código da transação.







PARAMIXB[6]
Numérico
Quantidade apontada.






Ponto de Entrada:

ACDV314VAL- Apontamento Produção ACD

Idiomas:

Espanhol, Inglês

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

O ponto de entrada 'ACD314VAL' tem o objetivo de permitir realizar validações no processo para decidir se o mesmo deve ser efetivado.

Localização:

Function ACDV314() - Função responsável por gerenciar o processo de apontamento de produção ACD.

Eventos:

Antes do finalizar a execução.

Programa Fonte:

ACDV314.PRW

Sintaxe:

ACD314VAL- Apontamento Produção ACD ( [ PARAMIXB[1] ], [ PARAMIXB[2] ], [ PARAMIXB[3] ], [ PARAMIXB[4] ], [ PARAMIXB[5] ], [ PARAMIXB[6] ] ) --> lRet

Retorno:lRet(logico)
  • Valor lógico que será usado para definir se o apontamento deve ser efetivado.
Observações:


 

Exemplo:

#INCLUDE "PROTHEUS.CH"
#INCLUDE "rwmake.ch"

#DEFINE NEWLINE CHR(13)+CHR(10)

User Function ACDV314VAL
Local cOrdem := PARAMIXB[1] // Ordem de produção
Local cOper := PARAMIXB[2] // Código da operação
Local cSplit := PARAMIXB[3] // Código do split
Local cMaq := PARAMIXB[4] // Código da Máquina
Local cCdTr := PARAMIXB[5] // Código da transação
Local nQtde := PARAMIXB[6] // Quantidade
Local lRet := .F.

If MsgNoYes('Deseja confirmar o movimento? ' + NEWLINE +;
' Ordem: ' + ALLTRIM(cOrdem) + NEWLINE +;
' Qtde.: ' + ALLTRIM(STR(nQtde)))
   lRet := .T.
EndIf

Return lRet