Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • M690BITINI

Versões comparadas

Versão antiga 2

changes.mady.by.user Usuário desconhecido (felipe.valcanaia)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (felipe.valcanaia)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
M690BITINI
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:
NomeTipoDescriçãoDefaultObrigatórioReferência
PARAMIXB[1]NumériconBit original
PARAMIXB[2]CaracterNúmero da OP.
PARAMIXB[3]CaracterOperação.
PARAMIXB[4]DataData Prevista de Inicio.
PARAMIXB[5]DataData 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)