...
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#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.
if nOpcAux == 3
MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'AP100MAN_INICIO' = inclusão")
ifelseif nOpcAux == 34
MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'AP100MAN_INICIO' = inclusãoalteração")
elseif nOpcAux == 4endif
lRetPedInt := MsgInfoMsgYesNo("Ponto de entrada EECAP100 com o parâmetro 'AP100MAN_INICIO' = alteração")
if endif
lRetPedInt := .F.
break!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.
lRet MsgInfo:= MsgYesNo("Ponto de entrada EECAP100 com o parâmetro 'CAN_MODIFY'")
if !lRet
break
endif
Case 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 |
...
