Jhonlenon Ribeiro

Daniel InfoCotidiano atualizei meus fontes ACBr pelo SVN e testei o boleto do Santander com desconto....funcionou 100%. Valeu @Val Ramos pelas credenciais para realizações dos testes.

Italo Giurizzato Junior deu certo após rodar o Compila.res....aqui no meu estado muitas prefeituras aderiu ao provedor MegaSoft...se vc poder subir para o SVAN da ACBr o ACBrNFSeXServicos.ini e ACBrNFSeXServicos.res alterado que fiz....eu alterei varias cidades no estado do TOCANTINS que passaram a usar o MegaSoft.
ACBrNFSeXServicos.ini ACBrNFSeXServicos.res

Alisson07 Bom dia....dá uma olhada nesse link pra ver te ajuda....
https://stackoverflow.com/questions/23949373/stretching-a-bitmap-in-delphi-using-stretchdraw-method

Boa tarde...o problema está no nome do cliente que usava o & comercial..exemplo: FERNANDO & GARCIA LTDA...eu tem que trocar o & comercial pelo E simples.
Pode encerrar o tópico. Caso alguém passe por esse erro na NFS-e é só substituir o & por E.

Resolvido.....na hora de gerar o XML fiz assim
 DM.ACBrNFSeXDANFSeRL1.Tomador.InscricaoMunicipal :='54784444';
 DM.ACBrNFSeXDANFSeRL1.Tomador.InscricaoEstadual  :='5487414112444'
ai mostrou no DANFSe

Tudo indica que e informação que ele me passou não era verdadeira...estou com a última nt do manifesto e não fala nada disso.

Italo Giurizzato Junior Deu certo aqui pode encerrar o tópico...foi só falta de atenção minha mesmo....fiz assim
if DM.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Servico.Valores.IssRetido = stRetencao then
          begin
           //----ISS Retido----------------------------------
          end
          else
          begin
           //---Não tem ISS Retido------------------------
          end;

Antonio Gomes Obrigado pela ajuda...mais fiz diferente...rsrs eu consegui alimentar os campos linha digitavél e codigo de barras em tempo de execução....ai ficou top...mais tive modificar um arquivo.fr3 só pro INTER ai funcionou.....eu fiz assim criei um arquivo tfrXDBDaset ligado ao uma Qry com select passando os 2 campos, linha digitavél e codigo de barras....quando me retorna esses dados eu já gravo no banco pra fazer o select antes de imprimir o boleto, lá dentro do arquivo.fr3 do boleto eu liguei os campos linha digitavél e codigo de barras com tfrXDBDaset...ai antes de imprimir o boleto eu faço um select na query que está ligada ao tfrXDBDaset. Pode encerrar o topico.

Aggille Sistemas de Gestão Obrigado deu certo...eu fiz assim..pode encerrar o topico
var   Retorno : TListaRetEnvio;
CONTRATO  : String;
begin
Retorno  := ACBrBoleto.ListaRetornoWeb;
          if Retorno.Count > 0 then
          begin
             for j := 0 to Retorno.Count-1 do
             for I := 0 to Pred(Retorno.Count) do
             begin
               CONTRATO  := ACBrBoleto.ListaRetornoweb[i].DadosRet.TituloRet.Contrato;
             end;
          end;
end;

Bom dia, era problema no webservice do banco do Brasil....pode encerrar o topico.

José M. S. Junior Isso é muito! ACBr como sempre inovando com boleto Híbrido.....o problema citado acima já foi resolvido com sua ajuda....Eu ainda vou adaptar meu modulo para gerar boleto via PIX do banco do brasil...obrigado pela ajuda...pode fechar o tópico.

Deu certo, peguei os schemas da pasta ACBr e passei o código infBanc.PIX   :=Qry_resp_fretePIX.AsString;
Eu consegui emitir em homologação com a chave do PIX.
Pode encerrar o tópico.

Daniel meus schemas estava errado....limpei todos os schemas e peguei a pasta de novo da ACBr ai funcionou 100%...obrigado pode encerrar o topico

Boa noite coloquei o pmdfeMDFe.pas que o amigo alterou e deu certo tanto a geração do XML com tag do contratante e a impressão do XML antigo dos MDF-e
 
 

Já resolvi o problema com esse codigo.....
procedure TF_manifesta_nfe.EnviaEventoDownload(ChNFE: string);
var
Ret : String;
begin
    DM.TB_empresa.Open;
    DM.ACBrNFe1.DistribuicaoDFePorChaveNFe(UFtoCUF(DM.sUF),
                                    DM.TB_empresaCNPJ.AsString,
                                    ChNFE);
   sXML     :=ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[0].XML;
    if DM.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat <> 138 then
    begin
      //Ret := DM.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo;
      //ShowMessage(Ret);
    end
    else
    begin
    end;
end;
 

Boa noite...pode fechar o tópico....eu que viajei aqui..o DANFE está certo.