HTML

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

EECAF200 - Manutenção do Câmbio

Descrição

Observações

Utilizado para alteração do status no controle de câmbio e do embarque após a liquidação

Exemplos

#DEFINE ENTER Chr(10) + Chr(13)

User Function EECAF200()

Local cParam := if(Type("ParamIxb") = "A", ParamIxb[1], if(Type("ParamIxb") = "C", ParamIxb, ""))

if cParam == "PE_STATUS"

MsgInfo("Entrou no ponto de entrada", 'PE_STATUS')

if EEC->(RecLock("EEC",.f.))

M->EEC_STATUS := "A"
M->EEC_STTDES := "STATUS TESTE"

endif

elseif cParam == "INICIALIZA_EVENTOS"

msginfo("Entrou no ponto de entrada", 'INICIALIZA_EVENTOS')
lGrvCamCon := .F.

elseif cParam == "PE_ALT_PARC"

msginfo("Entrou no ponto de entrada", 'PE_ALT_PARC')

elseif cParam == "EVENTOS_NAO_GERADOS"

//disponível para alteração a variável cEventosNaoGerados

elseif cParam == "AF200DPARC_PARCELA_CAMBIO"

/* Exemplo de uso do ponto de entrada no momento da exclusão da parcela de câmbio, quando retirada a data do embarque.
A variável lDLoopEEQ indica se o programa deverá esquivar da exclusão do registro. */
if EEQ->EEQ_EVENT == "120"

lDLoopEEQ:= .T.

endif

elseif cParam == "AF200VALID_VALCAMPO"

if nTipoDet == 6 //exclusão

//não permite excluir
lSair:= .T.
lRet:= .F.

endif

elseif cParam == "PE_VALIDA"

nTipo:= ParamIXB[2] //é o mesmo conteúdo da variável nTipoDet
if nTipo == 6 //ou nTipoDet == 6; exclusão

//não permite excluir
//Return .F. //pode retornar .F. ou alterar a variável lRet
lRet:= .F.

endif

elseif cParam == "ANTES_GRV_TMP"

nTipo:= ParamIXB[2]
if nTipo == 5

MsgInfo("Alteração da parcela de câmbio", "ANTES_GRV_TMP")

endif

elseif cParam == "GRV_ITEM_CAMBIO"

/*
if Empty(EEQ->EEQ_DTCE) .And. !Empty(TMP->EEQ_DTCE)

//processamento customizado

endif */
MsgInfo("Ponto de entrada EECAF200 GRV_ITEM_CAMBIO", "GRV_ITEM_CAMBIO")

elseif cParam == "INC_CAMBIO"

MsgInfo("Ponto de Entrada EECAF200 INC_CAMBIO", "INC_CAMBIO")

elseif cParam == "PE_GERPARC"

MsgInfo("Ponto de Entrada EECAF200 PE_GERPARC", "PE_GERPARC")

//customização após a gravação das parcelas de câmbio (EEQ)

//EEQ->(DBSeek(xFilial() + M->EEC_PREEMB))

//Looping na tabela EEQ para customização das parcelas de câmbio geradas para o processo de embarque

elseif cParam == "VALIDA_PARCELA"

cMsg := "Variáveis com dados da parcela a ser gerada " + ENTER
cMsg += "nValParPE = " + Alltrim(str(nValParPE)) + ENTER
cMsg += "cCondPagtoPE = " + cCondPagtoPE + ENTER
cMsg += "dDtBasePE = " + dtoc(dDtBasePE) + ENTER
cMsg += "cEventoPE = " + cEventoPE + ENTER
cMsg += "cFornecedorPE = " + cFornecedorPE + ENTER
cMsg += "cLojaPE = " + cLojaPE + ENTER
cMsg += "cEmpresaPE = " + cEmpresaPE + ENTER
cMsg += "cNrInvoPE = " + cNrInvoPE + ENTER
cMsg += "cNatPE = " + cNatPE + ENTER
MsgInfo(cMsg,"VALIDA_PARCELA")

endif

Return Nil

Preview

Veja também

http://tdn.totvs.com/display/public/mp/EECAF200

EECAF200-Manutenção de parcelas de câmbio

Idioma

Português(Brasil)

Versões

