colmanetti

V2.05.00

No Schemas o campo Existe, na versão atual não tem mais o campo. Na versão do SVN anterior existia o campo.

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)

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 ao emitir nfs-e. Já foi instalado a ultima versão do svn. Recompilei o ACBrNFSeXServicos.res linha

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.

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?

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;

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;

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

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 *******

Uso um layout alterado por nós Variável [Prestador."InscricaoEstadual"]

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

Uso o FastReport

Atualizei fiz testes, No fastReport não deu certo.

Vou verificar, obrigado.

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;

Obrigado, Fiz desta forma.

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;

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,

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?

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

Renato, Obrigado. Deu certo.

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.

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?