Este Ponto de Entrada pertence à rotina de Embarque/Desembaraço da Importação (EICDI500). Ele deve ser utilizado para customizar a rotina de Embarque/Desembaraço de Importação.
Programa Fonte: EICDI500.PRW
User function EICDI500() Local cParam := if(Type("ParamIxb") = "A", ParamIxb[1], if(Type("ParamIxb") = "C", ParamIxb, "")) Do Case Case PARAMIXB == "ANT_VALID_SW6" If cNomeCampo = 'TFOBUNIT' MsgInfo("Entrou no ponto de entrada para validação dos campos no item do embarque.") EndIf Case PARAMIXB == "MANUT_SW9" lSair: = .T. Case PARAMIXB == "ANTES_TELA" MsgInfo("Entrou no ponto de entrada para manipulação de campos customizados.") Case PARAMIXB == "BROWSE_SELECIONA" AAdd(aBotaoItem, {"" ,{|| MsgInfo("Teste")}, "Botão de teste"}) AAdd(aCamposItem, {"WKCAMPO" , , "Titulo" , "substituir por picture"}) Case cParam == "TELA_DESP" If AScan(aBotoesDesp, {|x| x[1] == "TESTE1"}) == 0 AAdd(aBotoesDesp, {"TESTE1", {|| MsgInfo("Teste")}, "Teste aBotoesDesp", "Teste aBotoesDesp"}) EndIf Case cParam == "BROWSE_WORK_SW9" AAdd(aBotoes, {"TESTE aBotoes", {|| MsgInfo("Teste aBotoes")}, "Teste aBotoes", "Teste aBotoes"}) AAdd(aTB_CposSW9, {"TESTE aTB_CposSW9", {|| MsgInfo("Teste aBotoes")}, "Teste aTB_CposSW9", "Teste aTB_CposSW9"}) Case cParam == "RATEIO_ACRESCIMOS" cCodRatPeso := "10/13" Case cParam == "DESVIA_REL" lDesvio := .T. Case cParam == "ANTES_INFO_COMPL" nLin2 := 20 Case cParam == "IMP_COMPLE" cMemo := "Teste" Case cParam == "FINAL_IMPR_ADI" nLin2 := 20 Case cParam == "MANUT_W9_INC" MsgInfo("Ponto de entrada com o parâmetro MANUT_W9_INC") //M->W9_FRETEIN:= 145.00 Case cParam == "ANTES_INICIA_SW6_SW9" //MsgInfo("Ponto de entrada com o parâmetro ANTES_INICIA_SW6_SW9") cCpoNaoInicia += "W2_AAAA; W2_BBBB" Case cParam == "INICIA_SW6_SW9" MsgInfo("Ponto de entrada com o parâmetro INICIA_SW6_SW9") //M->W9_ABCD:= SW2→W2_ABCD Case cParam == "AROTINA" Aadd(aRotina, {"Nova Rotina", "DI500Rotina", 0, 2}) Case cParam == "ALTERA_WHEN" lWhenDesp := .F. //Desabilita o campo Despesa lWhenAdian := .F. //Adianta/o lWhenPgPor := .F. //Pago Por lWhenGrFin := .F. //Gera Financ. EndCase Return |
| Nome | Tipo | Descrição |
|---|---|---|
| ANT_VALID_SW6 | Caracter | Possibilita a validação dos itens da SW6 e também da tela de seleção de itens do embarque. |
| MANUT_SW9 | Caracter | Possibilita a validação dos itens da SW9 (Invoice) e também a alteração dela. |
| ANTES_TELA | Caracter | Possibilita a customização dos campos customizados a serem apresentados na enchoice. |
| BROWSE_SELECIONA | Caracter | Possibilita a intervenção antes da abertura da tela de itens |
| ANT_GRAVA_CAPA | Caracter | Ponto de entrada executado imediatamente após confirma a mensagem "Confirma a gravação somente da capa do processo?". Não é executado na fase de desembaraço. |
| POS_GRAVA_CAPA | Caracter | Ponto de entrada executado após efetivar a gravação da capa do embarque. Não é executado na fase de desembaraço. |
| ANT_GRAVA_TUDO | Caracter | Ponto de entrada executado antes de gravar todo o processo. Também é executado na fase desembaraço. |
| POS_GRAVA_TUDO | Caracter | Ponto de entrada executado após gravar todo o processo, além dos capa. Também é executado na fase desembaraço. |
| TELA_DESP | Caracter | Possibilita a customização dos botões que serão exibidos nas ações da tela de despesas do desembaraço. |
| BROWSE_WORK_SW9 | Caracter | Possibilita a customização dos botões aBotoes e aTB_CposSW9 na tela de invoices do desembaraço. |
| RATEIO_ACRESCIMOS | Caracter | Possibilita customizar via ponto de entrada os códigos dos acréscimos a serem rateados por peso. |
| DESVIA_REL | Caracter | Possibilita definir se haverá desvio para uma versão customizada da impressão do Relatório de Conferência da DI |
| ANTES_INFO_COMPL | Caracter | Possibilita inserir dados na próxima linha disponível antes da impressão da seção Informações Complementares do Relatório de Conferência da DI |
IMP_COMPLE | Caracter | Possibilita customizar a Impressão de Informações Complementares no Relatório de Conferência da DI |
| FINAL_IMPR_ADI | Caracter | Possibilita inserir dados na próxima linha disponível no Final da Impressão da Adição dentro do loop da impressões das adições |
| MANUT_W9_INC | Caracter | Indica que o ponto de entrada foi executado durante a inclusão de uma Invoice, possibilitando customizar as suas informações de capa (SW9). |
| ANTES_INICIA_SW6_SW9 | Caracter | Indica que o ponto de entrada foi executado a partir da inclusão da Invoice, antes que os dados da capa sejam carregados a partir do Purchase Order de referência informado na capa do embarque/ desembaraço. A execução o ponto de entrada com este parâmetro está condicionada ao parâmetro MV_INIINV. |
| INICIA_SW6_SW9 | Caracter | Executado quando a Invoice for incluída, possibilitará intervir nas informações de capa do processo (SW9). Havendo o Purchase Order de referência informado na capa do embarque/ desembaraço, este registro estará posicionado neste momento. A execução o ponto de entrada com este parâmetro está condicionada ao parâmetro MV_INIINV. |
| AROTINA | Caracter | Possiblita incluir novas rotinas no menu de outras ações do desembaraço. |
| ALTERA_WHEN | Caracter | Possibilitar desabilitar a edição (when) dos campos "Despesa", "Adiantamento", "Pago Por" e/ou "Gera Título no Financeiro?". |
| Parâmetro | Nome | Tipo | Permite alterar | Descrição |
|---|---|---|---|---|
| ANT_VALID_SW6 | cNomeCampo | Caracter | Sim | Variável que armazena o nome do campo a ser validado. |
| MANUT_SW9 | lSair | Lógico | Sim | Variável usada no ponto de entrada MANUT_SW9 |
| ANTES_TELA | aCamposMostra | Array | Sim | Array que armazena os campos a serem apresentados em tela |
| BROWSE_SELECIONA | aDarGets | Array | Sim | Array que define quais campos serão editados em tela. |
| ANT_GRAVA_CAPA | cTitItens | Caracter | Sim | Permite manipular o título da tela de itens |
| POS_GRAVA_CAPA | nOpcaoItem | Numérico | Sim | Permite verificar e intervir na ação de acesso à tela de itens |
| ANT_GRAVA_TUDO | aBotaoItem | Array | Sim | Possibilita a adição de novas ações na tela de itens |
| TELA_DESP | aBotoesDesp | Array | Sim | Disponível no ponto de entrada com o parâmetro TELA_DESP, possibilita a customização das ações exibidas na tela de despesas do desembaraço. |
| POS_GRAVA_TUDO | aCamposItem | Array | Sim | Disponível no ponto de entrada com o parâmetro BROWSE_SELECIONA, possibilita a adição de campos na tela de seleção de itens das fases de embarque e desembaraço. |
| BROWSE_WORK_SW9 | aBotoes e aTB_CposSW9 | Array | Sim | Possibilita a adição de novas opções na tela de invoices do desembaraço. Através da customização dos botões. |
| RATEIO_ACRESCIMOS | cCodRatPeso | Caracter | Sim | Variável para indicar quais os códigos de acréscimos terão o rateio efetuado por peso. |
DESVIA_REL | lDesvio | Lógico | Sim | Variável que define se haverá desvio na impressão do Relatório |
| ANTES_INFO_COMPL | nLin2 | Numérico | Sim | Variável que Possibilita inserir dados na próxima linha disponível antes da impressão da seção Informações Complementares do Relatório de Conferência da DI |
| IMP_COMPLE | cMemo | Memo | Sim | Variável que receberá o conteúdo(customizado) a ser impresso em Informações Complementares do Relatório de Conferência da DI |
| FINAL_IMPR_ADI | nLin2 | Numérico | Sim | Variável que Possibilita inserir dados na próxima linha disponível no Final da Impressão da Adição dentro do loop da impressões das adições |
| ANTES_INICIA_SW6_SW9 | cCpoNaoInicia | Caracter | Sim | Disponível na inclusão da Invoice, possibilita relacionar os campos da capa do Purchase Order (SW2) que não devem ser considerados ao carregar a capa da Invoice (SW9) |
| AROTINA | aRotina | Array | Sim | Variável que recebe as novas rotinas a serem exibidas no menu de outras ações do desembaraço |
| ALTERA_WHEN | lWhenDesp := .F. | Lógico | Sim | Variável responsável por Desabilitar o campo "Despesa" |
| ALTERA_WHEN | lWhenAdian := .F. | Lógico | Sim | Variável responsável por Desabilitar o campo "Adiantamento" |
| ALTERA_WHEN | lWhenPgPor := .F. | Lógico | Sim | Variável responsável por Desabilitar o campo "Pago Por" |
| ALTERA_WHEN | lWhenGrFin := .F. | Lógico | Sim | Variável responsável por Desabilitar o campo "Gera Título no Financeiro?". |
<!-- esconder o menu -->
<style>
div.theme-default .ia-splitter #main {
margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
display: none;
}
#main {
padding-left: 10px;
padding-right: 10px;
overflow-x: hidden;
}
.aui-header-primary .aui-nav, .aui-page-panel {
margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
margin-left: 0px !important;
}
</style>
|