Lumicenter/pe/AVISTA.PRW

#include "totvs.ch"
User Function AVISTA()
	Local cRet := ""
	                        
	If FunName()=="MATA410" // Pedido.
		POSICIONE("SA1",1,xFilial("SA1")+M->C5_CLIENTE+M->C5_LOJACLI,"A1_OBSERV") // Comando para reposicionar o cliente.	a
	ElseIf FunName()=="MATA415" // Orçamento.
		POSICIONE("SA1",1,xFilial("SA1")+M->CJ_CLIENTE+M->CJ_LOJA,"A1_OBSERV") // Comando para reposicionar o cliente.
	ElseIf FunName()=="RPC" //Portal
		Return
	EndIf	

	IF SA1->A1_COND == "001"
		MsgInfo("ATENÇÃO - ESTE CLIENTE SOMENTE PODE COMPRAR A VISTA.")
	ENDIF

	If !Empty(SA1->A1_OBSERV)
		MsgInfo(SA1->A1_OBSERV)
	ENDIF    

	If FunName()=="MATA410" // Pedido.     Alterado para atender a P25 //SX7->X7_CAMPO = "C5_CLIENTE"
		cRet := M->C5_CLIENTE
	ElseIf FunName()=="MATA415" // Orçamento. //SX7->X7_CAMPO = "CJ_CLIENTE"
		cRet := M->CJ_CLIENTE
	EndIf	
                        
Return(cRet)