EICAP100 - Eventos de câmbio

...

Descrição

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 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


      lMoviFin := .F.

EndIFIF cParam


   elseif cParam == "VALID_VINCULACAO"


      msginfo("Entrou no ponto de entrada 'VALID_VINCULACAO'")

lRetvalid


      lRetvalid := .F

.
ENDIF

Return nil

User FUNCTION FADTMOV()
If MsgYesNo("Está utilizando a data base " + DTOC(DDATABASE) + ", deseja continuar?")
lRet := .T.
Else
lRet := .F.
EndIF

.
   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

Return lRet

Preview

Veja também

Updates

Idioma	Português(Brasil)
Versões	Microsiga_Protheus11 e Microsiga_Protheus12
Sistemas Operacionais Suportados	Todos
Compatível com as Bases de Dados	Todas

Parâmetros

Nome

Tipo

Descrição

Default

Obrigatório

Referência

MOVI_LIMITE_FIN

Carácter

Caracter

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

Caracter

Permite adicionar campos customizados nos arrays aSWB (para ser exibido na tela) e aGet_SWB (para ser editável).


VALID_VINCULACAO

Carácter

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

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

Programa Fonte

EICAP100.PRW

Árvore de páginas

Versões comparadas

Versão antiga 6

Nova versão Atual

Chave

EICAP100 - Eventos de câmbio

Árvore de páginas

Histórico da Página

Versões comparadas

Versão antiga 6

Nova versão Atual

Chave

EICAP100 - Eventos de câmbio