Ir para conteúdo
  • Cadastre-se

crinfo

Membros
  • Total de ítens

    61
  • Registro em

  • Última visita

Posts postados por crinfo

  1. Boa tarde Srs!

    Primeiro quero deixar aqui minha gratidão por este projeto ACBR que é maravilhoso! Tenho feito minhas contribuições em forma de deposito para que este projeto continue crescendo, todos ganhamos com isso! Parabéns.

    Estou com este erro:

    Provedor SP

    Erro ao Assinar a NFse - Nenhum Elemento encontrado

    Segue anexos para que fique mais fácil a compreensão dos colegas.

    Desde já agradeço a ajuda.

    Grato Clayton

    ConfigWEbService.png

    errotela3.png

    Errotela2.png

    Errotela1.png

    Erro tela 5.png

  2. Amigos, boa tarde!

    O problema é que gera a 4ª casa com 0,0001. Esse 1 no final que gera problemas nos cálculos e o sefaz não autoriza da NFe.

    Como resolver isso??

    Como tirar esta casa 1 do final???

    <NCM>72085400</NCM>

    <CFOP>6925</CFOP>

    <uCom>T</uCom>

    <qCom>0.2901</qCom> Na base de dados está como 0.29, mas aqui ele insiste em colocar este 01 no final

    <vUnCom>3440.0000000000</vUnCom>

    <vProd>997.60</vProd>

    <cEANTrib>SEM GTIN</cEANTrib>

    <uTrib>T</uTrib>

    <qTrib>0.2901</qTrib>  Na base de dados está como 0.29, mas aqui ele insiste em colocar este 01 no final

    <vUnTrib>3440.0000000000</vUnTrib>

    <indTot>1</indTot>

    <xPed>0</xPed>

    <nItemPed>0</nItemPed

     

    Mesmo usando a Função abaixo:

     

    Function FormatQuantidadeNota( dValor : Double ) : Double;
    var xDisplayFormat : string;
        xCasasDec : Smallint;
    begin
     case Sistema.Qtde_Casas_Nota of
      0:xDisplayFormat := '###########0.';
      1:xDisplayFormat := '###########0.0';
      2:xDisplayFormat := '###########0.00';
      3:xDisplayFormat := '###########0.000';
      4:xDisplayFormat := '###########0.0000';
      5:xDisplayFormat := '###########0.00000';
      6:xDisplayFormat := '###########0.000000';
     end;
      Result := StrToFloatDef(FormatFloatBr( dValor , System.Sysutils.format(xDisplayFormat, [Sistema.Qtde_Casas_Nota,0])),dValor);
    end;

    Result :=0,29

    Mesmo assim ele insiste em Colocar no XML e na Report 0,2901

     

    Nota.png

    ExportaItens.txt

  3. Por favor me ajudem...

     

    Mesmo usando a Função abaixo:

     

    Function FormatQuantidadeNota( dValor : Double ) : Double;
    var xDisplayFormat : string;
        xCasasDec : Smallint;
    begin
     case Sistema.Qtde_Casas_Nota of
      0:xDisplayFormat := '###########0.';
      1:xDisplayFormat := '###########0.0';
      2:xDisplayFormat := '###########0.00';
      3:xDisplayFormat := '###########0.000';
      4:xDisplayFormat := '###########0.0000';
      5:xDisplayFormat := '###########0.00000';
      6:xDisplayFormat := '###########0.000000';
     end;
      Result := StrToFloatDef(FormatFloatBr( dValor , System.Sysutils.format(xDisplayFormat, [Sistema.Qtde_Casas_Nota,0])),dValor);
    end;

    Result :=0,29

    Mesmo assim ele insiste em Colocar no XML e na Report 0,2901

  4. Amigos, continua dando este erro, veja o Banco Exportado pelo Ibexpert

     Prod.qCom     := (FormNotaFiscal.QryItnf.FieldByName('Pro_quantidade').asFloat);

    Exportei o arquivo para Scripty do Ibexpert para ver como ele sai, mas a nota sai com o 01 no final da quantidade.

    Como resolver isso????

    Obg

     

    INSERT INTO ITNF (NTF_NUMERO, IEC_SEQUENCIA, PRO_CODIGO, PRO_DESCRICAO, PRO_QUANTIDADE, PRO_VENDA, PRO_ICMS, PRO_IPI, NR_PEDIDO, EMPRESA, PRO_CLASSE_TR, PRO_SITUACAO, PRO_CFOP, PRO_APELIDO, PRO_CST_IPI, PRO_CST_PIS, PRO_CST_COFINS, ID_ITNF, PRO_REDUCAO, PRO_CSOSN, DI_DOC_IMP, DI_DT_DOC, DI_LOCAL_DES, DI_UF_DES, DI_DT_DES, DI_COD_EXP, DI_COD_FAB, DI_PED_COMP, PRO_BC_ICMS, PRO_DESCONTO, PRO_BC_ICMS_ST, PRO_PERC_ICMS_ST, IT_BC_II, IT_DESP_ADU_II, IT_IOF_II, IT_IMPOSTO_II, IT_PEDCOMPRA, IT_ITEMPEDCOMPRA, IT_NTF_TIPO, TIPO_NF, PRO_VL_ST, PRO_VL_ICMS, PRO_IVA_ICMS_ST, ITNF_ICMS_VALOR_ICMS_OPERA, ITNF_ICMS_PERC_ICMS_DIFERIDO, ITNF_ICMS_VALOR_ICMS_DIFERIDO, ITNF_ICMS_DESON, ITNF_ICMS_MOTIVO_DES_ICMS, ITNF_IPI_CLASSE_ENQUADRAMENTO, ITNF_IPI_COD_ENQUADRAMENTO, ITNF_IPI_CNPJ_PRODUTOR, ITNF_IPI_COD_SELO, ITNF_IPI_QTDE_SELO, ITNF_IPI_IMPOSTO, ITNF_PIS_BASE_CALC, ITNF_PIS_PERC, ITNF_PIS_VALOR_IMPOSTO, ITNF_COF_BASE_CALC, ITNF_COF_PERC, ITNF_COF_VALOR_IMPOSTO, ITNF_IMP_BASE_CALC, ITNF_IMP_IOF, ITNF_IMP_DESP_ADUA, ITNF_IMP_VALOR_IMPOSTO, ITNF_IPI_PERC_IMPOSTO_DEVOL, ITNF_IPI_VALOR_DEVOL, ITNF_IMP_PERC, DI_VIATRANSP, DI_AFRMM, DI_INTERMEDIO, DI_ADQ_CNPJ, DI_UF_TERCEIRO, DI_DRAW, DI_VL_DESCONTO, ITNF_NVE_ADUANEIRO, DX_N_DRAW, DX_CHAVE_NFE_EXP, DX_NR_REGISTRO, DX_QTDE_EXP, DX_UF_SAIDA_PAIS, DX_LOCAL_EXPORTA, DX_LOCAL_DESPACHO, ITNF_COMB_PROD_ANP, ITNF_COMB_MIXGN, ITNF_COMB_CODIF, ITNF_COMB_QTEMP, ITNF_COMB_UF_CONS, ITNF_COMB_BC_CIDE, ITNF_COMB_ALIQ_CIDE, ITNF_COMB_VALOR_CIDE, ITNF_PAPEL_RECOPI, ITNF_VL_FRETE, ITNF_VL_SEGURO, ITNF_VL_OUTROS, PRO_BC_IPI, ITNF_PERC_FCPUFDEST, ITNF_VL_BCUFDEST, ITNF_PERC_ICMSUFDEST, ITNF_PERC_ICMSINTER, ITNF_PERC_ICMSINTERPART, ITNF_VL_ICMSUFDEST, ITNF_VL_ICMSUFREMET, ITNF_VL_FCPUFDEST, ITNF_UNI_CODIGO, IT_UNI_CODIGO, PRO_VENDA_TRIB, PRO_QTDE_TRIB, ITNF_BASE_CALC_ISS, ITNF_PERC_ISS, ITNF_VL_IMPOSTO_ISS, ITNF_TIPO_SERVICO, ITNF_BC_ICMS_RET, ITNF_PERC_ICMS_RET, ITNF_VL_ICMS_RET, ITNF_VL_ICMS_SUB, ITNF_VL_BCFCPUFDEST)
              VALUES (18378, 8, '000404', 'CH FER ESP 8,00X1200X3000MM', 0.4600, 3220, 0, 0, NULL, '01', '006', '00', '6925', '404', '53', '08', '08', 103556, 0, '400', '', NULL, '', '', NULL, '', '', '', 0, 0, 0, 0, 0, 0, 0, 0, '0', 0, '7', NULL, 0, 0, 0, 0, 0, 0, 0, NULL, '', '', '', '', 0, 0, 0, 0, 0, 0, 0, 0, NULL, NULL, NULL, NULL, 0, 0, NULL, 1, NULL, 1, '', '', '', 0, NULL, '', '', '', 0, '', '', '', '', NULL, '', 0, '', 0, 0, 0, NULL, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, '05', NULL, 3220, 0.4600, 0, 0, 0, -1, 0, 0, 0, 0, NULL);
    INSERT INTO ITNF (NTF_NUMERO, IEC_SEQUENCIA, PRO_CODIGO, PRO_DESCRICAO, PRO_QUANTIDADE, PRO_VENDA, PRO_ICMS, PRO_IPI, NR_PEDIDO, EMPRESA, PRO_CLASSE_TR, PRO_SITUACAO, PRO_CFOP, PRO_APELIDO, PRO_CST_IPI, PRO_CST_PIS, PRO_CST_COFINS, ID_ITNF, PRO_REDUCAO, PRO_CSOSN, DI_DOC_IMP, DI_DT_DOC, DI_LOCAL_DES, DI_UF_DES, DI_DT_DES, DI_COD_EXP, DI_COD_FAB, DI_PED_COMP, PRO_BC_ICMS, PRO_DESCONTO, PRO_BC_ICMS_ST, PRO_PERC_ICMS_ST, IT_BC_II, IT_DESP_ADU_II, IT_IOF_II, IT_IMPOSTO_II, IT_PEDCOMPRA, IT_ITEMPEDCOMPRA, IT_NTF_TIPO, TIPO_NF, PRO_VL_ST, PRO_VL_ICMS, PRO_IVA_ICMS_ST, ITNF_ICMS_VALOR_ICMS_OPERA, ITNF_ICMS_PERC_ICMS_DIFERIDO, ITNF_ICMS_VALOR_ICMS_DIFERIDO, ITNF_ICMS_DESON, ITNF_ICMS_MOTIVO_DES_ICMS, ITNF_IPI_CLASSE_ENQUADRAMENTO, ITNF_IPI_COD_ENQUADRAMENTO, ITNF_IPI_CNPJ_PRODUTOR, ITNF_IPI_COD_SELO, ITNF_IPI_QTDE_SELO, ITNF_IPI_IMPOSTO, ITNF_PIS_BASE_CALC, ITNF_PIS_PERC, ITNF_PIS_VALOR_IMPOSTO, ITNF_COF_BASE_CALC, ITNF_COF_PERC, ITNF_COF_VALOR_IMPOSTO, ITNF_IMP_BASE_CALC, ITNF_IMP_IOF, ITNF_IMP_DESP_ADUA, ITNF_IMP_V

    Nota.png

    ExportaItens.txt

  5. Juliana, estou tentando enviar um nota agora..

     

    <cProd>000404</cProd>
    
    <cEAN>SEM GTIN</cEAN>
    
    <xProd>CH FER GALV ESP 0,95X1200X3000MM</xProd>
    
    <NCM>72104910</NCM>
    
    <CFOP>5925</CFOP>
    
    <uCom>T</uCom>
    
    <qCom>0.2701</qCom>
    
    <vUnCom>5770.1524000000</vUnCom>
    
    <vProd>1557.94</vProd>
    
    <cEANTrib>SEM GTIN</cEANTrib>
    
    <uTrib>T</uTrib>
    
    <qTrib>0.2701</qTrib>
    
    <vUnTrib>5770.1524000000</vUnTrib>
    
    <indTot>1</indTot>
    
    <xPed>0</xPed>
    
    <nItemPed>0</nItemPed>

    Na base de dados, é 0,270 mas no XML aparece 0.2701, não sei da onde ele puxa esse 1 no final.

    Nota18136.png

    TelaNota18136.png

  6. Amigos, boa tarde!

    O problema é que gera a 4ª casa com 0,0001. Esse 1 no final que gera problemas nos cálculos e o sefaz não autoriza da NFe.

    Como tirar esta casa 1 do final???

    - <prod>
      <cProd>265177</cProd>
      <cEAN>4718390028110</cEAN>
      <xProd>DRIVE DVD-RW SATA</xProd>
      <NCM>16023230</NCM>
      <CFOP>5101</CFOP>
      <uCom>UND</uCom>
      <qCom>1.1201</qCom>  Valor que está no banco de dados é: 1.12 e o xml é gerado como 1.1201
      <vUnCom>96.7620000000</vUnCom>
      <vProd>108.37</vProd>
      <cEANTrib>4718390028110</cEANTrib>
      <uTrib>UND</uTrib>
      <qTrib>1.1201</qTrib>
      <vUnTrib>96.7620000000</vUnTrib>
      <indTot>1</indTot>
      </prod>
  7. Boa tarde colegas, estou com um dificuldade em alterar uma instrução na Remessa Itau Carteira 109 CNAB400

    Conforme o Manual tem que enviar uma informação de protesto na posição abaixo( posição 34 ou 35 ), mas eu não encontrei como fazer isso.

    E na posição 157 a 160 deve ter uma data para protesto, porém o eu não encontrei como gerar tal informação pelo AcbrBoleto!

    Att. Desde já agradeço.

    NSTimage.thumb.png.240569242205da2e1e60724e17778e11.png
     
    Ec
    mas
    mas
     
  8. 3 minutos atrás, crinfo disse:

    Bom dia Colegas preciso da ajuda de vocês! Estou sofrendo já alguns dias com esse problema e não consigo resolver.

     

    Uso Xe7 e instalei do Zero (2x)

    Fiz o procedimento a seguir e instalei nas seguintes pastas:

    - Baixei o Fortes e Instalei (C:\Componentes\ComponentesXE7\fortesreport-ce-master\Binary\LibD21)

    - Baixei o Fast-Report (C:\Users\Public\Documents\Embarcadero\Studio\15.0\Bpl)

    - Criei uma pasta ACBR e Baixei tudo de Novo (C:\Componentes\ComponentesXE7\Acbr\Lib\Delphi\LibD21)

    Agora quando vou compilar meu projeto ele aparece esta mensagem:

    Unit ACBrNFeDAInutRLRetrato was compiled with a different version of RLReport.TRLBand

    Eu achei as 2 pastas que tem o ACBrNFeDAInutRLRetrato porém não sei como proceder???

    Eu excluo 1 ou Compilo? será que alguém pode me ajudar????  Coloquei um arquivo com a Tela de onde estão os arquivos Duplicados.

    Abraços e Obrigado por ajudar.

    Clayton

    Tela dos arquivos.png

     

    tela2.png

    Juliomar Obrigado por me ajudar!

    Olha o que eu achei:

    Como proceder???

     

     

    tela3.png

  9. Bom dia Colegas preciso da ajuda de vocês! Estou sofrendo já alguns dias com esse problema e não consigo resolver.

     

    Uso Xe7 e instalei do Zero (2x)

    Fiz o procedimento a seguir e instalei nas seguintes pastas:

    - Baixei o Fortes e Instalei (C:\Componentes\ComponentesXE7\fortesreport-ce-master\Binary\LibD21)

    - Baixei o Fast-Report (C:\Users\Public\Documents\Embarcadero\Studio\15.0\Bpl)

    - Criei uma pasta ACBR e Baixei tudo de Novo (C:\Componentes\ComponentesXE7\Acbr\Lib\Delphi\LibD21)

    Agora quando vou compilar meu projeto ele aparece esta mensagem:

    Unit ACBrNFeDAInutRLRetrato was compiled with a different version of RLReport.TRLBand

    Eu achei as 2 pastas que tem o ACBrNFeDAInutRLRetrato porém não sei como proceder???

    Eu excluo 1 ou Compilo? será que alguém pode me ajudar????  Coloquei um arquivo com a Tela de onde estão os arquivos Duplicados.

    Abraços e Obrigado por ajudar.

    Clayton

    Tela dos arquivos.png

  10. Colegas boa tarde!

    Estou com o mesmo problema citado acima pelo nosso colega BILOGYN , isso gerou um prejuizo de 12000,00 por conta dessa informação de frete.

    Entendo que o descritivo está de acordo com o manual, porém o SISTEMA EMISSOR da FAZENDA não segue este padrão que pede o Manual.

    Eles colocam = Destinatário e não Remetente/Destinatário.

    Gostaria de sugerir que fosse alterado de acordo com o Programa da Fazenda.

    Obrigado.

    Clayton

  11. Boa noite amigos!

    Tenho um duvida, procurei em todo o fórum como salvar ou gerar um PDF sempre que for impresso um Cupom SAT  e não encontrei.

    Tentei o Comando : AcbrSAT.SAveToFile("C:\nomedoArvquivo.pdf"), mas ele abre a tela para o usuario clicar no Salvar, será que tem outra forma de Salvar sem a intervenção do Usuario?

     

    Alguém pode me ajudar?

    Obrigado.

  12. Amigos, gostaria de agradecer pela ajuda de voces...

    Acabei de buscar o aparelho SAT e trazer para o escritório...Instalei tudo do Zero, tentei emitir os Cupons que não estavam indo, e pra minha surpresa, FOI!

    Descobri o erro, a DLL não estava na pasta do meu Executável e sim numa pasta local da maquina.

    Amanhã pela manhã vou confirmar este ocorrido, vou levar no cliente e zerar as DLLS espalhadas por lá e fazer os testes...

    Obrigado, e perdão pelo transtorno.

    Att.

    Clayton

     

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.