Ir para conteúdo
  • Cadastre-se

Rodrigo Cardilo

Membros Pro
  • Total de ítens

    251
  • Registro em

  • Última visita

Sobre Rodrigo Cardilo

Contact Methods

  • Website URL
    www.cardilo.com

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

Rodrigo Cardilo's Achievements

Community Regular

Community Regular (8/14)

  • Reacting Well Rare
  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done

Recent Badges

46

Reputação

2

Community Answers

  1. Boa tarde amigos, Estou com um problema que nunca vi e gostaria de compartilhar caso alguém já tenha visto algo parecido. Meu sistema utiliza datasnap com Firedac no Servidor de Aplicação. Quando vou fazer uma consulta e logo em seguida gravar no banco está aparecendo a mensagem Falha Catastrófica. Como não é uma mensagem que ajuda muito andei forçando e logo após aparece uma mensagem que eu nunca me deparei antes conforme figura abaixo: A única coisa que identifiquei familiar nessa mensagem é o meu provider PV08480. Caso alguém saiba "decifrar" essa mensagem e puder me ajudo fico agradecido.
  2. Prezados, Fiz um último ajuste na leitura do retorno pois estava tendo problema com o tamanho máximo do nosso numero (10). Segue arquivo.ACBrBancoC6.pas
  3. Boa tarde amigos, Conforme conversa no discord e ajuda do amigo @Daniel InfoCotidiano e @Victor H. Gonzales - Panda segue unit alterada para cobrança registrada do C6. A principal mudança foi a utilização da modalidade onde Modalidade = '' ou = '1' é do modo que já funcionava (cobrança direta) e Modalidade = '2' é cobrança registrada segundo manual anexo. Uma sugestão minha seria apagar os comentários existentes na unit sobre remessa cnab240 pois o banco não utiliza isso. Grato desde já e obrigado pela ajuda. ACBrBancoC6.pas
  4. Boa tarde amigos do ACBR, Conversando com o @Daniel InfoCotidiano no discord e estudando a unit ACBRBancoC6 eu percebi que temos um problema com o tipo de cobrança. O C6 trabalha com cobrança direta e cobrança com registro (que é meu caso) e não é contemplado pelo arquivo. Minha dúvida é, para melhor colaborar, existe alguma propriedade no componente ACBrBoleto onde posso classificar o tipo de cobrança? Segue algumas telas do manual explicando esse detalhe
  5. Boa tarde, Não entendi. A minha alteração não foi na última versão?
  6. Boa tarde, Fiz algumas modificações na unit AcbrBoletoC6 depois de tentar homologar minha empresa. O suporte deles ainda está engatinhando porém conseguimos ajustar. Fiz algumas alterações na remessa e implementei o retorno corretamente. Segue anexo documentação e arquivo. Grato, ACBrBancoC6.pas Motivos de ocorrencias Layout C6 (1).xlsx Layout Cnab 400 C6Bank_Junho 2022 (2).pdf
  7. Bom dia amigos, Aconteceu esse caso com um cliente meu semana passada. Ele emitiu um ct-e de MG para SP com o valor errado. O tomador, que é contribuinte de ICMS, realizou o evento Prestação do Serviço em Desacordo e solicitou um outro Ct-e. Agora não consigo gerar um Ct-e substituto sem colocar uma chave, seja do Ct-e de Anulação, seja de NF-e de Anulação. Alguém sabe como deve ser feito a partir de agora, ainda na versão 3.0? Grato desde já
  8. Olá amigos, Tenho um sistema para controle de ocupação de um determinado condomínio que a partir de agora me solicitaram uma espécie de mapa de ocupação conforme imagens anexo. Já tenho esse controle de ocupação por data em banco de dados e fiz um mapa usando dbgrid porém é muito lento para ser montado. Estou procurando uma alternativa e não sei qual componente eu poderia utilizar ou uma maneira de ser preenchido dinamicamente pegando os dados do Banco de Dados. Se alguém tiver alguma dica e puder me ajudar eu agradeço. Grato
  9. Também fiz dessa forma e funcionou muito bem. @Luiz Carlos Panoni Junior o exemplo é somente para dar um norteio. O componente é bem flexível seguindo o padrão do Banco.
  10. Passei pelo mesmo problema do amigo acima e resolvi fazendo as modificações na unit conforme o amigo @Aggille Sistemas de Gestão. Agora funcionou perfeitamente.
  11. Boa tarde amigos, Após uma troca de mensagens com o usuário Daniel no discord, o mesmo me pediu pra abrir esse tópico. Estou tentando utilizar o ACBBoletoWs no Banco inter. Fiz toda a configuração e coloquei o código abaixo: ACBrBoleto1.Configuracoes.WebService.ArquivoCRT := 'D:\AdmCardilo\Boleto\InterAPI_Certificado.crt'; ACBrBoleto1.Configuracoes.WebService.ArquivoKEY := 'D:\AdmCardilo\Boleto\InterAPI_Chave.key'; ACBrBoleto1.Configuracoes.WebService.SSLHttpLib := httpOpenSSL; ACBrBoleto1.Configuracoes.WebService.SSLCryptLib := cryOpenSSL; ACBrBoleto1.Configuracoes.WebService.SSLXmlSignLib := xsLibXml2; ACBrBoleto1.Configuracoes.WebService.SSLType := LT_TLSv1_2; ACBrBoleto1.Configuracoes.WebService.UseCertificateHTTP := True; ACBrBoleto1.Configuracoes.WebService.TimeOut := 10000; ACBrBoleto1.Cedente.CedenteWS.ClientID := 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'; ACBrBoleto1.Cedente.CedenteWS.ClientSecret := 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'; ACBrBoleto1.Cedente.CedenteWS.Scope := 'extrato.read boleto-cobranca.read boleto-cobranca.write'; Depois tentei fazer a consulta dos boletos em aberto com o seguinte código: procedure TForm1.Button2Click(Sender: TObject); var FiltrosAPI: TACBrBoletoWSFiltroConsulta; boleto: TACBrBoleto; SLRetorno: TStringList; Retorno: TListaACBrBoletoRetornoWS; I: Integer; begin boleto := ACBrBoleto1; FiltrosAPI := boleto.Configuracoes.WebService.Filtro; FiltrosAPI.Clear; FiltrosAPI.indicadorSituacao := isbAberto; FiltrosAPI.dataVencimento.DataInicio := StrToDate('01/01/2023') ; FiltrosAPI.dataVencimento.DataFinal := Date + 30; boleto.Configuracoes.WebService.Operacao := tpConsulta; boleto.Enviar; Retorno := boleto.ListaConsultaRetornoWeb; if Retorno.Count > 0 then begin SLRetorno := TStringList.Create; try SLRetorno.Add('Cod_Retorno=' + Retorno[I].CodRetorno + sLineBreak + 'Msg_Retorno=' + Retorno[I].MsgRetorno + sLineBreak + 'Ori_Retorno=' + Retorno[I].OriRetorno + sLineBreak + 'HTTP_Result=' + IntToStr(Retorno[I].HTTPResultCode) + sLineBreak + 'JSON=' + Retorno[I].JSON); SLRetorno.Add('indicadorContinuidade=' + BoolToStr(Retorno[0].indicadorContinuidade)); SLRetorno.Add('proximoIndice=' + IntToStr(Retorno[0].proximoIndice)); SLRetorno.Add(' '); SLRetorno.Add(' '); for I := 0 to Pred(Retorno.Count) do begin SLRetorno.Add('[Boletos Index = ' + FormatFloat('000', I) + ']'); SLRetorno.Add('numeroBoletoBB = ' + Retorno[I].DadosRet.TituloRet.NossoNumero); SLRetorno.Add('dataRegistro = ' + DateToStr(Retorno[I].DadosRet.TituloRet.DataRegistro)); SLRetorno.Add('dataVencimento = ' + DateToStr(Retorno[I].DadosRet.TituloRet.Vencimento)); SLRetorno.Add('valorOriginal = ' + DateToStr(Retorno[I].DadosRet.TituloRet.ValorDocumento)); SLRetorno.Add('carteiraConvenio = ' + Retorno[I].DadosRet.TituloRet.Carteira); SLRetorno.Add('variacaoCarteiraConvenio = ' + IntToStr(Retorno[I].DadosRet.TituloRet.Modalidade)); SLRetorno.Add('codigoEstadoTituloCobranca = ' + Retorno[I].DadosRet.TituloRet.codigoEstadoTituloCobranca); SLRetorno.Add('estadoTituloCobranca = ' + Retorno[I].DadosRet.TituloRet.estadoTituloCobranca); SLRetorno.Add('contrato = ' + Retorno[I].DadosRet.TituloRet.Contrato); SLRetorno.Add('dataMovimento = ' + DateToStr(Retorno[I].DadosRet.TituloRet.dataMovimento)); SLRetorno.Add('dataCredito = ' + DateToStr(Retorno[I].DadosRet.TituloRet.dataCredito)); SLRetorno.Add('valorAtual = ' + CurrToStr(Retorno[I].DadosRet.TituloRet.valorAtual)); SLRetorno.Add('valorPago = ' + CurrToStr(Retorno[I].DadosRet.TituloRet.ValorPago)); SLRetorno.Add(' --- '); end; SLRetorno.SaveToFile(PathWithDelim(ExtractFilePath(Application.ExeName)) + formatDateTime('yyyy.mm.dd.hh.nn.ss.zzz', now) + '-RetornoConsulta.txt'); finally SLRetorno.Free; end; end; showMessage('Fim'); end; Retornou o log e retorno em anexo. Fiz os mesmos testes pelo postman e funcionou. Se alguém puder me ajudar fico grato. Enviei os logs para [email protected] Grato desde já ArqBoletoWS.log 2023.02.08.18.27.27.868-RetornoConsulta.txt
  12. Oi @Renato Rubinho. Na verdade o valor do estoque do dia eu já tenho o sql pronto, conforme mostrei no primeiro post. Eu precisa juntar aquele select que já funciona a outro com um periodo de datas. Suas dicas não deram certo, mas fiz de outra forma, dentro do próprio delphi pegando o valor de cada data que eu precisava. Agradeço a disponiblidade
  13. Amigo @Renato Rubinho, na verdade eu preciso de um select que junte o meu select acima mencionado (que é o total de venda por dia) ao outro pra pegar o valor por um periodo como o exemplo abaixo: DATA VALOR 01/01/2023 100,00 02/01/2023 2000,00 03/01/2023 800,00 O valor por dia eu já consigo pelo meu select porém quero um select unico que me retorne da forma menciona. O Group by seria o campo DATA Mesmo assim grato pela ajuda.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.