Microsiga_Protheus12

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Nome	Tipo	Descrição
PE_STATUS	Carácter	Permite a customização do status do pedido após a liquidação do controle do câmbio
INICIALIZA_EVENTOS	Carácter	Permite a customização da validação que não permite gerar parcela de câmbio, caso a parcela já esteja liquidado. Também possibilita reiniciar a definição dos eventos para os quais devem ser geradas parcelas de câmbio, através da variável lInicializa.
PE_ALT_PARC	Caracter	Permite alteração da parcela de câmbio (aParc)
AF200DPARC_PARCELA_CAMBIO	Caracter	Ao remover a Dt.Embarque do processo e clicar em Salvar, este ponto de entrada será executado. Também estará disponível a variável cDespIntFin, com a lista dos eventos que serão integrados ao módulo SIGAFIN.
AF200GPARC_DEF_PARC	Caracter	Possibilitar a alteração das parcelas que serão criadas no EEQ com base no array aParc. Também estará disponível a variável cDespIntFin, com a lista dos eventos que serão integrados ao módulo SIGAFIN.
AF200GPARC_DEF_COMI	Caracter	Possibilitar a alteração do rateio das comissões no array aParcAux caso o array aParc tenha sido customizado.
EVENTOS_NAO_GERADOS	Caracter	Permite manipular a variável cEventosNaoGerados, determinando os eventos para os quais não devem ser geradas parcelas de câmbio. Este ponto é executado quando ocorre a reinicialização das variáveis de controle, que pode ser provocada pelo uso do ponto de entrada com o parâmetro INICIALIZA_EVENTOS.
AF200VALID_VALCAMPO	Caracter	Executado a partir da validação dos campos da parcela de câmbio e na confirmação da gravação da parcela de câmbio. Permite implementar validações adicionais e/ou aborar, através da manipulação das variáveis lSair e lRet. Os campos que estão sendo validados podem ser identificados pela função ReadVar().
{"PE_VALIDA", nTipoDet}	Array	Executado na confirmação da gravação da parcela de câmbio - botão Salvar (BT_OK). Permite implementar validações adicionais e/ou aborar, através da manipulação da variável lRet. Este ponto de entrada também pode retornar dados lógicos, sendo atribuído ao lRet da função de validação. Como array, possui duas posições: A primeira posição, PE_VALIDA, serve para indicar que a execução do ponto de entrada ocorre ao confirmar a gravação das alterações realizadas na parcela de câmbio; A segunda posição, nTipoDet, indicará a operação realizada, podendo assumir os valores: 3: Visulização da parcela de câmbio 4: Inclusão da parcela de câmbio 5: Alteração da parcela de câmbio 6: Exclusão da parcela de câmbio 99: Liquidação da parcela de câmbio 98: Estorno da liquidação da parcela de câmbio 97: Baixa gerencial da parcela de câmbio
{"ANTES_GRV_TMP", nTipo}	Array	Executado na confirmação da manutenção da parcela de câmbio, logo após as validações, para gravação dos dados da memória (da parcela) para a tabela temporária: A primeira posição, ANTES_GRV_TMP, serve para indicar que a execução do ponto de entrada ocorre antes da execução da gravação da memória para a tabela temporária; A segunda posição, nTipo, indicará a operação realizada, podendo assumir os valores: 3: Visulização da parcela de câmbio 4: Inclusão da parcela de câmbio 5: Alteração da parcela de câmbio 6: Exclusão da parcela de câmbio 99: Liquidação da parcela de câmbio 98: Estorno da liquidação da parcela de câmbio 97: Baixa gerencial da parcela de câmbio
GRV_ITEM_CAMBIO	Caracter	Executado na confirmação final do câmbio, parcela a parcela, na gravação dos dados da tabela temporária (TMP) para a tabela de câmbio (EEQ).
INC_CAMBIO	Caracter	Executado após a gravação de todas as parcelas de câmbio (looping), da tabela temporária (TMP) para a tabela de câmbio (EEQ).
PE_GERPARC	Caracter	Indica o final da gravação de todas as parcelas de câmbio para o processo de embarque, após o preenchimento da data do embarque e gravação do processo. Este ponto permite a implementação de um looping na tabela das parcelas de câmbio (EEQ) para customização e gravação adicional de informações, dentre outras necessidades. Os dados da tabela podem ser posicionados usando as variáveis de memória da capa do processo de embarque (EEC).
VALIDA_PARCELA	Caracter	Valida as parcelas que serão geradas para o câmbio como comissão de agentes e despesas internacionais

Retorno

Nil

Variáveis

