colmanetti

Obrigado por sua resposta. Criei uma tabela com o dicionário de dados, assim gravo e leio o valor pelo Registro e pelo nome campo no E-social: E o Dicionário vai servir para vincular cada campo na base da Folha para validar alterações necessárias para reenvio do registro.

Estou Fazendo um gerenciador dos dados para envio e-social. por exemplo alterei um evento, os dados no formato para envio, guardo em BD para depois entrar e transmitir, receber resposta e gerenciar o que está pendente. Se for criar uma estrutura de BD para cada Registro do E-social, vou ter que criar muitas tabelas e campos: Pensei em algo mais simples sem ter os nomes dos campos no BD, exemplo Registro,Campo1,campo2 ... etc. assim fica a estrutura na sequencia de campos que eu definir. Campo1:= eSprocEmiToStr(ACBreSocial1.Eventos.Iniciais.S1000.Items[0].evtInfoEmpregador.ideEvento.ProcEmi); e depois quando for enviar pelo gerenciador: ACBreSocial1.Eventos.Iniciais.S1000.Items[0].evtInfoEmpregador.ideEvento.ProcEmi:=eSStrToprocEmi(campo1); Pergunta: Tem alguma forma de enumerar as variáveis para usar um loop para fazer atribuição no banco de dados? ou pegar por nome 'ProcEmi' neste exemplo? Obrigado,

Inclui apenas a VERSAO e para importação de XML não foi gerado nenhuma nota nesta prefeitura.

Em anexo ACBrNFSeXServicos.ini

adicionei a versão no arquivo ACBrNFSeXServicos.ini para este município e recompilei o pacote, funcionou. obrigado.

estou lendo um XML de NFS - Piracicaba, mas está lendo ABRASF versão 1 como defino a versão para 2.03, SimplISS203 ? Estou usando ACBrNFSeX, o município foi configurado correto o Provedor pega o SIMPLISS correto. no momento de ler o arquivo usa a versão1 e não localiza as tag's corretas.

Eu já uso o componente ACBrNFSeX. E o mesmo sistema ja uso em outros locais e funciona. Neste servidor não está funcionando.

O chat-gpt recomendou Converter de UTF8 para ANSI retirar o acentos e Converter novamente para UTF8. validei com o https://codebeautify.org/xmlvalidator Resolveu. O Problema realmente eram os acentos.

Sim, eu fiz isto.

Erro, não carrega o documento. Creio que pode ser alguma acentuação, pois vi na internet, mas as funções que tenho de retirar acento não funcionaram. Alguém tem ou conhece no ACBR uma função que trata esta formatação do arquivo?

Não funcionou.

Estou com erro na instalação de novo servidor: Foi todo copiado do servidor antigo. O certificado instalado.(funciona e-cac) certificado A1 No navegador colado o endereço: https://nfse.issnetonline.com.br/abrasf204/ribeiraopreto/nfse.asmx abre no browser. tentei desativar firewall, anti-virus do servidor Método Executado: Enviar Lote Síncrono Parâmetros de Envio Numero do Lote: 11209 Parâmetros de Retorno Data de Envio : 30/12/1899 Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : False Erro(s): Código : X999 Mensagem: Erro de Conexão: Erro Interno: 11001 Erro HTTP: 500 URL: https://nfse.issnetonline.com.br/abrasf204/ribeiraopreto/nfse.asmx Host not found Erro Interno: 0 Erro HTTP: 0 URL: https://nfse.issnetonline.com.br/abrasf204/ribeiraopreto/nfse.asmx Host not found Correção: --------- NFS-e Numero....: Cod. Verificacao: Prestador.......: Tomador.........: MARISE BARBIERI

Estou começando agora. Já deu certo. Obrigado,

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"]