Pesquisar na Comunidade

Debugando para entender por quê o número da Agencia se repetia na impressão do boleto no campo "Agência/Código do Beneficiário" percebi que nesse trecho há uma concatenação, da Agencia+Conta sendo preenchido no campo Código do Cedente unit ACBrBoleto; function TACBrBancoClass.MontarCampoCodigoCedente(const ACBrTitulo: TACBrTitulo): String; begin Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'-'+ ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+ ACBrTitulo.ACBrBoleto.Cedente.Conta+'-'+ ACBrTitulo.ACBrBoleto.Cedente.ContaDigito; end; E o código da Agencia já tem seu campo própio. unit ACBrBoletoFCFR; FieldByName('Nome').AsString := Cedente.Nome; FieldByName('CodigoCedente').AsString := Banco.MontarCampoCodigoCedente(Titulo); // Cedente.CodigoCedente; FieldByName('CodigoTransmissao').AsString := Cedente.CodigoTransmissao; FieldByName('Agencia').AsString := Cedente.Agencia; FieldByName('AgenciaDigito').AsString := Cedente.AgenciaDigito; Sendo assim eu alterei os Reports, removendo a agencia, já que a informação já está vindo junto com o código do Cedente. Antes estava assim: [Cedente."Agencia"]/[Cedente."CodigoCedente"] Deixei assim: [Cedente."CodigoCedente"] Caso concordem que está certo, atualizar os reports no repositório para colaboração geral. Boleto.fr3 BoletoFatura.fr3 BoletoFR.fr3

Boa tarde. Gostaria de sugerir uma melhoria no código do ACBr na unidade ACBrNFeWebServices e método TNFeRetRecepcao.TratarRespostaFinal. As vezes ao Assinar a nota, ocorre erros que não são exibido. Só me retorna "Nota(s) não confirmadas: 301 =>". Debuggando o processo vi que é retornado o Cstat e que através dele é possível apurar melhor o erro. Hoje eu me deparei com o erro referente ao Status 866 - "Ausência de troco quando o valor dos pagamentos informados for maior que o total da nota". Só consegui resolver o problema porque eu fui debuggando onde era montada esta mensagem e verifiquei o cstat. A alteração poderia ficar tipo o exemplo abaixo: if AInfProt.Count > 0 then begin FChaveNFe := AInfProt.Items[0].chNFe; FProtocolo := AInfProt.Items[0].nProt; FcStat := AInfProt.Items[0].cStat; end; //Montando a mensagem de retorno para as notas nao confirmadas for I := 0 to FNotasFiscais.Count - 1 do begin if not FNotasFiscais.Items.Confirmada then FPMsg := FPMsg + IntToStr(FNotasFiscais.Items.NFe.Ide.nNF) + '->' + FNotasFiscais.Items.Msg + LineBreak + 'CStat: ' + IntToStr(FcStat) + ObtemDescricaoRejeicao(FcStat) ; end;

Olá. Fiz alguns ajustes no ACBrNFSe para permitir a integração com o WebService da NotaBlu. O Layout era muito similar a nota NFSe de SP, mas identifiquei alguns pontos que necessitaram ajustes. Estou anexado um patch com a sugestão de ajustes aplicados a revisão 13431 do ACBr além de um outro zip com os fontes alterados. Além dos ajustes em alguns fontes, foi necessário ajuste nos INI Cidades.INI e a criação do provedor NotaBlu.INI. Por favor, se puderem avaliar os ajuste e verificar se existe possibilidade de aplicar ao repositório, Obrigado e fico no aguardo. @Italo Jurisato Junior @André Ferreira de Moraes FontesAlteradosRev-13431.7z Patch-NotaBlu-Rev_ACBr-13431.patch

Saudações, Faz aproximadamente 1 mês que estou trabalhando com a integração do ACBrMonitor PLUS (SAT) em meu ERP e até o momento, graças a ajuda da comunidade, estou obtendo êxito em gerar/cancelar cupons fiscais porém, tenho que fazer varias adaptações a partir do sistema para obter as informações necessárias do .INI/.TXT de saída, sendo elas: Retirar o OK: ou alinhar para ficar em cima do [ENVIO] (não encontrei uma solução para que o OK: seja ignorado quando é necessário localizar a seção [ENVIO] para se obter as chaves); Script (gambia) para pegar as mensagens entre " | ", exemplo: |06000|0000|Emitido com sucesso + conteúdo notas|| para exibir os erros aos clientes, e varias outras "gambias" que poderiam ser evitadas se fosse seguido um outro formato de .INI/.TXT de saída. Nossa sugestão: Acredito que esse novo formato de saída facilitaria muito as nossas vidas pois as consultas do .INI seriam muito mais fáceis e livres de adaptações. Obrigado.

