Rodrigo Guelf

Resolvi troquei na opção a baixo With Bloco_0.Registro0000 do begin COD_VER := vlVersao107; obrigado, desculpa pela confusão.

Amigo, eu recompilei os pacotes, entrei por dentro do delphi e fui até a unit ACBrEFDBlocos, fui na linha 167 "vlVersao107 // Código 008 - Válido a partir de 01/01/2014" enfim fim tudo o que vc falou porem quando mando gerar o arquivo do sped a versão continuar |0000|007|0|01012014|31012014|. o que devo fazer, ou o que estou fazendo de errado

o Validador 2.0.33 e o novo 2.0.34 do Sped Fiscal não valida mais os arquivos com a versão 007, atualizei o Acbr mais continuar gerando o arquivo com a versão 007, gostaria de saber se ja saiu esta atualização ou se vai sair

Sim a impressora esta lacrada. sobre emitir uma z para abrir o dia, quando eu mandei imprimir uma Z mandei imprimir cupom logo em seguida e deu o mesmo erro.

Bom Pessoal, desde já quero agradecer a quem me ajudar. Um Cliente meu comprou uma impressora EPSON TM-T81F USB, baixei o drive dela, configurei o ACBr para Imprimir na porta USB, até ai tudo bem! eu só estou conseguindo emitir leitura LX, pois quando mando imprimir cupom da o seguinte erro: 0801 - Comando invalido com jornada fiscal fechada. pesquisei aqui no fórum e vi que jornada fiscal é quando a redução Z já foi emitida. então peguei e esperei no outro dia fui fazer teste e deu o mesmo erro, na duvida eu mandei emitir a redução z novamente. Imprimiu certinho, esperei no outro dia e mesmo assim continua dando o mesmo erro: Será que essa impressora tem que abri o dia nela? mais uma vez agradeço a quem me ajudar!

Amigos, bom dia! Como eu faço para capturar a chave md5 de cada nota para guardar dentro do meu banco de dados?

Italojjr, Bom dia! A Versão do Windows é 7 64 bits, porem eu mesmo já vi acontecer no windows 7 32, XP 32. toda vez que fica assim não tenho outra maneira se não formatar o micro. no status do serviço não da erro, porem o retorno volta em branco. Caso queira fazer algum teste na minha maquina, é só marcamos um horario, que libero o TeamViewer para vc. Desde já agradeço a sua atenção.

O Mesmo projeto meu, com o mesmo certificado, só que no meu notebook não da erro algum, funciona normalmente. E ai meus amigos Régys Silveira e Italojjr, alguém tem alguma ideia, para poder me ajudar?

Régys Silveira Gostaria de dizer que também fiz o seu teste, porem não funcionou.

Boa Noite Italojjr. Fiz o que vc pediu, atualizei o ACBr e tentei novamente o procedimento, continua acontecendo o mesmo erro, vc tem razão ai dizer que o erro é referente a algum componente que não existe, apos a mensagem de erro em branco vem um acess violation, if not(Self.Enviar.Executar) then begin if Assigned(TACBrNFe( FACBrNFe ).OnGerarLog) then TACBrNFe( FACBrNFe ).OnGerarLog(Self.Enviar.Msg); raise EACBrNFeException.Create(Self.Enviar.Msg); end; esta mensagem esta voltando vazia, porem o exception não deixa passar.

Ok vou fazer isso, depois posto aqui um retorno

Amigo estou usando a capicom o vencimento do certificado é 20/07/2014. eu fui debugando o codigo e o erro da dentro da Unit ACBrNFeWebServices dentro da rotina function TWebServices.Envia(ALote: String; const ASincrono: Boolean): Boolean; dentro desta verificação if Assigned(TACBrNFe( FACBrNFe ).OnGerarLog) then TACBrNFe( FACBrNFe ).OnGerarLog(Self.Enviar.Msg); raise EACBrNFeException.Create(Self.Enviar.Msg); eu já registrei a capicom, e as outras dll que acompanham ela e mesmo assim da o erro, não é a primeira vez que este erro da em cliente meu, sempre que isso acontece não tenho outra solução se não formatar o PC, mais desta fez graças a Deus deu o erro no meu micro e posso debugar para dentar resolver.

