Fabricio Rieg Viana

Boa tarde com os ajustes da DLL o problema foi resovido Incluí as Dlls e funcionou normalmente Abs

Boa tarde, Poderiam me ajudar por Favor Na minha máquina estou conseguindo emitir e cancelar normalmente as notas, com a geração correta do XML. Vale destacar que não realizo o envio direto das notas, apenas monto o XML para gravação, pois utilizarei um parceiro para efetuar o controle do envio. Segue abaixo um trecho da configuração e da geração do XML: Trecho de configuração with ACBrNFCom.Configuracoes.Arquivos do begin Salvar := False;//cbxSalvarArqs.Checked; SepararPorMes := False;//cbxPastaMensal.Checked; AdicionarLiteral := False;//cbxAdicionaLiteral.Checked; EmissaoPathNFCom := False;//cbxEmissaoPathNFCom.Checked; SalvarEvento := False;//cbxSalvaPathEvento.Checked; SepararPorCNPJ := False;//cbxSepararPorCNPJ.Checked; SepararPorModelo := False;//cbxSepararPorModelo.Checked; PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas\NFCom\'; PathNFCom := ''; PathEvento := ''; PathSalvar := PathNFCom; end; Trecho de geração do XML (sem envio direto, apenas para gravação pois o envio é pelo parceiro) ACBrNFCom.NotasFiscais.Items[0].NFCom.infNFComSupl.qrCodNFCom := ACBrNFCom.GetURLQRCode(ACBrNFCom.NotasFiscais.Items[0].NFCom); LStream := TStringStream.Create('', TEncoding.UTF8); // Garante UTF8 try ACBrNFCom.NotasFiscais.GerarNFCom; LIdNFCom := uFuncao.SomenteNumeros(ACBrNFCom.NotasFiscais.Items[0].NFCom.infNFCom.ID); ACBrNFCom.NotasFiscais.Items[0].GravarStream(LStream); LMensagem := ACBrNFCom.NotasFiscais.Items[0].NFCom.procNFCom.xMotivo; LXML := LStream.DataString; LBase64Str := RemoveSpacesAndLineBreaks(CompressAndEncodeGZIP(LXML)); Result := NddNfComEnviarEmissao(FieldByName('NDF_Tid').AsInteger, FieldByName('NDF_Numero').AsString, LIdNFCom, LXML, StringReplace(LBase64Str,' ','',[rfReplaceAll]) ); finally LStream.Free; end; Erro: --------------------------- Atenção --------------------------- Falha ao montar os arquivos de Nota Fiscal. XmlNode não pode ser nulo. --------------------------- OK ---------------------------

Obrigado pela sua contribuição deu certo, o campo "IBSCBS.cClassTrib := '410010';" incluí direto pois não encontrei a função "StrTocClassTrib"...

Olá pessoal, Estou trabalhando na implementação da NFCom Modelo 62 e encontrei alguns problemas ao inicializar os objetos relacionados a IBS/CBS. Segue o cenário: Ponto 1 – Inicialização do objeto IBSCBS Estou incluindo o seguinte bloco de código: IBSCBS.CST := cst000; IBSCBS.cClassTrib := '000001'; // Base de cálculo IBSCBS.gIBSCBS.vBC := 0; // IBS Estadual (UF) IBSCBS.gIBSCBS.gIBSUF.pIBS := 0; IBSCBS.gIBSCBS.gIBSUF.vIBS := 0; // IBS Municipal IBSCBS.gIBSCBS.gIBSMun.pIBS := 0; IBSCBS.gIBSCBS.gIBSMun.vIBS := 0; // CBS Federal IBSCBS.gIBSCBS.gCBS.pCBS := 0; IBSCBS.gIBSCBS.gCBS.vCBS := 0; IBSCBS.gIBSCBS.vIBS := 0; // Créditos Presumidos IBSCBS.gIBSCBS.gIBSCredPres.pCredPres := 0; IBSCBS.gIBSCBS.gIBSCredPres.vCredPres := 0; // Crédito Condicional/Suspenso (se aplicável) IBSCBS.gIBSCBS.gIBSCredPres.vCredPresCondSus := 0; Ao compilar, recebo o seguinte erro: [DCC Error] udmNFComMod62.pas(737): E2003 Undeclared identifier: 'cst000' Não consigo localizar a unit ou o arquivo onde a constante cst000 é declarada. Minhas dúvidas: Qual unit ou biblioteca declara cst000? Existe alguma constante equivalente que eu possa usar para inicializar IBSCBS.CST? Ponto 2 – Campos dentro do objeto IBSCBSTot (Total) Dentro do objeto IBSCBSTot, estou incluindo os seguintes campos: vTotDFe := 0; IBSCBSTot.vBCIBSCBS := 0; IBSCBSTot.gIBS.vIBS := 0; IBSCBSTot.gIBS.vCredPres := 0; IBSCBSTot.gIBS.vCredPresCondSus := 0; IBSCBSTot.gIBS.gIBSUFTot.vDif := 0; IBSCBSTot.gIBS.gIBSUFTot.vDevTrib := 0; IBSCBSTot.gIBS.gIBSUFTot.vIBSUF := 0; IBSCBSTot.gIBS.gIBSMunTot.vDif := 0; IBSCBSTot.gIBS.gIBSMunTot.vDevTrib := 0; IBSCBSTot.gIBS.gIBSMunTot.vIBSMun := 0; Minha dúvida: Falta mais algum campo obrigatório para inicializar corretamente o objeto Total para envio da NFCom Modelo 62, ou esse conjunto já é suficiente? Agradeço desde já pela ajuda!