Histórico da Página
Permite utilizar os dados dos insumos para atualizar tabelas de usuario ou envio de emails
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 de Serviço/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ário /*/ //------------------------------------------------------------------- User Function MNTB4354() Local aArea := GetArea() Local cProd := STL->TL_CODIGO Local nQntProd := STL->TL_QUANTID 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 := nQntd Return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas