brunoinfosis

Vou iniciar a migração . Obrigado!

Bom dia! Alguém já passou por esse erro na hora de enviar nota pelo servidor SimplISS.. Estou tentando enviar pela cidade de Presidente Prudente, cheguei a debugar para tentar encontrar qual o campo que está faltando porem não consegui tem alguma forma que consigo ver? Segue abaixo xml conforme Italo pediu.. Já tentei passar inúmeras informações para o prestador porem o xml sempre gera somente os esses 2 campos.. 3521104225934300011556000000000000011-rps.xml 11-ger-nfse.xml 11-lista-nfse.xml 11-lista-nfse-soap.xml

Bom dia estava com o mesmo erro atualizei o FortesReports e deu certo!

Bom dia. Estou com um erro ao enviar uma nota fiscal de serviço pelo servidor Fiorili. Fala que estou sem informar o Tomador do serviço porem eu estou informando normalmente. Alguém tem ideia do que pode ser?

Usei os 2, mesmo assim não tinha funcionado, de repente agora esta funcionando normal. Acredito que tenha sido erro da Fiorili.

Boa Tarde. Estou com o seguinte erro ao gerar uma nota fiscal de serviço através de um RPS. Alguém já presenciou este erro?

Boa Tarde gostaria de saber se pode me ajudar fiz esse post mais não obtive nenhum resposta. Meu cliente esta tendo que entra no site da prefeitura para cancelar a NFS alguém pode me ajudar?

Bom Dia alguém sabe se estou fazendo alguma coisa de errado e por isso não esta cancelando?

Está Carregando o *-nfse.xml. Dentro do XML está a chave então eu dei um jeito de pegar a chave via código mesmo., Formar que utilizei para pegar a chave: _ChaveNFs := ACBRNFS.NotasFiscais.Items[0].XML_NFSe; _ChaveNFs:= copy(_ChaveNFs, PosEx('Id=', _ChaveNFs, 6)+4,length(_ChaveNFs)); _ChaveNFs := copy(_ChaveNFs, 1, PosEx('"', _ChaveNFs, 0)-1);

Alguém consegue me ajudar?

Estou com erro ao cancelar NFS alguém pode me ajudar? Segue anexo os XML's que estão gerando. o Servidor que estou usando é o Fiorilli. Código que estou usando para tentar cancelar: ACBRNFS.NotasFiscais.Clear; ACBRNFS.NotasFiscais.LoadFromString(_QBuscaNFS.FieldByName('nfs_xml').AsString); ACBRNFS.CancelarNFSe(SoNumero(Trim(CopyAntDep(CB_TipoCancelamento.Items.Strings[CB_TipoCancelamento.ItemIndex],'-',True)))); XML DO BANCO DE DADOS: XML_BANCO_DE_DADOS_6871_6791.xml XML's que estão gerando. 6871-ped-can-soap.xml 6871-can.xml 6871-can-soap.xml 6871-ped-can.xml

Estou pegando o retorno dessa forma: UTF8Encode(ACBRNFS.WebServices.RetWS); Formar que estou tentando pegar os arquivos: ParamByName('nfs_numero').AsInteger := StrToInt(ACBRNFS.NotasFiscais.Items[0].NFSe.Numero); ParamByName('nfs_rps_numero').AsInteger := StrToInt(ACBRNFS.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero); ParamByName('nfs_chave').AsString := ACBRNFS.NotasFiscais.Items[0].NFSe.ChaveNFSe; ParamByName('nfs_verificacao').AsString := ACBRNFS.NotasFiscais.Items[0].NFSe.CodigoVerificacao; if ACBRNFS.NotasFiscais.Items[0].Confirmada then ParamByName('nfs_status').AsString := 'Nota Fiscal de Serviço - Autorizada' else ParamByName('nfs_status').AsString := ''; ParamByName('nfs_xml').AsString := ACBRNFS.NotasFiscais.Items[0].XML_NFSe; ParamByName('nfs_consulta').AsString := ''; ParamByName('nfs_cancelado').AsString := ''; ParamByName('nfs_protocolo_arq').AsString := ACBRNFS.NotasFiscais.Items[0].NFSe.Protocolo; ParamByName('nfs_data_emissao').AsDateTime := ACBRNFS.NotasFiscais.Items[0].NFSe.DataEmissao; Ficou melhor para ver agora se alguém puder me ajudar.

Não esta aparecendo mensagem de erro porem quando estou validando o arquivo do SPED lá fala que não é um CNPJ válido, mais na verdade o que estou passando é um CPF.

