Rodrigo W. Campos

Verifiquei os xml enviados antes de atualizar o acbr e realmente no cabeçalho aparecia o CNPJ da empresa... Como faz para aparecer la?

Boa tarde! Após atualizar o acbr para o trunk2 as notas de serviço pararam de funcionar No site da prefeitura retorna os seguintes erros: E50 Inscricao Municipal do prestador inválida Informe a inscricao municipal correta do prestador. E44 CNPJ do prestador inválido Informe o número do CNPJ correto do prestador. E142 Inscrição Municipal do prestador não está vinculada ao CNPJ informado. Acerte a Inscrição Municipal ou o CNPJ do prestador. E45 CNPJ não encontrado na base de dados Confira o numero do CNPJ informado. Caso esteja correto, o prestador não está inscrito no município. Mas informei o cnpj: Prestador.Cnpj := DadosF.qryEmpresaCNPJ.AsString; Prestador.InscricaoMunicipal := DadosF.qryEmpresaIM.AsString; Mas abrindo o xml que o acbr gerou verifiquei o seguinte: < -<LoteRps id="14"> <NumeroLote>14</NumeroLote> <Cnpj/> <InscricaoMunicipal/> <QuantidadeRps>1</QuantidadeRps> No cabeçalho aparecensem o cnpj mesmo. Porém mais para baixo no xml aparece: -<Prestador> <Cnpj>13234712000117</Cnpj> <InscricaoMunicipal>16838</InscricaoMunicipal> </Prestador> Será que é por isso? Porque não aparece no cabeçalho o cnpj? Atenciosamente: Rodrigo W. Campos

Huuuuuuuummm boa idéia....Claro claro. vou fazer isso! Agora antes de eu fazer ja me surgiu uma duvida.. como vou fazer o retorno disso? Exemplo a nota 1 deu erro no envio de total de icms. E a nota 2 enviou.. como vem esse retorno? Atualmente faço assim Régys try dmNFEF.ACBrNFe1.Enviar(1,false,true); DadosF.qryCadNFE.edit; DadosF.qryCadNFENFE_PROTOCOLO.AsString := dmNFEF.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt; DadosF.qryCadNFENFE_RECIBO.AsString := FormatDateTime('DD/MM/YYYY HH:MM', dmNFEF.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.dhRecbto); DadosF.qryCadNFENFE_CAMINHO.AsString := dmNFEF.ACBrNFe1.NotasFiscais.items[0].NomeArq; DadosF.qryCadNFENFE_QRCODE.AsString := URLQRCode('MT', dmNFEF.Token); DadosF.qryCadNFEVENDA_NOTAFISCAL.AsInteger := DadosF.qryNFENOTA_FISCAL.AsInteger; DadosF.qryCadNFENFE_MODELO.AsString := 'NFC-E'; DadosF.qryCadNFENFE_DATA_EMI.AsDateTime := now(); DadosF.qryCadNFENFE_CANCELADA.AsString := 'NÃO'; DadosF.qryCadNFENFE_ERRO.AsString := 'TRANSMITIDA COM SUCESSO'; DadosF.qryCadNFENFE_TRANSMITIDA.AsString := 'SIM'; DadosF.qryCadNFENFE_VALIDADA.AsString := 'SIM'; DadosF.EstoqueFISCAL := 'SOMENTE'; DadosF.VendaEstoque := DadosF.qryNFENOTA_FISCAL.AsString; DadosF.Estoque; except DadosF.qryCadNFENFE_ERRO.AsString := MSG; DadosF.qryCadNFENFE_TRANSMITIDA.AsString := 'NÃO'; end; DadosF.qryCadNFE.Post; Ou seja para cada envio eu sei se enviou ou nao... Como sei quais foram e quais nao foram?

Boa tarde!!!! Vamos lá. Será quem alguém está passando por isso? Só percebi esse problema no Windows XP. ERRO: O sistema não pode encontrar o caminho especificado. - URL:https://nfce.sefaz.mt.gov.br/nfcews/services/NfeAutorizacao?wsdl - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeAutorizacao Se eu transmitir uma nfce e esperar 10 segundos para emitir a próxima ele não da esse erro. Agora se eu fizer uma atrás da outra sem esperar da o erro acima. Aí vc espera os 10 segundos envia de novo e ele envia. Por enquanto fiz uma ganbiware if pos('caminho especificado',MSG)>0 then ENVIANOTANOVAMENTE; Mas achei que modificando aquelas opções do ACBR WEBSERVICE de numero de tentativas e tudo mais ia resolver. Mas aumente os tempos lá e naaaada. Só esperando mesmo. Alguma luz pessoal?

Troquei de ACBrNFe1.Enviar(1,false); para ACBrNFe1.Enviar(1,false,true); E ficou beeeem mais rápido!

Obrigado BigWings !!!!!!

