Rotina Automatica TMSA040 ( [ ] ) --> Nil

User Function Auto040()Local aCabDT4 		:= {}Local aItemDVF 	:= {}Local lMsErroAuto := .F.      aCabDT4 := {	{"DT4_FILORI" 	,"01"  					, Nil},; //filial de origem 	    			{"DT4_NUMCOT" 	,"000060"  				, Nil},; //numero da cotacao					{"DT4_DDD"	  	,"11"		  				, Nil},; //DDD do solicitante   				{"DT4_TEL" 		,"41412222"				, Nil},; //Telefone do solicitante				   {"DT4_SELORI" 	,"1"		 				, Nil},; //Regiao de origem 1=Transportadora / 2=Cliente Remetente / 3=Local Coleta.     				{"DT4_CDRORI" 	,"SP0001"  				, Nil},; //Codigo da regiao de origem     				{"DT4_REGORI" 	,"SAO PAULO"			, Nil},; //Nome da Regiao de Origem     				{"DT4_CDRDES" 	,"RJ0001"  				, Nil},; //Codigo da regiao de destino     				{"DT4_REGDES" 	,"RIO DE JANEIRO"		, Nil},; //Nome da Regiao de destino      				{"DT4_SERTMS" 	,"3"		 				, Nil},; //Servico de transporte 1= Coleta / 2=Transporte / 3=Entrega.     				{"DT4_TIPTRA" 	,"1"   			   	, Nil}}  //Tipo de transporte 1=Rodoviario / 2=Aereo / 3=Fluvial.            				aItemDVF := {	{"DVF_ITEM" ,"01" 						, Nil},; //sequencia de item					{"DVF_CORPRO" ,"000001"					, Nil},; //codigo do produto 					{"DVF_QTDVOL" ,"10"      				, Nil},; //Quantidade de volumes para cada item da cotacao.					{"DVF_PESO" 	,"100" 					, Nil},; //peso da quantidade de volume					{"DVF_VALMER"	,"1000"					, Nil}}  //valor total do produto		MsExecAuto({|x,y,z| TMSA040(x,y,z)}, aCabDT4, aitemDVF, 3) If lMsErroAuto	MostraErro()Else  	MsgAlert("cotacao Excluida.")	EndIf