Histórico da Página
Permite utilizar os dados dos insumos para atualizar tabelas de usuário 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: |
| ||||||||
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/Retorno de OS/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 cProdcMsg := STL->TL_CODIGO
Local nQntProd :='Filial do Produto :' + STL->TL_QUANTID
// Só será necessária a utilização desta função, caso tenha alguma tabela do usuário a ser atualizada.FILIAL + CRLF +;
U_AtuTblUs( cProd, nQntProd )
RestArea(aArea)
Return
//-------------------------------------------------------------------
/*/{Protheus.doc} AtuTblUs
Atualiza tabela de usuário
/*/
//-------------------------------------------------------------------
User Function AtuTblUs( cCodProd, nQntd )
'Codigo do Produto Local cNumSq := GETSXENUM( 'ZYV' , 'ZYV_NUMSEQ' )
ConfirmSX8()
+ STL->TL_CODIGO + CRLF +;
// Inclui novos valores para a tabela de usuário
dbSelectArea('ZYV')
RecLock( 'ZYV', .T. )
ZYV->ZYV_NUMSEQ := cNumSq'Quant. do Produto :' + cValToChar( STL->TL_QUANTID ) + CRLF
ZYV->ZYV_FILIAL := xFilial( 'ZYV' )
ZYV->ZYV_CODIGO := cCodProdMsgInfo(cMsg, 'Atenção')
ZYV->ZYV_QUANT := nQntdRestArea(aArea)
Return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas