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!