Private hDadosEmp, zEmpnome, zEmprua, zEmpbairro, zEmpcep, zEmpcidade, zEmpuf, zEmpfone, zEmpinscest, zEmpisncmun, zEmail, zEmpcgc
Private zAreaOrig, zfNum, zfVal, zParcela, zCrValor, zCrNumPed, zCrDtVenc, z_extenso
Private m_cr_nome, m_cr_rua, m_cr_cidade, m_cr_uf, m_cr_cep, m_cr_cgc, m_cr_est

hDadosEmp   := IdUsuarioPaf('Ler')
zEmpnome    := hDadosEmp["EMP_NOME"]
zEmprua     := hDadosEmp["EMP_RUA"]+" "+hDadosEmp["EMP_NUMRUA"]
zEmpbairro  := hDadosEmp["EMP_BAIRRO"]
zEmpcep     := hDadosEmp["EMP_CEP"]
zEmpcidade  := hDadosEmp["EMP_CIDADE"]
zEmpuf      := hDadosEmp["EMP_UF"]
zEmpfone    := hDadosEmp["EMP_FONE"]
zEmpinscest := hDadosEmp["EMP_IE"]
zEmpisncmun := hDadosEmp["EMP_IM"]
zEmail      := hDadosEmp["EMP_EMAIL"]
zEmpcgc     := FormataCnpjCpf(hDadosEmp["CNPJ"])

   zAreaOrig := Select()
   if( select('sf_fat')=0, Abra ('0NOIDX', r_siga, sf_fat, "sf_fat",   sf_fat, 'fnum') , '')
   zfNum := Val( Left(sccrdup->cr_num_ped,6) )
   zfval := if( sf_fat->(DbSeek(zfNum)), sf_fat->fVal, sccrdup->cr_valor)
   dbselectarea(zAreaOrig)

zParcela  := AllTrim(SubStr( sccrdup->cr_num_ped, 7))
zCrValor  := sccrdup->cr_valor
zCrNumPed := sccrdup->cr_num_ped
zCrDtVenc := sccrdup->cr_dt_venc

m_cr_nome   := AllTrim( sccrcli->cr_nome )
m_cr_rua    := AllTrim( sccrcli->cr_rua )+" "+AllTrim( sccrcli->cr_numrua )
m_cr_cidade := AllTrim( sccrcli->cr_cidade)
m_cr_uf     := AllTrim( sccrcli->cr_uf)
m_cr_cep    := AllTrim( sccrcli->cr_cep)
m_cr_cgc    := FormataCnpjCpf(sccrcli->cr_cgc)
m_cr_est    := sccrcli->cr_insc_es
z_extenso   := NumExt( sccrdup->cr_valor )

   

   oBoleto:Banco________ := si_banco->bCod       //               oIni:ReadString( "MRBOLETO", "Banco________", "001" )
   oBoleto:Banco_Agencia := si_banco->bAg        //               oIni:ReadString( "MRBOLETO", "Banco_Agencia", "3482" )
   oBoleto:Banco_Ag_Dv__ := si_banco->bAgDv      //               oIni:ReadString( "MRBOLETO", "Banco_Ag_Dv__", "07" )
   oBoleto:Banco_Ag_Un_A := si_banco->bAgDvA     //               oIni:ReadString( "MRBOLETO", "Banco_Ag_Un_A", "" )
   oBoleto:Conta________ := si_banco->bCc        //               oIni:ReadString( "MRBOLETO", "Conta________", "90090" )
   oBoleto:Conta_DV_____ := si_banco->bCcDv      //               oIni:ReadString( "MRBOLETO", "Conta_DV_____", "7" )
   oBoleto:Conta_OP_____ := si_banco->bCcOper    //               oIni:ReadString( "MRBOLETO", "Conta_OP_____", "" )
   oBoleto:Carteira_____ := si_banco->bCarteira  //               oIni:ReadString( "MRBOLETO", "Carteira_____", "18" )
   oBoleto:Carteira_Tipo := si_banco->bCarteirtp //               oIni:ReadString( "MRBOLETO", "Carteira_Tipo", "" )
   oBoleto:NossoNumero__ := si_banco->bNossoNum  //               oIni:ReadString( "MRBOLETO", "NossoNumero__", "62160101" )
   oBoleto:Doc_Origem___ := if(Empty(si_banco->bDocOrigem),'NFe',si_banco->bDocOrigem) // oIni:ReadString( "MRBOLETO", "Doc_Origem___", "NFe" )
   oBoleto:Prefixo______ := si_banco->bPrefixo   //               oIni:ReadString( "MRBOLETO", "Prefixo______", "153454" )
   oBoleto:Prefixo_DV___ := si_banco->bPrefixoDv //               oIni:ReadString( "MRBOLETO", "Prefixo_DV___", "9" )
   
   oBoleto:Doc_Numero___ := AllTrim(sccrdup->cr_num_ped) 
   oBoleto:Doc_Aceite___ := if( Empty(si_banco->bAceite), 'N', si_banco->bAceite)
   oBoleto:Doc_Especie__ := if( Empty(si_banco->bEspecie), 'R$', si_banco->bEspecie)             
   
   oBoleto:Doc_Data_____ := sccrdup->cr_dt_emis  
   oBoleto:Vencimento___ := sccrdup->cr_dt_venc  
   oBoleto:Valor________ := sccrdup->cr_valor  
   
   oBoleto:Multa_Auto___ := si_banco->bMultaAuto  //           oIni:ReadNumber( "MRBOLETO", "Multa_Auto___", 2 ) 
   oBoleto:Juros_Mes____ := si_banco->bJurosMes  //           oIni:ReadNumber( "MRBOLETO", "Juros_Mes____", 2 )
   oBoleto:Numero_Vias__ := si_banco->bNumVias   //               oIni:ReadNumber( "MRBOLETO", "Numero_Vias__", 2 )
   oBoleto:Local_Pagamen := if(empty(si_banco->bLocalPag),"Pague em qualquer banco até o limite da data de vencimento",AllTrim(si_banco->bLocalPag))  //               oIni:ReadString( "MRBOLETO", "Local_Pagamen", "Pague em qualquer banco até o limite da data de vencimento" )
   oBoleto:Instrucoes___ := if(empty(si_banco->bInstrucoe),"Não receber após 30 dias da data de vencimento",AllTrim(si_banco->bInstrucoe)) // StringToArray( oIni:ReadString( "MRBOLETO", "Instrucoes___", "Desconto de 5% se pago até o dia "+Transf( sccrdup->cr_dt_emis+10, "@E 999" )+"|Não receber após 30 dias da data de vencimento" ), "|" )
   
   oBoleto:Demonstrativo := StringToArray( oIni:ReadString( "MRBOLETO", "Demonstrativo", "Vetor: pode a exemplo ser utilizado para se demonstrar o rateio de despesas para condominios||Utiliza Fonte com espaçamento de tamanho fixo ( Courier ), o que permite geração de demostrativos financeiros flexiveis.||O limite é sua criatividade :)||Exiba detalhes importantes para o usuario||Valores em cobrança||Contratos||Informações úteis||Etc..." ), "|" )
   oBoleto:Cedente______ := {zEmpcgc,zEmpnome, AllTrim( zEmprua+" "+zEmpbairro+" "+zEmpcep+" "+zEmpcidade+" "+zEmpuf ) } 
   oBoleto:Sacado_______ := {m_cr_cgc, m_cr_nome, AllTrim( m_cr_rua+" "+m_cr_cep+" "+m_cr_cidade+" "+m_cr_uf ) }
   oBoleto:Avalista_____ := {} 
   
   oBoleto:AddPage()
