Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Giovana Niehues

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Giovana Niehues

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTUTIL_OS

Funções Genéricas relacionadas à O.S

Rotina(s) envolvida(s)

Nome Técnico

NGGERSC2

Ponto de Entrada

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:
NomeTipoDescrição
ParamIXB[1]CaracterCentro de Custo
inicial
Inicial
ParamIXB[2]CaracterCódigo
da Ordem de Serviço
do Produto
ParamIXB[3]CaracterCódigo do Almoxarifado

Retorno:

NomeTipoDescriçãoObrigatório
cCcustCaracterRetorno o Centro de Custo atualizadoX
Bloco de código
titleExemplo do Ponto de Entrada NGGERSC2()
#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