'----------------------------------------------------------------------
' Gera lote -----------------------------------------------------------
'----------------------------------------------------------------------
Private Function GerarLote_F9() As Boolean  ' {* Apelidos *} 597

  Dim JuroDia As Double
  TemBoleto = True
 
  'Dados do Boleto
  JuroDia = Round(Contasreceber!Saldo * (Cedentecr!Juros / 30) / 100, 2)

  If iCont = 0 Then

     iCont = Contasreceber.RecordCount - 1
     ReDim BoletoNumDocumento2(iCont)
     ReDim BoletoNossoNumero2(iCont)
     ReDim BoletoDataDocumento2(iCont)
     ReDim BoletoVencimento2(iCont)
     ReDim BoletoValor2(iCont)
     ReDim BoletoJurosDia2(iCont)
     ReDim BoletoDesconto2(iCont)
     ReDim BoletoAcrescimo2(iCont)
     ReDim BoletoParcela2(iCont)
     ReDim BoletoParcelaTotal2(iCont)
     ReDim BoletoMensagem2(iCont)
     ReDim BoletoInstrucao1_2(iCont)
     ReDim BoletoInstrucao2_2(iCont)

     'Dados do Sacado
     ReDim SacadosCNPJCPF2(iCont)
     ReDim SacadosRazaoSocial2(iCont)
     ReDim SacadosEndereco2(iCont)
     ReDim SacadosEnderecoNumero2(iCont)
     ReDim SacadosComplemento2(iCont)
     ReDim SacadosBairro2(iCont)
     ReDim SacadosCidade2(iCont)
     ReDim SacadosCEP2(iCont)
     ReDim SacadosUF2(iCont)
     ReDim SacadosEmail2(iCont)
     ReDim SacadosAvalista2(iCont)
     iCont = 0
  End If

  'Dados do Boleto
  BoletoNumDocumento2(iCont) = Trim(Str(Contasreceber!Documento))
  BoletoNossoNumero2(iCont) = Trim(Contasreceber!Nossonumero)
  BoletoDataDocumento2(iCont) = Format(CStr(Contasreceber!Emissao), "yyyy/mm/dd")
  BoletoVencimento2(iCont) = Format(CStr(Contasreceber!Vencimento), "yyyy/mm/dd")
  BoletoValor2(iCont) = Trim(CStr(Contasreceber!Saldo))
  BoletoJurosDia2(iCont) = Trim(CStr(JuroDia))
  BoletoDesconto2(iCont) = "0,00"
  BoletoAcrescimo2(iCont) = "0,00"
  BoletoParcela2(iCont) = Trim(CStr(Contasreceber!Parcela))
  BoletoParcelaTotal2(iCont) = Trim(CStr(Contasreceber!Parcela))
  BoletoMensagem2(iCont) = ""     'CedenteCR!InstrucoesCaixa
  BoletoInstrucao1_2(iCont) = Cedentecr!Mensagem_boleto1
  BoletoInstrucao2_2(iCont) = Cedentecr!Mensagem_boleto2

  'Dados do Sacado
  SacadosCNPJCPF2(iCont) = Sacados!Cpf
  SacadosRazaoSocial2(iCont) = Sacados!Razao
  SacadosEndereco2(iCont) = Sacados!Endereco
  SacadosEnderecoNumero2(iCont) = Sacados!Nro
  SacadosComplemento2(iCont) = Sacados!Complemento
  SacadosBairro2(iCont) = Sacados!Bairro
  SacadosCidade2(iCont) = Cidades!Nome
  SacadosCEP2(iCont) = Sacados!Cep
  SacadosUF2(iCont) = Sacados!Uf
  SacadosEmail2(iCont) = Sacados!Email
  SacadosAvalista2(iCont) = ""
  iCont = iCont + 1

 GerarLote_F9 = False  'Deve retornar um valor lógico
End Function

