Histórico da Página
Aviso | ||
---|---|---|
| ||
|
Aviso | ||
---|---|---|
| ||
|
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: |
| ||||||||||
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: | (Nulo) |
Exemplo:
User Function MNTA7656()
If IsInCallStack("MNTA765") //Cadastro de Multas
dbSelectArea("SE2")
If MsgYesNoRecLock("Deseja limpar o conteúdo do campo E2_LA?")"SE2",.F.)
SE2->E2_LA := ""
SE2->E2_HIST := M->TRX_PLACA
SE2->(MsUnlock())
ElseIf IsInCallStack("MNTA805") //Cadastro de Documentos Obrigatórios de Veículos
dbSelectArea("SE2")
RecLock("SE2",.F.)
SE2->E2_LA HIST := "" M->TS1_PLACA
SE2->(MsUnlock())
EndIf
Return
Return