Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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:

Rotina

Nome Técnico

MNTA765

Registro de Multas

Chamados Relacionados

TUJKUF

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

(MNTA765)

Descrição:

Ponto de Entrada para seja adicionado o valor do Desconto na tabela de Contas a Pagar, ou 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

Eventos:

Multa

Programa Fonte:

MNTA765.PRX

Função:

MNTA7655()

Parâmetros:

 

Nome

Tipo

Descriçã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:

Nome

Tipo

Descrição

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

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.

 

Exemplo:

#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