Nome	Tipo	Escopo	Pode Alterar	Parâmetro	Descrição
lGrvCamCon	Logica	Private	Sim	INICIALIZA_EVENTOS	Variável que permite pular a validação que não gera/regerar o titulo no financeiro
aParc	Array	Private	Sim	PE_ALT_PARC	Array que contém as parcelas de câmbio
lDLoopEEQ	Logica	Private	Sim	AF200DPARC_PARCELA_CAMBIO	Se estiver atribuído como .T., a parcela de câmbio da iteração atual não será excluída. Caso estiver como .F., a parcela de câmbio será excluída. Essa variável é referente ao ponto de entrada AF200DPARC_PARCELA_CAMBIO. Valor padrão = .F.
cDespIntFin	Caracter	Private	Não	AF200DPARC_PARCELA_CAMBIO	Variável com a lista dos eventos que serão integrados ao módulo SIGAFIN.
aParcAux	Array	Private	Sim	AF200GPARC_DEF_COMI	Guarda os percentuais de comissão em conta gráfica nas parcelas de saldo a receber quando há adiantamento com Mov. Exterior
lInicializa	Lógica	Private	Sim	INICIALIZA_EVENTOS	Determina se reinicializa as variáveis de controle dos eventos para os quais devem ser geradas parcelas de câmbio
cEventosNaoGerados	Caracter	Private	Sim	EVENTOS_NAO_GERADOS	Eventos para os quais devem ser geradas as parcelas de câmbio
cDespIntFin	Caracter	Private	Não	AF200GPARC_DEF_PARC AF200DPARC_PARCELA_CAMBIO	Eventos para os quais serão gerados os títulos no módulo SIGAFIN/ contas a pagar.
lSair	Lógica	Private	Sim	AF200VALID_VALCAMPO	Disponível no ponto de entrada com o parâmetro AF200VALID_VALCAMPO, permite a intervenção nas validações dos campos da parcela de câmbio, forçando a saída das validações (True) sem as execuções padrões.
nTipoDet	Numérico	Local	Sim	PE_VALIDA	Variável que permite identificar a operação que está sendo executada na manutenção da parcela de câmbio (Af200DetMan()). Pode assumir os valores: 3: Visulização da parcela de câmbio 4: Inclusão da parcela de câmbio 5: Alteração da parcela de câmbio 6: Exclusão da parcela de câmbio 99: Liquidação da parcela de câmbio 98: Estorno da liquidação da parcela de câmbio 97: Baixa gerencial da parcela de câmbio
nTipo	Caracter	Local	Sim	ANTES_GRV_TMP	Variável que indicará a operação realizada, podendo assumir os valores: 3: Visulização da parcela de câmbio 4: Inclusão da parcela de câmbio 5: Alteração da parcela de câmbio 6: Exclusão da parcela de câmbio 99: Liquidação da parcela de câmbio 98: Estorno da liquidação da parcela de câmbio 97: Baixa gerencial da parcela de câmbio
lRet	Lógica	Private	Sim	AF200VALID_VALCAMPO	Disponível no ponto de entrada com os parâmetros AF200VALID_VALCAMPO e {"PE_VALIDA", nTipoDet} da validação da parcela de câmbio, permite definir se a validação está correta (True) ou incorreta (False).
nValParPE	Númerico	Private	Não	VALIDA_PARCELA	Valor da parcela a ser gerada
cCondPagtoPE	Caracter	Private	Não	VALIDA_PARCELA	Condição de pagamento aplicado no processo
dDtBasePE	Data	Private	Não	VALIDA_PARCELA	Data de criação da parcela
cEventoPE	Caracter	Private	Não	VALIDA_PARCELA	Evento do qual será criado a parcela
cFornecedorPE	Caracter	Private	Não	VALIDA_PARCELA	Fornecedor referente a parcela
cLojaPE	Caracter	Private	Não	VALIDA_PARCELA	Loja referente a parcela
cEmpresaPE	Caracter	Private	Não	VALIDA_PARCELA	Empresa no qual será criada a parcela
cNrInvoPE	Caracter	Private	Não	VALIDA_PARCELA	Número da Invoice do processo
cNatPE	Caracter	Private	Não	VALIDA_PARCELA	Natureza da parcela
lRetPE	Lógica	Private	Sim	VALIDA_PARCELA	Variável que valida a geração da parcela e caso verdadeiro aborta o processo de gerar a parcela
nValorPE	Númerico	Private	Sim	VALIDA_PARCELA	Variável que permite alterar o valor da parcela a ser gerada, não podendo o valor ser igual a zero

Programa Fonte

EECAF200.PRW

Árvore de páginas

Versões comparadas

Versão antiga 26

Nova versão 27

Chave

EECAF200 - Manutenção do Câmbio

Árvore de páginas

Histórico da Página

Versões comparadas

Versão antiga 26

Nova versão 27

Chave

EECAF200 - Manutenção do Câmbio