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á