Amigos, bom dia! estou com o seguinte problema: Tento enviar a nota fiscal, e da uma mensagem de erro somente com o botão OK, o Certificado é A1, já desinstalei e instalei novamente, olhei para ver se o mesmo esta na aba Pessoal, tudo certinho, algo saberia me dizer o que esta acontecendo?

Renan Garcia de Oliveira segue o rotina e exemplo para vc resolver o seu problema //Função para Remover Caracter de uma string; function TFormGerarETransmiteXML.RemoveAcento(Str: string): string; const ComAcento = 'àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ.'; SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU '; var x: Integer; begin; for x := 1 to Length(Str) do if Pos(Str[x],ComAcento) <> 0 then Str[x] := SemAcento[Pos(Str[x], ComAcento)]; Result := Str; end; vLinha:= ' <nomePrescritor>'+RemoveAcento(QVenda.FieldByName('NOME').AsString)+'</nomePrescritor>';

designerba eu disse para vc que o meu componente processmessages já estava como false, mais me confundi com a propriedade ExibeMensagem, eu não encontrei nas propriedados do componente ACBrECF a propriedade processmessages, seria realmente no componente ACBrECF?

o meu já esta assim. tem mais alguma ideia.

Amigos, bom dia! Tenho um cliente que tem duas impressoras bematech MP 2100 estou capturando os dados obtidos após tirar a redução Z para gravar para geração dos arquivos do Sped. Uma impressora funciona normalmente, eu mudo o TimeOut de 5 para 600 antes de mandar imprimir, mando imprimir captura as informações que preciso e volto o TimeOut para 5. Na outra impressora já mudei o TimeOut para 60 000 e mesmo assim não da tempo para imprimir, a fita da impressora da redução Z tem cerca de 2 metros e meio de comprimento demora 3 minutos para imprimir toda a redução Z. Como eu faço para que o programa consiga ficar esperando a redução Z terminal, no meio da redução Z o Acbr da erro que a impressora não esta respondendo. Agradeço desde já a quem me ajudar!

jeter.rabelo. Amigo muito obrigado pela sua ajuda, deu tudo certo! gostaria de saber só mais uma coisa, o meu cliente vai imprimir as notas fiscais enviar e entregar para os clientes, vai gerar estes arquivos e depois passar no validador e gerar o 4 arquivo, depois tem que imprimir o recibo de entrega, até ai tudo bem e depois o que eu faço com estes arquivos e com o recibo? vai mandar para o contador só o recibo e os arquivos pode jogar fora?

Amigo como usa este validador, ele não abre nenhum arquivo, tentei abrir o arquivo gerado pelo componente ele não abriu, tentei abrir o arquivo .ini que veio junto nada, ele só abre arquivo do tipo C*. como funciona este validador!

jeter.rabelo Amigo gerei novamente o arquivo só arrumei o telefone, mesmo assim esta dando o seguinte erro: Erro: 418 - Número da última Nota Fiscal do arquivo mestre inválido [ ] Arquivo: Mestre Arq. Descrição do Erro Qtde -------------------------------------------------------------------------------------------------- DEST 418-Número da última Nota Fiscal do arquivo mestre inválido 1 -------------------------------------------------------------------------------------------------- Total de Erros: 1 estou usando o seguinte validador: http://www.fazenda.sp.gov.br/download/cat7903/InstalaValidador_v2.05.exe caso não seja o mesmo vc usa, por favor me passa o correto. estou enviando novamente os arquivos gerados, o log do erro e o arquivo de configuração do validador. desde já agradeço mais uma vez pela ajuda! CAT 79.rar

