Ir para conteúdo
  • Cadastre-se

Pesquisar na Comunidade

Showing results for tags 'acbrutil'.

  • Search By Tags

    Digite tags separadas por vírgulas
  • Search By Author

Tipo de Conteúdo


Fóruns

  • Fórum Aberto - ACBr
    • Notícias do ACBr
    • Equipamentos testados
    • Base de Conhecimento
    • Dúvidas Gerais sobre o ACBr
    • ACBrSerial
    • ACBrSAT
    • ACBrNFe
    • ACBrDFe
    • Dúvidas sobre TEF
    • Dúvidas sobre PIX
    • ACBrMonitor PLUS
    • ACBrTXT
    • ACBrBoleto
    • ACBrDiversos
    • ACBrTCP
    • ACBrFramework
    • ACBrLIB
  • ACBr Pro
    • Dúvidas gerais
    • ACBrMonitorPLUS
    • NFe/NFCe - Nota Fiscal Eletrônica
    • DFe - Documentos Fiscais Eletrônicos
    • SAT / MFE
    • TEF
    • Boleto
    • ACBrSPED
    • ACBrTXT
    • Paf-ECF
    • Requisitos Fiscais por UF
    • ACBrLIB
  • Outros Assuntos
    • Boteco do ACBr
    • Legislação Fiscal e Tributária
    • Object Pascal - Delphi & Lazarus
    • Banco de Dados
    • Classificados
    • Dúvidas não relacionadas ao ACBr

Categorias

  • ACBr Pro
    • ACBrLib - PRO
    • ACBrMonitorPLUS - PRO
    • Utilitários - PRO
    • Dia do ACBr 1a edição
    • Dia do ACBr 2a edição
  • Download Livre
    • ACBrLib - DEMO
    • ACBrMonitorPLUS - DEMO
    • Demos / Testes / Utilitários
    • Apresentações - Palestras

Calendários

  • Eventos - Palestras - Webinars
  • Prazos SEFAZ
  • Calendário da Comunidade
  • ACBr Papo Pro
  • Feriados Nacionais

Find results in...

Find results that contain...


Data de Criação

  • Início

    End


Data de Atualização

  • Início

    End


Filter by number of...

Data de Registro

  • Início

    End


Grupo


Website URL

