Rodrigo Cardilo

Não me atentei aqui, eram clientes sem atualização. O problema é o envio pelo modo síncrono mesmo.

Bom dia, Também estou com esse problema desde ontem.

Boa tarde, o problema estava na leitura da variavel Resp. Obrigado pela ajuda

function TDM1.RegistrarBoletoUnico(CodCotista, Cod_Asaas, Desc_Cobranca: string; VlrBoleto, VlDesconto, VlMulta, VlJuros: double; DtVenc: TDate; DiasDesc: integer): integer; var resp: IResponse; Json_Boleto, Json_Desconto: TJSONObject; Arr_Desconto, Arr_Multa, Arr_Juros: TJSONArray; Json_Multa, Json_Juros: TJSONObject; begin TbBoleto.FieldDefs.Clear; try Json_Boleto := TJSONObject.Create; Json_Boleto.AddPair('billingType', 'BOLETO'); Json_Boleto.AddPair('customer', Cod_Asaas); Json_Boleto.AddPair('value', TJsonNumber.Create(VlrBoleto)); Json_Boleto.AddPair('duedate', FormatDateTime('yyyy-mm-dd', DtVenc)); Json_Boleto.AddPair('description', Desc_Cobranca); Json_Boleto.AddPair('daysAfterDueDateToRegistrationCancellation', TJsonNumber.Create(1)); Json_Boleto.AddPair('externalReference', CodCotista); // Desconto if VlDesconto > 0 then begin Arr_Desconto := TJSONArray.Create; Json_Desconto := TJSONObject.Create; Json_Desconto.AddPair('value', TJsonNumber.Create(VlDesconto)); Json_Desconto.AddPair('dueDateLimitDays', TJsonNumber.Create(DiasDesc)); Json_Desconto.AddPair('type', 'FIXED'); Arr_Desconto.AddElement(Json_Desconto); Json_Boleto.AddPair('discount', Json_Desconto); end; // Multa if VlMulta > 0 then begin Arr_Multa := TJSONArray.Create; Json_Multa := TJSONObject.Create; Json_Multa.AddPair('value', TJsonNumber.Create(VlMulta)); Json_Multa.AddPair('type', 'PERCENTAGE'); Arr_Multa.AddElement(Json_Multa); Json_Boleto.AddPair('fine', Json_Multa); end; // Juros if VlJuros > 0 then begin Arr_Juros := TJSONArray.Create; Json_Juros := TJSONObject.Create; Json_Juros.AddPair('value', TJsonNumber.Create(VlJuros)); Arr_Juros.AddElement(Json_Juros); Json_Boleto.AddPair('interest', Json_Juros); end; clipboard.AsText := Json_Boleto.ToJSON; TRequest.New.BaseURL(BASE_URL).Resource('v3/payments').AddHeader('access_token', TOKEN_ASAAS, [poDoNotEncode]).Adapters(TDataSetSerializeAdapter.New(TbBoleto)).Accept('application/json') .AddBody(Json_Boleto.ToJSON).Post; Result := resp.StatusCode; finally { Json_Boleto.DisposeOf; Json_Desconto.DisposeOf; Json_Juros.DisposeOf; Json_Multa.DisposeOf; } end; end; Boa tarde amigos, Estou tentando consumir uma api do Asaas. Os endpoints get estão funcionando perfeitamente mas quando tento fazer um post me retorna aquele erro doido Access Violatin at address....... Algúem consegue me ajudar onde está errado?

Achei aqui, obrigado pela ajuda.

Boa tarde @programadorbq, onde vc encontrou esse arquivo Calculadora.db?

Bom dia amigo @Carlos Hendrik Oliveira, no meu caso era realmente um problema do dataset. Pode ter q ver com versão da dll midas. Eu utilizava a versão do meu delphi porém no cliente era outra versão. Outra coisa interessante de se observar é se vc usa alguma thread. Isso pode influenciar e causar esse erro. E por fim, faça um teste em uma VM pois, testanto num ambiente fora do seu computador fica mais fácil de detectar. Espero ter ajudado

Bom dia amigos, Alguém conhece algum comando que eu possa instalar, iniciar ou parar um serviço do windows (que no caso é minha aplicação) via delphi sem usar cmd (pois esse já funciona). Gostaria de saber se existe alguma coisa nativa. Grato desde já

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.

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

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

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

Boa tarde, Não entendi. A minha alteração não foi na última versão?

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

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á

Vou dar uma pesquisada.. Vlw @Daniel Simoes

Oi @Daniel Simoes, o bom e velho delphi.

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

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.

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.

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

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.

Bom dia amigos, Estou tentando montar uma consulta com as seguintes condições: Tenho uma tabela com os campos : CODPRODUTO, DATA, TIPOMOV, DATA, QUANT e outra com os campos CODPRODUTO, CUSTO A principio eu precisava do saldo do estoque e o valor total de custo em uma determinada data. Consegui usando o código abaixo: SELECT SUM( (COALESCE((SELECT SUM(M.QUANT) from UN05300 M where M.CODPRODUTO = F.CODPRODUTO AND M.TIPOMOV < 2000 AND M.DATA <= :DTESTOQUE),0) - COALESCE((SELECT SUM(M.QUANT) from UN05300 M where M.CODPRODUTO = F.CODPRODUTO AND M.TIPOMOV > 1999 AND M.DATA <= :DTESTOQUE),0)) * F.CUSTO) FROM UN05100 F Porém eu precisava agora de um select que me retornasse o valor de um periodo de datas agrupado por dia com as colunas DATA E VALORTOTAL usando o código acima. Alguém já passou por isso? Já tentei JOIN's de todos os tipos mas não obtive sucesso. Grato desde jáo em uma determinada data. Consegui usando o código abaixo:

Boa tarde amigos, Eu tenho uma aplicação que OBRIGATORIAMENTE precisa acessar uma rotina utilizando a tecla F1. Em algumas situações, geralmente depois de utilizar outras teclas de atalho, aparece o erro "no context-sensitive help installed" A rotina funciona perfeitamente mas esse erro fica incomodando meu usuário. Alguém já passou por isso e saberia como desativar essa mensagem de erro? Grato desde já.

Oi @layonferrari, no meu caso eu precisei verificar outros aplicativos meus mesmos. No caso do chrome acho que não funcionaria pois ele cria estâncias (não sei se estou falando bobagem). Tentou usar o código que eu citei acima?