Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • M690BITINI

Ponto-de-Entrada: M690BITINI
Versões: Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Nível de Acesso: Nível 1 (Acesso Clientes)
Idiomas: Espanhol , Inglês
Descrição: 
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

Parâmetros:
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 Inicio.
PARAMIXB[5] Data Data Prevista de Fim.
Retorno
    nRet(numerico)
  • O retorno deve ser um NOVO valor para nBit, permitindo deslocar o início da operação conforme a necessidade.
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 precisao)
 - A690Bit2Data (Converte bit fornecido em data de acordo com a precisao)

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

Exemplos 
User Function M690BITINILocal 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)