********************************************************************************  
* Operacoes MDFe
* MDFe.CriarMDFe("C:\ACBrMonitorPLUS\Entrada\MDFe.INI")
* MDFe.EnviarMDFe("C:\ACBrMonitorPlus\Logs\35XXXXXXXXXXXXXXXX550010000000050000000058-mdfe.xml") 
* MDFe.ImprimirDAMDFe("C:\ACBrMonitorPlus\Arqs\35XXXXXXXXXXXXXXXX550010000000050000000058-mdfe.xml")
*
* MDFe.EncerrarMDFe("35XXXXXXXXXXXXXXXX550010000000050000000058","01/01/2017","3554003")
/*	Parâmetro: Encerrar
	nChaveMDFE: Chave do MDFE a ser encerrado (também pode ser informado o path do XML do MDFe)
	dtEnc: Data de Encerramento
	cMunicipioDescarga: Código do Município de Descarregamento do MDFe
	nCNPJ: Passar esse parâmetro caso queira o CNPJ da empresa quando o encerramento for por evento!
	(Opcional)
	nProtocolo: Número do Protocolo de Autorização do MDFe para encerramento (Obrigatório informar caso o
	MDFe a ser encerrado seja muito antigo, pois nestes casos a SEFAZ não permite a consulta do número de
	Protocolo 
	Exemplo:
	MDFE.ENCERRARMDFE("012345678901234567890123456789","01/01/2017","3554003","999999999999999","123456785285")	*/
	
********************************************************************************  
/*  
 * Emissao de MDFe nas coxas  
 * 24/04/2019 - 08:16:19  
 */  
FUNCTION MDFe()  
	LOCAL lRetorno := .f.  
	LOCAL cTela 	:= SaveScreen()  
	LOCAL GetList 	:= {}  
   Local cIni		:= ''
   
	cIni+=;
	'"[ide] ' 						+Cr() +;
	'cUF=MT' 						+Cr() +;
	'tpEmit=2'						+Cr() +;                       	
	'tpTransp='            		+Cr() +;   	// 1 - ETC 2 - TAC 3 - CTC   ??? 	
	'mod=58'							+Cr() +;
	'serie=1'						+Cr() +;
	'nMDF=116' 						+Cr() +;
	'cMDF=25678654'				+Cr() +;
	'modal=1'						+Cr() +;		// Modalidade de transporte  1 - Rodoviário; 2 - Aéreo; 3 - Aquaviário; 4 - Ferroviário.
	'dhEmi=24/04/2019 13:07:00'+Cr() +;
	'tpEmis=0'						+Cr() +;		// 0 - emissão de MDF-e com aplicativo do contribuinte;
	'procEmi=0'             	+Cr() +;
	'verProc=3.00'        		+Cr() +;		// 
	'UFIni=MT'             		+Cr() +;		// Sigla da UF do Carregamento 
	'UFFim=MT'             		+Cr() 		// Sigla da UF do Descarregamento  
	
	cIni+=;
	'[CARR001]'       			+Cr() +;               
	'cMunCarrega=5101803'   	+Cr() +;   	// Ibge 
	'xMunCarrega=BARRAGARCAS'	+Cr() +;
	'dhIniViagem=30/12/1899'	+Cr()     	// Data e hora previstos de inicio da viagem  // No manual ta no CARR001 mas no xml autorizado estava nessa seção		
	
	cIni+=;
	'[emit]'							+Cr() +;
	'CNPJ='	+Pers->CGC	 		+Cr() +;
	'IE='		+Pers->Inscricao	+Cr() +;
	'xNome='	+Pers->Razao		+Cr() +;
	'xFant='	+Pers->Empresa		+Cr() +;
	'xLgr='	+Pers->Endereco	+Cr() +; 
	'nro='	+Pers->Numero		+Cr() +;
	'xBairro='+Pers->Bairro		+Cr() +;
	'cMun='	+Pers->CodCidade	+Cr() +;
	'xMun='	+Pers->Cidade    	+Cr() +;
	'CEP='	+Pers->Cep      	+Cr() +;
	'UF=MT'							+Cr() +; 	// +Pers->Estado		+Cr() +;
	'fone='	+Pers->Telefone	+Cr() +;
	'email='	+Pers->Praca	   +Cr() 
	
	cIni +=;
	'[Rodo]'							+Cr() +;
	'RNTRC=00000000'				+Cr() +;
	'CIOTC=000000000000'			+Cr() 

	cIni+=;	
	'[veicTracao]'					+Cr() +;
	'clInt=1'						+Cr() +;
	'placa=BTY0920'				+Cr() +;
	'RENAVAN='						+Cr() +;
	'tara='							+Cr() +;
	'capKG='							+Cr() +;
	'UF=MT'							+Cr() +;
	'capM3='							+Cr() +;
	'tpCar='							+Cr() 
	* 'tpRod=00'						+Cr() 

	cIni+=;	
	'[Moto001]'						+Cr() +;	
	'xNome=RUBENS P SANTOS'  	+Cr() +;
	'CPF=99999999999'          +Cr() 

	cIni+=;
	'[DESC001]'								+Cr() +;
	'cMunDescarga='+Pers->CodCidade	+Cr() +;
	'xMunDescarga='+Pers->Cidade		+Cr() 
	
	cIni+=;
	'[infNFe001001]'				+Cr() +; 	// Pode haver Várias Chaves de NFe ou CTe
	'chNFe=31190425878901000101550010007074811173717611' +Cr() +;
	'SegCodBarra=' 				+Cr() 
	
	/* [infNFe001002]
	chCTe=51190417513145000199570010000003371828648649
	SegCodBarra=
	*/

	cIni+=;
	'[tot]' 							+Cr() +;
	'qCTe=0'							+Cr() +;
	'qNFe=1'							+Cr() +;
	'qMDFe=0'						+Cr() +;
	'vCarga=112145.16'         +Cr() +;
	'cUnid=01'     				+Cr() +;		// 01 – KG; 02 - TON 
	'qCarga=33301.000'			+Cr() 		// Peso Bruto Total da Carga / Mercadorias transportadas  15 posicoes (11 inteiras 4 descimais)
	
	cIni+=;
	'[autXML001]'    				+Cr() +;		// Autorizar para baixar XML 
	'CNPJCPF='                 +Cr() 
	
	cIni+=;
	'[infAdic]'						+Cr() +;
	'infAdFisco='              +Cr() +;
	'infCpl="'						+Cr() 
	
	HB_MemoWrit( cFileMDFe := hb_Dirbase()+'MDFe116.TXT', cIni ) 
	
	cEntNfe := 'MDFe.CriarMDFe('+cIni+',1)'
	
	HB_MemoWrit( 'C:\ACBRNFE2\ENTNFE.TXT', cEntNfe )
	
	RestScreen(,,,,cTela)
  
	RETURN lRetorno
	
********************************************************************************  
/*  
 * Inserir um hb_eol()  
 * 24/04/2019 - 10:01:33  
 */  
FUNCTION Cr()  
	RETURN HB_Eol()