Histórico da Página

#Include "Protheus.ch"User Function MYFata300()Local aCabec		:= {}Local lRet			:= .T.Local lTodosSim		:= .F.Private lMsErroAuto := .f.dbSelectArea("AD1")dbSetOrder(1)If !dbSeek(xFilial("AD1")+"000001"+"01") // Monta o array com as informacoes para a gravacao aCabec:= 		{{ "AD1_FILIAL"  		     , ""		                       	, NIL },;				{ "AD1_NROPOR"  		     , "000001"                       	, NIL },;   				{ "AD1_REVISA"  		     , "01"		                       	, NIL },;				{ "AD1_DESCRI"  		     , "TESTE DE ROT AUTOM"            	, NIL },;				{ "AD1_DATA  " 			     , DATE()                       	, NIL },;				{ "AD1_HORA  " 			     , TIME()                       	, NIL },;				{ "AD1_USER  " 			     , "000000"                       	, NIL },;				{ "AD1_VEND  " 			     , "01"                         	, NIL },;				{ "AD1_NOMVEN"   			 , "TESTE VEND"                    	, NIL },; 				{ "AD1_DTINI "   			 , DATE()	                    	, NIL },; 				{ "AD1_PROVEN"   			 , "01"		                    	, NIL },; 				{ "AD1_STAGE "   			 , "01"		                    	, NIL },; 				{ "AD1_MOEDA "   			 , 1		                    	, NIL },; 				{ "AD1_PRIOR "   			 , "1"		                    	, NIL },; 				{ "AD1_STATUS"   			 , "1"		                    	, NIL }} EndIf lTodosSim := ApMsgNoYes( 'Confirma a ação [Sim p/Todos] ?' )//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³Gravacao da oportunidade³//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙIf lTodosSim	MSExecAuto({|x,y|FATA300(x,y)},3,aCabec) 	If lMsErroAuto		DisarmTransaction()		MostraErro()		lRet := .F.	Else		lRet := .T.	EndIfEndIf Return lRet