Sistemas.Distribuidos

Consegui uma solução. Fiz o seguinte antes de mandar imprimir. Printer.Title := 'Nota Fiscal'; Inclua na seção uses: Printers

Por favor, tem como eu setar o componente DanfeRL na opção titles do fortes report para colocar alguma coisa ao invés de nulo. Pois a impressora HP 4015N não aceita impressão do fortes em ambiente XP com documentos com o title nulo. Se for no gerenciador de impressora o nome do documento está sempre em branco. Muito obrigado.

O problema pode estar na minha rotina de gerar o sintegra. Isso só acontece no registro 54. Estou verificando se em algum ponto eu gero alguma informação nula para ver se o erro está ai ?

Estou usando Windows Xp delphi 6 e OpenSSL Mais uma vez, obrigado !

Consegui finalmente isolar a linha que esta gerando o erro no meu sintegra. AcbrUtil.pas Linha 793 : Result := PadR(AnsiString(Trim(String(Texto))),Tamanho,'0') ; ----> Esta gerando o erro! Linha 793 : Result := PadR(Trim(Texto),Tamanho,'0') ; ---- > Está Ok. Se colocar o AcbrUtil.pas atual e só usar a linha 793 acima fica tudo ok denovo. Só não entendo de onde está vindo esse problema !

Vou verificar esse fim de semana as funções alteradas.

Conseguir isolar mais o problema. Está acontecendo alguma coisa no ACBrUtil.pas Atualizei todos os compenentes até a revisão 3507 (atual) e reverti o ACBrUtil.pas para revisão (3482) e até agora esta tudo rodando ok. o Arquivo sintegra voltou a funcionar 100%.

Conseguir identificar que o problema acontece entre as revisões 3482 e 3483. Vou verificar os arquivos modificados para tentar identificar o que esta acontecendo.

Vou revisar o código, o problema é que se eu remover todo o compenete e instalar o ACBr na revisão 3481 fica tudo perfeito. Se atualizar até hoje, dá esse erro. Uso Delphi 6 e OpenSSL. Vou passar um pente fino a aplicação para ver onde está o erro. Por falar nisso, já estou providenciando o delphi XE2. O DataSnap do XE2 vai me dar uma penca de soluções.

Esqueci de avisar que uso OpenSSL no ACBr.inc

Project Projeto.exe raised exception class EAcessViolation with message 'Acess violation at adress 0040211C in module 'Projeto.exe'. Write of adress 00001274'. Process stopped. Use Step or Run to continue. Quando clico no ok ele vai para o ACBRSintegra.pas e para na ultima linha abaixo : var wregistro: string; i: Integer; a:integer; begin for i:=0 to Registros54.Count-1 do begin wregistro:='54'; wregistro:=wregistro+TBStrZero(TiraPontos(Registros54.CPFCNPJ),14); wregistro:=wregistro+TBStrZero(Registros54.Modelo,2); wregistro:=wregistro+Padl(Registros54.Serie,3); wregistro:=wregistro+TBStrZero(RightStr(Registros54.Numero,6),6); wregistro:=wregistro+Padl(TiraPontos(Registros54.CFOP),4); wregistro:=wregistro+Padl(Registros54.CST,3); wregistro:=wregistro+IntToStrZero(Registros54.NumeroItem,3); if Registros54.NumeroItem<=900 then wregistro:=wregistro+Padl(Registros54.Codigo,14) //codigo do produto só que eu ja revisei esse codigo e nao houve modificação do dia 27/04 para cá nessa rotina. Muito obrigado pela a ajuda de todos.

Senhores, tenho atualizado o ACBr constantemente e até a atualização 3481 estava tudo perfeito. Apos essa atualização, nao consigo gerar mais o arquivo sintegra. Está dando um erro ao gerar os registros 54. Não consegui detectar a origem do problema. Mas ao retornar para revisao 3481 fica tudo perfeito novamente. Percebi que a partir dessa revisao, perciso agora adicionar o diretorio SPEDFiscal para conseguir compilar o componente PAF.

Aqui esta normal, tanto usando o schema do acbr quanto o fornecido no portal NFe. Só não consigo usar o modo de homologação de jeito nenhum. Dá erro de IE, da erro de utrib, etc. Mas em modo produção ta tudo ok.

