Você clicou em “Erros” pra ver se tem algo ali?
Qual o status das notas na Nuvem Fiscal?
isso que estranho so mostra o lote RPS mas quando vou em nota nao tem nada vou postar aqui o codigo para ver se mudou algo
var
PedidoEmissao: TNfseDpsPedidoEmissao;
InfDPS: TInfDPS;
Servico: TRpsDadosServico;
Nfse: TNfse;
CPF_CNPJ,CNPJ_PRESTA:STRING;
begin
PedidoEmissao := TNfseDpsPedidoEmissao.Create;
try
PedidoEmissao.ambiente := 'producao';
PedidoEmissao.InfDPS := TInfDPS.Create;
InfDPS := PedidoEmissao.InfDPS;
InfDPS.dhEmi := IncHour(Now, -3);
InfDPS.dCompet := DateOf(Now);
// 1 - producao;
// 2 - homologação
InfDPS.TpAmb := 1;
// Versão da aplicação
InfDPS.VerAplic := 'ERP 1.0';
// -----------------------------------------------------
// Dados do prestador
CNPJ_PRESTA:=FPiloto.RemoveChar( FPiloto.cdsEmpresaCNPJ.AsString );
InfDPS.prest := TInfoPrestador.Create;
if Length(CNPJ_PRESTA) = 14 then
InfDPS.prest.CNPJ := CNPJ_PRESTA
else if Length(CNPJ_PRESTA) = 11 then
InfDPS.prest.CPF := CNPJ_PRESTA
else
raise Exception.Create('CPF ou CNPJ inválido');
CPF_CNPJ:= FPiloto.RemoveChar( dmFiscal.cdsNFSeCPF_CNPJ_JUNTOS.AsString );
// Dados do tomador
if (CPF_CNPJ <> '') or (dmFiscal.cdsNFSeNOMCLIE.AsString<> '')
then
begin
InfDPS.toma := TInfoTomador.Create;
if Length(CPF_CNPJ) = 14 then
InfDPS.toma.CNPJ := CPF_CNPJ
else if Length(CPF_CNPJ) = 11 then
InfDPS.toma.CPF := CPF_CNPJ
else
raise Exception.Create('CPF ou CNPJ inválido');
InfDPS.toma.xNome :=dmFiscal.cdsNFSeNOMCLIE.AsString ;
InfDPS.toma.&end := TEndereco.Create;
InfDPS.toma.&end.XLgr := dmFiscal.cdsNFSeENDCLIE.AsString;
if dmFiscal.cdsNFSeNUM_CASA.AsString<>'' then
InfDPS.toma.&end.Nro := dmFiscal.cdsNFSeNUM_CASA.AsString else
InfDPS.toma.&end.Nro :='S/N';
InfDPS.toma.&end.XBairro := dmFiscal.cdsNFSeBAIRRCLIE.AsString;
InfDPS.toma.&end.EndNac := TEnderNac.Create;
InfDPS.toma.&end.EndNac.CEP := FPiloto.RemoveChar( dmFiscal.cdsNFSeCEPCLIE.AsString );
InfDPS.toma.&end.EndNac.CMun := IntToStr( dmFiscal.cdsNFSeCID_COD_MUNICIPIO.AsInteger);
InfDPS.toma.fone := FPiloto.RemoveChar( dmFiscal.cdsNFSeTELEFONE.AsString );
if dmFiscal.cdsNFSeEMAIL.AsString<>'' then
InfDPS.toma.Email := dmFiscal.cdsNFSeEMAIL.AsString ELSE
InfDPS.toma.Email := '';
end;
InfDPS.serv := TServ.Create;
InfDPS.serv.cServ := TCServ.Create;
InfDPS.serv.cServ.CNAE := FPiloto.RemoveChar( FPiloto.cdsEmpresaCODIGOCNAE.AsString );
InfDPS.serv.cServ.cTribNac := FPiloto.cdsEmpresaCODIGOITEMLISTASERVICO.AsString; // lista serviço
InfDPS.serv.cServ.cTribMun := FPiloto.cdsEmpresaCODIGOTRIBUTACAOMUNICIPIO.AsString ;
InfDPS.serv.cServ.xDescServ :=FPiloto.RemoveAcento(dmFiscal.cdsNFSeDISCRIMINACAOSERVICO.AsString );
InfDPS.serv.InfoCompl.XInfComp := 'Outras informações';
InfDPS.valores := TInfoValores.Create;
InfDPS.valores.vServPrest := TVServPrest.Create;
InfDPS.valores.vServPrest.vServ := 1;
InfDPS.valores.trib := TInfoTributacao.Create;
InfDPS.valores.trib.tribMun := TTribMunicipal.Create;
InfDPS.valores.trib.tribMun.tribISSQN := 1;
try
Nfse := Client.Nfse.EmitirNfseDps(PedidoEmissao);
try
ShowMessage(Format('Nota %s em processamento.', [Nfse.id]));
Showmessage(Nfse.status);
finally
Nfse.Free;
end;
except
on E: EOpenApiClientException do
begin
mmlogs.Lines.Clear;
mmlogs.Lines.Add(E.ClassName);
mmlogs.Lines.Add(Format('HTTP Status Code: %d',
[E.Response.StatusCode]));
mmlogs.Lines.Add(E.Response.ContentAsString);
raise;
end;
end;
finally
PedidoEmissao.Free;
end;
e tambem nao tenho o retorno nao retorna e tambem nao da sequencia ao RPS eu ja coloquei nas configuracoes
tem algo a ver por conta desse aviso?
COMUNICADO MEI NOTA FISCAL DE SERVIÇOS
Tendo em vista a obrigatoriedade de emissão da NFS-e de padrão nacional pelo MEI, conforme a Resolução CGSN 169/2022, as notas emitidas por MEI a partir de 01 de setembro de 2023, devem ser geradas exclusivamente no ambiente nacional.
Por isso, o sistema de Nota Fiscal Eletrônica do Município terá a função desabilitada para os MEIs em 31 de agosto de 2023 e não poderá mais ser utilizado para emissão de nota fiscal de serviços, devendo estes utilizarem o sistema nacional para as emissões de NFS-e.
Para emitir sua nota fiscal acesse o link: NFS-e | Portal Contribuinte
Caso queira, assista tutorial de como acessar sua nota fiscal: https://www.youtube.com/watch?v=jCf0QQ4n7xc
Para maiores informações e respostas as dúvidas acesse: FAQ NFS-e (perguntas frequentes) — Portal da Nota Fiscal de Serviço eletrônica
quando eu consulto da erro mas nao volta nada,
estou usando esse comando para consultar
var
Nfse: TNfse;
begin
try
Nfse := Client.Nfse.ConsultarNfse(edtIdNotaConsultar.Text);
ShowMessage(Nfse.status);
ShowMessage(Nfse.link_url);
ShowMessage(Nfse.cancelamento.codigo);
except
on E: EOpenApiClientException do
begin
mmlogs.Lines.Clear;
mmlogs.Lines.Add(E.ClassName);
mmlogs.Lines.Add(Format(‘HTTP Status Code: %d’, [E.Response.StatusCode]));
mmlogs.Lines.Add(E.Response.ContentAsString);
raise;
end;
end;
vcs tem exemplo feito em API para delphi?
nfs_3a1763b012e34cd88e0374d3bacbbe31 aPI me da esse retorno so que quando vou la no site de prefeitura nao tem nota so tem lote
nfs_3a1763b012e34cd88e0374d3bacbbe31 aPI me da esse retorno so que quando vou la no site de prefeitura nao tem nota so tem lote
fiz um testo com o meu codigo
mes 10 deu certo so que estou agora concluindo o mesmo codigo nao vai nem aparece essa nota em geradas
Bom dia, @falecom.
A prefeitura retornou erro na emissão dessa nota. Para visualizá-lo, utilize o endpoint GET /nfse/{id}.
deu certo era o lote errado o numero , obrigado pela dica
Este tópico foi fechado automaticamente 24 horas depois da última resposta. Novas respostas não são mais permitidas.