Perguntas Crianção de oportunidade via tela personalizada

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
		//³Geracao da oportunidade³
		//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
		If lGeraOp 
		
			AAdd(aCab,{"AD1_DESCRI"	, PadR(ACH->ACH_RAZAO,TAMSX3("AD1_DESCRI")[1])			, Nil	})
			AAdd(aCab,{"AD1_VEND"	, cGetVend						, Nil	})
			AAdd(aCab,{"AD1_DTINI"	, dDataBase						, Nil	})
			AAdd(aCab,{"AD1_DTFIM"	, dDataBase						, Nil	})
			AAdd(aCab,{"AD1_PROSPE"	, ACH->ACH_CODPRO				, Nil	})
			AAdd(aCab,{"AD1_LOJPRO"	, ACH->ACH_LOJPRO 				, Nil	})
			AAdd(aCab,{"AD1_PROVEN"	, cProcVOp						, Nil	})
			AAdd(aCab,{"AD1_STAGE"	, cEstagOp						, Nil	})
			AAdd(aCab,{"AD1_MOEDA"	, 1								, Nil	})
			AAdd(aCab,{"AD1_PRIOR"	, "3"							, Nil	})
			
			//Preenche a tabela de preco
			If AD1->(FieldPos("AD1_TABELA")) > 0 .AND. !Empty(cTabPreco)
				AAdd(aCab,{"AD1_TABELA"	, cTabPreco					, Nil	})
			EndIF

			//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
			//³Ponto de entrada para utilizacao de campos especificos³
			//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
			If lTk342Opr
				U_TK342OPR(@aCab)
			EndIf
			
			If ACH->( FieldPos( "ACH_RESERV" )) > 0
				If ACH->ACH_RESERV == "1"
					ExecCRMPro("000002")			//PROCESSO # "Suspect qualificado com oportunidade e reserva"
				EndIf
			Endif
		Else
			//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
			//³Suspect Qualificado sem oportunidade³
			//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
			ExecCRMPro("000003")					//PROCESSO # "Suspect Qualificado sem oportunidade"
		EndIf

		//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
		//³Gravacao da oportunidade³
		//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
		Begin Transaction
		
		If lGeraOp
			MSExecAuto({|x,y|FATA300(x,y)},3,aCab) 
			If lMsErroAuto
				DisarmTransaction()
				MostraErro()
				lRet := .F.
			Else
				cNumOport	:= AD1->AD1_NROPOR
				lRet := .T.
			EndIf
		EndIf