Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Giovana Niehues

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Giovana Niehues

Gravado em

Chave

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

...

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 InicialParamIXB[2]CaracterCódigo do Produto
ParamIXB[32]CaracterCódigo do Almoxarifado

Retorno:

NomeTipoDescriçãoObrigatório
cCcustCaracterRetorna o Centro de Custo atualizadoX
Bloco de código
titleExemplo do Ponto de Entrada NGGERSC2()
#include#Include 'Protheus.ch'

User Function NGGERSC2()

	    Local cCcustcCodPr  := ParamIXB[1]
	    Local cCodPrcLocal  := cValtoChar( ParamIXB[2] )
	Local cCcust cLocal := ParamIXB[3]''

	    If MsgYesNo('Deseja alterar o Centro de Custo para a Solicitação de Compra do produto '+AllTrim(cCodPr)+ ;
		        ' com almoxarifado '+AllTrim(cLocal)+' ?')
		        cCcust := '0001'
	Endif    EndIf

Return cCcust