Histórico da Página

...

Informações

title	Contextualização PE

EFELANC – Manipula o registro após a efetivação ou não.

Características do Requisito

Descrição:	O ponto de entrada CT350QRY EFELANC permite manipular a query recebida como parâmetro e retornar a mesma alterada, conforme necessidade do usuário o registro logo após a efetivação ou não na rotina CTBA350-Efetivação de Pré-Lançamento.
Eventos:	ExistBlock("EFELANC")
Programa Fonte:	CTBA350.PRW
Função (PE) :	EFELANC() – Permite manipular o registro de efetivado ou não da rotina CTBA350-Efetivação de Pré-lançamento.
Parâmetros:	Não há.
Retorno:	Não há.

Bloco de código

language	cpp
theme	RDark
title	Exemplo de PE
linenumbers	true
collapse	true

#Include "Protheus.ch"

// ajusta o registro na CT2 após a efetivação. Rotina ctba350 - Efetivação de pré-lançamento
User Function EFELANC()
 
    Local aArea := GetArea()
 
    IF EMPTY(CT2->CT2_ITEMD) 
        RECLOCK( 'CT2', .F. )
            CONOUT("registro : " +  STR(CT2->(RECNO()))  + " posicionado ")
            CT2->CT2_TPSALD := "9"
        CT2->(MSUNLOCK())
    ENDIF
    
    RestArea(aArea)
 
Return

Nota

title	Observação

Este Ponto de Entrada é acionado exclusivamente para os lançamentos contábeis que não apresentam inconsistências, ou seja, aqueles que são efetivados diretamente. Já os lançamentos com inconsistências não são gravados, e, quando exibidos em tela (Pergunta "Mostra Lanc Contab ?" = Sim), devem ser corrigidos pelo usuário, sendo nesse caso processados por outro fluxo do sistema.

05. ASSUNTOS RELACIONADOS

...

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave

05. ASSUNTOS RELACIONADOS