'----------------------------------------------------------------------
'Retorna condição p/ processar campo CODIGOCEDENTE, tabela PARAMETROS
'----------------------------------------------------------------------
Private Function GerarRemessa_F9() As Boolean  ' {* Apelidos *} 598


 Dim cnpj_cedente   As String
 Dim cnpj_softhouse As String
 Dim Licenca        As String
  
 cnpj_cedente = Parametros!Cnpj
 cnpj_softhouse = "07.494.171/0001-63"
 Licenca = Trim(Parametros!Licenca)

 Dim xNomeArqRemessa  As String
 Dim tipoProtesto     As String
 Dim tipoAceite       As String
 Dim EspecieDocumento As String

 xNomeArqRemessa = Trim(Cedente!Diretorioremessa) & "Remessa CEF " & LPad(Cedente!Idremessa, 6, "0") & ".txt"
 tipoProtesto = "3"
 tipoAceite = "N"
 EspecieDocumento = "DS"

 If Not TemBoleto Then Exit Function

    If Cedente!Layoutremessa = "CNAB 240" Then iRetorno = objBoleto.RemessaGerar2(Cedente!CodigoBanco, Cedente!Agencia, Cedente!Agencia_Dv, Cedente!Cedente, Cedente!Cedente_Dv, Cedente!Carteira, Cedente!CodigoConvenio, Parametros!Cnpj, Parametros!Nome_empresa, Parametros!Endereco, Parametros!Nro, Parametros!Complemento, Parametros!Bairro, Parametros!Cep, Cidades_param!Nome, Parametros!Uf, BoletoNossoNumero2(), BoletoNumDocumento2(), BoletoDataDocumento2(), BoletoVencimento2(), BoletoValor2(), eTipoImpressao_bolCarne, Cedente!Dias_protesto, Cedente!Multa, 0, BoletoJurosDia2(), BoletoDesconto2(), SacadosCNPJCPF2(), SacadosRazaoSocial2(), SacadosEndereco2(), SacadosEnderecoNumero2(), SacadosComplemento2(), SacadosBairro2(), SacadosCidade2(), SacadosCEP2(), SacadosUF2(), SacadosEmail2(), SacadosAvalista2(), BoletoMensagem2(), BoletoInstrucao1_2(), BoletoInstrucao2_2(), BoletoAcrescimo2(), BoletoParcela2(), _
                                                          BoletoParcelaTotal2(), EspecieDocumento, eLayoutRemessa_CNAB240, Cedente!Idremessa, Cedente!Diretorioremessa, xNomeArqRemessa, tipoAceite, tipoProtesto, "N", "081", "040", Licenca, cnpj_softhouse)

    If Cedente!Layoutremessa = "CNAB 400" Then iRetorno = objBoleto.RemessaGerar2(Cedente!CodigoBanco, Cedente!Agencia, Cedente!Agencia_Dv, Cedente!Cedente, Cedente!Cedente_Dv, Cedente!Carteira, Cedente!CodigoConvenio, Parametros!Cnpj, Parametros!Nome_empresa, Parametros!Endereco, Parametros!Nro, Parametros!Complemento, Parametros!Bairro, Parametros!Cep, Cidades_param!Nome, Parametros!Uf, BoletoNossoNumero2(), BoletoNumDocumento2(), BoletoDataDocumento2(), BoletoVencimento2(), BoletoValor2(), eTipoImpressao_bolCarne, Cedente!Dias_protesto, Cedente!Multa, 0, BoletoJurosDia2(), BoletoDesconto2(), SacadosCNPJCPF2(), SacadosRazaoSocial2(), SacadosEndereco2(), SacadosEnderecoNumero2(), SacadosComplemento2(), SacadosBairro2(), SacadosCidade2(), SacadosCEP2(), SacadosUF2(), SacadosEmail2(), SacadosAvalista2(), BoletoMensagem2(), BoletoInstrucao1_2(), BoletoInstrucao2_2(), BoletoAcrescimo2(), BoletoParcela2(), _
                                                          BoletoParcelaTotal2(), EspecieDocumento, eLayoutRemessa_CNAB400, Cedente!Idremessa, Cedente!Diretorioremessa, xNomeArqRemessa, tipoAceite, tipoProtesto, "N", "081", "040", Licenca, cnpj_softhouse)

 GerarRemessa_F9 = False  'Deve retornar um valor lógico
End Function