Rodrigo W. Campos

Boa tarde senhores! UTILIZO CERTIFICADO A3 + CAPICOM Criei uma fila de impressão para emitir minhas NFC-e. Com isso enquanto ela transmite posso continuar a utilizar o sistema. Porém a NF-e e cancelamentos eu não transmito pela fila de impressão. Esse erro aparece na seguinte situação: 1º - Transmito NFC-e (No programa fila de impressão) -> OK enviadas com sucesso 2º - Vou no outro aplicativo que é o sistema mesmo e transmito a NF-E -> - OK enviada com sucesso 3º - Agora se eu tentar voltar e transmitir no FILA de impressão, eu consigo validar mas na hora de TRANSMITIR: Aparece o erro a baixo: ERRO: REQUISIÇÃO NÃO ENVIADA. 12157 - ERRO NO SUPORTE A CANAIS SEGUROS E só consigo voltar a transmitir normalmente se eu sair do sistema e do fila entrar de novo.... Já tentei colocar os componentes ACBRNFE1 em um FORM separado. Para que assim que eu alternasse entre o FILA e o SISTEMA eu desse um FORM.FREE e criar o FORM novamente para ver se o certificado volta a funcionar. Mas sem sucesso. Tenho q sempre fechar e abrir o programa e o fila Alguém sabe como eu reiniciar o certificado sem ter que reiniciar o programa? Desde já agradeço...

É que o dia que fiz o teste foi com os fontes atualizados. Mas se o codigo é esse mesmo vou tentar atualizar novamente.

Mas qual a forma correta de proceder? A versaoDF tem q ser ve310 mesmo? /CÓDIGO ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFce; ACBrNFe1.WebServices.Inutiliza(ApenasNumerosStr(DadosF.qryEmpresaCNPJ.AsString), Justificativa, StrToInt(Ano), StrToInt('65'), StrToInt('1'), StrToInt(NumeroInicial), StrToInt(NumeroFinal)); //FIM A forma de inutilizar é essa mesmo?

Boa noite senhores... Estou no Mato Grosso... //CÓDIGO ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFce; ACBrNFe1.WebServices.Inutiliza(ApenasNumerosStr(DadosF.qryEmpresaCNPJ.AsString), Justificativa, StrToInt(Ano), StrToInt('65'), StrToInt('1'), StrToInt(NumeroInicial), StrToInt(NumeroFinal)); //FIM ERRO: Rejeicao: Versao do arquivo XML nao suportada OBS: Já tentei mudar DadosF.ACBrNFe1.Configuracoes.Geral.VersaoDF := ve200; DadosF.ACBrNFe1.Configuracoes.Geral.VersaoDF := ve300; DadosF.ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; E naaaaada....

Vejam no link a baixo o erro q a sefaz me retorna: Recebi uma intimação da sefaz dizendo q estou com o qrcode invalido http://www.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51140216896249000167650010000000291226495360&nVersao=100&tpAmb=1&cDest=93496427191&dhEmi=323031342D30322D32355431353A34393A34322D30343A3030&vNF=149,00&vICMS=0,00&digVal=396C7838476C4E4D6746536D485554516E707574754A624B4E58553D&cIdToken=000001&a06bb45924782b35e53de89918001a75&cHashQRCode=9DCDEAA23076B534DC4E6372BD73817BADB0C7F0 Aqui está o código que utilizo: function URLQRCode(const UF,Token: string): string; var tpAmb,URL,cDest,Hash_SHA1,dh_emi:String; begin if PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then tpAmb := '1' else tpAmb := '2'; URL := URLNFCe(tpAmb,UF); cDest := Iif(Length(PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF) > 0, PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, ''); result := ''; dh_emi := GetUTC( CodigoParaUF(PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF), StrToDateTime(FormatDateTime('dd/mm/yyyy',PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi)+' '+ FormatDateTime('hh:mm:ss', PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi))); result := URL + 'chNFe=' + PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe + '&nVersao=' + '100' + '&tpAmb=' + tpAmb + Iif((Length(cDest) > 0),('&cDest=' + cDest), '') + '&dhEmi=' + StringToHex( FormatDateTime('yyyy-mm-dd',PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi)+'T'+ FormatDateTime('hh:mm:ss', PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi)+dh_emi)+ '&vNF=' + FormatFloat(',0.00;-,0.00', PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF) + '&vICMS=' + FormatFloat(',0.00;-,0.00', PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS) + '&digVal=' + StringToHex(PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.digVal) + '&cIdToken=' + '000001&'+Token; Hash_SHA1 := PrincipalF.ACBrEAD1.CalcularHash(UTF8Encode(result), dgstSHA1); result := result + '&cHashQRCode=' + Hash_SHA1; end; Agradeço a atenção...

