Histórico da Página
01. DADOS GERAIS
| Produto: |
| ||||
|---|---|---|---|---|---|
| Linha de Produto: |
| ||||
| Segmento: |
| ||||
| Módulo: |
| ||||
| Função: | MANUTENÇÃO (EECAP100) | ||||
| País: | Brasil | ||||
| Ticket: | 22846323 | ||||
| Requisito/Story/Issue (informe o requisito relacionado) : | DTRADE-11152 |
02. DESCRIÇÃO
CONTEÚDO
- Visão Geral
- Exemplo de utilização
- Parâmetros
- Variáveis
- Tabelas utilizadas
01. VISÃO GERAL
...
Esse
Ponto de Entrada pertence à rotina de Pedido de Exportação (EECAP100). Ele deve ser utilizado para customizar a rotina de Pedido de Exportação.
Programa Fonte: EECAP100.PRW
Retorno: Verdadeiro (.T.) ou Falso (.F.).
02. EXEMPLO DE UTILIZAÇÃO
User Function EECAP100()
Local cParamIXB
Local lRet:= .T.
Local nPos
Begin Sequence
If ValType(ParamIXB) == "A"
cParamIXB:= ParamIXB[1]
Else
cParamIXB:= ParamIXB
EndIf
Do Case
Case cParamIXB == "PE_COPYPED"
/*
Exemplo quando acessada a ação de cópia do processo
If ParamIXB[3] //se foi selecionada a cópia dos itens
03. DEMAIS INFORMAÇÕES
Exemplo de utilização
| 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
EndDo WorkIt->(DBgoTop()) |
...
EndIf
*/
Case cParamIXB == "GRV_WORK"
MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'GRV_WORK'")
EndCase
End Sequence
Return lRet
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 |
Parâmetros do ponto de entrada
...
| Nome | Tipo | Descrição |
|---|---|---|
| GRV_WORK | Caracter | Executado no início da função principal antes de criar a Work. |
| AP100MAN_INICIO | Array | 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 |
| CAN_MODIFY | Array | 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. |
| ANTES_TELA_PRINCIPAL | Array | Executado antes da tela principal do pedido. |
| FECHA_TELA_PRINCIPAL | Array | Executado após a abertura da tela principal do pedido. |
| DETMAN_ANTES_DIALOG | Array | Executado antes da tela de manutenção do item. |
| PE_GRVDET | Array | Após a gravação dos detalhes na WorkGrp. |
| DEL_WORKIT | Array | Após a exclusão dos detalhes na WorkGrp. |
| CANCELA | Array | Executado quando a opção de excluir o pedido é cancelada. |
| PE_DEL_WORK | Array | Executado no início da função AP100Del antes de deletar o registro na WORK. |
| ESTORNO_ITEM | Array | No estorno do item, após a exclusão dos registros na EEY e antes da exlcusão dos registros na EE8. |
| PE_GRV_EE8 | Array | Executado na função AP100Grava após a gravação da EE8. |
| PE_GRV | Array | Executado após gravação da EE8. |
| GRV_PED | Array | Permitir alteração no processo de gravação do pedido de exportação. |
| PE_LINOK | Array | 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. |
| ROD_CAPA_PED | Array | Executado antes de apresentar o rodapé da capa. |
| ROD_ITENS_PED | Array | Executado antes de apresentar o rodapé dos itens |
| PE_COPYPED | Array | Executado na função AP100CopyFrom, após a cópia dos dados do processo. |
| COPYPED_TELA | Array | Executado na função AP100SelProc que copia dados de um processo, antes da tela de seleção de pedidos. |
| GETPESOS | Array | Executado antes da tela de conferência de pesos. |
| GETPESOS_OK | Array | Executado após a abertura da tela de conferência de pesos. |
| PE_OFFSHORE_GERA_CAPA | Array | 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. |
| ESTORNO_PEDIDO | Array | Executado antes de deletar o pedido da tabela EE7. |
| ESTORNO_PEDIDO_EXT | Array | Executado antes de deletar o pedido da tabela EE7 para filial do exterior. |
| PE_EXC | Array | Executado no final da função AP100DelPed que deleta os pedidos de exportação. |
| CALC_FOBTOT | Array | Apurar o valor Fob total dos itens em que o agente está vinculado |
...
| . | ||
| ANTES_GRAVA_CAPA_AUTO | Array | Pré-validação de Execução da Rotina Automática |
| EECPPE08 | Caracter | 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. |
| EECPEM44 | Caracter | Executado na confirmação da inclusão e alteração do pedido de exportação. |
| EECPPE09 | Array | Executado na validação na confirmação de eliminação/ exclusão do pedido de exportação. |
| PRECOI_ATU_PRECO | Array | 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. |
| ANTES_REFRESH_RODAPE | Caracter | Permite alterar os valores do rodapé do pedido de exportação. |
Variáveis utilizadas
| Parâmetro | Nome | Tipo | Permite alterar | Descrição |
|---|---|---|---|---|
| PE_GRVDET | nTipo | Numérico | Sim | Inclua a descrição relacionada |
| Inclua o campo | nOpcAux | Numérico | Sim | Variável utilizada para a alteração da opção aRotina. |
| CALC_FOBTOT | nFobTotAux | Numérico | Sim | Apurar o valor Fob total dos itens em que o agente está vinculado. |
| PE_GRV | lEECAP100 | Lógico | Não | Flag para que o ponto de entrada "PE_GRV" seja executado apenas uma vez. |
| GETPESOS | nPesLC | Numérico | Sim | |
| GETPESOS | nPesBC | Numérico | Sim | |
| PE_COPYPED | lCapa | Lógico | Sim | |
| PE_COPYPED | IItens | Lógico | Sim |
05. TABELAS UTILIZADAS
...
| ANTES_GRAVA_CAPA_AUTO | aAutoCab | Array | Sim | Array com os dados de capa do Pedido |
| ANTES_GRAVA_CAPA_AUTO | aAutoItens | Array | Sim | Array com os dados de Detalhes do Pedido |
| ANTES_GRAVA_CAPA_AUTO | nOpcaoAuto | Numérico | Sim | Opção de manutenção do aRotina |
| PRECOI_ATU_PRECO | nValPTO | Numérico | Sim | Valor da despesa a ser cosiderado no preço do item. |
| ANTES_REFRESH_RODAPE | EE7_TOTPED | Numérico | Sim | Variável referente ao campo "Total Pedido" da tela do pedido. |
| ANTES_REFRESH_RODAPE | nTotPedBr | Numérico | Sim | Variável referente ao campo "Total Pedido (Bruto)" da tela do pedido. |
| ANTES_REFRESH_RODAPE | EE7_TOTFOB | Numérico | Sim | Variável referente ao campo "Total Fob" da tela do pedido. |
| ANTES_REFRESH_RODAPE | EE7_VLFOB | Numérico | Sim | Variáel para uso interno do sistema, deve ser informado com o mesmo valor do campo EE7_TOTFOB. |
| ANTES_REFRESH_RODAPE | EE7_TOTLIQ | Numérico | Sim | Variável referente ao campo "Total Líquido" da tela do pedido. |
| ANTES_REFRESH_RODAPE | EE7_PESLIQ | Numérico | Sim | Variável referente ao campo "Peso Líquido" da tela do pedido. |
| ANTES_REFRESH_RODAPE | EE7_PESBRU | Numérico | Sim | Variável referente ao campo "Peso Bruto" da tela do pedido. |
| ANTES_TELA_PRINCIPAL | aButtons | Array | Sim | Permite adicionar ações na tela de manutenção do pedido de exportação. |
| AP100MAN_INICIO | nOpcAux | Numérico | Não | Variável utilizada para verificar a opção acessada pelo usuário conforme menudef. |
| AP100MAN_INICIO | lRetPedInt | Lógico | Sim | Variável utilizada para retornar a validação da manutenção (caso seja retornado Falso é necessário a utilização do break) |
04. ASSUNTOS RELACIONADOS
- Não há
| Templatedocumentos |
|---|