CUSTOMIZAÇÃO DE CAMPOS NA GERAÇÃO DA SOLICITAÇÃO DE ARMAZÉM

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

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

Rotina:

Issue Relacionadas:

11.80.20: MNG-61

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:	Ponto de Entrada que possibilita a alteração do campos na geração da SA na tabela SCP (Solicitações de Armazém) .
Localização:	SIGAMNT: Atualizações/Controle de Pneus/O.S. Pneus/O.S. Lote
Eventos:	Cadastro de O.S. em Lote (MNTA720)
Programa Fonte:	MNTA720.PRX MNTA340.PRX NGUTIL02.PRX
Função:	MNTSCPUSER()
Retorno:	(Nulo)

Exemplo:

Bloco de código

#Include 'Protheus.ch'



User Function MNTSCPUSER()



Local cCodProd := PARAMIXB[1] //Produto



Local cNumSA   := PARAMIXB[2] //Número da SA



Local cItemSA  := PARAMIXB[3] //Item da SA





If MsgYesNo("Deseja alterar os campos Produto, Centro de Custo e Local da SA?")



	dbSelectArea("SCP")



	dbSetOrder(2)//CP_FILIAL+CP_PRODUTO+CP_NUM+CP_ITEM



	If dbSeek(xFilial("SCP") + cCodProd + cNumSA + cItemSA)



		RecLock("SCP", .F.)



		SCP->CP_PRODUTO := "Terceiro2"



		SCP->CP_CC := "CC1"



		SCP->CP_LOCAL := "03"

MsUnlock("SCP")

EndIf



		SCP->(MsUnLock())

	EndIf

EndIf


Return