Oneide valeu deu certo... Me contata no email pra mim te mandar um agradecimento por fora rsrsrs,,, Valeu!!!!!!!!

Bom um dos erros é o código de barras que quando volta da homologação diz que não bate com o código da linha digitável... Mas eu vou no banco passo o leitor e aparece certinho no caixa eletrônico... Não sei o que fazer.... Preciso muito resolver essa semana, estou disposto a pagar pelo serviço de quem se dispor a me ajudar até o final. Pode passar o valor aí. Obrigado... Vamos la aqui vai o código que estou usando: var Titulo : TACBrTitulo; ACBrBoleto1.ListadeBoletos.Clear; ACBrBoleto1.Banco.TipoCobranca := cobCaixaEconomica; ACBrBoleto1.Cedente.Nome := 'RAZÃO SOCIAL DA EMPRESA'; ACBrBoleto1.Cedente.CNPJCPF := '00000000000000'; //CNPJ DA EMPRESA ACBrBoleto1.Cedente.Logradouro := 'ENDERECO DA EMPRESA'; ACBrBoleto1.Cedente.NumeroRes := '0'; //NUMERO DA EMPRESA ACBrBoleto1.Cedente.Bairro := 'BAIRRO DA EMPRESA'; ACBrBoleto1.Cedente.Cidade := 'CIDADE DA EMPRESA' ACBrBoleto1.Cedente.CEP := '78550286'; ACBrBoleto1.Cedente.UF := 'MT'; ACBrBoleto1.Cedente.CodigoCedente := '457574'; //MESMO NUMERO DA CONTA CONFORME INSTRUCAO DO BANCO ACBrBoleto1.Cedente.Convenio := ''; //NÃO TEM ACBrBoleto1.Cedente.Agencia := '0854'; //AGENCIA DA CONTA ACBrBoleto1.Cedente.AgenciaDigito := '0'; //DIGITO DA AGENICIA ACBrBoleto1.Cedente.Conta := '457574'; //NUMERO DA CONTA ACBrBoleto1.Cedente.ContaDigito := '6'; //DIGITO DA CONTA Titulo := ACBrBoleto1.CriarTituloNaLista; with Titulo do begin Vencimento := date(); //VENCIMENTO DataDocumento := date(); //DATA EMISSAO NumeroDocumento := '50'; //DOCUMENTO INTERNO EspecieDoc := 'DS'; //ESPECIE Aceite := atNao; //SEM ACEITE DataProcessamento := Now; //DATA PROCESSAMENTO Parcela := 1; //NÚMERO DA PARCELA Carteira := 'SR'; //CARTEIRA SEM REGISTRO ValorDocumento := 10; //VALOR DO DOCUMENTO Sacado.NomeSacado := 'NOME DO SACADO'; Sacado.CNPJCPF := '00000000000'; Sacado.Logradouro := 'ENDERECO DO SACADO'; Sacado.Numero := '1'; //NUMERO END. SACADO Sacado.Bairro := 'BAIRRO SACADO'; Sacado.Cidade := 'CIDADE SACADO'; Sacado.UF := 'MT'; Sacado.CEP := '78550000'; LocalPagamento := 'LOCAL DE PAGAMENTO'; ValorMoraJuros := 0; //VALOR DA MORA DE JUROS DataProtesto := DATE()+30; //DATA PROTESTO PercentualMulta := 2; //PERCENTUAL MULTA MsgBoleto := 'OBSERVACOES DO BOLETO'; NossoNumero := '56'; //NOSSO NUMERO end; ACBrBoleto1.ACBrBoletoFC.NomeArquivo := 'CAMINHO_DO_ARQUIVO.pdf'; //SALVO O CAMINHO ACBrBoleto1.GerarPDF; Lembrando que estou com os fontes atualizados...

Descobri faltava colocar o &: Estava assim: '&cIdToken=' + '000001'+a06bb45924782b35e53de89918001a75; Ficou assim: '&cIdToken=' + '000001&'+a06bb45924782b35e53de89918001a75; Ele aparece a nota agora porel aparece o erro: Erro 100 - QR Code Inválido. http://www.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51140216896249000167650010000000291226495360&nVersao=100&tpAmb=1&cDest=93496427191&dhEmi=323031342D30322D32355431353A34393A34322D30343A3030&vNF=149,00&vICMS=0,00&digVal=396C7838476C4E4D6746536D485554516E707574754A624B4E58553D&cIdToken=000001&a06bb45924782b35e53de89918001a75&cHashQRCode=9DCDEAA23076B534DC4E6372BD73817BADB0C7F0 Aqui está o link alguem pode verificar para mim? Obrigado.