Jeter.rabelo segue o código: Obrigado por me ajudar! procedure TClasseNFTelecomunicacoes.AlimentarComponente; begin with DtCadastro, Convenio115 do begin try Application.ProcessMessages; Clear; SalvarEm := ADir; UF := 'SP'; Serie := '001'; Ano := StrToInt(FormatDateTime('YYYY',CDSNotaFiscalDT_PEDIDO.AsDateTime)); Mes := StrToInt(FormatDateTime('MM',CDSNotaFiscalDT_PEDIDO.AsDateTime)); CDSNotaFiscal.First; while not CDSNotaFiscal.Eof do begin RefreshTable(CDSClientes, 'SELECT * FROM CLIENTES WHERE CODIGO =:CODIGO',CDSNotaFiscalCOD_CLI.AsInteger); RefreshTable(CDSCidades, 'SELECT * FROM CIDADES WHERE CODIGO =:CODIGO',CDSClientesCOD_CID.AsInteger); OMestre := TACBrConvenio115Mestre.Create; OMestre.Destinatario.CnpjCpf := CDSClientesCPF_CNPJ.AsString; OMestre.Destinatario.InscricaoEstadual :=CDSClientesRG_IE.AsString; OMestre.Destinatario.RazaoSocial := CDSClientesNOME.AsString; OMestre.Destinatario.Logradouro := CDSClientesENDERECO.AsString; OMestre.Destinatario.Numero := CDSClientesEND_NUM.AsString; OMestre.Destinatario.Complemento := CDSClientesCOMPLEMENTO.AsString; OMestre.Destinatario.CEP := CDSClientesCEP.AsString; OMestre.Destinatario.Bairro := CDSClientesBAIRRO.AsString; OMestre.Destinatario.Municipio := CDSCidadesNOME.AsString; OMestre.Destinatario.UF := CDSClientesUF.AsString; OMestre.Destinatario.Telefone := CDSClientesTELEFONE.AsString; OMestre.Destinatario.CodigoConsumidor := CDSClientesCODIGO.AsString; OMestre.TipoAssinante := tac111ResidencialPessoaFisica; OMestre.TipoUtilizacao := pc112ProvimentoAcessoInternet; OMestre.DataEmissao := CDSNotaFiscalDT_PEDIDO.AsDateTime; OMestre.Modelo := 21; OMestre.Serie := '001'; OMestre.NumeroNF := CDSNotaFiscalNUMERO_NF.AsInteger; OMestre.ValorTotal := CDSNotaFiscalTOTAL.AsCurrency; OMestre.ICMS_BaseCalculo := CDSNotaFiscalB_ICMS.AsCurrency;; OMestre.ICMS_Valor := CDSNotaFiscalVL_ICMS.AsCurrency; OMestre.IsentosNaoTributadas := 0; OMestre.OutrosValores := CDSNotaFiscalOUT_DESP_ACESS.AsCurrency; OMestre.AnoMesRefencia := FormatDateTime('YYMM',CDSNotaFiscalDT_PEDIDO.AsDateTime); RefreshTable(CDSItensNF, 'SELECT * FROM ITENS_NOTAFISCAL WHERE COD_PED =:COD_PED',CDSNotaFiscalCODIGO.AsInteger); while not CDSItensNF.Eof do begin ODetalhe := TACBrConvenio115Item.Create; ODetalhe.CFOP := '5307'; ODetalhe.Item := CDSItensNF.RecNo; ODetalhe.CodigoServico := CDSItensNFCOD_PRO.AsString; ODetalhe.DescricaoServico := CDSItensNFPRODUTO.AsString; ODetalhe.Unidade := CDSItensNFUN.AsString;; ODetalhe.ClassificacaoItem := '1001' ; // Verificar tabela 11.5 do convênio ODetalhe.QtdeContratada := CDSItensNFQUANT.AsCurrency; ODetalhe.QtdePrestada := CDSItensNFQUANT.AsCurrency; ODetalhe.ValorTotal := CDSItensNFVL_TOTAL.AsCurrency; ODetalhe.Desconto := 0; ODetalhe.AcrescimosDespAcessorias := 0; ODetalhe.ICMSBaseCalculo := CDSItensNFBASE_CALC_ICMS.AsCurrency; ODetalhe.ICMSValor := CDSItensNFBASE_CALC_ICMS.AsCurrency; ODetalhe.ICMSAliquota := CDSItensNFICMS.AsCurrency; ODetalhe.IsentoNaoTributados := 0; ODetalhe.OutrosValores := 0; ODetalhe.AnoMesApuracao := FormatDateTime('YYMM',CDSNotaFiscalDT_PEDIDO.AsDateTime); OMestre.Detalhes.Add(ODetalhe); CDSItensNF.Next; end; CDSNotaFiscal.Next; Mestre.Add(OMestre); end; RefreshTable(CDSFiliais, 'SELECT * FROM FILIAIS WHERE CODIGO =:CODIGO',CDSNotaFiscalCOD_FILIAL.AsInteger); with Emitente do begin RazaoSocial := CDSFiliaisNOME.AsString; CNPJ := CDSFiliaisCNPJ.AsString; InscEstadual := CDSFiliaisIE.AsString; Endereco := CDSFiliaisENDERECO.AsString+', '+CDSFiliaisEND_NUMERO.AsString; Cidade := CDSFiliaisCIDADE.AsString; UF := CDSFiliaisUF_DESTINO.AsString; Telefone := CDSFiliaisTELEFONE.AsString; HomePage := ''; EMail := ''; end; finally BlockInput(False); FormAguarde.Free; end; end; end; procedure TClasseNFTelecomunicacoes.Imprimir; begin with FrmPRN, Convenio115 do begin AlimentarComponente; Imprimir(False); end; end;