Olá a todos. Utilizo o componente ACBrNFSe e as vezes preciso de algumas "alterações" para atender as minhas necessidades e de meus clientes. Decidi criar o tópico, não sei se é o correto, mas com o objetivo de sugerir algumas dessas alterações, para quem sabe for útil para mais algum ou para que alguém também coloque aqui alguma alteração que possa me ajudar. Só ressaltando, é apenas sugestão, pois sei que algumas alterações não seria aplicada a todos os servidores e poderiam complicar a manutenção do componente. Seguem duas alterações que precisei fazer para poder me atender: 1ª - Não estava preenchendo a lista de NFSe's no método ACBrNFSe1.ConsultarNFSe ficando em um loop infinito e travando a aplicação; 2ª - Essa já dava briga desde o trunk2 mas no meu caso preciso: Quebra de linha com #13 nas NFSe. Parece bobagem mas tem cliente que quer emitir a nota e só mandar o link para o cliente também poder realizar a impressão só que por exemplo, no caso do servidor ISSCuritiba, ao fazer a impressão por meio do site da prefeitura, sem essa alteração sai tudo em uma só linha e com um monte de ;;;; mesmo alterando o ISSCuritiba.ini. Espero que possa ajudar mais alguém e que me desculpem se estiver criando tópicos desnecessários. Obrigado. 1ª Sugestão.zip 2ª Sugestão.zip

Boa tarde. No componente atual da acbr ta dando erro pra imprimir a tag doc anterior, eu ajustei o componente fazendo umas mudanças no indice da variavel e deu certo, segue mudanças para analise se é possível arrumar no componente. procedure TdmACBrCTeFR.CarregaDocumentoAnterior; // Adicionado por NCC - 04/04/2014 IMPRESSÃO DOC ANTERIOR - ROTINA ACBrCTeDACTEFRDM.PAS procedure TdmACBrCTeFR.CarregaDocumentoAnterior; // Adicionado por NCC - 04/04/2014 var i,ii,iii:integer; begin with cdsDocAnterior do begin Close; FieldDefs.Clear; FieldDefs.Add('CNPJCPF', ftString, 18); FieldDefs.Add('xNome', ftString, 60); FieldDefs.Add('UF', ftString, 2); FieldDefs.Add('IE', ftString, 14); FieldDefs.Add('Tipo', ftString, 33); FieldDefs.Add('Serie', ftString, 3); FieldDefs.Add('nDoc', ftString, 20); FieldDefs.Add('dEmi', ftString, 10); FieldDefs.Add('Chave', ftString, 44); CreateDataSet; {$IFDEF PL_200} for i := 0 to CTe.infCTeNorm.docAnt.emiDocAnt.Count - 1 do begin with CTe.infCTeNorm.docAnt.emiDocAnt.Items[i] do begin {$ELSE} for i := 0 to CTe.infCTeNorm.emiDocAnt.Count - 1 do begin with CTe.infCTeNorm.emiDocAnt.Items[i] do begin {$ENDIF} for ii := 0 to idDocAnt.Count - 1 do begin for iii := 0 to idDocAnt.Items[ii].idDocAntPap.Count-1 do begin with idDocAnt.Items[ii].idDocAntPap.Items[iii] do begin Append; FieldByName('CNPJCPF').AsString:=CNPJCPF; FieldByName('xNome').AsString:=xNome; FieldByName('UF').AsString:=UF; case tpDoc of daCTRC: FieldByName('Tipo').AsString:='CTRC'; daCTAC: FieldByName('Tipo').AsString:='CTAC'; daACT: FieldByName('Tipo').AsString:='ACT'; daNF7: FieldByName('Tipo').AsString:='NF 7'; daNF27: FieldByName('Tipo').AsString:='NF 27'; daCAN: FieldByName('Tipo').AsString:='CAN'; daCTMC: FieldByName('Tipo').AsString:='CTMC'; daATRE: FieldByName('Tipo').AsString:='ATRE'; daDTA: FieldByName('Tipo').AsString:='DTA'; daCAI: FieldByName('Tipo').AsString:='CAI'; daCCPI: FieldByName('Tipo').AsString:='CCPI'; daCA: FieldByName('Tipo').AsString:='CA'; daTIF: FieldByName('Tipo').AsString:='TIF'; daOutros: FieldByName('Tipo').AsString:='OUTROS'; end; // correção PADILHA TROCADO INDICE VARIAVEL "ii" para "iii" FieldByName('Serie').AsString:=idDocAnt.Items[i].idDocAntPap.Items[iii].serie; // correção PADILHA TROCADO INDICE VARIAVEL "ii" para "iii" FieldByName('nDoc').AsString:=intToStr(idDocAnt.Items[i].idDocAntPap.Items[iii].nDoc); // correção PADILHA TROCADO INDICE VARIAVEL "ii" para "iii" FieldByName('dEmi').AsString:=FormatDateTime('dd/mm/yyyy',idDocAnt.Items[i].idDocAntPap.Items[iii].dEmi);// correção PADILHA TROCADO INDICE VARIAVEL "ii" para "iii" end; post; end; for iii := 0 to idDocAnt.Items[ii].idDocAntEle.Count-1 do begin Append; FieldByName('CNPJCPF').AsString:=CNPJCPF; FieldByName('xNome').AsString:=xNome; FieldByName('UF').AsString:=UF; with idDocAnt.Items[ii].idDocAntEle.Items[iii] do begin FieldByName('Tipo').AsString:='CT-e'; FieldByName('Chave').AsString:=chave; FieldByName('Serie').AsString:=copy(chave,23,3); FieldByName('nDoc').AsString:=copy(chave,26,9); FieldByName('dEmi').AsString:=copy(chave,5,2)+'/'+copy(chave,3,2); end; post; end; end; end; end; end; end;