Linha Microsiga Protheus

Árvore de páginas

CONTEÚDO

  1. Visão Geral
  2. Parâmetros
  3. Exemplo de Utilização


01. VISÃO GERAL

Ponto de Entrada que permite incluir novas validações de lançamento contábil. Recebe como parâmetro de entrada, a variável lRet e lConfirma que indica se o lançamento está consistente (.T.) ou não(.F.).



Observação

Este processo é utilizado para as movimentações dos lançamentos contábil.

02. PARÂMETROS


Parâmetro

Tipo

Descrição

Obrigatório

PARAMIXB[1]LógicoT. - Lançamento Ok.F. - Lançamento inconsistente
PARAMIXB[2]Lógico.T. - Confirmação do lançamento

03. EXEMPLO DE UTILIZAÇÃO



Observação

Programa Fonte

CTBA105.PRW

Sintaxe

CT105POS - Retorno 

Valida Lançamento Contábil ( [ lRet ] ) --> lRet

Valida a confirmação do processamento ( [ lConfirma ] ) --> lConfirma

validação de retorno


Exemplo do Ponto de Entrada 
User Function CT105POS()
Local lRet          := PARAMIXB[1]
Local lConfirma     := PARAMIXB[2]

alert("Entrando na CT105POS....., o lConfirma entrando no fonte como: "+ cValToChar(lConfirma) )

If !MsgYesNo("Deseja Deixar o lConfirma  =  .T.  ? ", "Escolha....")
    lConfirma   := .F.
EndIf

Alert("Resultado de retorno  lConfirma :  " + cValToChar(lConfirma) )

Return(lConfirma)



Evento de chamada do Ponto de Entrada 
lRet := ExecBlock("CT105POS",.f.,.f.,{lRet,lConfirma})