-
Total de ítens
670 -
Registro em
-
Última visita
-
Days Won
1
Community Answers
-
Antonio Gomes's post in Function TentaPegarMensagemErroDetalhada diretiva DELPHILANGUAGE was marked as the answer
foi resolvido já.
-
Antonio Gomes's post in Banco Inter. Rejeições was marked as the answer
Olha se pode ser usado dessa forma, sincronizei e alterei.
ACBrBoletoRet_Inter_API.pas
-
Antonio Gomes's post in Boleto Inter V2 - cancelar e consultar boleto. was marked as the answer
Fecha por favor, é mosca comida + cansaço!
Grato.
-
Antonio Gomes's post in C6 retorno, data do credito 2000 was marked as the answer
@Victor H. Gonzales - Panda @BigWings
Olá, foi aplicado ajuste da posição do ano da data do credito, estava na posição incorreta, com isso, acusava sempre como sendo ano 2000.
Segue fonte.
ACBrBancoC6.pas
-
Antonio Gomes's post in Boleto Itau saindo Letra no código de barras was marked as the answer
a sua carteira no cadastro seu, não colocou numeros ?
ate onde sei, era assim...
-
Antonio Gomes's post in danfse nfsex padrão nacional mei was marked as the answer
@Italo Giurizzato Junior
Achei o bug de cortar o pdf
veja na imagem, acha parte do xml, que faz parte do pdf, o retorno nao vem em tag, mas vem direto o pdf.
A falha é na função: TACBrNFSeXWebservice.SalvarRetornoWebService, onde chama RemoverDeclaracaoXML
TACBrNFSeXWebservice.SalvarRetornoDadosMsg quando faz isso ADadosMsg := RemoverDeclaracaoXML(ADadosMsg);
TACBrNFSeProviderPadraoNacional.TratarRetornoConsultaNFSeporChave: Response.ArquivoRetorno := RemoverDeclaracaoXML(Response.ArquivoRetorno); // comentei isso, quando é pdf para testar.
Acho que o legal é testar de outra forma, já que nao tem tag xml abrindo de fechando nesse retorno, é um pdf só,.
Como chamei para pegar o pdf:
FuncNFSeX.ACBrNFse.ObterDANFSE(IBDSPai.FieldByName('NFE_CHAVE_NF').AsString);
ConsultaNFSe := FuncNFSeX.ACBrNFse.WebService.ConsultaNFSe;
...
os fontes alterados, é apenas para vc ver como veio o retorno, com o que eu mexi, nao suba para o seu fonte. Eu não sei como mexer nesse componente ainda, é novo para eu.
PadraoNacional.Provider.pas
ACBrNFSeXWebserviceBase.pas
-
Antonio Gomes's post in NFSeX MEI was marked as the answer
Bug encontrado:
Ao dar loadfromfile no arquivo de DPS, o campo Servico.CodigoPais, vem com valor -1, ao inves de zero, fazendo com que coloque um ZZ no xml de envio.
bug nessa funcao:
function TNFSeW_PadraoNacional.GerarLocalPrestacao: TACBrXmlNode;
begin
Result := CreateElement('locPrest');
Result.AppendChild(AddNode(tcStr, '#1', 'cLocPrestacao', 7, 7, 0,
NFSe.Servico.CodigoMunicipio, ''));
if (NFSe.Servico.CodigoPais <> 0) and (NFSe.Servico.CodigoPais <> 1058) then
Result.AppendChild(AddNode(tcStr, '#1', 'cPaisPrestacao', 2, 2, 0,
CodIBGEPaisToSiglaISO2(NFSe.Servico.CodigoPais), ''));
end;
quando vem NFSe.Servico.CodigoPais = -1, CodIBGEPaisToSiglaISO2 retorna: 'ZZ'
@Italo Giurizzato Junior
Olha se pode ser corrigido com isso?
unit PadraoNacional.LerXml;
Linha 904
procedure TNFSeR_PadraoNacional.LerLocalPrestacao(const ANode: TACBrXmlNode);
var
AuxNode: TACBrXmlNode;
begin
AuxNode := ANode.Childrens.FindAnyNs('locPrest');
if AuxNode <> nil then
begin
with NFSe.Servico do
begin
CodigoMunicipio := ObterConteudo(AuxNode.Childrens.FindAnyNs('cLocPrestacao'), tcStr);
CodigoPais := SiglaISO2ToCodIBGEPais(ObterConteudo(AuxNode.Childrens.FindAnyNs('cPaisPrestacao'), tcStr));
if CodigoPais < 0 then //// aqui
CodigoPais := 0; // aqui
end;
end;
end;
-
Antonio Gomes's post in Boleto sem código de barras was marked as the answer
esta atribuindo coisa alem de numero nos parametros, olha o erro, olha se esta colocando espacos tambem, na conta, cedente..
A agencia e beneficiario sua, tá repetido o numero 3886, pode ser um indicio de algo anormal.
-
Antonio Gomes's post in Sicoob- Código de Barras was marked as the answer
dá uma lida em particularidades, de fato, tem que ser 01 mesmo, e sicoob está ok no projeto, nao tem erro, usando aqui.
olha onde vc salva os componentes: ACBr2wc\Fontes\ACBrBoleto\Particularidades.pdf
-
Antonio Gomes's post in Linha do codigo do boleto was marked as the answer
Mano: Explore o componente... linha digitável
DVBoleto := ACBrBoleto.Banco.CalcularDigitoVerificador(ACBrTitulo);
CodigoBarras := ACBrBoleto.Banco.MontarCodigoBarras(ACBrTitulo);
LinhaDigitavel := ACBrBoleto.Banco.MontarLinhaDigitavel(CodigoBarras, ACBrTitulo);
NossoNumeroFormatado := ACBrBoleto.Banco.BancoClass.MontarCampoNossoNumero(ACBrTitulo);
-
Antonio Gomes's post in Rejeição: 878 - Endereço do site da UF da Consulta por chave de acesso diverge do previsto was marked as the answer
Atualiza que foi arrumado já, acabei de atualizar aqui.
-
Antonio Gomes's post in Detalhes rejeição ACBrBoleto was marked as the answer
CodOcorrencia := StrToIntDef(IfThen(copy(Linha,109,2) = ' ','00',copy(Linha,109,2)),0);
nessa posicao que pega a ocorrencia
e na 319 os motivos, em blocos de 2
-
Antonio Gomes's post in Configurar Boleto Sicoob was marked as the answer
o fi, ai no caso e o bancoob
-
Antonio Gomes's post in Como pegar o Digito do Nosso Número gerado pelo ACBrBoleto? was marked as the answer
qual banco ?
-
Antonio Gomes's post in Banco sicoob Modalidade was marked as the answer
Voce nao colocou modalidade = 01
Confere se repassou esses dados tudo: Carteira: 1 e modalidade: 01
Cedente.Modalidade := 1 no titulo: ATituloNaLista.Carteira:= 01
Sugestão: https://acbr.sourceforge.io/ACBrMonitor/Particularidades.html
-
Antonio Gomes's post in banco novo was marked as the answer
Acbr tem no projeto acesso e envio por api, o que você pode fazer, é pegar uma unit como base e desenvolver para essa carteira e anexar ao projeto, como ajuda.
Pasta: ACBr2wc\Fontes\ACBrBoleto\WS
-
Antonio Gomes's post in Registro Detalhe Tipo 5 - Multa/Prazo was marked as the answer
Nick, vc tem que mexer nisso:
no titulo, na hora de gerar a remessa
ATituloNaLista.DataBaixa := AVencimento + AQryServico.FieldByName('REM_DIAS_BAIXAR_SER').AsInteger;
ATituloNaLista.DataLimitePagto := AVencimento + AQryServico.FieldByName('REM_DIAS_BAIXAR_SER').AsInteger;
-
Antonio Gomes's post in Estou dando os primeiros passos no desenvolvimento de sistemas e queria saber como fazer no sistema para um profissional liberal a possibilidade de emissão de boleto pelo CPF para controle de valores a receber, sem a necessidade de emitir nota fiscal ele was marked as the answer
Isso não convém ao componente, mas ao banco que ele vai contratar. Eu mesmo, ja usei o banco itau para isso. Cabe a instituição liberar, e no componente, você apenas troca que é pj ou pf.
-
Antonio Gomes's post in Campo Nosso Número Banco do Brasil was marked as the answer
Nosso numero eu quase não tenho relevancia dele ... so no caso extremo, vc pode usar o campo livre, para pegar o seu identificador unico, pra baixar o titulo no retorno.
Porém, o campo se chama "SeuNumero", ao inves de nosso número. Ele, vc manda seu id da tabela receber, que ele volta intacto.
O banco do brasil, trabalha com convenios por tamanho, uma informação errada na ida, vem errado na volta.
tem banco, que o nosso numero vem diferente, precisa ficar cortanto.
-
Antonio Gomes's post in Arquivo de Remessa com valor diferente do informado was marked as the answer
Voce não pode alterar a unit para gerar o valor correto, vc precisa gravar ele certo, pois bancos não aceitam dados com mais de 4 decimais, no nosso país, são apenas 2 decimais, tanto, que ele vai na linha digitavel e no codigo de barras.
Penso que você precisa ajustar seu divisor de parcelas do sistema, para poder gravar isso certo, o componente é feito pra processar informações, não não pode corrigir, pois um local ou outro vai ocorrer esse problema. @jdazevedo prefira trabalhar com valores no formato AsCurrency, e claro, acertar a quebra de caixa em alguma parcela, não deixando para o banco de dados resolver.
Como sugestão, eu lanço a quebra de caixa na 1a parcela, cabe do programador decidir. Ex: 100,00 de 3x, se deixar para o banco de dados, vai ficar 33,3333333333333...
Isso tem influencia no tipo de campo que você usa para armazenar valores, o decimal (15,2), era danado para acontecer isso, assim como aquele double precision. Eu particularmente, uso o numeric(18,2), fazendo o arredondamento dentro do programa.
-
Antonio Gomes's post in Bancoob validação remessa CNAB240 was marked as the answer
Deve ser atribuido, isso dai ja foi discutido aqui: Tem que repassar pelo programador.
Tem agencia que pede, outras não.
Ex:
Cedente.DigitoVerificadorAgenciaConta := ADataSetConfigServicoBanco.FieldByName('DV_AGENCIA_CONTA_CCR').AsString;
Dá uma olhada:
-
Antonio Gomes's post in Formação do campo Cooperativa banco Sicob was marked as the answer
Esse numero que vc passou, e todo agencia, 7 não é DV. Na planilha parece ser a 3127-5 SIOOB CREDITAMA
-
Antonio Gomes's post in Erro quando na geração Boleto com carteira usando "/' ex. 09/17 was marked as the answer
vc tem que colocar carteira e variacao ou modalidade, no caso do bb, é modalidade um dos numeros. confere no manual, e no acbr vc atribui isso separado.
-
Antonio Gomes's post in Arquivo de Remessa was marked as the answer
vc vai precisar fazer isso manual, o componente lê apenas retorno, e a remessa os campos são tem a mesma posição.
Tarefa enjoada, não impossível.