Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Diego Oliveira

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Diego Oliveira

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Aviso
titleEste Ponto de Entrada é Válido a partir do Release 11.80.19 (Outubro/16) e superiores

 

Aviso
titleEste Ponto de Entrada é Válido a partir do Release 12.1.14 (Outubro/2016) e superiores

 

GRAVAÇÃO DE CAMPOS ESPECÍFICOS

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTA765

Registro de Multas

Rotina(s) envolvida(s)

Nome Técnico

MNTA765

Registro de Multas

MNTA805Documentos Obrigatórios de Veículos

Chamados Relacionados

11.80.19: TWAOVO

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de Entrada que possibilita a gravação de campos específicos na tabela SE2 (Contas a Pagar).

Localização:

SIGAMNT: Atualizações/Controle de Riscos/Multas/Multa

SIGAMNT: Atualizações/Gestão de Documentos/Cadastros/Docto Obrigat. Veículo

Eventos:

Registro de Multas (MNTA765)

Documentos Obrigatórios de Veículos (MNTA805)

Programa Fonte:

MNTA765.PRX

MNTA805.PRX

Função:

MNTA7656()

Retorno:

Nome

Tipo

Descrição

Obrigatório

lRet

Lógico

Indica se foi alterado o conteúdo.

Sim

(Nulo)

 

Exemplo:

User Function MNTA7656()lRet := .T.

      If MsgYesNoIsInCallStack("Deseja limpar o conteúdo do campo E2_LA?MNTA765") //Cadastro de Multas
            dbSelectArea("SE2")
            RecLock("SE2",.F.)
            SE2->E2_LA := ""
            SE2->E2_HIST := M->TRX_PLACA
            SE2->(MsUnlock())
        ElseElseIf IsInCallStack("MNTA805") //Cadastro de Documentos Obrigatórios de Veículos
            dbSelectArea("SE2")
            lRet := RecLock("SE2",.F.)
            SE2->E2_HIST := M->TS1_PLACA
            SE2->(MsUnlock())
      EndIf

Return lRet