Histórico da Página
Aviso | ||
---|---|---|
| ||
A rotina relacionada a este ponto de entrada passou recentemente por uma reestruturação para o padrão de desenvolvimento MVC, desta forma o exemplo de código 01, apresentado neste documento, pode não ser mais efetivo, desta forma indicamos a utilização do Exemplo 2 - MVC. |
Ponto de Entrada para alteração de dados na tabela de Contas a Pagar.
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Manufatura | ||||
Módulo: | Manutenção de Ativos | ||||
Rotina: |
| ||||
Chamados Relacionados | TUJKUF | ||||
País(es): | Todos | ||||
Banco(s) de Dados: | Todos | ||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Ponto de Entrada para que seja adicionado o valor do Desconto na tabela de Contas a Pagar, chamado na função de integração com o financeiro, após confirmar montar a tela de parcelas, sendo chamado individualmente para cada parcela (uma vez para cada linha). Outra aplicação é para realizar alteração de conteúdo dos títulos SE2 antes da chamada do ExecAuto FINA050, nesse momento passando como parâmetro o array completo com todos os títulos. |
Localização: | SIGAMNT: Atualizações/Multas/ |
Eventos:
Multa |
Programa Fonte: | MNTA765.PRX | |||||||||
Função: | MNTA7655() | |||||||||
Parâmetros: |
Obs: Os parâmetros acima só são passados quando o ponto de entrada é chamado antes da integração com FINA050, conforme consta na descrição do PE. | |||||||||
Retorno: |
|
cDesconto
Caracter
Retorna o conteúdo de desconto que será enviado ao registro da Multa (SE2).
Sim
Exemplo:
| |||||
Observação: | O ponto de entrada tem duas aplicações: a) quando é chamado na rotina de multas, não envia parâmetros (portanto aPARAMIXB) é nulo, e espera como retorno o valor de desconto (caracter); b) quando é chamado na geração do título financeiro (SE2), envia como parâmetro o array de títulos (aPARAMIXB[1] = array) e espera como retorno o array atualizado. |
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#Include |
'Protheus.ch' |
User Function MNTA7655() |
Local cDesconto := ""
cDesconto := M->TRX_DESCON
Local xRet
If Type("PARAMIXB") == "A" //chamado na gravação do título SE2
xRet:= PARAMIXB[1]
nPos := asCan(xRet,{|x| x[1] == "E2_HIST"})
If nPos > 0
xRet[nPos][2] := 'Multa gerada via módulo MNT.'
EndIf
Else //chamado para gravar desconto
xRet:= M->TRX_DESCON
EndIf
Return xRet |
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#Include 'Protheus.ch'
User Function MNTA7655()
Local xRet
Local oModel7655
If Type("PARAMIXB") == "A" .And. Len(PARAMIXB) <= 2 //chamado na gravação do título SE2
xRet:= PARAMIXB[1]
nPos := asCan(xRet,{|x| x[1] == "E2_HIST"})
If nPos > 0
xRet[nPos][2] := 'Multa gerada via módulo MNT.'
EndIf
Else //chamado para gravar desconto
oModel7655 := PARAMIXB[3] // Busca o modelo de dados que contêm os valores de memória.
xRet:= oModel7655:GetValue('MULTAS','TRX_DESCON') // Busca valor de memória
EndIf
Return xRet |