Élviro Cavalcanti

Boa tarde, consegui resolver da forma abaixo
 
      ACBrNFSeDANFSeRL1.MargemDireita  := 0.3;
      ACBrNFSeDANFSeRL1.MargemEsquerda := 0.3;
      ACBrNFSeDANFSeRL1.MargemSuperior := 0.5;
      ACBrNFSeDANFSeRL1.MargemInferior := 0.5;
      ACBrNFSeDANFSeRL1.TamanhoFonte := 8;

      ACBrNFSe1.NotasFiscais.Clear;
      ACBrNFSe1.NotasFiscais.LoadFromFile(dm.IBNFSeCANHINHOXMLAUTORIZADO.AsString);
      ACBrNFSe1.NotasFiscais.Imprimir;
      ACBrNFSe1.NotasFiscais.ImprimirPDF;
 
Obrigado a todos!

Boa tarde, consegui resolver a emissão para Maceió, vou deixar abaixo os passos que fiz!
1 - Fui no arquivo ACBrNFSeXServicos.ini dentro da pasta Fontes\ACBrDFe\ACBrNFSeX, localizei o município de Maceió e deixei da seguinte forma:
[2704302]
; Atualizado em 11/11/2024
Nome=Maceio
UF=AL
; A partir de 31/10/2024 remover as 3 linhas abaixo
;Provedor=Ginfes
;ProLinkURL=http://maceio.ginfes.com.br/report/consultarNota?__report=nfs_ver4&cdVerificacao=%CodVerif%&numNota=%NumeroNFSe%&cnpjPrestador=null
;HomLinkURL=http://maceio.ginfesh.com.br/report/consultarNota?__report=nfs_ver4&cdVerificacao=%CodVerif%&numNota=%NumeroNFSe%&cnpjPrestador=null
; A partir de 31/10/2024 descomentar as 3 linhas abaixo
Provedor=Giss
Versao=2.04
Params=Dividir100:|Aliquota4Casas:
ProRecepcionar=https://ws-maceio.giss.com.br/service-ws/nf/nfse-ws
 
2 - Executei o Compila_RES.BAT como administrador e reinstalei o ACBR, depois disso a NFSe passou a ser aceita!
 
Obrigado a todos e qualquer dúvida estou aqui para ajudar

Bom dia, você pode usar consultando o arquivo xml que foi montado pra o envio, eu uso dessa forma e ele baixa o xml completo, acredito que esse código abaixo poderá ajudar você.
 
Var VPasta:string;
begin
  ACBrMDFe1.Manifestos.Clear;
  //Configura onde vai ser salvo o PDF
  VPasta := Copy(EdDataDia.Text, 7,4) + Copy(EdDataDia.Text, 4,2);
  ACBrMDFeDAMDFeRL1.PathPDF := FrmLogin.EdPathPDFMDFe.Text + '\' + VPasta;
  //Configura onde vai ser salvo o PDF
  ACBrMDFe1.DAMDFE.MargemDireita  := 7;
  ACBrMDFe1.DAMDFE.MargemEsquerda := 7;
  ACBrMDFe1.DAMDFE.MargemSuperior := 5;
  ACBrMDFe1.DAMDFE.MargemInferior := 5;
  ACBrMDFe1.Manifestos.Clear;
  ACBrMDFe1.Manifestos.LoadFromFile(ExtractFilePath(Application.ExeName) + '\Log\' + DM.IBManifestoNUMERO.AsString + '-env-lot.xml');
  ACBrMDFe1.Consultar;
  MemoResp.Lines.Text := ACBrMDFe1.WebServices.Consulta.RetWS;
  memoRespWS.Lines.Text := ACBrMDFe1.WebServices.Consulta.RetornoWS;

  ACBrMDFe1.Configuracoes.Geral.Salvar := True;
  ACBrMDFe1.Configuracoes.Arquivos.Salvar := True;
  DM.IBManifesto.Edit;
  DM.IBManifestoPROTOCOLOMDFE.AsString := ACBrMDFe1.WebServices.Consulta.Protocolo;
  DM.IBManifestoRECIBONDFE.AsString := ACBrMDFe1.WebServices.Consulta.Protocolo;
  DM.IBManifestoCHAVEMDFE.AsString := ACBrMDFe1.WebServices.Consulta.MDFeChave;
  DM.IBManifestoSITUACAO.AsString := 'ENVIADO';
  DM.IBManifesto.Post;
  DM.IBTransaction1.CommitRetaining;
  ACBrMDFe1.DAMDFE.PathPDF := FrmLogin.EdPathPDFMDFe.Text + '\' + VPasta;
  ACBrMDFe1.DAMDFE.ImprimirDAMDFePDF();
  ACBrMDFe1.Manifestos.Imprimir;
 

Boa tarde, tive que apagar a tabela "transportador" e criando outra com o nome "transportadora" só assim consegui que tudo voltasse ao normal, até agora fiquei sem entender, mas segue ....

Possivelmente você está deixando alguma transação aberta e por isso não consegue efetuar o update.

Boa tarde, peço desculpas pela demora em concluir esse post, resolvido Juliomar, eu removi a unit completa do formulário de Fornecedores e importei de uma outra fazendo apenas os ajustes do componente, resolvido ! Fico grato mais uma vez !

Bom dia, achei essa resposta no site contábil, não sei se seria útil.
(grupo prod - ID I01), com:
CFOP 5949 - Outra saída de mercadoria ou prestação de serviço não especificado;
CST 40 – Isenta da tributação do ICMS (campo CST - ID N03);
NCM 99;
Segue abaixo, fonte da pesquisa
https://www.contabeis.com.br/forum/tributos-estaduais-municipais/255233/ncm-para-gorjeta/
 

Bom dia, sempre consulto dessa forma

 
          FrmPrincipal.ACBrNFe1.NotasFiscais.Clear;
          FrmPrincipal.ACBrNFe1.Consultar(DM.IBVendaPDVCHAVENFCE.AsString, False);
          FrmPrincipal.ACBrNFe1.WebServices.Consulta.Executar;
          MemoResp.Lines.Text := FrmPrincipal.ACBrNFe1.WebServices.Consulta.RetWS;
          memoRespWS.Lines.Text := FrmPrincipal.ACBrNFe1.WebServices.Consulta.RetornoWS;
          ShowMessage(obterNroResultado(MemoResp.text, 'xMotivo','</xMotivo'));
 

Pois é meu amigo, estava usando o do danfe da nfe, acabei de ajustar aqui, peço desculpas pela falta de atenção! Aqui resolvido agora, tudo correndo certo aqui, pode fechar a postagem!

Boa tarde, só os códigos CSC e pedir os protocolos de homologação e produção

Tive que mudar pra o componente VDOCaPrinter com ele consegui resolver o problema de condensar o cupom fiscal