Renan Garcia de Oliveira vc esta tendo o erro de carecter invalido quando envia o arquivos? se for eu tenho a solução.

Ok esta anexado. CAT 79.rar

Não sei o que esta acontecendo mais gerei mais notas fiscais do mesmo cliente e ao passar pelo validador esta dando o seguinte erro: Erro: 418 - Número da última Nota Fiscal do arquivo mestre inválido [ ] Arquivo: Mestre Arq. Descrição do Erro Qtde -------------------------------------------------------------------------------------------------- DEST 418-Número da última Nota Fiscal do arquivo mestre inválido 1 -------------------------------------------------------------------------------------------------- Total de Erros: 1 Este é o conteudo do arquivo mestre: 00035469795837426343566 LUIS GUSTAVO APARECIDO SP34001 2013071521001000010803C0921DFC90CB99D61A12902649CDE156000000002500000000000000000000000000000000000000000000000000N1307000000001 123615C79EB4D884A6133D03AA15F3D4 00035469795837426343566 LUIS GUSTAVO APARECIDO SP34001 2013071521001000010804038476E25DEB04BCE4D8818EDE746241000000002500000000000000000000000000000000000000000000000000N1307000000002 2BC0784BB3E7855931B5BCBFC5E4DA81 00035469795837426343566 LUIS GUSTAVO APARECIDO SP34001 2013071521001000010805D1CF6EAC75FC6F444624B8C49A642131000000002500000000000000000000000000000000000000000000000000N1307000000003 CDC2FC6A75F1A2EE7057806C5FB3D9D8 00035469795837426343566 LUIS GUSTAVO APARECIDO SP34001 20130715210010000108065313E8C9B462A4953BB784CF380F258F000000002500000000000000000000000000000000000000000000000000N1307000000004 91E2FF681445E6DCF0283951E51B1AD4 00035469795837426343566 LUIS GUSTAVO APARECIDO SP34001 2013071521001000010807DF63CCB301480A875DD16C4F902F1367000000002500000000000000000000000000000000000000000000000000N1307000000005 D3807C511077B60D4D5F0159BB8888B1 00035469795837426343566 LUIS GUSTAVO APARECIDO SP34001 2013071521001000010808E23116397DADEE5398A3EF50998CEE13000000002500000000000000000000000000000000000000000000000000N1307000000006 36F0C6BEFE307343665EB9052ACF4624 00035469795837426343566 LUIS GUSTAVO APARECIDO SP34001 2013071521001000010809AFD9FE64604C65838F7CC20AB3E887B5000000002500000000000000000000000000000000000000000000000000N1307000000007 3DE4D3FF3F69C45D743FEC28104C6F90 note que o numero da nota fiscal não esta errado.

gerei o arquivo com 1 registro e esta dando o seguinte erro quando passo pelo validador Arq. Descrição do Erro Qtde -------------------------------------------------------------------------------------------------- MEST 136-Código Autenticação Digital do registro do arquivo mestre inválido 1 MEST 139-Final do registro com seqüência inválida (diferente de CR + LF) 1 DEST 314-Código Autenticação Digital do registro do arquivo cadastro inválido 1 DEST 315-Final do registro com seqüência inválida (diferente de CR + LF) 1 -------------------------------------------------------------------------------------------------- Total de Erros: 4