Histórico da Página
Permite utilizar os dados dos insumos
Apresentar as informações do insumo excluído para atualizar tabelas de
usuario ou envio de emailsusuário ou enviar e-mails
Características do Requisito
Linha de Produto: | Microsiga Protheus | |||||||||||
Segmento: | Manufatura | |||||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | |||||||||||
Rotina: |
| Issues Relacionadas | 12.1.17. | |||||||||
País(es): | Todos. | |||||||||||
Banco(s) de Dados: | Todos. | |||||||||||
Sistema(s) Operacional(is): | Todos. |
Ponto de Entrada
Descrição: | Ponto de entrada executado quando excluído um insumo já gravado na base de dados, chamado na confirmação da rotina de Retorno Modelo 2, através dos botões 'Ok' ou 'Gravar', ou ainda na finalização da ordem de serviço pelo botão 'Finalizar O.S'. |
Localização: | SIGAMNT: Atualizações/Controle de Oficina/Ordem Retorno de ServiçoOS/Retorno Mod. 2 |
Eventos: | Retorno de Ordem de Serviço (MNTA435). |
Programa Fonte: | MNTA435.prx |
Função: | fGrava435() |
| Observações: |
|
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#Include 'Protheus.CH'
//-------------------------------------------------------------------
/*/{Protheus.doc} MNTB4354
Atualiza tabela de usuárioApresenta em tela os dados do insumo excluido
/*/
//-------------------------------------------------------------------
User Function MNTB4354()
Local aArea := GetArea()
Local cProdcMsg := STL->TL_CODIGO
Local nQntProd := 'Filial do Produto :' + STL->TL_QUANTID
FILIAL + U_AtuTblUs( cProd, nQntProd )
RestArea(aArea)
Return
//-------------------------------------------------------------------
/*/{Protheus.doc} AtuTblUs
Atualiza tabela de usuário
/*/
//-------------------------------------------------------------------
User Function AtuTblUs( cCodProd, nQntd )
Local cNumSq := GETSXENUM( 'ZYV' , 'ZYV_NUMSEQ' )
ConfirmSX8()
// Inclui novos valores para a tabela de usuário
dbSelectArea('ZYV')
RecLock( 'ZYV', .T. )
ZYV->ZYV_NUMSEQ := cNumSq
ZYV->ZYV_FILIAL := xFilial( 'ZYV' )
ZYV->ZYV_CODIGO := cCodProd
ZYV->ZYV_QUANT := nQntdCRLF +;
'Codigo do Produto :' + STL->TL_CODIGO + CRLF +;
'Quant. do Produto :' + cValToChar( STL->TL_QUANTID )
MsgInfo(cMsg, 'Atenção')
RestArea(aArea)
Return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas