Histórico da Página

...

Descrição

EICAP100 - Eventos de câmbio

Observações

Parâmetros para customização da rotina de Cambio de Importação

Exemplos

Bloco de código

language	c#
title	EICAP100
linenumbers	true

#INCLUDE "PROTHEUS.CH"

User Function EICAP100()

   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 := .F.
   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.
   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

Parâmetros

Nome	Tipo	Descrição	Default	Obrigatório	Referência
MOVI_LIMITE_FIN	Carácter	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	Carácter	Permite adicionar campos customizados nos arrays aSWB (para ser exibido na tela) e aGet_SWB (para ser editável).
VALID_VINCULACAO	Carácter	Permite a customização da validação de vinculação de adiantamento no controle de câmbio
CONFIRMA_EXCLUIR	Carácter	Permite a confirmação da exclusão do titulo no controle de câmbio
VALIDA_TELA_CAMBIO	Carácter	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	Carácter	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.

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.

Programa Fonte

EICAP100.PRW

...

Árvore de páginas

Versões comparadas

Versão antiga 14

Nova versão 15

Chave