Bom Dia, Estou enviando nota fiscal de serviço em homologação para o servidor fiorilli, porem quando tento pegar o retorno do XML ele não retorna para mim. Estou pegando o retorno dessa forma: UTF8Encode(ACBRNFS.WebServices.RetWS); Além disso quando eu tento ler o XML pela função ACBRNFS.NotasFiscais.LoadFromFile(CaminhoXML) ele não me retorna a chave da nota, nem o protocolo nem a data de emissão da NFS. Estou tentando pegar dessa forma: ParamByName('nfs_numero').AsInteger := StrToInt(ACBRNFS.NotasFiscais.Items[0].NFSe.Numero); ParamByName('nfs_rps_numero').AsInteger := StrToInt(ACBRNFS.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero); ParamByName('nfs_chave').AsString := ACBRNFS.NotasFiscais.Items[0].NFSe.ChaveNFSe; ParamByName('nfs_verificacao').AsString := ACBRNFS.NotasFiscais.Items[0].NFSe.CodigoVerificacao; if ACBRNFS.NotasFiscais.Items[0].Confirmada then ParamByName('nfs_status').AsString := 'Nota Fiscal de Serviço - Autorizada' else ParamByName('nfs_status').AsString := ''; ParamByName('nfs_xml').AsString := ACBRNFS.NotasFiscais.Items[0].XML_NFSe; ParamByName('nfs_consulta').AsString := ''; ParamByName('nfs_cancelado').AsString := ''; ParamByName('nfs_protocolo_arq').AsString := ACBRNFS.NotasFiscais.Items[0].NFSe.Protocolo; ParamByName('nfs_data_emissao').AsDateTime := ACBRNFS.NotasFiscais.Items[0].NFSe.DataEmissao; Obrigado pela atenção! Se eu tiver fazendo alguma coisa erra por favor se possível me informar o que devo fazer.

Da erro na mascara ele formata com 14 digitos colocando 0 a esquerda é so substituir essa linha que lhe falei que ja vai dar certo ja arrumei no meu computador mais resolvi fazer o post para que possam arrumar nos fontes.

Boa Tarde estava colocando o sped para gerar com o sat e encontrei uma falha na unit ACBrEFDBloco_C_Class. Na linha 2994(LFill( CNPJ_CPF, 14, True ) +) esta passando fixo que o cupom é 14 digitos, e 14 digitos é CNPJ caso for feito um cupom no CPF vai dar erro na hora de validar. Solução: LFill( CNPJ_CPF, StrToInt(IfThen(Length(CNPJ_CPF) = 14,'14','11')), True ) +

Entendido pode marcar tópico como fechado.

Meu servidor é fiorilli voce tem alguma ideia de como que posso fazer?

Boa Tarde Preciso enviar uma NFSe com mais de uma discriminação porem não encontrei nenhum exemplo de como se faz isso, a baixo esta duas imagens de duas notas, uma nota com 1 item que foi a que fiz pelo ACBR, e uma nota em que fiz no site da prefeitura. Tentei fazer desta forma, porem não funciona: while not _QBuscaNFSE.Eof do begin with Servico.ItemServico.Add do begin Servico.ItemServico.Add.Descricao := _QBuscaNFSE.FieldByName('ser_descricao').AsString; Servico.ItemServico.Add.Discriminacao := _QBuscaNFSE.FieldByName('ser_descricao').AsString; Servico.ItemServico.Add.Quantidade := _QBuscaNFSE.FieldByName('infs_quantidade').AsFloat; Servico.ItemServico.Add.ValorUnitario := _QBuscaNFSE.FieldByName('infs_unitario').AsFloat; Servico.ItemServico.Add.Unidade := _QBuscaNFSE.FieldByName('infs_un').AsString; end; _QBuscaNFSE.Next; end; Imagem de nota feita pelo Site: Imagem de nota feita pelo ACBR:

Italo pode marcar tópico como fechado, não sei porque mais o problema é o SPED como temos dois meios de acesso a internet estou testando no outro.

Italo, Não o certificado ira vencer somente daqui 2 meses.

Italo, Eu verifiquei já voltei o fonte porem ainda continua dando este erro, verifiquei o que mudou e já voltei, porem mesmo assim não funciona. Já voltei até o projeto e recomecei e mesmo assim o erro procedi. Att, Bruno

Bom dia Italo Obrigado Pela atenção, Então o servidor que estou tentando realizar a nota e o Fiorilli, entrei em contanto com eles, e eles disseram que a conexão está normal e que não ouve nenhum reclamação até agora. Verifiquei o certificado e o cadastro do emitente e está tudo correto, eu já havia conseguido enviar 2 notas normalmente, porem após eu atualizar meus fontes do ACBr não ouve mais êxito na hora de enviar a nota. Existe algo que posso fazer para que eu possa descobrir o que está ocorrendo? Att, Bruno

Boa Tarde, Estou tentando enviar uma nota fiscal de serviço e está dando esse erro conforme a imagem, tentei verificar o erro em modo de compilação porem não consegui localizar o erro. Quando eu clico para enviar a nota lá na pasta ele cria mais 1 diretório com o mês e o ano que esta enviando e dentro 3 diretórios(Ger, NFSe, RPS), e percebi que no Ger e no RPS tem a vários arquivos XML porem na NFSe nenhum. Junto com o diretório do mês ele cria 2 arquivos XML com nome de -xxx1.xml, -xxx2.xml. As imagens das estruturas da pastas está ai também. Alguém pode me ajudar.