Não deu certo... Coloquei o token que o contador me enviou logo apos o a06bb45924782b35e53de89918001a75 StringToHex(DateTimeTodhUTC(PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi,GetUTC(PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.emit.enderEmit.UF, PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi))) + '&vNF=' + FormatFloat(',0.00;-,0.00', PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF) + '&vICMS=' + FormatFloat(',0.00;-,0.00', PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS) + '&digVal=' + StringToHex(PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.digVal) + '&cIdToken=' + '000001'+a06bb45924782b35e53de89918001a75; <<<<<<<<<<<<<<<<<<<< COLOQUEI AKI Hash_SHA1 := PrincipalF.ACBrEAD1.CalcularHash(UTF8Encode(result), dgstSHA1); result := result + '&cHashQRCode=' + Hash_SHA1; end; E apareceu no site o seguinte erro: Campo cIdToken(Identificador do TOKEN) do QR Code deve conter no máximo 6 bytes DADOS INFORMADOS Chave de Acesso: 51-1402-16.896.249/0001-67-65-001-000.000.029-122.649.536-0 Versão: 100 Ambiente: PRODUÇÃO Doc. Identificação do Consumidor: 93496427191 Data Hora Emissão: 2014-02-25T15:49:42-04:00 Valor Total da NF R$: 149,00 Valor Total do ICMS R$: 0,00 Código do XML: 9lx8GlNMgFSmHUTQnputuJbKNXU= ID Token do Contribuinte: 000001a06bb45924782b35e53de89918001a75 Código Hash dos Parâmetros: 9DCDEAA23076B534DC4E6372BD73817BADB0C7F0

Estou com os fontes atualizados e não consigo homologar. Recebi retorno do banco com muitos erros, ex: - Erro de digito verificador; - Erro de código de barras; - Digito verificador do campo livre invalido, etc. Alguém conseguiu homologar?

Ok, obrigado então apenas preciso colocar o código do token da sefaz seguido do IDTOKEN.

Bom dia. O contador do meu cliente me enviou o seguinte email: " segue em anexo o codigo de token para inserir no sistema Nota Fiscal do Consumidor Eletronica. codigo; a06bb45924782b35e53de89918001a75. " Pesquisei e descobri que devo colocar esse codigo apenas no meu QRCODE. Correto? Devo colocar em mais algum lugar? Meu código para criar o qrcode é o seguinte: function URLQRCode(const UF: string): string; var tpAmb,URL,cDest,Hash_SHA1:String; begin if PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then tpAmb := '1' else tpAmb := '2'; URL := URLNFCe(tpAmb,UF); cDest := Iif(Length(PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF) > 0, PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, ''); result := ''; result := URL + 'chNFe=' + PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe + '&nVersao=' + '100' + '&tpAmb=' + tpAmb + Iif((Length(cDest) > 0),('&cDest=' + cDest), '') + '&dhEmi=' + StringToHex(DateTimeTodhUTC(PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi,GetUTC(PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.emit.enderEmit.UF, PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi))) + '&vNF=' + FormatFloat(',0.00;-,0.00', PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF) + '&vICMS=' + FormatFloat(',0.00;-,0.00', PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS) + '&digVal=' + StringToHex(PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.digVal) + '&cIdToken=' + '000001'; Hash_SHA1 := PrincipalF.ACBrEAD1.CalcularHash(UTF8Encode(result), dgstSHA1); result := result + '&cHashQRCode=' + Hash_SHA1; end; Onde devo fazer a alteração? Obrigado...

Tudo utilizado com o do exemplo...

Boa noite. Preciso de Ajuda! Estou tentando utilizar o webservice de Itanhanga https://itanhanga.issqn.srv.br/webservice/NfseWSService Mas me retornar a seguinte mensagem: (Obs: Todos as cidades do provedor COPLAN retornam o mesmo erro) Not Found The requested URL /webservice/NfseWSService was not found on this server. Apache/2.2.15 (Oracle) Server at itanhanga.issqn.srv.br Port 443

