Perguntas Exemplo ExecAuto MATA381 Ajuste de Empenho

aVetor :={  {"D4_COD"     , _cProd			,Nil},; 
		            {"D4_LOCAL"   , "99"		    ,Nil},;
		            {"D4_OP"      , _cNumOP			,Nil},;
		            {"D4_DATA"    , dDatabase       ,Nil},;
		            {"D4_QTDEORI" , _nQuant         ,Nil},;
		            {"D4_QUANT"   , _nQuant         ,Nil},;
		            {"D4_TRT"     , _cTRT           ,Nil},;
		            {"D4_LOTECTL" , _cLtCtl			,Nil},;
		            {"D4_QTSEGUM" , 0               ,Nil}}
		            //{"D4_SEQ" 	  , _cSeq           ,Nil}}
		            
		             
		AADD(aEmpen,{   _nQuant                 ,;  // SD4->D4_QUANT
		                _cLocaliz		  		,;  // DC_LOCALIZ
		                ""                   	,;  // DC_NUMSERI
		                0                  		,;  // D4_QTSEGUM
		                .F.}) 
		                


		MSExecAuto({|x,y,z| mata380(x,y,z)},aVetor,3,aEmpen) 
		 
		If lMsErroAuto
		    MostraErro()
		EndIf