jGuto

Boa tarde, primeiramente gostaria de parabenizar ao pessoal do acbr pelo desenvolvimento do componente, ficou muito bom, agora quero tirar umas dúvidas, A minha aplicação já está totalmente funcional com o emulador da receita, estou usando a impressão em fortes, testei com uma MP-4000 e uma MP-4200 da bematech, com bobina de 80mm, 1º - Nas minhas impressões, são cortados praticamente 2 caracteres a direita da impressão, nas duas impressoras corta esse pedaço, isso seria um problema com as minhas impressoras ou seria pequenos ajustes ainda a serem feitos?(Com alguns ajustes na unit do layout, saiu certo, mas gostaria de saber se o problema não pode ser comigo antes de sair mexendo em códigos alheios) 2º - Quando a minha venda tem apenas um item, é gerado um espaço entre o "*Valor aproximado dos tributos dos itens" e o "SAT Nº 900000102", quando tem mais de um item, a impressão sai normal(Fuçando na unit novamente, na procedure TACBrSATExtratoFortesFr.rlVendaBeforePrint, na ultima linha rlVenda.PageSetup.PaperHeight := max( 100, 10+Trunc( TotalPaginaPixel / 3.7 ));, ao adicionar + 100 sai certo a impressão com um unico item, mas confesso que não entendi muito bem o porque) 3º - Na impressão do código de barras, o mesmo é quebrado em dois(segundo o manual de orientação, só é quebrado em 2 quando impresso em bobina de 55mm), está certo que também fala que no caso de impossibilidade de impressão em um único bloco, poderá ser dividido em dois blocos, mas a figura 7 do manual mostra o código inteiro. Bom, por enquanto é isso, e desde já agradeço pela ajuda..

opa, obrigado..

isso sim, eu só queria que alguem arrumasse no svn, pra não ter que ficar arrumando toda vez que atualizo..

opa, fontes atualizadissimos, verifique a sua acbrnfe.pas a rotina destructor TACBrNFe.Destroy;

Bom dia a todos, de vez em quando, ocorre um erro na tela onde tenho um componente TACBrNFe, e verifiquei a seguinte situação. No destructor do componente, tem esse código abaixo, destructor TACBrNFe.Destroy; begin FConfiguracoes.Free; FNotasFiscais.Free; FCartaCorrecao.Free; FEventoNFe.Free; FDownloadNFe.Free; FWebServices.Free; {$IFDEF ACBrNFeOpenSSL} if FConfiguracoes.Geral.IniFinXMLSECAutomatico then NotaUtil.ShutDownXmlSec ; {$ENDIF} inherited; end; dá erro na diretiva, pois o FConfiguracoes recebeu um free no começo do código. Essa diretiva não tinha que ser antes do Free?? O estranho que debugando tem hora que ocorre o erro e tem horas que não(sim, entra na diretiva e existe valor na propriedade)..

Só pra constar, o fastMM "não" resolve o problema,nem no projeto em que trabalho, nem no testeAcbr. Além dos AV, ele da erro também de out of memory.. O que funcionou no delphi 6 foi realmente remover os cast's...

Régys, obrigado por enviar ao SVN, porém atualizei o ACBr hoje, e voltaram a ACBrUtils.pas com os cast's para string novamente, voltando a ocasionar erro para quem usa delphi 6...

Pessoal, eu sei que faz tempo que ninguém passa por aqui, mas o erro continua quando compilado no Delphi 6. Percebi que o erro ocorre na unit ACBrUtil.pas, onde existem vários cast's para String, onde na versão do acbr que eu utilizo não existem. Verificando a própria unit, achei a função ACBrStr que faz a compatibilidade necessária conforme o compilador, então troquei os cast's de String() para ACBrStr() e compilou de boa no Delphi 6. Testei também no Delphi XE2 e também funcionou normal... Segue a unit em anexo.. ACBrUtil.pas

ola sergio, no demo não está mostrando o retorno, mas no componente já esta tratado as informações eu fiz assim procedure TfmManifestacaoDestinatario.TratarRetorno; var i: Integer; const SituacaoNFe: array[1..3] of string = ('Autorizada','Denegada','Cancelada'); SituacaoManifesto: array[0..4] of string = ('Sem Manifestação', 'Confirmado', 'Desconhecido', 'Operação Não Realizada', 'Ciência da Operação'); begin for I := 0 to ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Count -1 do begin with FmMenu.ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe do begin cdsRetorno.Append; cdsRetornoUltNSU.AsString := ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ultNSU; cdsRetornoCNPJ.AsString := CNPJCPF; cdsRetornoEmitente.AsString := xNome; cdsRetornoEmissao.AsDateTime := dEmi; cdsRetornoValor.AsFloat := vNF; cdsRetornoCHAVE.AsString := chNFe; cdsRetornoIE.AsString := IE; cdsRetornoTipo.AsString := TipoNFe[StrToInt(tpNFToStr(tpNF))]; cdsRetornoDataRecbto.AsDateTime := dhRecbto; cdsRetornoSitNFe.AsString := SituacaoNFe[StrToInt(SituacaoNFeToStr(cSitNFe))]; cdsRetornoSitConf.AsString := SituacaoManifesto[StrToInt(SituacaoManifDestToStr(cSitConf))]; cdsRetorno.Post; end; end; end; experimente usar o ultimo NSU que vc receber nas novas consultas ao inves do 0, isso trará mais resultados..

falha minha pessoal, na primeira consulta eu mando o NSU = 0 e me retorna somente uma nota..acabei de me lembrar que na consulta eu tenho que mandar o ultimo NSU recebido, experimentei e me trouxe mais notas, não todas, somente algumas, aí eu peguei o ultimo NSU novamente e me retornou mais um punhado de notas e assim vai... só não entendi muito bem qual a logica utilizada para trazer as notas, pois a cada consulta me retorna uma quantia diferente..

boa tarde renato, eu obtive retorno em homologação(meu certificado é só para homologação, portanto não tenho como testar em produção), porem ainda não como eu(e todos) gostaria. Só me retorna uma nota, que emite no dia 21/08, as outras varias que emite nem sinal, porem no retorno que obtenho, o campo IR08-IndCont retorna 1, que segundo o manual diz "SEFAZ possui mais documentos para o CNPJ informado, ou ainda não avaliou a totalidade da sua base de dados" entao continuarei testando , qualquer novidade posto aqui...

Ola, hoje consegui o retorno de Documento localizado com a Consulta de NFe destinadas, começarei meus testes mais a fundo agora(trabalhando o retorno) e postarei os resultados

vlw markapollo

bom dia Italo, testei aqui em ambiente de homologação e está fazendo o download certinho, inclusive com varias notas de uma só vez.. só um negocio que me aconteceu aqui, após eu manifestar uma operação não realizada, eu não consigo fazer o download do xml, ate ai td bem, o que eu achei estranho mesmo é que eu consegui confirmar a operação após falar que ela não foi realizada, seria bug da receita??

então, acess violation não dá mais.. eu só consigo manifestar, mas consultar NFe destinadas não, mesmo alterando pra emitir para um cnpj do meu certificado ao inves do 99.999.999/0001-99, só me retorna cStat = 137 - Nenhum documento localizado para o destinatário..

ola, eu fiz a seguinte alteração no meu código, não deu mais erro e funcionou // Movido para fora do try por Italo em 16/08/2012 if Assigned(FretConsNFeDest) then FreeAndNil(FretConsNFeDest); FretConsNFeDest := TRetConsNFeDest.Create;