Ir para conteúdo
  • Cadastre-se

Painel de líderes

Conteúdo popular

Showing content with the highest reputation on 15-05-2013 em todas as áreas

  1. Bom dia amigos, Não estou vindo criticar, longe de mim... estou aqui mais pra obter informações para saber o que falar com meus clientes. Pois bem.. Quase sempre, usando o componente AcBR apresenta erros estranhos, como não conectar, erro de canais seguros, erros de soap e etc.. na mesma hora, ao tentar no programa da SEFAZ/SP funciona. aí o cliente me liga pau da vida... porque meu sistema não funciona, e o gratuito funciona.. sempre invento uma desculpa, mas chega uma hora que não dá... acredito que tenha a ver com a linguagem.. o delphi usa as dlls da Microsoft.. que por ventura usa o InternetExplorer, que vira e mexe dá problemas... o programa gratuito é em Java.. isso tem a ver? Eles não usam as mesmas DLLs que nós? Bom, é isso, só mesmo queria ter informações reais do porque disso, pra ter como argumentar com os clientes... Obrigado
    1 ponto
  2. Implantada a rotina Régys. Ficou show! Ao colegas que quiserem ver como ficou, segue imagem em anexo. Fiz uma rotina assim para retornar o valor do imposto: function CalculaTributos(vTotalItem : Double; NCM : String; servico : Boolean; origem : Integer; ex : integer) : Double; var qryConsulta : TZQuery; vTributos : Double; begin try qryConsulta := TZQuery.Create(Application); with qryConsulta do begin Active := False; Connection := DM.conLocal; SQL.Clear; SQL.Add('SELECT COALESCE(NCM_ALIQUOTANACIONAL,0) AS NCM_ALIQUOTANACIONAL,'); SQL.Add('COALESCE(NCM_ALIQUOTAIMPORTADO,0) AS NCM_ALIQUOTAIMPORTADO'); SQL.Add('FROM NCM WHERE NCM_CODIGO = :NCM_CODIGO AND NCM_EX = :NCM_EX'); SQL.Add('AND NCM_TABELA = :NCM_TABELA;'); ParamByName('NCM_CODIGO').AsString := NCM; ParamByName('NCM_EX').AsInteger := ex; if servico then ParamByName('NCM_TABELA').AsInteger := 1 else ParamByName('NCM_TABELA').AsInteger := 0; Active := True; First; end; if qryConsulta.Eof then vTributos := 0 else begin case origem of 0 : vTributos := Truncar((vTotalItem * qryConsulta['NCM_ALIQUOTANACIONAL']) / 100, 2); else vTributos := Truncar((vTotalItem * qryConsulta['NCM_ALIQUOTAIMPORTADO']) / 100, 2); end; end; Result := vTributos; except Result := 0; end; end; Como vocês podem ver, passei a armazenar esses dados na tabela de ncm para posterior consulta. À medida que vou incluindo os itens vou utilizando essa função para acumular em um totalizador. Depois ao encerrar o cupom faço da seguinte forma: with ECF.InfoRodapeCupom do begin MD5 := EAD.MD5FromFile(Sistema.Pasta + Sistema.ArqLista); if Cupom.DAV > 0 then Dav := StrZero(IntToStr(Cupom.DAV), 10); if Cupom.PV > 0 then PreVenda := StrZero(IntToStr(Cupom.PV), 10); CupomMania := Sistema.Emp_UF = 'RJ'; MinasLegal := Sistema.Emp_UF = 'MG'; ParaibaLegal := Sistema.Emp_UF = 'PB'; NotaLegalDF.Imprimir := Sistema.Emp_UF = 'DF'; ---------------------------- if Cupom.vTributos > 0 then begin Imposto.ValorAproximado := Cupom.vTributos; Imposto.Fonte := 'IBPT'; end; ---------------------------- end; Espero que seja útil à comunidade.
    1 ponto
  3. Fiz um resumo de como utlizar veja o link: http://www.regys.com.br/lei-12-7412012-transparencia-dos-impostos/ e implementação na nota eletrônica já existe a alguns dias, a implementação no cupom fiscal saiu hoje.
    1 ponto
  4. Por outro lado usando OpenSSL, não poderá usar em clientes que tenham certificados A3. Sei que é difícil, mas tem que vê se sua reclamação é tb de outros usuário, existem centenas de usuário usando o ACBr, para mesma finalidade que você, pesquise no fórum, para tentar descobrir onde realmente está o problema, e inclua na sua lista de possibilidades seu código desenvolvido, estamos aqui para ajudar.
    1 ponto
  5. Sem problemas meu amigo, estamos a disposição.
    1 ponto
×
×
  • 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.