Histórico da Página
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/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: |
| |||||||||
| 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 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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas