Djean Carlos Duarte

bom dia Juliomar, estou com os fontes atualizados. com menos registros, uns 500 por exemplo consigo gerar. Tens alguma luz ou dia pra mim? estou com este problema em vários clientes, que começaram a enviar o arquivo agora em março.

Boa Tarde, Em runtime.

Boa Tarde, Estou com problemas na geração do Arquivo de Estoque. A quantidade de itens com estoque ultrapassa 2 mil registros. Ao tentar gerar o arquivo através da função 'SaveToFile' me apresenta "Out of memory."

bom dia, após atualização dos componentes esta semana, ao tentar configurar um ECF Epson TM-T900F no Modelo=ecfEscECF na Porta=USB esta apresentando a seguinte mensagem: "Esc ECF requer Porta Serial:_ (COM1, COM2, COM3, ...)."

Bom dia, desculpe, depois constatei que estava informando o <CRT>3</CRT> equivocadamente. deveria ser <CRT>1</CRT>.

Boa tarde, estou com a seguinte rejeição ao tentar fazer uma nota de importação. <det nItem="1"><imposto><ICMS><ICMS00> ID:N13/modBC(Modalidade de determinação da BC do ICMS) - Nenhum valor informado. a tag de icms esta da seguinte forma no xml: <ICMS> <ICMS> <orig>1</orig> <CST/> </ICMS> </ICMS> porem eu a alimento da seguinte forma: ICMS.modBC := FormataModBC('3'); ICMS.orig := FormataOrigem('1'); CSOSN :=FormataCSOSN(IntToStr('900')); CST:= cstVazio;

Entendi, Obrigado.

Bom dia, Estou com o seguinte problema: foi emitida uma nota pelo meu cliente no valor de R$ 2.016,10, como consta em um dos XMLs em anexo. Porem se eu consulta a nota na SeFaz pela chave me mostra uma nota de R$ 21.436,01. Não consegui entender o que aconteceu. alguém ja passou por isso? 42180800484660000195550010000058761000058765.xml 42180800484660000195550010000058761000058765-nfe.xml

Obrigado Mariana Tamy, era isto mesmo. Problema resolvido.