Encontrado 11 registros

  1. gustavozr

    ABNTRoundTo e campo vItem

    Bom dia, estou com uma situação estranha em relação ao arredondamento realizado pelo SAT. Eu envio a seguinte TAG de produto <prod> <cProd>717827</cProd> <cEAN>030471782701</cEAN> <xProd>PIMENTA BIQUINHO</xProd> <NCM>07096000</NCM> <CFOP>5102</CFOP> <uCom>UNI</uCom> <qCom>0.9950</qCom> <vUnCom>0.990</vUnCom> <indRegra>A</indRegra> </prod> E o SAT me retorna <prod> <cProd>717827</cProd> <cEAN>030471782701</cEAN> <xProd>PIMENTA BIQUINHO</xProd> <NCM>07096000</NCM> <CFOP>5102</CFOP> <uCom>UNI</uCom> <qCom>0.9950</qCom> <vUnCom>0.990</vUnCom> <vProd>0.98</vProd> <indRegra>A</indRegra> <vItem>0.98</vItem> </prod> Ele está retornando o valor do item como R$ 0,98 , porém realizo o arredondamento da multiplicação entre qCom e vUnCom, através da função ABNTRoundTo da unit ACBrUtil, e o valor retornado é R$ 0,99. Até parece que o SAT está ignorando a regra de arredondamento 'A'. Alguém já pegou algum caso assim?
  2. Olá PessoALL, ACBRUtil.LerTagXML() não está buscando o conteudo da TAG LogDeDados dentro do XML: XML ORIGINAL (NÃO É UM ARQUIVO) <SSA_EAI xmlns=""><Principal><TASK><Status>-2</Status><Processo>NFSE </Processo><LogDeDados>Iniciar o processo NFSE Com ID [BD42809] <br /> Serviço (1000027) não registrado como Item de Estoque, ou sem vínculo com o Código de Serviços Municipais para a cidade da empresa <br /> Item de estoque 1000027 não cadastrado <br /> Operação não realizada identificador de integracao BD42809 <br /> </LogDeDados></TASK></Principal></SSA_EAI> procedure TfrmPrincipal.Button6Click(Sender: TObject); var wProtocolo : String ; wXML : TStringlist ; begin //localiza protocolo em pdx_MySql.ssa_retorno_protocolo pdx_qryGrvSSA.Close ; pdx_qryGrvSSA.Open('select ssa_protocolo from ssa_retorno_protocolo where ssa_protocolo = :pProtocolo', [edit2.text]); pdx_qryGrvSSA.FetchAll ; if pdx_qryGrvSSA.RecordCount > 0 then begin try wProtocolo := pdx_qryGrvSSA.FieldByName('ssa_protocolo').AsString ; wTag := 'LogdeDados' ; wXML := TStringList.Create ; wXMl.LoadFromStream(GetSSA_EAISoap.ConsultTask('fbqwerft',wProtocolo).XMLNode.XML); ShowMessage(ACBRUtil.LerTagXML(GetSSA_EAISoap.ConsultTask(wXML.Text, wTag)) ; finally end; end; end;
  3. Após atualização do ACBr não consigo mais compilar o aplicativo porque ocorrem os seguintes erros: [dcc32 Error] ACBrBase.pas(106): E1012 Constant expression violates subrange bounds Linha 105: {$IFDEF RTL230_UP} Linha 106: [ComponentPlatformsAttribute(piacbrAllPlatforms)] [dcc32 Fatal Error] ACBrUtil.pas(2212): F2063 Could not compile used unit 'ACBrConsts.pas' Linha 2212: Result := StrIsNumber( AValue ) ; Por favor, como devo proceder? Grato, Geraldo
  4. Aline Mello

    TryHexToAscii

    Prezados, Atualizei hoje o Acbr para a versão 17438. Tudo instalado sem erros. Quando abro o Delphi aparece essa mensagem: Qualquer dica para resolução é apreciada.
  5. Rafranio

    ACBrUtil DELPHI 3.0

    Erro ao instalar os componente Delphi_Rio 3.0, segue anexo o arquivo de log. log_Delphi_10.3_Rio.txt
  6. sergiom

    Erro ao compilar ACBRUTIL.PAS

    Bom dia, erro ao compilar ACBRUTIL.PAS, baixado agora pela manhã. Em vermelho o erro e a correção. function Split(const ADelimiter, AString: string): TSplitResult; var i: Integer; vRows: TStrings; begin vRows := TStringList.Create; try vRows.Delimiter := ADelimiter[1]; {$IFDEF CompilerVersion >= 18} //Delphi 2006+ vRows.StrictDelimiter := True; vRows.DelimitedText := AString; {$ELSE} vRows.DelimitedText := '"' + StringReplace(AString, ADelimiter, '"' + ADelimiter + '"', [rfReplaceAll]) + '"'; {$IFEND} ->>>>> correto ->>>>> {$ENDIF} SetLength(Result, vRows.Count); for i := 0 to vRows.Count - 1 do Result := vRows.Strings; finally FreeAndNil(vRows); end; end; Atenciosamente Sérgio
  7. Nunca mandei nada para correção, então não sei como fazer isso, gostaria que se tiver uma forma melhor de fazer que me notifiquem. Na função do RoundABNT, na verificação das regras 2.3 e 2.4 ( regra do par ou ímpar), era observado o valor errado para verificar se o mesmo era par ou ímpar. Regras: function RoundABNT(const AValue: Double; const Digits: SmallInt): Double; var Pow, PowValue, RestPart, FracValue : Extended; IntCalc, FracCalc, LastNumber, IntValue : Int64; Begin Pow := intpower(10, abs(Digits) ); PowValue := AValue / 10 ; IntValue := trunc(PowValue); FracValue := frac(PowValue); PowValue := SimpleRoundTo( FracValue * 10 * Pow, -9) ; // SimpleRoundTo elimina dizimas ; IntCalc := trunc( PowValue ); FracCalc := trunc( frac( PowValue ) * 100); if (FracCalc > 50) then Inc( IntCalc ) else if (FracCalc = 50) then begin LastNumber := trunc( frac( IntCalc / 100) * 10); if odd(LastNumber) then Inc( IntCalc ) else begin RestPart := frac( PowValue * 10 ) ; if RestPart > 0 then Inc( IntCalc ); end ; end ; Result := ((IntValue*10) + (IntCalc / Pow)); end; Alterada a linha: Na variável LastNumber era salvo o ultimo número a ser considerado e na verdade era pra ser salvo o ultimo número anterior a ele. A regra realmente é confusa, mas (infelizmente) existe e temos que segui-la.
  8. josue.elias

    AcbrUtil.pas - PadL

    Pessoal, eu tenho uma dúvida quanto a geração de remessas pelo acbr. Tenho um cliente que gera boletos para o banco do brasil. Mas o banco do brasil retornou um e-mail referente aos protestos pq estavam indo com as posições 222 e 223 do segmento P erradas. Motivo retornado pelo banco: Segmento P, Posições 222 a 223: Preencher com a quantidade de dias corridos paraprotesto. Até aí tudo bem, eu verifiquei e percebi que o erro está quando o sistema usa a função PadL. O meu cliente utiliza 6 dias corridos para protesto, mas o PadL retorna 60 quando deveria retornar 06. Segue o codigo como que está no segmento P na unit ACBrUtil: IfThen((DataProtesto <> null) and (DataProtesto > Vencimento), PadL(IntToStr(DaysBetween(DataProtesto, Vencimento)), 2, '0'), '00') + //222 a 223 - Prazo para protesto (em dias corridos) Alterei para PadLeft e funcionou perfeitamente. Alguém pode corrigir isso e subir para o SVN novamente, ou devo apenas corrigir aqui nos meus fontes? Detalhe: Estou usando o trunk2 e já atualizei o acbrUtil.
  9. Pessoal fiz a a Atualização Trunk2 conforme manda o figurino mas agora esta aparecendo uma serie de erros releacionados principalmente ao ACBrNFeUtil. d [Error] ACBrNFeUtil.pas(109): Undeclared identifier: 'TLayOut' [Error] ACBrNFeUtil.pas(109): Undeclared identifier: 'TpcnModeloDF' [Error] ACBrNFeUtil.pas(109): Undeclared identifier: 'moNFe' [Error] ACBrNFeUtil.pas(109): Undeclared identifier: 'TpcnVersaoDF' [Error] ACBrNFeUtil.pas(109): Undeclared identifier: 've200' [Error] ACBrNFeUtil.pas(363): Undeclared identifier: 'DFeUtil' [Error] ACBrNFeUtil.pas(365): Missing operator or semicolon [Error] ACBrNFeUtil.pas(366): Missing operator or semicolon [Error] ACBrNFeUtil.pas(367): Missing operator or semicolon [Error] ACBrNFeUtil.pas(368): Missing operator or semicolon [Error] ACBrNFeUtil.pas(425): Undeclared identifier: 'DFeUtil' [Error] ACBrNFeUtil.pas(430): Undeclared identifier: 'DFeUtil' [Error] ACBrNFeUtil.pas(435): Undeclared identifier: 'DFeUtil' [Error] ACBrNFeUtil.pas(454): Undeclared identifier: 'LayNfeEnvDPEC' [Error] ACBrNFeUtil.pas(454): Undeclared identifier: 'DFeUtil' [Error] ACBrNFeUtil.pas(455): Undeclared identifier: 'LayNfeConsultaDPEC' [Error] ACBrNFeUtil.pas(455): Duplicate case label [Error] ACBrNFeUtil.pas(455): Missing operator or semicolon [Error] ACBrNFeUtil.pas(456): Undeclared identifier: 'LayNFeEventoAN' [Error] ACBrNFeUtil.pas(456): Duplicate case label [Error] ACBrNFeUtil.pas(456): Missing operator or semicolon [Error] ACBrNFeUtil.pas(457): Undeclared identifier: 'LayNfeConsNFeDest' [Error] ACBrNFeUtil.pas(457): Duplicate case label [Error] ACBrNFeUtil.pas(457): Missing operator or semicolon [Error] ACBrNFeUtil.pas(458): Undeclared identifier: 'LayNfeDownloadNFe' [Error] ACBrNFeUtil.pas(458): Duplicate case label [Error] ACBrNFeUtil.pas(458): Missing operator or semicolon [Error] ACBrNFeUtil.pas(459): Undeclared identifier: 'LayDistDFeInt' . . . . alguem passou por isso ?
  10. Olá a todos. Estou anexando nesse post 3 arquivos alterados para atender a seguinte necessidade: 1) Estamos utilizando o componente ACBrECFNaoFiscal (ACBrECFVirtualPrinter) para fazer o inicio de vendas, onde temos casos de itens arredondam e outros truncam; Ex: Combustível trunca e Demais produtos arredonda. No ECFVirtual por padrão arredondava sempre. Para resolver esse caso fiz a seguinte alteração no método vendaitem: Procedure VendeItem( Codigo, Descricao : String; AliquotaECF : String; Qtd : Double ; ValorUnitario : Double; ValorDescontoAcrescimo : Double = 0; Unidade : String = ''; TipoDescontoAcrescimo : String = '%'; DescontoAcrescimo : String = 'D'; CodDepartamento: Integer = -1 ) ; override ; Se as property ArredondaPorQtd e ArredondaItemMFD estiverem igual a False. O valor total será truncado (Trunca) do contrário irá arredondar (RoundABNT); Essa alteração foi feito em ambos fontes: ACBrECFNaoFiscal e ACBrECFVirtualPrinter. Dentro do ACBrUtil, criei a function Trunca. Em todos nossos testes resolveu e atendeu corretamente. Espero não ter feito nada de incorreto. Me coloco a disposição para quaisquer esclarecimento. Muito obrigado pela atenção e ajuda. ACBrECFNaoFiscal.pas ACBrECFVirtualPrinter.pas ACBrUtil.pas
  11. Eu ATUALIZANDO este pacote aqui e acontece o seguinte erro: Undeclared identifier: 'LerTagXML' Vi que esta função 'LerTagXml' esta na declarada certinho na Unit 'AcbrUtilis'. log_Delphi_2010.txt
×
×
  • 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.