Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

Função:MNTA7655()
País:Brasil


02. DESCRIÇÃO

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: Em Atualizações > Controle de Riscos > Multas > Multas
Programa Fonte:MNTA765.prx

Função:

MNTA7655

Parâmetros:

NomeTipoDescrição

aTitulo

Array

Array com todos os campos da SE2 e seus respectivos conteúdos

nLenNuméricoNúmero de parcelas.

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:

NomeTipoDescriçãoObrigatório

xRet

Indefinido

Deve retornar um caracter quando chamado a partir da rotina de multas, ou um array quando chamado no momento de geração da SE2.

Sim

Obs.:

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.

03. DEMAIS INFORMAÇÕES

Exemplo MNTA7655()
#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


04. ASSUNTOS RELACIONADOS

  • Não se aplica.