Jump to content

Djean Carlos Duarte

Membros
  • Content Count

    63
  • Joined

  • Last visited

Community Reputation

2 Neutral

1 Follower

About Djean Carlos Duarte

  • Rank
    Membro

Contact Methods

  • Website URL
    http://www.hardsis.com.br

Profile Information

  • Sexo
    Masculino
  • Localização
    Rio do Sul - SC

Recent Profile Visitors

1,000 profile views
  1. 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
  2. Obrigado Mariana Tamy, era isto mesmo. Problema resolvido.
  3. 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
  4. Bom dia Gr@c@, Obrigado pela dica, consegui resolver o problema. Abraço.
  5. 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
  6. 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?
  7. 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:
  8. 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
  9. Bom dia, Consegui resolver colocando o endereço nas observações e alterei o .fr3 e mudei a nomenclatura dos campos. Obrigado.
  10. Boa Tarde, Layout := lPadrao; o arquivo é o Boleto.fr3 da pasta do compronete ACBrBoleto.
  11. 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?
  12. 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
  13. 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
  14. 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;
×
×
  • Create New...