Muito Obrigado !

Senhores, na minha última atualizaçã está dando erro nesse arquivo. Especificamente na notautil. Segue codigo abaixo : {$IFDEF ACBrNFeOpenSSL} HTTP.Document.LoadFromStream(Stream); ConfiguraHTTP(HTTP,'SOAPAction: "http://www.portalfiscal.inf.br/nfe/wsdl/SCEConsultaRFB/sceConsultaDPEC"'); HTTP.HTTPMethod('POST', FURL); StrStream := TStringStream.Create(''); StrStream.CopyFrom(HTTP.Document, 0); FRetornoWS := NotaUtil.ParseText(StrStream.DataString, True); FRetWS := NotaUtil.SeparaDados( FRetornoWS,'sceConsultaDPECResult',True); StrStream.Free; {$ELSE} ReqResp.Execute(Acao.Text, Stream); StrStream := TStringStream.Create(''); StrStream.CopyFrom(Stream, 0); FRetornoWS := ParseText(StrStream.DataString, True); FRetWS := SeparaDados( FRetornoWS,'sceConsultaDPECResult',True); StrStream.Free; {$ENDIF} O sistema nao esta reconhecendo o NotaUtil.ParseText, nem o NotaUtil.SeparaDados o do OpenSSL. Obrigado!

Pelo que eu sei, o código GTIN identifica o fabricante, não o fornecedor. Ele faz distinção de caracteristicas, embalagens e fornecedor. A mesmo produto com embalagens diferentes, fabricantes diferentes, precisam ter GTIN diferentes. O que acontece é que varias empresas podem fornecer o produto do mesmo FABRICANTE. Nesse caso vai ter o mesmo GTIN. Isso acontece na venda de KIT também. Quando se vende um KIT de produtos, esse KIT precisar ter um GTIN especifico para ele. Só nao sei nesse caso os codigos EAN internos se podem sair na NFe. Exemplo (frios fatiados no estabelecimento).

Senhores, recebi essa informação ontem. E trabalhamos com 150 fornecedores. Praticamente todos tem, mas nem 20% informam essa TAG. Fonte da "possivel" obrigatoriedade : http://www.nfe.fazenda.gov.br/portal/informe.aspx?ehCTG=false#21

Andre, o problema da chave de acesso foi resolvido sim. Fiz apenas as atualizacoes da unit ACBrHTMLtoXML. Ficou certo agora. Muito obrigado.

Eduardo o resto eu ja resolvi tudo. So falta essa chave mesmo. Mas não é só o digito que altera não. Verifica direito que tem + 1 numero no meio da chave que altera, forçando a alteração do digito.

Tambem verifiquei que a chave de acesso esta retornando errada. Mas não consegui indetificar onde esta sendo modificada, pois no debug os valores estão entrando certo. O problema esta no GerarXML Alguem ja verificou isso ?

Estou tendo dificuldades em pegar o Valor do IPI e do ICMS-ST. Alguem ta conseguindo essa informação via RecuperarXML ?

Senhores. Consegui entrar em contato. Acabei de receber o XML corrigido. Parece que foi erro de implementação deles mesmo. Mas o problema é que o proprio SEFAZ-RS validou o XML errado. Vai entender. Muito obrigado a todos.

Realmente esse fornecedor eviava XML´s no formato 1.1 e aceitava normalmente. Esse é o primeiro fornecedor a enviar no formato 2.00 O nosso sistema ja trabalha normalmente em 2.00. O problema é que utilizei o link abaixo para validar o xml : http://www.sefaz.rs.gov.br/nfe/nfe-val.aspx É só ler atraves do Notepad e colar na janela do link acima e o mesmo valida o xml. Já estou entrando em contato com o fornecedor para ver se o mesmo pode ajustar o formato.

Senhores. Tive problema com a importação de 1 XML de 1 grande fornecedor. O software deles trocou o aspas por apostofo na identificação do XML. O NFe Leitor nao consegue identificar a versão. O problema é que a SEFAZ-RS valida o xml. Segue em anexo o xml rejeitado NFe33101207358761000169550010003701271043145755.xml