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: |
| |||||||||
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