Exibir origem

01. DADOS GERAIS

Produto:
Linha de Produto:
Segmento:
Módulo:
Função:	Efetivação (CTBA350)
País:	Brasil
Ticket:	19125366
Requisito/Story/Issue :	DSERCTR1-44381

02. SITUAÇÃO/REQUISITO

Alterar a efetivação de lançamento após as validações.

03. SOLUÇÃO

Nesse ponto de entrada EFELANC o registro está posicionado logo após a efetivação ou não, sendo possível alterar o resultado.

04. DEMAIS INFORMAÇÕES

O ponto de entrada estará posicionado logo após a efetivação.

Neste exemplo está sendo alterado o tipo de saldo.

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

Características do Requisito

Descrição:	O ponto de entrada CT350QRY permite manipular a query recebida como parâmetro e retornar a mesma alterada, conforme necessidade do usuário 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á.

#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

05. ASSUNTOS RELACIONADOS

Não há.