Boa tarde, Estou tentando fazer uma Nota e esta apresentando a excetion a seguir, apesar de eu não informar as tags de desconto: Project Hardcom.exe raised exception class EACBrNFeException with message 'Falha na validação dos dados da nota: 5858 '0.00' violates pattern constraint of '0\.[0-9]{1}[1-9]{1}|0\.[1-9]{1}[0-9]{1}|[1-9]{1}[0-9]{0,12}(\.[0-9]{2})?'. The element '{http://www.portalfiscal.inf.br/nfe}vDesc' with value '0.00' failed to parse. '. Process stopped. Use Step or Run to continue. As tags são geradas automaticamente e estão gerando esta excetion. Segue em anexo o xml. 42180700484660000195550010000058581000058585-nfe.xml

Bom dia Gr@c@, Obrigado pela dica, consegui resolver o problema. Abraço.

Bom dia, Esta apresentando uma Exception ao tentar transmitir uma NFe na versão 4.00. Se eu mudar para versão 3.10 o mesmo não acontece a nota é Transmitida. E não existe nada no retorno que me auxilie em como resolver o problema. segue em anexo o xml da nota. A Exception retorna somente isto "Nota(s) não confirmadas: 33518->" e o componente (ACBrNFe1.WebServices.Enviar.RetornoWS) me retorna isto: <?xml version="1.0" encoding="utf-8"?><soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><soap:Body><nfeResultMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NFeAutorizacao4"><retEnviNFe versao="4.00" xmlns="http://www.portalfiscal.inf.br/nfe"><tpAmb>2</tpAmb><verAplic>SVRS201806291346</verAplic><cStat>103</cStat><xMotivo>Lote recebido com sucesso</xMotivo><cUF>42</cUF><dhRecbto>2018-07-04T08:45:24-03:00</dhRecbto><infRec><nRec>423002180846264</nRec><tMed>1</tMed></infRec></retEnviNFe></nfeResultMsg></soap:Body></soap:Envelope> 42180607427886000101550000000335181000335189-nfe.xml

Boa Tarde, Não consigo fazer com o registro H001 fique como |H001|0| segue trecho de código: with FACBrSpedFiscal.Bloco_H do begin with RegistroH001New do begin IND_MOV := imComDados; qsInventario := getQAux; qsInventario.SQL.Clear; qsInventario.SQL.Text := 'select produto.procodigo, '+ ' produto.unicodigo, '+ ' estoqueatual, '+ ' coalesce(propreco.pprvalor,0) pprvalor, '+ ' coalesce(produto.provlrcusto,0) provlrcusto, '+ ' (estoqueatual*coalesce(propreco.pprvalor,0)) AS TOTALVENDA, '+ ' (estoqueatual*coalesce(produto.provlrcusto,0)) AS TOTALCUSTO'+ ' from ( '+ ' select codigo, '+ ' sum(estoqueatual) estoqueatual '+ ' from ( '+ ' select estoque.procodigo codigo, '+ ' case estoque.esttipo '+ ' when 1 then (estoque.estqtde * (-1)) '+ ' when 2 then estoque.estqtde '+ ' end estoqueatual '+ ' from estoque '+ ' where estoque.estdata <= :data '+ ' ) contagem '+ ' group by 1) contagem2 '+ ' inner join produto '+ ' on produto.procodigo = codigo '+ ' inner join preco '+ ' on preco.prepadrao = 1 '+ ' inner join propreco '+ ' on propreco.precodigo = preco.precodigo '+ ' and propreco.procodigo = produto.procodigo '+ ' where estoqueatual > 0 '; qsInventario.ParamByName('data').AsDate := FDataFinal; qsInventario.Close; qsInventario.Open; qsInventario.First; with RegistroH005New do begin DT_INV := FDataFinal; while not qsInventario.Eof do begin with RegistroH010New do begin COD_ITEM := getLinha(qsInventario.FieldByName('PROCODIGO').AsString); UNID := qsInventario.FieldByName('unicodigo').AsString; if qsInventario.FieldByName('estoqueatual').AsCurrency > 0 then QTD := qsInventario.FieldByName('estoqueatual').AsCurrency else QTD := 0; VL_UNIT := qsInventario.FieldByName('provlrcusto').AsCurrency; VL_ITEM := qsInventario.FieldByName('pprvalor').AsCurrency; IND_PROP := piInformante; COD_PART := ''; TXT_COMPL := ''; COD_CTA := ''; end; valorInv := valorInv+qsInventario.FieldByName('TOTALCUSTO').AsCurrency; qsInventario.Next; end; VL_INV := valorInv; end; end; end; FACBrSpedFiscal.WriteBloco_H; Alguma dica por favor?

Boa Tarde, Estou tentando instalar o ACBr no delphi 10.2 Tokyo e estou com problemas. A instalação aparentemente esta perfeita. conforme arquivo de log: log_Delphi_10.2_Tokyo.txt porém ao abrir o delphi apresenta a seguinte mensagem para todos componente da suíte. Configurei a instalação da seguinte maneira:

Boa Tarde, A xJust do evento de CCe não esta aparecendo para impressão, tampouco no xml. Trecho do código onde alimento o componente referente ao campo xJust vdhevento := DateTimeToStr(Now); // vdhevento := Copy(vdhevento,1,11)+IntToStr(StrToInt(Copy(vdhevento,12,2))-2)+Copy(vdhevento,14,6); infEvento.chCTe := ChaveCTe; infEvento.CNPJ := copy(ChaveCTe,7,14); infEvento.cOrgao := StrToInt(copy(ChaveCTe,1,2)); infEvento.dhEvento := StrToDateTime(vdhevento); infEvento.tpEvento := teCCe; infEvento.nSeqEvento := nSeq; //<Numero Sequencial>; infEvento.versaoEvento := '1.00'; infEvento.detEvento.descEvento := 'Carta de Correção'; infEvento.detEvento.xJust := sCorrecao; O componente foi atualizado dia 13.10.2017 e a Revision/Author: 13990 / regyssilveira Estou usando o DACTE_EVENTOS.fr3 desta mesma versão. 1101104217107685508900013057001000000883100000883708-procEventoCTe.pdf 1101104217107685508900013057001000000883100000883708-procEventoCTe.xml

Bom dia, Consegui resolver colocando o endereço nas observações e alterei o .fr3 e mudei a nomenclatura dos campos. Obrigado.

Boa Tarde, Layout := lPadrao; o arquivo é o Boleto.fr3 da pasta do compronete ACBrBoleto.

Bom Dia, Estou fazendo a homologação de Boletos para o Banco do Brasil e me solicitaram duas alterações que envolve alteração no leiaute. Recibo Pagador >> Nome do BENEFICIARIO/CNPJ/ENDEREÇO: Obrigatório a informação do CNPJ e ENDEREÇO COMPLETO do beneficiário contratante do serviço de cobrança com o Banco ATENÇÃO: Substituir os termos CEDENTE e SACADO por BENEFICIÁRIO e PAGADOR Estou usando: ACBrBoletoFCFR ACBrBoleto1.Banco.TipoCobranca := cobBancoDoBrasil; Alguém ja passou por isso?

Boa Tarde, Estou com a mesma situação em um cliente. Estou anexando o .log. A impressora é uma MP 4200 THFI II. Conseguem me ajudar? acbrlog.rar

Juliomar, infelizmente não encontrei nada que me ajudasse nos outros tópicos, por isso abri um novo. Com os fr3s sugeridos me apresenta o seguinte erro: Erro(s) encontrado(s): Classe não encontrada Datasets Classe não encontrada Formats Classe não encontrada Variables

Bom dia, As duplicatas não estão aparecendo na DANFE. Estou montando o xml da NFe com as tags Cobr.dup, ela esta no xml, porem na DANFE não aparece impresso. Podem me ajudar? Detalhe, antes da atualização para o trunk2 estava funcionando. Estou usando o DANFE.fr3 da pasta Exemplos. Segue como estou montando.: With Cobr do begin if getEmpBoolConfig(83) then begin qauxDup.Active := False; qauxDup.SQL.Clear; qauxDup.SQL.Text := ' select * ' + ' from nflparcela ' + ' where nflparcela.empcodigo = ' + qNFe.FieldByName('EMPCODIGO').AsString + ' and nflparcela.nflcodigo = ' + qNFe.FieldByName('NFLCODIGO').AsString; qauxDup.Active := True; while not qauxDup.Eof do begin With dup.Add do begin nDup := qauxDup.FieldByName('NPLCODIGO').AsString; dVenc := qauxDup.FieldByName('NPLDTAVECTO').AsDateTime; vDup := qauxDup.FieldByName('NPLVLRVECTO').AsFloat; end; qauxDup.Next; end; end else begin Fat.nFat := qnfe.fieldbyname('NTPDESCRICAO').asstring; Fat.vOrig := qNFe.FieldByName('NFLVLRPRODUTO').AsFloat; Fat.vLiq := qNFe.FieldByName('NFLVLRTOTAL').AsFloat; //Fat.vDesc := qNFe.FieldByName('NFLVLRPRODUTO').AsFloat - qNFe.FieldByName('NFLVLRTOTAL').AsFloat; end; end;

Bom dia, Não estou mais conseguindo selecionar a impressora para impressão da Danfe. Estou usando ACBrNFe e ACBrNFeDANFEFR. Quando eu mando imprimir, é aberto uma tela do preview, e nela tem somente botão para impressão, o qual joga para a ultima impressora utilizada no aplicativo. Não joga para impressora padrão. Ai na propriedade ACBrNFeDANFEFR.Impressora coloquei o nome da impressora que gostaria de imprimir, porem me resulta num access violation quando clico para imprimir. Podem me ajudar?

Sim, fiz um novo checkout e resolver... obrigado...

Bom dia, Estou com o mesmo problema, ja testei com todos os .fr3 disponiveis na pasta exemplos.

Bom dia, Estou tentando fazer o relocate de: svn://svn.code.sf.net/p/acbr/code/trunk para: https://svn.code.sf.net/p/acbr/code/trunk2/ e esta me apresentando a mensagem: "Relocate can only change the repository part of an URL" podem me ajudar com isto?