-
Total de ítens
539 -
Registro em
-
Última visita
-
Days Won
5
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que Jéter Rabelo Ferreira postou
-
Bom dia. Coloque um ClientDataSet num form e crie os campos que desejar exibir do retorno Vincule o DataSet num DataSource e esse ao DBGrid Efetue a leitura do arquivo retorno, incluindo os registros no seu DataSet Pronto. Atenciosamente.
-
Maicon, boa tarde. Tem como você efetuar os testes para verificar-mos se ficou tudo correto nessa unit? No aguardo. Atenciosamente.
-
Fortesreport Para Delphi 2007
Jéter Rabelo Ferreira replied to Fábio Watanabe's tópico in ACBrBoleto
Boa tarde. Efetue o download do SVN: https://fortesreport.svn.sourceforge.net/svnroot/fortesreport/trunk Porém no Delphi 2007 o Fortes Não instala se não for feita uma modificação numa diretiva de compilação no arquivo RLMetaVCL.pas Na linha 608 do referido arquivo onde lê-se: {$if CompilerVersion >= 20} // delphi 2009 Coloque o seguinte: {$if CompilerVersion >= 18} // delphi 2007 Feito isso, OK. Atenciosamente. -
Boa tarde Juliana. Atualização testada e OK. Atenciosamente.
-
Boa tarde Efetua a consulta de qualquer NF-e. Atenciosamente.
-
Boa tarde. Eu informo os dados dessa forma:a.CodCedente // Sem o Digito e Agencia; with FACBrBoleto, Items[0] do begin ... Cedente.Agencia := Carteira.Banco.Agencia; Cedente.AgenciaDigito := Carteira.Banco.AgenciaDigito; Cedente.Conta := Carteira.Banco.ContaCorrente; Cedente.ContaDigito := Carteira.Banco.ContaCorrenteDigito; Cedente.CodigoCedente := Carteira.CodCedente // Sem o Digito e Agencia; ... end; Atenciosamente.
-
Bom dia. O ACBr efetua a consulta no estado que originou a NF-e, e não no portal Nacional. Portanto, faça como te disse no post anterior, efetue a consulta no portal do estado de origem e verifique se a NF-e encontra-se cancelada lá. Atenciosamente.
-
Juliana, bom dia Esse problema é "parecido" com o que "resolvemos" semana passada, que é a respeito da agência na impressão de boletos. Maicon, foram feitas algumas correções nessa unit semana passada. Você atualizou seus fontes e testou novamente? Atenciosamente.
-
Bom dia. Consulte a NF-e em questão no portal NF-e do estado de emissão que a mesma deve estar cancelada. Alguns estados demoram a enviar a informação de cancelamento para o Portal Nacional. Atenciosamente.
-
Dúvida Função Em Arquivo De Retorno
Jéter Rabelo Ferreira replied to joaolenosi's tópico in ACBrBoleto
Boa noite. Ao efetuar a leitura do arquivo efetue um count na sua lista de boletos. Se ela retornar 0, é porque está vazia. Atenciosamente. -
Boleto Da Caixa - Codigo Do Cedente
Jéter Rabelo Ferreira replied to cavalomarinho's tópico in ACBrBoleto
Boa noite. Eu utilizo a unit disponível no SVN. Atenciosamente -
Problemas Com Prazo Cancelamento Nfe
Jéter Rabelo Ferreira replied to RodrigoRiquena's tópico in ACBrNFe
Rodrigo, bom dia. Só complementando a respeito do cancelamento fora do prazo: - Dentro de 24 horas: Ok - após 24 horas e menos que 7 dias: Pode ser cancelada, porém a Secretaria da Fazenda eventualmente poderá fazer uma "visitnha" na empresa para verificar o motivo. - Após 7 dias: Não pode mais ser cancelada. Atenciosamente -
Boa tarde. A forma que está especificando está correta. Mas, sem especificar qual a mensagem de erro, fica impossível de ajudar. Atenciosamente.
-
Correção Na Impressão Boleto Cef-Sicob
Jéter Rabelo Ferreira replied to Jéter Rabelo Ferreira's tópico in ACBrBoleto
Bom Dia Juliana. Segue unit corrigida conforme proposta por você. Impressão OK. Atenciosamente. ACBrCaixaEconomicaSICOB.pas ACBrCaixaEconomicaSICOB.pas -
Boa tarde. Segue abaixo: function EnviarEmail(Endereco: String; Assunto: String = ''; Texto: String = ''; stlAnexo: TStringList = nil; AEnviarDireto: boolean = False): Boolean; type TAttachAccessArray = array [0..0] of TMapiFileDesc; PAttachAccessArray = ^TAttachAccessArray; var MapiMessage: TMapiMessage; MError: Cardinal; Sender: TMapiRecipDesc; PRecip, Recipients: PMapiRecipDesc; Attachments: PAttachAccessArray; x: integer; begin Result := False; MapiMessage.nRecipCount := 1; GetMem( Recipients, MapiMessage.nRecipCount * Sizeof(TMapiRecipDesc) ); Attachments := nil; try with MapiMessage do begin { Assunto e Texto } ulReserved := 0; lpszSubject := PAnsichar(PChar( Assunto )); lpszNoteText := PAnsichar(PChar( Texto )); lpszMessageType := nil; lpszDateReceived := nil; lpszConversationID := nil; flFlags := 0; Sender.ulReserved := 0; Sender.ulRecipClass := MAPI_ORIG; Sender.lpszName := PAnsichar(PChar( '' )); Sender.lpszAddress := PAnsichar(PChar( '' )); Sender.ulEIDSize := 0; Sender.lpEntryID := nil; lpOriginator := @Sender; { Endereço } PRecip := Recipients; PRecip^.ulReserved := 0; PRecip^.ulRecipClass := MAPI_TO; PRecip^.lpszName := PAnsichar(PChar( Endereco )); PRecip^.lpszAddress := StrNew( PAnsichar(PChar('SMTP:' + Endereco ) )); PRecip^.ulEIDSize := 0; PRecip^.lpEntryID := nil; //Inc( PRecip ); lpRecips := Recipients; { Anexa os arquivos } if stlAnexo = nil then begin stlAnexo := TStringList.Create; stlAnexo.Clear; end; { Deleta do stlAnexo os arquivos que não existem } for x := 0 to stlAnexo.Count - 1 do if not FileExists( stlAnexo.Strings[x] ) then stlAnexo.Delete(x); { Anexa os arquivos } if stlAnexo.Count > 0 then begin GetMem(Attachments, SizeOf(TMapiFileDesc) * stlAnexo.Count); for x := 0 to stlAnexo.Count - 1 do begin Attachments[x].ulReserved := 0; Attachments[x].flFlags := 0; Attachments[x].nPosition := ULONG($FFFFFFFF); Attachments[x].lpszPathName := StrNew( PAnsichar(PChar(stlAnexo.Strings[x]) )); Attachments[x].lpszFileName := StrNew( PAnsichar(PChar( ExtractFileName(stlAnexo.Strings[x]) ) )); Attachments[x].lpFileType := nil; end; end {endif}; nFileCount := stlAnexo.Count; lpFiles := @Attachments^; end; { Enviando o e-mail } if not AEnviarDireto then MError := MapiSendMail(0, Application.Handle, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0) else MError := MapiSendMail(0, Application.Handle, MapiMessage, MAPI_LOGON_UI or MAPI_NEW_SESSION or MAPI_SENT, 0); case MError of MAPI_E_USER_ABORT: ; { Mostra mensagem que o envio do e-mail foi abortado pelo usuário. Portanto, não será mostrado nada } SUCCESS_SUCCESS: Result := True; else MessageDlg( 'Ocorreu um erro inesperado!'#13'Código: ' + IntToStr(MError), mtError, [mbOk], 0); end; finally PRecip := Recipients; StrDispose( PRecip^.lpszAddress ); //Inc( PRecip ); FreeMem( Recipients, MapiMessage.nRecipCount * Sizeof(TMapiRecipDesc) ); for x := 0 to stlAnexo.Count - 1 do begin StrDispose( Attachments[x].lpszPathName ); StrDispose( Attachments[x].lpszFileName ); end; end; end; Atenciosamente
-
Boa Tarde. No meu caso, eu utilizo o Fortes, fazendo dessa forma ACBrBoleto.ACBrBoletoFC.NomeArquivo := Path + Nomedoarquivo Complementando o Régys, quando se tem urgência numa coisa e não se acha a resposta, "quebre a cabeça" para descobrir, debugando o componente e etc, ou tenha um pouquinho de paciência. Atenciosamente.
-
Correção Na Impressão Boleto Cef-Sicob
Jéter Rabelo Ferreira replied to Jéter Rabelo Ferreira's tópico in ACBrBoleto
Juliana, bom dia. Fui testar a unit conforme solicitação. Resultado: Na linha 89 e 90 você definiu tamanhos fixos para: fpTamanhoAgencia := 5; fpTamanhoConta := 8; Eu li um post relatando problemas com espaços na geração de arquivos remessas, acho que foi por isso que você deve ter setado o campo Agencia como 5 Mas, ao setar o tamanho da agência como 5, o formatarnossonumero coloca um zero na frete, o que é compreensivel, mas a impressão do boleto sai incorreta (Imagem comparativa anexa). Comentei essa linha e deu certo Outra correção foi no método MontarCodigoBarras: - Não há mais necessidade da verificação do tamanho do nosso número. Segue anexa a unit modificada. Atenciosamente. ACBrCaixaEconomicaSICOB.pas -
Bom dia Não sei no caso do Bradesco, mas geralmente no extrato não aparece o nome do sacado, pois podem haver mais de 1 boleto e o valor do crédito na conta corrente é o total das liquidações. Solicite ao banco que te forneça a relação das liquidações de boletos (conhecida como francesinha). Caso queira, implemente no seu sistema a leitura do arquivo retorno e faça a leitura do mesmo no seu sistema, "pegando" todas as informações do referido arquivo. Atenciosamente. Jéter Rabelo Ferreira
-
Boa tarde. Meus clientes somente utilizam CNAB400 A unit atual do Bradesco não tem o CNAB240 implementado. Caso você puder nos ajudar, poderia implementar essas rotinas. Atenciosamente, Jéter Rabelo Ferreira
-
O Banco Unicred Funciona No Acbrboleto?
Jéter Rabelo Ferreira replied to marcelopomarolli's tópico in ACBrBoleto
Boa tarde. Banco Unicred deve ser um tipo de cooperativa de crédito, que geralmente utilizam ou Bancoob ou Sicred. Verifique qual dos dois a Unicred faz parte. Os dois estão implementados. Atenciosamente -
Boa tarde. Tenho clientes enviando remessa para o Bradesco há tempos sem nenhum problema. Atenciosamente.
-
Correção Na Impressão Boleto Cef-Sicob
Jéter Rabelo Ferreira replied to Jéter Rabelo Ferreira's tópico in ACBrBoleto
Bom dia. Acredito que daria certo dessa forma sim. Atenciosamente. -
Correção Na Impressão Boleto Cef-Sicob
Jéter Rabelo Ferreira replied to Jéter Rabelo Ferreira's tópico in ACBrBoleto
Eu não sei a respeito do SigCB, mas do Sicob são apenas 2: 9(10) e 14(15). Não sei se há necessidade de fazer como o Banco do Brasil, visto que esse banco tem N quantidade de carteira e tamanho de nossos números, sem falar na tag "Convenio". A CEF-Sicob apenas 2 tamanhos possíveis de Nosso Número.. Sem falar que a CEF -SICOB a carteira sempre vai ser SR, para as duas situações e não tem o campo Convenio para "ajudar" a controlar isso. Mas, de qualquer maneira, caso precisar de alguma coisa, é só me avisar. Atenciosamente. -
Correção Na Impressão Boleto Cef-Sicob
Jéter Rabelo Ferreira replied to Jéter Rabelo Ferreira's tópico in ACBrBoleto
Bom dia Juliana. Desculpe, não havia entendido sua pergunta anterior. Não sei se você vai lembrar, mas há meses atrás eu solicitei que você colocasse na property TACBrBanco.TamanhoMaximoNossoNum o método de write, pois inicialmente ele era apenas read; Com isso, quando eu vou preencher o boleto, eu seto essa property para o tamanho máximo do campo nosso número desejado: Exemplo: 104 : begin Banco.TipoCobranca := cobCaixaSicob; Banco.TamanhoMaximoNossoNum := 10; end; Atenciosamente. -
Sugestão Aos Colaboradores Do Acbrboleto
Jéter Rabelo Ferreira replied to Danilo's tópico in ACBrBoleto
Bom dia Danilo. Efetue um Try Except que resolve seu problema try FDataModule.ACBrBoleto.GerarRemessa(cdsConfiguracao.FieldByName('REMESSA').AsInteger); TldiBoletos.AtualizaNN(cdsConfiguracao.FieldByName('ID').AsString, IntToStr(NN)); TldiBoletos.Atualiza_Sequencial_Remessa(cdsConfiguracao.FieldByName('ID').AsString,IntToStr(cdsConfiguracao.FieldByName('REMESSA').AsInteger)); cdsRemessa.EnableControls; CDS_Cab.EnableControls; except on E: exception do begin raise Exception.Create('Erro ao gerar remessa' + #13#10 + 'Erro retornado foi o seguinte:' + #13#10 E.message); end; end; Atenciosamente.