Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (tp.nicolas.brisque) em 29 nov, 2022


CONTEÚDO

  1. Visão Geral
  2. Exemplo de utilização
  3. Parâmetros
  4. Variáveis
  5. Tabelas utilizadas


01. VISÃO GERAL

Este Ponto de Entrada pertence à rotina de Ato Concessório (EDCAC400). Ele deve ser utilizado para customizar a rotina de Ato Concessório.

Programa Fonte: EDCAC400.PRW


02. EXEMPLO DE UTILIZAÇÃO


EDCAC400 
User Function EDCAC400()
Local cParam := If(ValType(PARAMIXB) == 'A', PARAMIXB[1], PARAMIXB)
 
Do Case
    Case cParam == "GRAVACAO_ATO"
        MsgInfo("PE - GRAVACAO_ATO")
     
    Case cParam == "ESTORNO_ATO"
        MsgInfo("PE - ESTORNO_ATO")

    Case cParam == "ALTERA_INDICE"
        MsgInfo("PE - ALTERA_INDICE")
        // ED4→(DbSetOrder(personalizado)) - usuário pode utilizar para alterar a ordem 
        bSeekED4 := {||ED4->(dbSeek(xFilial("ED4")+ED0->ED0_PD+WorkED4->ED4_NCM+WorkED4->ED4_ITEM+WorkED4->ED4_UMNCM+cImport+WorkED4->ED4_CAMB))}
     
EndCase
 
Return Nil

03. PARÂMETROS

NomeTipoDescrição
GRAVACAO_ATOCaracterParâmetro responsável por qualquer customização no momento da gravação do Ato Concessório.
ESTORNO_ATOCaracterParâmetro responsável por qualquer customização no momento do estorno do Ato Concessório.
ALTERA_INDICEArrayParâmetro responsável por alterar o indice a ser pesquisado para verificar se será incluído ou alterado o item do drawback.

04. VARIÁVEIS

ParâmetroNomeTipoPermite alterarDescrição
ALTERA_INDICEbSeekED4Bloco de CódigoSimVariável responsável por executar o bloco de código para alterar o indice quando alterado o ato concessório.
ALTERA_INDICEcChaveCaracterNãoVariável recebida como um parâmetro e permite visualizar a chave atual do indice.

05. TABELAS UTILIZADAS

  • Não há.