Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Alana Karine Pahl

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Alana Karine Pahl

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

M690RALT - Altera Recursos Alternativos

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):


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

PARAMIXB[1]
Caracter

Número da OP + Item da OP + Sequência da OP








PARAMIXB[2]
Array of Record
Código do Produto







PARAMIXB[3]
Array of Record
Operação







PARAMIXB[4]
Array of Record
Recurso






Idiomas:

Espanhol, Inglês

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Localização:Function A690Processa() - Responsável pela Alocação.
Em que ponto:

Após montar Arrays com Máquinas Alternativas e Secundárias. Executa PE para alterar recursos alternativos / secundários disponíveis.

Programa Fonte:MATA690A.PRX

Sintaxe:

M690RALT - Altera Recursos Alternativos ( < PARAMIXB[1]> , [ PARAMIXB[2] ], [ PARAMIXB[3] ], [ PARAMIXB[4] ] ) --> aRet

Retorno:

aRet(vetor)

Nil

Observações:

Exemplo:

User Function M690BITINI

Local nBitOrig    := ParamIxb[1]

Local nBitRet     := ParamIxb[1]

Local cOp         := ParamIxb[2]

Local cOperac     := ParamIxb[3]

Local dDataInicio := ParamIxb[4]

Local dDataBit    := A690Bit2Data(nBitOrig)If cOperac == "01"   

nBitRet := Max(nBitorig,A690Data2Bit(dDataInicio))   

ConOut("Data Original: " + Dtoc(dDataBit))   

ConOut("Data Inicio OP: "+ Dtoc(dDataInicio))   

ConOut("Data Alterada : " +Dtoc(A690Bit2Data(nBitRet)))

EndifReturn(nBitRet)