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