Boa tarde pessoal! Vamos la. Preciso de orientações: Estou com o seguinte erro: A CONEXÃO COM O SERVIDOR FOI RECONFIGURADA - URL:HTTPS://NFCE.SEFAZ.MT.GOV.BR/NFCEWS/SERVICES/NFEAUTORIZACAO?WSDL - SOAPACTION:HTTP://WWW.PORTALFISCAL.INF.BR/NFE/WSDL/NFEAUTORIZACAO Pelo que entendo isso ocorre quando a sefaz esta fora. Até ai tudo bem. Mas e quando vc vai e consulta na disponibilidade da nfe e verifica que lá está tudo verdinho. Como meu cliente vai acreditar que é no sefaz? Isso já tem tempos que ocorre. O que vcs fazem para ter a CERTEZA que o problema é na sefaz? Oq eu poderia fazer no sistema para dar esse diagnostico? pois ja coloquei o link da disponibilidade no sistema, mas isso nao garante nada. Existe uma forma de eu dar um ping em algum site? tipo no HTTPS://NFCE.SEFAZ.MT.GOV.BR/NFCEWS/SERVICES/NFEAUTORIZACAO?WSDL E o sistema acusar uma resposta exata? SERVIDOR DA SEFAZ ESTA OFF LINE! TENTE NOVAMENTE MAIS TARDE! Muito obrigado. Não sei se nos outros estados acontece com frequencia. Mas aqui no mato grosso viiiiive caindo.....

no meu sistema sim pois eu tenho um except assim: except on E: Exception do begin showmessage(AnsiUpperCase(E.Message)); end;

Boa tarde pessoal do ACBR! Conferi na tabela TIPI e realmente o ncm existe: 85115010 e ele tem extipi 1 com extipi 1 na nota aparece o erro abaixo. Entao tirei o extipi e passou. Mas qual a forma de informar o extipi? tem q colocar alguma casa decimal? --------------------------- ATENÇÃO --------------------------- FALHA NA VALIDAÇÃO DOS DADOS DA NOTA: 78 '1' VIOLATES PATTERN CONSTRAINT OF '[0-9]{2,3}'. THE ELEMENT '{HTTP://WWW.PORTALFISCAL.INF.BR/NFE}EXTIPI' WITH VALUE '1' FAILED TO PARSE. --------------------------- OK --------------------------- Obrigado

vou fazer este teste. Obrigado

Boa tarde. Será que alguém já passou por isso? Em todos os meus clientes na nfce demora certa de 3 segundos. Agora estou em um cliente que demora 40 segundos. Já verifiquei as opcoes da internet. Ja testei em computadores diferentes. Ja troquei DNS e também ja verifique a velocidade da internet. Obrigado

Boa noite. Resolvi depois de algumas buscas e esqueci de voltar postar a solução encontrada. Faltava informar TituloCodigoGeracao := '2'; Como faz tempo. Não lembro o porque tinha q ser 2. Mas era isso que faltava no do sicredi. Obrigado a colaboração de todos.

ACBrBoleto1.Cedente.AgenciaDigito := '12'; Olhe ali coloquei 12... Mas ele da erro ao tentar pagar boleto = Dígito verificador geral do código de barras não confere.

Enviei mais uma vez para homologação. Assim que eu receber os erros novos vou postar aki

Bom dia. Já enviei para o banco mais de 10 tentativas e ainda não passou pela homologação. Alguém podem me acompanhar até o processo final? Segue a baixo os dados fornecidos pelo banco e em seguida o código utilizado. - CÓDIGO DA COOPERATIVA: 0821 - UA / POSTO: 12 - CNPJ: 06.233.056/0001-72 - CPF:475.677.161-00 - RAZÃO SOCIAL: COMPASSO COMÉRCIO E REPRESENTAÇÃO AGROPECUÁRIA LTDA - FANTASIA: COMPASSO AGROPECUARIA LTDA - NUMERO AGENCIA: 0821 - DIGITO AGENCIA: 4 - CONTA CORRENTE: 37375 - DIGITO CONTA CORRENTE:3 - ESPÉCIE: R$ - CARTEIRA: SIMPLES - CÓDIGO DO CEDENTE: 37375 - CONVENIO: SICREDI var Titulo: TACBrTitulo; ACBrBoleto1.Banco.TipoCobranca := cobSicred; ACBrBoleto1.Cedente.Nome := 'COMPASSO COMÉRCIO E REPRESENTAÇÃO AGROPECUÁRIA LTDA'; ACBrBoleto1.Cedente.CNPJCPF := '06.233.056/0001-72'; ACBrBoleto1.Cedente.NumeroRes := '99'; ACBrBoleto1.Cedente.Logradouro := 'ENDEREÇO'; ACBrBoleto1.Cedente.Bairro := 'BAIRRO'; ACBrBoleto1.Cedente.Cidade := 'TABAPORÃ'; ACBrBoleto1.Cedente.CEP := '78.530-000' ACBrBoleto1.Cedente.UF := 'MT'; ACBrBoleto1.Cedente.CodigoCedente := '37375'; ACBrBoleto1.Cedente.Convenio := 'SICREDI'; ACBrBoleto1.Cedente.Modalidade := '1'; ACBrBoleto1.Cedente.Agencia := '0821'; ACBrBoleto1.Cedente.AgenciaDigito := '12'; ACBrBoleto1.Cedente.Conta := '37375'; ACBrBoleto1.Cedente.ContaDigito := '3'; Titulo := ACBrBoleto1.CriarTituloNaLista; Titulo.Vencimento := strtodate('10/02/2016'); Titulo.DataDocumento := date(); Titulo.NumeroDocumento := '99'; Titulo.EspecieDoc := 'DM'; Titulo.Aceite := atNao; Titulo.DataProcessamento := Now; Titulo.TotalParcelas := 1; Titulo.Parcela := 1; Titulo.Carteira := '1'; Titulo.ValorDocumento := 10; Titulo.Sacado.NomeSacado := 'RODRIGO CAMPOS'; Titulo.Sacado.CNPJCPF := '72976322104'; Titulo.Sacado.Logradouro := 'ENDEREÇO'; Titulo.Sacado.Numero := '99'; Titulo.Sacado.Bairro := 'BAIRRO'; Titulo.Sacado.Cidade := 'SINOP'; Titulo.Sacado.UF := 'MT'; Titulo.Sacado.CEP := '78.550-000'; Titulo.LocalPagamento := 'PAGAR PREFERÊNCIALMENTE NAS AGÊNCIAS DO BANCO SICREDI'; Titulo.ValorMoraJuros := 0.01; Titulo.DataProtesto := strtodate('10/02/2016')+5; Titulo.PercentualMulta := 2; Titulo.NossoNumero := formatfloat('00000000', 1); Titulo.Mensagem.Text := ''; ACBrBoleto1.ACBrBoletoFC.NomeArquivo := 'c:\teste.pdf'; ACBrBoleto1.Imprimir;

