EICDI500 - Manutenção de Desembaraço

Descrição

Ponto de entrada para customização da rotina de Desembaraço.

Observações

1) Quando o ponto de entrada "EICDI500" estiver passando no parâmetro "Paramixb", o conteúdo "VALID_COURIER" permitirá a inclusão de novas validações de Courier no processo de desembaraço.

2) Quando o ponto de entrada "EICDI500" estiver passando no parâmetro "Paramixb", o conteúdo "BROWSE_WORK_DSI" permitirá a inclusão de novos campos no Regime de Tributação.

3) Quando o ponto de entrada "EICDI500" estiver passando no parâmetro "Paramixb", o conteúdo "GRV_WORK_INVOICE" permitirá a validação customizada das informações durante a gravação das invoices antecipadas do desembaraço.

4) Quando o ponto de entrada "EICDI500" estiver passando no parâmetro "Paramixb", o conteúdo "IDI500MNU" a customização do menu funcional da rotina de Embarque e Desembaraço.

5) Quando o ponto de entrada "EICDI500" estiver passando no parâmetro "Paramixb", o conteúdo "ANTES_TELA" permitirá a customização da rotina antes da exibição da tela. Neste ponto é possivel que seja adicionado botões customizados, alimentando a variavel 'aBotoes1T'.

Exemplos

User Function EICDI500()
Local cParam := If(Type("ParamIxb") = "A",ParamIxb1,If(Type("ParamIxb") = "C",ParamIxb,""))
If cParam == "VALID_COURIER"
MsgInfo("Ponto de Entrada 'VALID_COURIER'. Variavel 'lRetC' = .F.")
lRetC := .T.
EndIf
If cParam == "BROWSE_WORK_DSI"
aAdd(aCamposSW8,{"WKINVOICE"  ,,"Campo Teste"})
EndIf
If cParam == "GRV_WORK_INVOICE"
MsgInfo("Ponto de Entrada 'GRV_WORK_INVOICE'.") 
EndIf
If cParam == "IDI500MNU"
MsgInfo("Ponto de Entrada 'IDI500MNU'.")
EndIf
If cParam == "ANTES_TELA"
Aadd(aBotoes1T,{"PRODUTO"  ,{||  .T.  },"Botão Customizado"})
EndIf
Return Nil

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

VALID_COURIER 
BROWSE_WORK_DSI 
GRV_WORK_INVOICE
IDI500MNU
ANTES_TELA

Retorno

Eventos de chamada do Ponto de Entrada

Variáveis

lRetC / aBotoes1T

Programa Fonte

EICDI500.PRW