Jefferson Quinelatto

Bom dia, sei o que o tópico é antigo, mas estou com problemas na comunicação da balança toledo de 300kg modelo 2099 - 9098. Utilizando a configuração P03, 8bits, sem paridade Bounds 9600, ao ativar, me da um erro "list index out of bounds (1)". Ao mudar para a P05 com as mesmas configuração, não tenho o erro, a balança ativa com sucesso, porém, não captura o peso. (Obs: utilizando o programa hyperterminal, na P03 ele comunica normalmente e obtém o peso perfeitamente, mas ao mudar para a P05 não obtém o peso também). A balança é a versão sem bateria e, aqui tem o manual que consegui dela. https://www.toledobrasil.com/blob/manuals/38_pt_manual_1574104953.pdf

Bom dia pessoal Estou realizando uma requisição do tipo GET com um json no body da requisição e uma autenticação do tipo Bearer token, utilizo dos componentes RESTClient e ao executar a requisição tenho o seguinte retorno: { "type": "https://tools.ietf.org/html/rfc7231#section-6.5.1", "title": "One or more validation errors occurred.", "status": 400, "traceId": "00-72e4db5db7264d6196a797c49217c493-f560f2072295e5f6-00", "errors": { "$": ["The input does not contain any JSON tokens. Expected the input to start with a valid JSON token, when isFinalBlock is true. Path: $ | LineNumber: 0 | BytePositionInLine: 0."] } } Observação: a requisição funciona normalmente no Postman, Insomnia e inclusive no RESTDebugger do delphi, nas versões que é possível marcar [DoNotEncode] ao criar um header. Porém ao copiar os componentes prontos do RESTDebugger funcionando e jogar no formulário, obtenho o retorno json acima. Se alguém já passou por algo parecido e puder compartilhar do conhecimento. (Versões testadas do Delphi: Berlim e Rio).

Bom dia, sei que o tópico é antigo, mas à respeito da classe, já foi desenvolvida?

Bom dia, nas instruções do boleto para o sicredi cnab400, está a seguinte mensagem "Cobrar juros de xValor% ao mês...", porém seria ao dia e não ao mês, analisando o código, notei que há uma propriedade CodigoMoraJuros, porém ao passar cjTaxaDiaria, continua com a mesma mensagem. Fiz a implementação de uma função validada somente para o Banco Sicredi. Segue em anexo para análise, desde já obrigado! ACBrBoleto.pas

Bom dia, fiz a implementação do Número de Dias para Baixa/Devolução para o Banco do Brasil CNAB240. Segue anexo da Documentação, e o Arquivo alterado. Obs.: está regra já está implementada para o CNAB400. ACBrBancoBrasil.pas DocumentacaoBBB21.pdf

como faço para excluir este tópico? já resolvi

Boa tarde, estou passando pela mesma situação no momento, e ao colocar o Digito 12, entrou na condição normalmente, e gerou o boleto 099-X.

Exatamente Juliana, agradeço a atenção! Irei estar fazendo esse ajuste aqui, para liberar o Cliente. Obrigado!

Boa tarde, segue o código abaixo onde informo esse código. if Trim(Copy(CBanco.Text,1,3)) = '748' then //Sicred CodigoMora := 'A';//Valor ValorMoraJuros := EValorJuros.Value; end else if CJuros.ItemIndex = 2 then begin if Trim(Copy(CBanco.Text,1,3)) = '748' then //Sicred CodigoMora := 'B';//Percentual ValorMoraJuros := (nValorBoleto * EValorJuros.Value)/100; end; Segue em anexo, como fica a instrução no boleto, no caso deveria ser "Cobrar juros de 0,25% ao dia de atraso para pagamento a partir de 30/06/2020..."

Bom dia, Estou com a seguinte dúvida no código abaixo. Ao gerar boleto do Sicredi CNBAB-400, onde informo o tipo de Juros, valor monetário ou Percentual, para ambos é cobrado ao Dia e não ao Mês. Porém nas instruções do boleto sai " ao mês ". Teria alguma forma de alterar essa instrução conforme o layout do Sicredi? (Obs: Conforme manual do Sicredi isso é somente para o layout CNAB400, para 240 utiliza-se ao mês). if ValorMoraJuros <> 0 then begin if DataMoraJuros <> 0 then AStringList.Add(ACBrStr('Cobrar juros de ' + ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '% ao mês', FormatCurr('R$ #,##0.00 por dia',ValorMoraJuros)) + ' de atraso para pagamento '+ ifthen(Vencimento = DataMoraJuros, 'após o vencimento.', 'a partir de '+FormatDateTime('dd/mm/yyyy',DataMoraJuros)))) else AStringList.Add(ACBrStr('Cobrar juros de ' + ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '% ao mês', FormatCurr('R$ #,##0.00 por dia',ValorMoraJuros)) + ' de atraso')); end;