ACBrNFe1.CONSULTA ?????

Boa tarde amigos do ACBR. Tenho um problema. Na emissão de NF-e ou de NFC-e o sistema faz a transmissão e logo recebe os devidos protocolos e recibo. Porém, algumas vezes quando a internet do meu cliente está lenta. O sistema transmite mas não recebe o recibo fazendo com que meu XML não fique AUTORIZADO. Sendo assim o sistema fica no "status" de validade mas não transmitida. Quando ele tenta transmitir ele da erro de duplicidade e fico com o XML sem assinatura tento problemas para a impressão pois ao imprimir aparece a tarja "NFE SEM AUTORIZAÇÃO DE USO DA SEFAZ". Quero saber qual código coloco para mim tratar quando der erro de duplicidade ele alterar meu xml e colocar os devidos protocolos e tornar um xml válido. Obrigado. Grato. Atenciosamente: Rodrigo W. Campos

Olha já perdi as contas de quantos clientes meus já perderam certificado A3. Agora só recomendo o A1. Vou tentar fazer oq o André Ferreira disse alterar CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED para CAPICOM_STORE_OPEN_READ_ONLY. e vamos ver oq acontece. Mas eu acho q as empresas de certificados deveriam fornecer o certificado por 3 anos. Independente se o cliente apagar. Assim como é na sua conta bancária. Se vc perde o cartão vc só pagar por um novo cartão e não perde seu dinheiro da conta. Eles deveriam cobrar apenas pelo novo cartão em caso de perca e uma taxa para inserir o certificado caso ele se apague. Pois vejo como um roubo ao consumidor. Já vi cliente em 4 meses perder um cartão! Alguém saberia informar que órgão deveremos correr atrás para uma mudança dessa?

Eu também queria tanto essa opção....

Como fez isso? meu assunto ja envia comendo os acentos ACBrMail1.Subject := 'APRESENTAÇÃO DA NOSSA EMPRESA';

Acho que vou fazer até a nfe ser emitida pelo fila de impressão. Dai resolve. Obrigado pela atenção Juliomar

Queria tanto resolver isso rs...

Alguma outra dica de alguem? Se alguem quiser simular o erro é só abrir o exemplo do ACBR... Abra ele duas vezes e tente enviar em 1 depois no outro e depois voltar no primeiro.

Isso não. Um de cada vez. Eu transmito no FILA e depois de transmitido vou la no aplicativo. Mando transmitir. Transmite Também.. Depois de transmitido volto no fila... O fila volta a pedir a chave do certificado pois outro aplicativo usou o cartão.. Digito a chave ele valida. Mas na hora de ENVIAR que da o erro 12157. E pronto nao envia enquanto nao fechar o sistema e o fila... Entao por isso queria saber o que fica preso ao sistema que só libera ao fechar o sistema para mim fazer isso manualmente. Obrigado.. Se tiver mais alguma ideia Juliomar manda ai que estou a 2 dias nisso...

Pegam o mesmo certificado. Mas como fazer locais diferentes se o certificado é A3. Ou vc quer dizer que devo ter 2 arquivos NFE.INI onde tem as configuracoes do certificado? Atualmente esta assim c:\sistemas\vedas\vedas.exe -> Programana c:\sistemas\vedas\fila.exe -> Fila de NFC-e c:\sistemas\vedas\nfe.ini -> Parâmetros do certificado