Élviro Cavalcanti

Obrigado, encontrei onde estava o erro, estava buscando de um campo diferente ao reabrir e enviar novamente, obrigado !

Pelo que entendi, deveria ficar assim:
 
<IBSCBS>
                    <CST>000</CST>
                    <cClassTrib>000001</cClassTrib>
                    <gIBSCBS>
                        <vBC>189.99</vBC>
                        <gIBSUF>
                            <pIBSUF>0.1000</pIBSUF>
                            <vIBSUF>0.18</vIBSUF>
                        </gIBSUF>
                        <gIBSMun>
                            <pIBSMun>0.0000</pIBSMun>
                            <vIBSMun>0.00</vIBSMun>
                        </gIBSMun>
                        <vIBS>0.18</vIBS>
                        <gCBS>
                            <pCBS>0.9000</pCBS>
                            <vCBS>0.17</vCBS>
                        </gCBS>
                    </gIBSCBS>
 </IBSCBS>
 
 
 
Essa é uma nota minha validada
 
<IBSCBS> <CST>000</CST> <cClassTrib>000001</cClassTrib> <gIBSCBS> <vBC>151.04</vBC> <gIBSUF> <pIBSUF>0.1000</pIBSUF> <vIBSUF>0.15</vIBSUF> </gIBSUF> <gIBSMun> <pIBSMun>0.0000</pIBSMun> <vIBSMun>0.00</vIBSMun> </gIBSMun> <vIBS>0.15</vIBS> <gCBS> <pCBS>0.9000</pCBS> <vCBS>1.35</vCBS> </gCBS> </gIBSCBS> </IBSCBS> </imposto> </det>         <total> <ICMSTot> <vBC>189.99</vBC> <vICMS>38.95</vICMS> <vICMSDeson>0.00</vICMSDeson> <vFCP>0.00</vFCP> <vBCST>0.00</vBCST> <vST>0.00</vST> <vFCPST>0.00</vFCPST> <vFCPSTRet>0.00</vFCPSTRet> <vProd>189.99</vProd> <vFrete>0.00</vFrete> <vSeg>0.00</vSeg> <vDesc>0.00</vDesc> <vII>0.00</vII> <vIPI>0.00</vIPI> <vIPIDevol>0.00</vIPIDevol> <vPIS>0.00</vPIS> <vCOFINS>0.00</vCOFINS> <vOutro>0.00</vOutro> <vNF>189.99</vNF> <vTotTrib>25.55</vTotTrib> </ICMSTot> <IBSCBSTot> <vBCIBSCBS>151.04</vBCIBSCBS> <gIBS> <gIBSUF> <vDif>0.00</vDif> <vDevTrib>0.00</vDevTrib> <vIBSUF>0.15</vIBSUF> </gIBSUF> <gIBSMun> <vDif>0.00</vDif> <vDevTrib>0.00</vDevTrib> <vIBSMun>0.00</vIBSMun> </gIBSMun> <vIBS>0.15</vIBS> <vCredPres>0.00</vCredPres> <vCredPresCondSus>0.00</vCredPresCondSus> </gIBS> <gCBS> <vDif>0.00</vDif> <vDevTrib>0.00</vDevTrib> <vCBS>1.35</vCBS> <vCredPres>0.00</vCredPres> <vCredPresCondSus>0.00</vCredPresCondSus> </gCBS> </IBSCBSTot>

Bom dia meu amigo, adicionei nos totais e agora gerou e validou certo a NFCe
 
    Total.IBSCBSTot.vBCIBSCBS := VvBCIBSCBS;
    ShowMessage('Total da base de calculo IBS CBS : ' + floattostr(VvBCIBSCBS));
    Total.IBSCBSTot.gIBS.gIBSUFTot.vDif := 0;
    Total.IBSCBSTot.gIBS.gIBSUFTot.vDevTrib := 0;
    Total.IBSCBSTot.gIBS.gIBSUFTot.vIBSUF := VvIBSUF;
    Total.IBSCBSTot.gIBS.vIBS := VvIBSUF; //Teve que adicionar
    ShowMessage('Total do IBSUF : ' + floattostr(VvIBSUF));
    Total.IBSCBSTot.gIBS.gIBSMunTot.vDif := 0;
    Total.IBSCBSTot.gIBS.gIBSMunTot.vDevTrib := 0;
    Total.IBSCBSTot.gIBS.gIBSMunTot.vIBSMun := 0;
    Total.IBSCBSTot.gCBS.vDif := 0;
    Total.IBSCBSTot.gCBS.vDevTrib := 0;
    Total.IBSCBSTot.gCBS.vCBS := VvCBS;

Boa tarde, quando envia poderia pegar no componente com o comando ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.dhRecbto;

Bom dia, consegui conectar com o terminal de consulta e efetuar a consulta dentro do banco de dados, vou anexar a unit do exe que fiz e a dll, caso alguém precise o projeto está pronto e funcionando.
sc501ger.dll UTerminalGertec.dfm UTerminalGertec.pas

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