Linha Microsiga Protheus

Árvore de páginas

M690BITINI

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]
Numérico
nBit original







PARAMIXB[2]
Caracter
Número da OP







PARAMIXB[3]
Caracter
Operação







PARAMIXB[4]
Data
Data Prevista de Início







PARAMIXB[5]
Data
Data Prevista de Fim






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 Calcular Bit inicial

Programa Fonte:MATA690A.PRX

Sintaxe:

M690BITINI ( [ PARAMIXB[1] ], [ PARAMIXB[2] ], [ PARAMIXB[3] ], [ PARAMIXB[4] ], [ PARAMIXB[5] ] ) --> nRet

Retorno:

nRet(numerico)

O retorno deve ser um NOVO valor para nBit, permitindo deslocar o início da operação conforme a necessidade.

Variáveis:

Nome
Tipo
Escopo
Pode Alterar
Descrição

cRet
Caracter
Local
Não
String com os códigos dos Recursos a serem processados
Observações:

Foram criadas para facilitar o cálculo do bit que será retornado, as funções:

- A690Data2Bit (Converte a data fornecida em bits de acordo com a precisão);
- A690Bit2Data (Converte bit fornecido em data de acordo com a precisão).

Lembrando que o carga máquina quebra a faixa de tempo em pedacinhos correspondente à precisão (padrão é 15 minutos).


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)