Emissao lote RPS


uma duvida eu envei aparece na prefeitura mas quando vou em notas geradas nao tem nada

Você clicou em “Erros” pra ver se tem algo ali?
Qual o status das notas na Nuvem Fiscal?


nao mostra nada

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?

Boa tarde, @falecom.

Favor informar o id da nota para analisarmos o que ocorreu.

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.