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 Atual

changes.mady.by.user Jean Costa

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


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

Retorno:

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