//--------------------------------------
Function CriaBoleto(npedido)


   Local cFilePdf := 'Boletos\'+aBanco+'BOL'+strzero(val(anovonnumer),11)+'.PDF'
   Local oBoleto  := MR_Boleto():New( cFilePdf )


	LinhaDigitavel:=""

	if aProtst
		aadd(aMsgSac,"Protestar aps " +alltrim(aProtstDias)+" dias de vencido.")
	end

   //*----------------------------------------------------------------------*
   oBoleto:Banco________ := alltrim(aBanco)                                         // Banco
   oBoleto:Banco_Agencia := alltrim(aAgencia)                                           // Agencia
   oBoleto:Banco_Ag_Dv__ := alltrim(aDVag)                                              // DV Agencia
   oBoleto:Conta________ := alltrim(aConta)                                         // Conta
   oBoleto:Conta_DV_____ := alltrim(aDVcnt)                                           // DV Conta
   oBoleto:Conta_OP_____ := ""                                               // ???
   oBoleto:Carteira_____ := alltrim(aCarteira)                                            // Carteira
   oBoleto:Carteira_Tipo := ""                                               // ???
   oBoleto:Doc_Origem___ := "DM"                                            // Tipo Docto
   oBoleto:Prefixo______ := ""
   oBoleto:Prefixo_DV___ := ""
   oBoleto:Doc_Aceite___ := "N"                                              // Aceite
   oBoleto:Doc_Especie__ := "R$"                                             // Moeda

	if aBanco = "033"
	   oBoleto:Conta________ := SUBS(aCodBenef,1,6)                                         // Conta
  		 oBoleto:Conta_DV_____ := SUBS(aCodBenef,-1,1)                                         // DV Conta
	end

	if aMulta
   		oBoleto:Multa_Auto___ := 0                                              // Por padro,  ZERO
   	else
		oBoleto:Multa_Auto___ := aMultaper
	end
	if aMora
   		oBoleto:Juros_Mes____ := 0                                           // Por padro,  ZERO
	else
		oBoleto:Juros_Mes____ := aMoraPer
	end
//   oBoleto:Numero_Vias__ := 3                                              // Por padro, so 2 vias

	if aBanco = "341"
   		oBoleto:NossoNumero__ := strzero(val(anovonnumer),8)  //"12411412464"     // Nosso Nmero
	else
		oBoleto:NossoNumero__ := strzero(val(anovonnumer),11)  //"12411412464"     // Nosso Nmero
	end

   oBoleto:Doc_Numero___ := "P"+npedido+"."+alltrim(anovonnumer)                      // Nmero Docto
   aDocNumero := "P"+npedido+"."+alltrim(anovonnumer)
   oBoleto:Doc_Data_____ := date()                                         // Data
   oBoleto:Vencimento___ := adtvenc
   oBoleto:Valor________ := aValor
   oBoleto:Local_Pagamen := { aMsgBc[1] , "Aps o vencimento pague somente no "+Alltrim(aNomeBanco) }

	if aDesc = 2 .and. aProtst
   		oBoleto:Instrucoes___ := { "Desconto de "+ str(aDescPerc) +"% se pago at o dia " + Tran( Date()+1-aDescDias, '@D' ), aMsgBc[2] }
	elseif aDesc = 2 .and. !aProtst
   		oBoleto:Instrucoes___ := { "Desconto de "+ str(aDescPerc) +"% se pago at o dia " + Tran( Date()+1-aDescDias, '@D' ), aMsgBc[2],"Protestar o ttulo aps "+str(aProtstDias)+ " dias de vencido." }
	elseif aDesc = 1 .and. !aProtst
   		oBoleto:Instrucoes___ := {  aMsgBc[2], "Protestar o ttulo aps "+str(aProtstDias)+ " dias de vencido." }
	elseif !aProtst
		oBoleto:Instrucoes___ := {  aMsgBc[2], "Protestar o ttulo aps "+str(aProtstDias)+ " dias de vencido." }
	else
   		oBoleto:Instrucoes___ := { " " , aMsgBc[2] }

	end
   if aImpMsg
   		oBoleto:Demonstrativo := {"","","","",""}
   else
   	oBoleto:Demonstrativo := aMsgSac
   end

   oBoleto:Cedente______ := { aNome, aApelido, aCNPJ }


	   oBoleto:Sacado_______ := aSacado

   oBoleto:Avalista_____ := {subs(Cmatriz[161],1,40),subs(Cmatriz[161],-18,18),""}		//{ "", "", "" }
   oBoleto:AddPage()



   oBoleto:Finish()

  ShellExecute( 0, "open", cFilePdf )

	cFilePdf := aBanco+'BOL'+strzero(val(anovonnumer),11)+'.PDF'
  SalvaBoleto(cFilePdf, npedido)

Return nil
