Histórico da Página

#include "protheus.ch"

User Function EECAP100()
Local cParamIXB
Local lRet := .T.
Local aRet := {}

If ValType(ParamIXB) == "A"
    cParamIXB:= ParamIXB[1]
Else
    cParamIXB:= ParamIXB
EndIf

Do Case

    Case cParamIXB == "PE_COPYPED" // Executado na função AP100CopyFrom, após a cópia dos dados do processo.

        /*Exemplo quando acessada a ação de cópia do processo
        If ParamIXB[3] //se foi selecionada a cópia dos itens
        WorkIt->(DBgoTop())
        While WorkIt->(!Eof())
            WorkIt->EE8_ZZZZZ:= ""
            WorkIt->(DBSkip())
        EndDo
        WorkIt->(DBgoTop())
        EndIf*/

    Case cParamIXB == "GRV_WORK" // Executado no início da função principal antes de criar a Work.

        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'GRV_WORK'")

    Case cParamIXB == 'ANTES_GRAVA_CAPA_AUTO' // Pré-validação de Execução da Rotina Automática
        
        aRet := {.F.,"Passou no ponto de entrada 'ANTES_GRAVA_CAPA_AUTO' e invalidou integração!"}
        Return aRet
        //aRet onde:
        //aRet[1] -> Variável Lógica com status do processamento
        //aRet[2] -> Variável do tipo caracter que contenha a mensagem de erro em caso do status ser FALSO.

    Case cParamIXB == 'PRECOI_ATU_PRECO' // Executado no cálculo do preço do item e permite manipular os valores das despesas no momento onde no array o primeiro item se refere ao ponto de entrada solicitado e o segundo item do array o nome do campo da despesa e o valor da despesa pode ser controlado pela variável nValPTO que traz o valor da despesa podendo ser alterado o que reflete no valor FOB do processo.

        if ParamIXB[2] <> "EE8_VLDESC"
            // Zera o valor da despesa no calculo do processo de preço fechado.
            nValPto := 0
        endif

    Case cParamIXB == "ANTES_REFRESH_RODAPE" // Permite alterar os valores do rodapé do pedido de exportação.

        // Exemplo de uso de ponto de entrada para manipular as variáveis de totais do rodapé do pedido de exportação
        M->EE7_TOTPED := 101 //Total Pedido
        nTotPedBr := 102 // Total Pedido (Bruto)
        M->EE7_TOTFOB :=103 //Total Fob
        M->EE7_VLFOB := 103  //Total Fob Interno, deixar este valor igual ao EE7_TOTFOB
        M->EE7_TOTLIQ := 104 // Total Liquido  
        M->EE7_PESLIQ :=105 // Peso Líquido
        M->EE7_PESBRU := 106 //Peso Bruto


    Case cParamIXB == "AP100MAN_INICIO" // Executado no início da função de manutenção dos processos. Observação: caso seja uma validação impeditiva deverá ser utilizado o comando break
        if nOpcAux == 3
            MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'AP100MAN_INICIO' = inclusão")
        elseif nOpcAux == 4
            MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'AP100MAN_INICIO' = alteração")
        endif
        lRetPedInt := MsgYesNo("Ponto de entrada EECAP100 com o parâmetro 'AP100MAN_INICIO'")
        if !lRetPedInt
            break
        endif

    Case cParamIXB == "CAN_MODIFY" // Executado após a verificação se o pedido pode ser alterado - quando o parâmetro MV_AVG0090 está desabilitado. Observação: caso seja uma validação impeditiva deverá ser utilizado o comando break e somente para processo que foi embarcado.
        lRet := MsgYesNo("Ponto de entrada EECAP100 com o parâmetro 'CAN_MODIFY'")
        if !lRet
            break
        endif

    Case cParamIXB == "ANTES_TELA_PRINCIPAL" // Executado antes da tela principal do pedido.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'ANTES_TELA_PRINCIPAL'")
        
    Case cParamIXB == "FECHA_TELA_PRINCIPAL" // Executado após a abertura da tela principal do pedido.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'FECHA_TELA_PRINCIPAL'")

    Case cParamIXB == "DETMAN_ANTES_DIALOG" // Executado antes da tela de manutenção do item.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'DETMAN_ANTES_DIALOG'")

    Case cParamIXB == "PE_GRVDET" // Após a gravação dos detalhes na WorkGrp.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'PE_GRVDET'")

    Case cParamIXB == "DEL_WORKIT" // Após a exclusão dos detalhes na WorkGrp.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'DEL_WORKIT'")

    Case cParamIXB == "CANCELA" // Executado quando a opção de excluir o pedido é cancelada.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'CANCELA'")

    Case cParamIXB == "PE_DEL_WORK" // Executado no início da função AP100Del antes de deletar o registro na WORK.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'PE_DEL_WORK'")

    Case cParamIXB == "ESTORNO_ITEM" // No estorno do item, após a exclusão dos registros na EEY e antes da exlcusão dos registros na EE8.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'ESTORNO_ITEM'")

    Case cParamIXB == "PE_GRV_EE8" // Executado na função AP100Grava após a gravação da EE8.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'PE_GRV_EE8'")

    Case cParamIXB == "PE_GRV" // Executado após gravação da EE8.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'PE_GRV'")

    Case cParamIXB == "GRV_PED" // Permitir alteração no processo de gravação do pedido de exportação.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'GRV_PED'")

    Case cParamIXB == "PE_LINOK" // Executado na função AP100LINOK que valida os campos da enchoice. Usado na validação da linha. 
                                 // Permite acesso ao Array aCampoVld que contem a lista de campos do produto padrão que não serão validados ao incluir/alterar o item do pedido de exportação.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'PE_LINOK'")

    Case cParamIXB == "ROD_CAPA_PED" // Executado antes de apresentar o rodapé da capa.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'ROD_CAPA_PED'")

    Case cParamIXB == "ROD_ITENS_PED" // Executado antes de apresentar o rodapé dos itens
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'ROD_ITENS_PED'")

    Case cParamIXB == "COPYPED_TELA" // Executado na função AP100SelProc que copia dados de um processo, antes da tela de seleção de pedidos.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'COPYPED_TELA'")

    Case cParamIXB == "GETPESOS" // Executado antes da tela de conferência de pesos.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'GETPESOS'")

    Case cParamIXB == "GETPESOS_OK" // Executado após a abertura da tela de conferência de pesos.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'GETPESOS_OK'")

    Case cParamIXB == "PE_OFFSHORE_GERA_CAPA" // Executado na função AP100GerPed que gera pedido para filial do exterior, no momento de gravação dos campos de memória da tabela EE7.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'PE_OFFSHORE_GERA_CAPA'")

    Case cParamIXB == "ESTORNO_PEDIDO" // Executado antes de deletar o pedido da tabela EE7.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'ESTORNO_PEDIDO'")

    Case cParamIXB == "ESTORNO_PEDIDO_EXT" // Executado antes de deletar o pedido da tabela EE7 para filial do exterior.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'ESTORNO_PEDIDO_EXT'")

    Case cParamIXB == "PE_EXC" // Executado no final da função AP100DelPed que deleta os pedidos de exportação.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'PE_EXC'")

    Case cParamIXB == "CALC_FOBTOT" // Apurar o valor Fob total dos itens em que o agente está vinculado.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'CALC_FOBTOT'")

    Case cParamIXB == "EECPPE08" // Executado na validação dos itens do pedido de exportação, função AP100VALDET(), permitindo a implementação de validações adicionais na gravação do item.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'EECPPE08'")

    Case cParamIXB == "EECPEM44" // Executado na confirmação da inclusão e alteração do pedido de exportação.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'EECPEM44'")

    Case cParamIXB == "EECPPE09" // Executado na validação na confirmação de eliminação/ exclusão do pedido de exportação.
        MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'EECPPE09'")

EndCase

Return lRet