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 |
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 'Protheus.ch' User Function NGGERSC2() Local cCcust := ParamIXB[1] Local cOrdSercCodPr := cValtoChar( ParamIXB[2] ) dbSelectArea('STJ') dbSetOrder(1) If dbSeek( xFilial('STJ') + cOrdSer ) Local cLocal := ParamIXB[3] If MsgYesNo('Deseja alterar o Centro de Custo para a Solicitação de Compra da O.S.do produto '+cOrdSerAllTrim(cCodPr)+' ?'); cCcust := '0001' RecLock('STJ', .F.' com almoxarifado '+AllTrim(cLocal)+' ?') STJ->TJ_CCUSTOcCcust := cCcust STJ->(MsUnlock()) Endif'0001' Endif Return cCcust |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas