[E-Social S-1010 - campo CodIncSind - Não existe mais?]

V2.05.00

 

[E-Social S-1010 - campo CodIncSind - Não existe mais?]

No Schemas o campo Existe, na versão atual não tem mais o campo.

Na versão do SVN anterior existia o campo.

 

[nfs-e Formato XML da Prefeitura difere do XML ACBR]

Como ler um arquivo e tirar 2 niveis ou se tem outra forma de ler?

se ler com NotasFiscais.LoadFromFile(NomeArq) , não lê de forma correta o arquivo da Prefeitura(gerado pelo site da prefeitura)

[Erro NFS-e ACBrNFSeXServicos.res]

consegui resolver, tinha um arquivo ACBrNFSeXServicos.ini antigo na pasta do EXE.

exclui e funcionou.

não depende deste arquivo mais, apenas do RES compilado.

 

[Erro NFS-e ACBrNFSeXServicos.res]

Erro ao emitir nfs-e.

Já foi instalado a ultima versão do svn.

Recompilei o ACBrNFSeXServicos.res

linha

 

 

[Leitor Serial e Balança Serial Windows 10.]

Deu certo, 

Foi a Placa Serial que estava com o FLAT invertido.

O FLAT da placa não tem encaixe pode colocar dos dois lados, e outra pessoa que instalou a  placa.

[Leitor Serial e Balança Serial Windows 10.]

Estou instalando o sistema em windows 10 e usa oc omponente serial Balança e Leitor.

Não estou conseguindo fazer funcionar.

Funciona normalmente em outros computadores.

As portas Seriais estão OK no windows 10, mas não funciona no sistema configurando da mesma forma que esta funcionando em outros, logico, mudando a porta COM3 e COM4 que estão no windows.

Como Fazer teste e identificar o problema.

Usei o arquivo de exemplo e também não funciona.

Alguma outra forma de fazer?

Tem que configurar alguma coisa no windows?

[NFS-e - Tratar Exception EACBrDFeException]

Achei o tratamento sem o try/except   pela resposta do webservice.

    if VO_NFE.SEM_TELA then
    begin
      ACBrNFSe1.Emitir(IntToStr(VO_NFE.Lote),meAutomatico,False);
    end else
    begin
      ACBrNFSe1.Emitir(IntToStr(VO_NFE.Lote));
    end;
    ChecarResposta(tmRecepcionar);
    VO_NFE.ERRO_NFS:='';
    for cont:=0 to ACBrNFSe1.WebService.Emite.Erros.Count-1 do
    begin
      VO_NFE.ERRO_NFS:=VO_NFE.ERRO_NFS+ACBrNFSe1.WebService.Emite.Erros.Items[cont].Codigo+'-'+
                                       ACBrNFSe1.WebService.Emite.Erros.Items[cont].Descricao;
    end;
 

 

 

[NFS-e - Tratar Exception EACBrDFeException]

Quando gero a a NFS-e  gera a exception no DELPHI gostaria pegar esta exceção, mas não estou conseguindo:

    if VO_NFE.SEM_TELA then
    begin
      try
        ACBrNFSe1.Emitir(IntToStr(VO_NFE.Lote),meAutomatico,False);     ********Exceção  nesta linha na procedure abaixo********
      except on e:Exception do
        begin
          infobox('Erro','Erro(1): ' + E.Message);                                                *********Não PASSA AQUI NO DEBUG*******
          VO_NFE.ERRO_NFS:=e.Message;
          exit;
        end;
      end;
    end else
    begin
      ACBrNFSe1.Emitir(IntToStr(VO_NFE.Lote));
    end;

 

 

 

 

 

procedure TACBrNFSeXWebservice.UsarCertificado;
var
  TemCertificadoConfigurado: Boolean;
begin
  FPDFeOwner.SSL.UseCertificateHTTP := TACBrNFSeX(FPDFeOwner).Provider.ConfigGeral.UseCertificateHTTP;

  if FPDFeOwner.SSL.UseCertificateHTTP then
  begin
    TemCertificadoConfigurado := (FPConfiguracoes.Certificados.NumeroSerie <> '') or
                                 (FPConfiguracoes.Certificados.DadosPFX <> '') or
                                 (FPConfiguracoes.Certificados.ArquivoPFX <> '');

    if TemCertificadoConfigurado then
      if FPConfiguracoes.Certificados.VerificarValidade then
        if (FPDFeOwner.SSL.CertDataVenc < Now) then
          raise EACBrDFeException.Create('Data de Validade do Certificado já expirou: '+
                                            FormatDateBr(FPDFeOwner.SSL.CertDataVenc));                                                          ==============>  gera esta Exception
  end;
end;

[NFS - Impressão da Inscrição Estadual do Emitente]

O XML NÃO FOI ALTERADO.

No XML deste provedor não tem a Inscrição estadual, deve ser por este motivo.

212900000-nfse.xml

[NFS - Impressão da Inscrição Estadual do Emitente]

CONSEGUI UMA SOLUÇÃO:

Quando Gero a NFS e imprime funciona normal, estava ocorrendo de não imprimir quando carrego o XML para reimpressão.

 

    ACBrNFSe1.NotasFiscais.Clear;
    ACBrNFSe1.NotasFiscais.LoadFromFile(NomeArq)
    ACBrNFSe1.Configuracoes.Geral.Emitente.CNPJ:=VO_NFE.Emitente.CNPJ;

    ACBrNFSe1.Configuracoes.Geral.Emitente.DadosEmitente.InscricaoEstadual:=VO_NFE.Emitente.IE;        ***** ESTAVA TENTANDO RESOLVER ASSIM*******

    ACBrNFSe1.NotasFiscais[0].NFSe.Prestador.IdentificacaoPrestador.InscricaoEstadual:=VO_NFE.Emitente.IE;       ************RESOLVIDO CARREGANDO ASSIM *******
 

[NFS - Impressão da Inscrição Estadual do Emitente]

Uso um layout alterado por nós 

Variável  [Prestador."InscricaoEstadual"]

[NFS - Impressão da Inscrição Estadual do Emitente]

Eu Uso o FastReport, vai conseguir mudar para o FastReport tambem?

[NFS - Impressão da Inscrição Estadual do Emitente]

Uso o FastReport

[NFS - Impressão da Inscrição Estadual do Emitente]

Atualizei fiz testes,

No fastReport não deu certo.

[NFS - Impressão da Inscrição Estadual do Emitente]

Vou verificar, obrigado.

[NFS - Impressão da Inscrição Estadual do Emitente]

Como Carregar para a impressão a Inscrição Estadual do Emitente?

    ACBrNFSeX1.NotasFiscais.Clear;
    ACBrNFSeX1.NotasFiscais.LoadFromFile(NomeArq)
    ACBrNFSeDANFSeRL1.Prefeitura:=edtPrefeitura.Text;
    ACBrNFSeDANFSeRL1.DetalharServico:=True;
    ACBrNFSeX1.Configuracoes.Geral.Emitente.CNPJ:=VO_NFE.Emitente.CNPJ;                                                    *********** O CNPJ DEU CERTO DESTA FORMA**********
    ACBrNFSeX1.Configuracoes.Geral.Emitente.DadosEmitente.InscricaoEstadual:=VO_NFE.Emitente.IE;            ***********ESTOU TENTANDO ASSIM, MAS NÃO MOSTRA NA IMPRESSÃO**********
    ACBrNFSeX1.Configuracoes.Arquivos.PathNFSe:=VS_PathMensal;

 

 

[NFE - Danfe em Lote com NFE canceladas]

Em 06/05/2022 at 11:35, Italo Giurizzato Junior disse:

Bom dia a todos,

Em vez de carregar todos os XML das notas a serem impressas independente se estão canceladas ou não, porque não carregar somente as não canceladas, marque a propriedade Cancelada como False e manda imprimir, depois limpa a lista de notas carrega todas as canceladas, marque a propriedade Cancelada com o valor True e manda imprimir.

A sua rotina pode fazer isso tranquilamente a única diferença para o usuário é que os primeiros DANFE são de notas não canceladas e os últimos de notas canceladas.

Obrigado,

Fiz desta forma.

[NFE - Danfe em Lote com NFE canceladas]

Tenho uma impressão em Lote, mas as notas canceladas não mostra com a tarja "NFE CANCELADA" somente nas notas que estão canceladas

ACBrNFe1.DANFE.Cancelada := True;        é VALIDA PARA TODAS NOTAS ASSIM não consigo imprimir 

Existe alguma forma de fazer a impressão de Notas normais e canceladas em um lote?

 

 

for cont:=0 to length(LoteNFE.NFE)-1 do
    begin

      NomeArq:=VS_NFE+LoteNFE.NFE[cont].Retorno.NomeArq_XML;
      LoteNFE.LblCliente.Caption:='Arquivo: '+ExtractFileName(NomeArq);

      if FileExists(NomeArq) then
      begin
        ACBrNFe1.NotasFiscais.LoadFromFile(NomeArq);
        ACBrNFe1.DANFE.Cancelada := false;
        ACBrNFe1.DANFE.Protocolo := '';      
        if trim(LoteNFE.NFE[CONT].Retorno.CANC_Protocolo)<>'' then
        begin
          ACBrNFe1.DANFE.Cancelada := True;
          ACBrNFe1.DANFE.Protocolo := LoteNFE.NFE[CONT].Retorno.CANC_Protocolo;
        end;
      end else
      begin
        infobox('Informação','Não Localizou XML.'+#13+ExtractFileName(NomeArq)+#13+'Pasta:'+ExtractFileDir(NomeArq));
      end;
      LoteNFE.Prg.Position:=cont+1;
      LoteNFE.pnProg.Update;
    end;

[SAT EPSON - ERROR OPEN SERIAL COM4]

Deu certo, era rodar como administrador.

Não imaginava que podia ser isto.

Tenho outros SAT´s e funciona sem ser administrador, primeiro EPSON que instalo.

Obrigado,

[SAT EPSON - ERROR OPEN SERIAL COM4]

Erro no computador que estou instalando.

ERROR[5] OPEN SERIAL COM4

DLL atualizada na pasta SAT, mas não comunica.

A porta no gerenciador de dispositivos está COM4.

alguém pode me ajuadar?

[svn - Ubuntu - Configurar Trunck Branches]

fiz isto criei as pastas dentro do repositório e deu certo.

Obrigado,

[xmlParseDoc erro ao ler Xml de NFS-e]

Renato,

 

Obrigado.

Deu certo.

 

[svn - Ubuntu - Configurar Trunck Branches]

Ja tenho Instalado o repositório no servidor e  comunicando com o cliente e faço commit , update etc no Projeto "MEU_PROJETO"

mas quero separar em pastas    MEU_PROJETO\TRUNK    MEU_PROJETO\BRANCHES 

achei alguns tutoriais na internet, mas não consegui.

 

[xmlParseDoc erro ao ler Xml de NFS-e]

consegui por um programa "Sublime Text" e converteu de XML de iso-8859-1 para UTF-8

e importou o arquivo.

Mas, alguém sabe se tem como fazer esta conversão pelo Delphi?