01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

Função:
País:Brasil
Ticket:Interno
Requisito/Story/IssueDSERCTR1-46829

02. DESCRIÇÃO

No exemplo abaixo, o ponto de entrada DPCTB102GR é utilizado para aplicar uma validação adicional após a gravação de um lançamento contábil. Caso a operação seja de estorno (indicada pelo parâmetro nOpc == 6), o ponto de entrada ajusta um campo específico do lançamento recém-gravado, conforme uma lógica de negócios definida pelo usuário:

03. DEMAIS INFORMAÇÕES


If nOpc == 6
	ExecBlock("DPCTB102GR",.F.,.F.,{ nOpc,dDataEst,cLoteEst,cSubLtEst,cDocEst } )
Else
	ExecBlock("DPCTB102GR",.F.,.F.,{ nOpc,dDataAux,cLoteAux,cSubLtAux,cDocAux } )											
EndIf
User Function DPCTB102GR()

	Local nOpc      := PARAMIXB[1] 
	Local dDataEst  := PARAMIXB[2] 
	Local cLoteEst  := PARAMIXB[3] 
	Local cSubLtEst := PARAMIXB[4]  
	Local cDocEst   := PARAMIXB[5] 

    // Checa se a operação é de estorno
    If nOpc == 6
        // Define uma lógica para ajuste de campo após o estorno
        DbSelectArea("CT2")
        DbSetOrder(1)
        
        If MsSeek(xFilial("CT2") + DTOS(dDataEst) + cLoteEst + cSubLtEst + cDocEst)
			//VAIDACAO DO CLIENTE
        EndIf
    EndIf

Return
  • Observa-se que a utilização do PE e os impactos dele no sistema são de responsabilidade do cliente.
  • Os exemplos utilizados nessa documentação são apenas para fins de demonstração, cada cliente deve verificar qual comportamento deseja realizar de acordo com o escopo do ponto de entrada.

04. ASSUNTOS RELACIONADOS