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

...

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave