Histórico da Página

User Function MyMt467n()    Local aCab	    	:= {}Local aLinha    	:= {}Local aItens    	:= {}Private lMsErroAuto := .T.AAdd( aCab, { "F2_CLIENTE"    , "000001"					, Nil } )	AAdd( aCab, { "F2_LOJA"  , "01"								, Nil } )	AAdd( aCab, { "F2_SERIE", "UNI"								, Nil } )	 AAdd( aCab, { "F2_DOC"   , "00000000000000000003"			, Nil } )	  		 AAdd( aCab, { "F2_COND", "001"		   						, Nil } )	 AAdd( aCab, { "F2_LOJA"   , "01"    						, Nil } )	   AAdd( aCab, { "F2_EMISSAO", dDataBase						, Nil } )	   AAdd( aCab, { "F2_EST", "01"			               		, Nil } )  	AAdd( aCab, { "F2_TIPO", "N"		               			, Nil } )  AAdd( aCab, { "F2_ESPECIE", "NF   "		              		, Nil } ) AAdd( aCab, { "F2_PREFIXO", "UNI"		               		, Nil } ) AAdd( aCab, { "F2_MOEDA", 1		               				, Nil } ) AAdd( aCab, { "F2_TXMOEDA", 1		               			, Nil } ) AAdd( aCab, { "F2_FORMUL", "S"		               			, Nil } ) AAdd( aCab, { "F2_TIPODOC", "01"		               		, Nil } ) aLinha := {}				AAdd( aLinha, { "D2_COD"    	, "000001"			 		, Nil } )AAdd( aLinha, { "D2_QUANT"  	, 10						, Nil } )					AAdd( aLinha, { "D2_PRCVEN"  	, 100						, Nil } )					AAdd( aLinha, { "D2_TOTAL"  	, 1000						, Nil } )AAdd( aLinha, { "D2_TES" 		, "501" 					, Nil } )AAdd( aLinha, { "D2_UM"     	, "UN" 						, Nil } )AAdd( aLinha, { "D2_ESPECIE"    , "NF   " 					, Nil } )AAdd( aItens, aLinha)MSExecAuto( { |x,y,z| Mata467n(x,y,z) }, aCab, aItens, 3 ) If lMsErroAuto		MsgStop("Erro na gravação.")	MostraErro()Else	MsgAlert('Incluido com sucesso.')	EndIfReturn