WellingtonMiguel

Após Utilizar a função ACBrNFSe.Emitir, a função NotasFiscais.Items[0].NomeArq, está retornando vazio

Boa tarde, Realizei a alteração ...\Fontes\ACBrDFe\ACBrNFSeX\ACBrNFSeXServicos.ini, realizei o processo que é solicitado Na Função Emitir não retorna erro. try ACBrNFSe.Emitir(qryNFSE_RPS.FieldByName('RPS_NUMERO').AsString); except on E: exception do mensagem_erro := 'Erro ao Enviar NFSe: ' + E.Message; end; if mensagem_erro <> '' then begin Abort; end; Na Função ImprimirPDF não Retorna Erro try ACBrNFSe.NotasFiscais.ImprimirPDF; except on E: exception do mensagem_erro := 'Erro ao Gerar DANFE NFSe: ' + E.Message; end; if mensagem_erro <> '' then Abort; Só porque não esta retornando, o Numero e nem o Código de Verificação ACBrNFSe.NotasFiscais.Items[0].NFSe.Numero; ACBrNFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao; alguma dica ? 5225101783410600019356000000000000001-rps.xml

Quando informo esse Código de Município 520140, retorna 'Erro ao Preencher NFSe: Código do Município [520140] não Encontrado.'

Boa tarde, Estou desenvolvendo um Sistema de Emissão da NFS-e, para meu Cliente, estou utilizando o Componente (ACBrNFSeX), try ACBrNFSe.Emitir(qryNFSE_RPS.FieldByName('RPS_NUMERO').AsString, meLoteSincrono) except on E: exception do mensagem_erro := 'Erro ao Enviar NFSe: ' + E.Message; end; Esta me retornando a Seguinte Mensagem 29/09/2025 15:38:26 Erro ao Enviar NFSe: Nenhum provedor selecionad Pesquisei sobre essa mensagem, e fala que o Código do Município não foi informado, estou passando o código do Município. Prestador.IdentificacaoPrestador.Cnpj := qryNFSE_RPS.FieldByName('PRESTADOR_CPFCNPJ').AsString; Prestador.IdentificacaoPrestador.InscricaoMunicipal := qryNFSE_RPS.FieldByName('PRESTADOR_IM').AsString; Prestador.RazaoSocial := qryEMPRESA.FieldByName('RAZAO_SOCIAL').AsString; Prestador.NomeFantasia := qryEMPRESA.FieldByName('RAZAO_SOCIAL').AsString; Prestador.cUF := UFparaCodigoUF(qryEMPRESA.FieldByName('END_ESTADO').AsString); Prestador.Endereco.CodigoMunicipio := qryNFSE_RPS.FieldByName('RPS_CODIGOMUNICIPIO').AsString; Prestador.Endereco.Endereco := qryEMPRESA.FieldByName('END_ENDERECO').AsString; Prestador.Endereco.Bairro := qryEMPRESA.FieldByName('END_BAIRRO').AsString; Prestador.Endereco.xMunicipio := qryEMPRESA.FieldByName('END_CIDADE').AsString; Prestador.Endereco.UF := qryEMPRESA.FieldByName('END_ESTADO').AsString; Prestador.Endereco.CodigoPais := 1058; Prestador.Endereco.xPais := 'BRASIL'; Prestador.Contato.Telefone := qryEMPRESA.FieldByName('END_TELEFONE').AsString; Prestador.Contato.Email := qryEMPRESA.FieldByName('END_EMAIL').AsString; o que posso esta fazendo de errado;