Histórico da Página
...
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 | ||||||||
Observação: | É utilizado para insumos do tipo Terceiro. |
Ponto de Entrada
Descrição: | Ponto de entrada que permite alterar o Centro de Custo de uma Solicitação de Compra no momento da gravação da tabela SC1 | |||||
Localização: | SIGAMNT: Atualizações/Controle de Oficina/Plano Manutenção/Confirmação | |||||
Programa Fonte: | MNTUTIL_OS.prw | |||||
Função: | NGGERSC2() | |||||
Parâmetros: |
|
|
| |||||||
Retorno: |
|
|
Bloco de código | ||
---|---|---|
| ||
#include#Include 'Protheus.ch' User Function NGGERSC2() Local cCcust Local cCodPr := ParamIXB[1] Local cOrdSercLocal := cValtoChar( ParamIXB[2] ) dbSelectArea('STJ') dbSetOrder(1) If dbSeek( xFilial('STJ') + cOrdSer ) Local cCcust := '' If MsgYesNo('Deseja alterar o Centro de Custo para a Solicitação de Compra da O.S. '+cOrdSer do produto '+AllTrim(cCodPr)+ ; ' com almoxarifado '+AllTrim(cLocal)+' ?') cCcust := '0001' RecLock('STJ', .F.) STJ->TJ_CCUSTO := cCcust STJ->(MsUnlock()) Endif Endif EndIf Return cCcust |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas