Cleomar Pacheco

Resolvido

Desconsidera o que coloquei, esta correto

vo colocar aqui abaixo o código do Acbr, é aqui que esta o problema unit ACBrBancoSicoob na função function TACBrBancoSicoob.GerarRegistroTransacao240( aqui nesta função ele não trata o valor, trata somente %. ele grava zero sempre o valor, pq ele trabalah somente com o campo percentualmulta, até poderia trabalhar com esse campo, mas teria que respeitar o codigo ali se é 1 ou 2, pode olhar se vem informação n ocampo percentualmulta ele ja faz o cálculo, se vem zerado , nção joga nada no campo, Só que meu cliente esta trabalahndo com valor fixo, ai não esta gravando nada no campo da coluna 75 a 89. código abaixo pra conferir. IfThen((PercentualMulta > 0), IfThen(MultaValorFixo,'1','2'), '0') + // 66 Código da multa - 1 valor fixo / 2 valor percentual / 0 Sem Multa IfThen((DataMulta > 0) and (PercentualMulta > 0), FormatDateTime('ddmmyyyy', DataMulta), '00000000') + // 67 - 74 Se cobrar informe a data para iniciar a cobrança ou informe zeros se não cobrar IfThen((PercentualMulta > 0), IntToStrZero(round(PercentualMulta * 100), 15), PadLeft('', 15, '0')) + // 75 - 89 Percentual de multa. Informar zeros se não cobrar

Sim ele muda, mas como coloquei lá, ai vo ter que mandar o campo do percentual ali vazio, Titulo.DataMulta := StrToDateDef(edtDataMora.Text, 0); titulo.MultaValorFixo := True; Titulo.PercentualMulta := StrToCurrDef(edtMulta.Text,0); neste teu exemplo ali, ai mandando o valor fixo,, onde coloco o valor???? esse é o problema, eu preciso do valor, um campo pra identificar o valor, hoje o ACBr verifica se o percentual da multa esta vazio, ai coloca 1, ou true no valor multavalorfixo, mas eu preciso um campo com o valor fixo.

Bom dia! estou utilizando componentes (Delphi/lazarus).

Olá! Tenho clientes que vão começar a usar o Sicoob com valor fixo de multa e não percentual. olhei no manual e vi que tem essa opção 1=Valor fixo e 2=Percentual, eu estou carregando a variável CodigoMulta com cmValorFixo, mas na hora de gerar o registro R no ACBrBancoSicoob, ele não verifica o campo CodigoMulta, ele verifica somente o campo percentual, mas como só tem esse campo e é com esse campo que o ACBr trabalha para verificar se é Fixo ou %, se eu mandar ele zerado ele até coloca como valor fixo = 1, mas deixa o campo valor zerado, pq esta entendendo que somente o valor seja %. a coluna do valor/pecentual é 75 ao 89 e a coluna para indicar o tipo de valor ou % é o 66. em anexo o manual layout-cnab-240 (1).xls

Boa noite! Não funcionou, por enquanto vou deixar parado pois não fechou o cliente em Santos/SP.

mas vi que eles vção mudar para a versão ABRASF 2.04 e com isso vai mudar soap, rps e url

Boa tarde! Como faço para alterar o provedor de Santos/SP, apartir do dia 01/11/2024 vai mudar para GISS 2.0.

Bom dia! Tudo certo, valeu muito obrigado ai pelo ajuste e retorno.

Bom dia! Os campos estão indo com os valores conforme abaixo LayoutVersaoArquivo = 103 CodigoMora =3 ValorMoraJuros = 0 DataMoraJuros = 0 ele esta gravando o codigo de mora 3, mas esta gravando tb uma data inicial que é a 30121899, isso pq ele sempre entra no if pq a caractitulo é do simples .

Opa, ainda esta mostrando no layout, mesmo com zeros no juros e mandando 3 como isento. acho que o or ali no primeiro if esta fazendo sempre mostrar valor juros if ((ValorMoraJuros > 0) and (LTipoMoraJuros in [1,2])) or (CaracTitulo <> tcDescontada) then begin if (LTipoMoraJuros = 2) then if ValorMoraJuros > 99.99 then raise Exception.Create('Percentual ValorMoraJuros não pode ser maior que 99,99% !'); Juros := IntToStr(LTipoMoraJuros) + FormatDateTime('ddmmyyyy', DataMoraJuros) + PadLeft(StringReplace(FormatFloat('#####0.00', ValorMoraJuros), ',', '', []), 15, '0') end

Vi que tem o campo codigomora , tinha que pegar o que tem neste campo naquele comando acima ao invés de fixar 1 ou 0

Bom dia! estou com problema em um cliente que usa o Banrisul, pois ele não cobra do cliente juros, é isento, ai o banco mandou que precisa ser o código 3 na posição 118 verifiquei que no ACBr esta mandando 0 conforme abaixo. mandar o leiaute abaixo. isto é no C240. if (DataMoraJuros > 0) then Juros := '1'+ FormatDateTime('ddmmyyyy', DataMoraJuros) + PadLeft(StringReplace(FormatFloat('#####0.00', ValorMoraJuros), ',', '', []), 15, '0') else Juros := DupeString('0', 24); LeiauteBanrisulFebraban_pdr240_v103_23062023.pdf

Obrigado pelo retorno. Resolvido