Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Diego Oliveira

Gravado em

comparado com

Nova versão 5

changes.mady.by.user Felipe Nathan Welter

Gravado em

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

Descrição:

Ponto de Entrada para seja adicionado o valor do Desconto na tabela de Contas a Pagar, ou para realizar alteração de conteúdo dos títulos SE2.

Localização:

SIGAMNT: Atualizações/Multas/Multa

Eventos:

Multa (MNTA765)

Programa Fonte:

MNTA765.PRX

Função:

MNTA7655()

Retorno:

Sim

Nome

Tipo

Descrição

Obrigatório

cDesconto

Caracter

Retorna o conteúdo de desconto que será enviado ao registro da Multa (SE2).

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 = array) e espera como retorno o array atualizado.

 

Exemplo:

#Include 'Protheus.ch'


User Function MNTA7655()

Local cDesconto := ""

      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       cDesconto := M->TRX_DESCON

      EndIf


Return xRetReturn cDesconto