Resolvi alterando o arquivo pnfsNFSeG.pas DadosMsg := '<' + Prefixo3 + 'LoteRps'+ DFeUtil.SeSenao(AProvedor = proISSDigital, '', DFeUtil.SeSenao(Identificador <> '', ' ' + Identificador + '="' + NumeroLote + '"', '')) + DFeUtil.SeSenao(AProvedor = proSimplISS, NameSpaceDad, '') + DFeUtil.SeSenao(AProvedor in [proAbaco, proBetha, proGinfes, proGoiania, proGovBR, {proISSDigital, }proIssCuritiba, proISSNET, proNatal, proRecife, proRJ, proSimplISS, proThema, proTiplan, proAgili, proFISSLex, proSpeedGov, proWebISS], '', DFeUtil.SeSenao(VersaoDados <> '', ' versao="' + VersaoDados + '"', '')) + '>' + '<' + Prefixo4 + 'NumeroLote>' + para DadosMsg := '<' + Prefixo3 + 'LoteRps'+ DFeUtil.SeSenao(AProvedor = proISSDigital, '', DFeUtil.SeSenao(Identificador <> '', ' ' + Identificador + '="' + NumeroLote + '"', '')) + DFeUtil.SeSenao(AProvedor = proSimplISS, NameSpaceDad, '') + DFeUtil.SeSenao(AProvedor in [proAbaco, proBetha, proGinfes, proGoiania, proGovBR, {proISSDigital, }proIssCuritiba, proISSNET, proNatal, proRecife, proRJ, proSimplISS, proThema, proTiplan, proAgili, proFISSLex, proSpeedGov], '', DFeUtil.SeSenao(VersaoDados <> '', ' versao="' + VersaoDados + '"', '')) + '>' + '<' + Prefixo4 + 'NumeroLote>' +

Boa tarde. Estou com o mesmo problema FALHA NA VALIDAÇÃO DO LOTE 1. ESTÁ FALTANDO O ATRIBUTO NECESSÁRIO 'VERSAO'. Estou com os schemas e fontes atualizados. Estou usando o provedor WebISS. Muito Obrigado.

Muito Obrigado. Mais uma dúvida. Sei que não tem nada a ver com o ACBR mas aproveitando seu conhecimento. Se uma empresa já possui um certificado para transmitir a NF-e. Há necessidade de fazer um outro cartão para NFS-e ou não?

Sou iniciante na NFS-e começei a implentar isso hoje. E fui testar o demo ACBrNFSe mas ele pede para informar o certificado digital. Acontece que meu cliente aqui de SINOP - MATOGROSSO (WEBISS) acessa o site digita o usuário e senha e faz as notas sem nenhum certificado. O exemplo que vem no ACBR não funciona sem certificado? O que devo fazer? Obrigado...

Opaaaaaa obrigadão eu só queria mesmo saber se vc ia mecher... agora vc dizendo que vai eu ja fico mais tranquilo e paro de me matar tentando aqui rsrsrs.. Obrigadão! Assim que sair vou postar um donativo pra vcs!!!!!

Bom dia Régys, vc conseguirá me ajudar com aquela exclusão das msgs? É que acabei de terminar meu projeto de sms. E pra mim entregar para o cliente só falta isso.. Obrigado...

Entao, a parte de receber ja funciona! no fonte atual. Esta criando certinho um arquivo MENSAGENS.TXT na raiz do projeto. C:\Comp\ACBR\Exemplos\ACBrSMS\Delphi Porém se o chip estiver com muita mensagem ele para de receber..

Encontrei isso: http://www.developershome.com/sms/cmgdCommand.asp Talvez nos ajude...

Ok.. nossa enche muito rápido, o meu chip aqui só cabe 20 mensagens... dai ele para de receber.. e o programa se torna inútil, tendo q acessar manualmente o programa do modem para apagar as mensagens para voltar a receber... Agora se assim q ler já apagar é uma boa... pois quer fazer um programa q o cliente envie um sms para o chip da empresa, e ela consiga saber quando ela deve por exemplo e o programa automaticamente responder. Então o fluxo pode ser grande e eu receber muitas mensagens, então o ideal era nem armazenar no chip para não correr esse risco de uma mensagem deixar de ser recebida... Obrigado pela atenção!!! Fico no aguardo...

Acho q consegui ler as mensagens... Assim que eu enviei uma mensagem, o arquivo mensagens.txt voltou a receber. Tira uma duvida minha? as mensagens recebidas ficam no chip... entao um dia vai encher meu chip e nao vou mais receber mensagem.. Você consegue um comandinho para apagar as mensagens do chip? Obrigado...

Bom dia Regys! Parabéns pelo projeto! Como anda o projeto? Estou usando mas eu preciso muuuuuito ler as mensagens.. Se retornar as mensagens naquele "mensagens.txt" o resto eu ja trato... Compensa eu esperar vc terminar ele ou vc pode me dar uma dica pra mim tentar fazer esse arquivo texto funcionar.. Uso modem generico e o retorno aparece: 'AT+CMGL="ALL"'#$D#$D#$A'+CMS ERROR: invalid PDU mode parameter'#$D#$A#$D#$A'*TSTC: 81'#$D#$A ou 'AT+CMGL="REC UNREAD"'#$D#$D#$A'+CMS ERROR: invalid PDU mode parameter'#$D#$A Abraços...