EICAP100 - Eventos de câmbio
...
Descrição | EICAP100 - Eventos de câmbio |
---|
Observações |
---|
Utilizado para alteração para pular a validação da data do parâmetro MV_DATAFIN, assim fazendo a liquidação do controle do cambio. | Exemplos | Parâmetros para customização da rotina de Cambio de Importação |
Exemplos | Bloco de código |
---|
language | c# |
---|
title | EICAP100 |
---|
linenumbers | true |
---|
| #INCLUDE |
|
---|
#INCLUDE Local cParam :=
Local nPosMotBx := 0
Local cParam := If(Type("ParamIxb") == "A",ParamIxb[1],If(Type("ParamIxb") == "C",ParamIxb,"")) |
|
If cParam == "MOVI_LIMITE_FIN" |
|
MsgInfo("Entrou no ponto de entrada 'MOVI_LIMITE_FIN'.") |
|
lMoviFin Preview |
---|
Veja também | |
EndIFReturn nil
User FUNCTION FADTMOV() If MsgYesNo("Está utilizando a data base " + DTOC(DDATABASE) + ", deseja continuar?") lRet := .T. Else lRet := .F. EndIFReturn lRet
elseif cParam == "VALID_VINCULACAO"
msginfo("Entrou no ponto de entrada 'VALID_VINCULACAO'")
lRetvalid := .F.
elseif cParam == "MANUT_SWA"
msginfo("Entrou no ponto de entrada 'MANUT_SWA'")
lSair := .T.
elseif cParam == "ELIMINAR_SALDO_MOTBX"
msginfo("Entrou no ponto de entrada 'MOTBX'")
If ( nPosMotBx := aSCan(aTitBx,{|x|x[1]=="AUTMOTBX"} ) ) > 0
aTitBx[nPosMotBx][2] := "DEB"
endif
elseif cParam == "EXIBE_MSG_ADTO"
lExibeMsAd := .F.
elseif cParam == "COND_PAG"
lCondPa := .F.
elseif cParam == "TABINV"
AADD(aPRITabInv,{cInvoice+cFornecedor+cLoja,nValorInvoice,dDataVencimento,'A PRAZO',cNumeroParcela,cNumeroPO,nValorComissao})
elseif cParam == "FINAL_EICCALCPAGTO"
AADD(aPRITabInv,{cInvoice+cFornecedor+cLoja,nValorInvoice,dDataVencimento,'A PRAZO',cNumeroParcela,cNumeroPO,nValorComissao})
elseif cParam == "GRAVA SWB"
msginfo("Permite a alteração durante a gravação de cada parcela da tabela SWB")
elseif cParam == "APOS GRAVAR SWB"
msginfo("Permite a alteração da tabela SWB após a gravação de todas as parcelas")
elseif cParam == "ANTES_TELA_SWB"
M->WB_INVOICE:= "ABCDEF"
endif
Return nil |
|
Preview |
---|
Veja também |
|
---|
Idioma | Português(Brasil) |
---|
Versões | Microsiga_Protheus11 e Microsiga_Protheus12 |
---|
Sistemas Operacionais Suportados | Todos |
---|
Compatível com as Bases de Dados | Todas |
---|
Updates |
---|
| Nome | Tipo | Descrição | Default | Obrigatório | Referência |
|
---|
CarácterCaracter | Permite a alteração para pular a validação da data do parâmetro MV_DATAFIN, assim fazendo a liquidação do controle do cambio. |
|
| | | |
|
|
| ARRAYSWB | Caracter | Permite adicionar campos customizados nos arrays aSWB (para ser exibido na tela) e aGet_SWB (para ser editável). |
|
|
| VALID_VINCULACAO | Caracter | Permite a customização da validação de vinculação de adiantamento no controle de câmbio |
|
|
| CONFIRMA_EXCLUIR | Caracter | Permite a confirmação da exclusão do titulo no controle de câmbio |
|
|
| VALIDA_TELA_CAMBIO | Caracter | Permite alterar o valor da pergunta referente a divergêngia entre o valor total das invoices e o valor das parcelas. Se a pergunta é confirmada, o câmbio será gravado mesmo com divergência, caso cancelada, o câmbio não será gravado. Neste ponto de entrada, a variável lRetVal é igual a .T. ao confirmar a gravação com divergêngia, .F. (False) caso cancelar. Se essa variável, por exemplo, é alterada para .T. no ponto de entrada, o câmbio será gravado independentemente da escolha do usuário na pergunta. A variável lInvDifere é igual a .T. se existe diferença entre o valor total das invoices e o valor total das parcelas do câmbio. |
|
|
| ELIMINAR_SALDO_MOTBX | Caracter | Permite alterar o motivo da baixa do título quando utilizado a rotina de eliminar o saldo |
|
|
| EXIBE_MSG_ADTO | Booleana | Permite alterar a variável lExibeMsAd para que não seja exibida a mensagem de adiantamentos disponíveis ao alterar um câmbio de Desembaraço. |
|
|
| COND_PAG | Booleana | Permite gerar as parcelas de câmbio para o tipo de cobrança igual a 4, este tipo de cobrança por padrão é sem cobertura cambial, mas pode ser alterada via cadastro. |
|
|
| TABINV | Array | Permite manipular, incluir, alterar e excluir os elementos do array referente a geração de câmbio a cada parcela gerada. |
|
|
| FINAL_EICCALCPAGTO | Array | Permite manipular, incluir, alterar e excluir os elementos do array referente a geração de câmbio após todas as parcela geradas. |
|
|
| GRAVA SWB | Caracter | Permite a alteração durante a gravação de cada parcela da tabela SWB. |
|
|
| APOS GRAVAR SWB | Caracter | Permite a alteração da tabela SWB após a gravação de todas as parcelas. |
|
|
| ANTES_TELA_SWB | Caracter | Permite alterar as variáveis de memória da parcela de câmbio antes de efetuar o carregamento da tela |
|
|
|
|
Retorno | NIL |
---|
Eventos de chamada do Ponto de Entrada |
|
---|
Variáveis | Nome | Tipo | Escopo | Pode Alterar | Parâmetro | Descrição |
---|
lRetvalid | Booleana | Private | Sim | VALID_VINCULACAO | Variável que controla a validação da vinculação de adiantamento do controle de câmbio | nManut | Numérico | Private | Sim |
| Código da operação a ser realizada (Inclusão, Alteração, Exclusão, Liquidação, Estorno da Liquidação, etc) | lExcluiu | Booleana | Private | Sim | CONFIRMA_EXCLUIR | Variável responsável para verificar se o titulo posicionado foi excluido | lRetVal | Booleana | Private | Sim | VALIDA_TELA_CAMBIO | Se .T., o câmbio será gravado independentemente se haver divergência ou não de valores, Se .F., o cambio não será gravado. | lInvDifere | Booleana | Private | Sim | VALIDA_TELA_CAMBIO | lInvDifere é .T. se existe divergência entre o valor total das invoices e o valor total das parcelas, .F. caso contrário. Essa variável não tem efeito ao alterá-la, pois seu objetivo é de apenas leitura. | aTitBx | Array | Private | Sim | ELIMINAR_SALDO_MOTBX | Array contendo as informações para a realização da baixa do título, via rotina automática FINA080, ao eliminar o saldo do mesmo e para alterar o motivo da baixa é preciso localizar a linha do array contendo o campo AUTMOTBX para então alterar o motivo da baixa no array antes da execução da baixa. Além do motivo da baixa, outras informações podem ser manipuladas dentro deste array, respeitando as regras de negócio da rotina de destino, conforme a documentação https://tdn.totvs.com/display/public/PROT/Baixa+e+Cancelamento+Contas+a+Pagar. | lExibeMsAd | Booleana | Private | Sim | EXIBE_MSG_ADTO | Variável que permite desabilitar a mensagem com os adiantamentos disponíveis para utilização, que é exibida ao alterar um câmbio de desembaraço. | lCondPa | Booleana | Private | Sim | COND_PAG | Variável que permite gerar parcelas de câmbio mesmo para tipo de cobrança igual a 4, deve retornar .F. para sair do padrão e gerar a parcela. | aPRITabInv | Array | Private | Sim | TABINV FINAL_EICCALCPAGTO | Array com as informações para a geração das parcelas de câmbio com os seguintes campos: Chave = Invoice+Fornecedor+Loja Valor da Invoice Data de Vencimento Tipo de pagamento 'A PRAZO' ou 'A VISTA' Numero da Parcela NumeroPO ValorComissao | lVolta | Lógico | Private | Sim | ANTES_TELA_SWB | Permite forçar o retorno para a tela principal do câmbio antes que o sistema conclua o carregamento da tela de parcela de câmbio |
|
---|
Retorno | () |
---|
Eventos de chamada do Ponto de Entrada | |
---|
Variáveis |
|
Programa Fonte | EICAP100.PRW |
---|