ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Passar as aliquotas para o acbrecf

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Automação Comercial
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
oneshotbr
Colaborador
Colaborador


Registrado: Quarta-Feira, 6 de Mai de 2009
Mensagens: 1948
Localização: Taubaté - SP

MensagemEnviada: Qui Nov 06, 2014 10:35 am    Assunto: Passar as aliquotas para o acbrecf Responder com Citação

Bom dia galera,

Estou com uma dúvida em questão à nomeclatura das aliquotas na hora de fazer a venda dos itens as que eu conheço são essas.

Código:
      if sqlProdutos.FieldByName('ALIQUOTA').AsString = 'TRIBUTADO' then
      begin
        tributacao := FloatToStr(sqlProdutos.FieldByName('TRIBUTACAO').AsFloat);
        aliquota   := 'I' + tributacao;
      end;

      if sqlProdutos.FieldByName('ALIQUOTA').AsString = 'ISENTO' then
        aliquota := 'II';

      if sqlProdutos.FieldByName('ALIQUOTA').AsString = 'NAO TRIBUTADO' then
        aliquota := 'NN';

      if sqlProdutos.FieldByName('ALIQUOTA').AsString = 'SUBISTITUIÇÃO' then
        aliquota := 'SF';

dm.ACBrECF.VendeItem(FieldByName('CODIGOBARRA').AsString, FieldByName('NOME').AsString,
                           aliquota, FieldByName('QUANTIDADE').AsFloat,
                           FieldByName('VALORUNITARIO').AsFloat,0,FieldByName('SIGLA').AsString);




Só que a caso o produto seja tributado está correto? É assim mesmo que passa as aliquotas?
_________________
AMD Phenom II X4 960T 3.00 GHz - 8 GB DDR III - HD 1000 GB SATA - GeForce GTX 650 TI GDDR 5 - Monitor 21,5" Full HD - Kubuntu 14.04 + Windows 7 Professional x64.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Ghost_Rider
Colaborador
Colaborador


Registrado: Segunda-Feira, 6 de Outubro de 2003
Mensagens: 4437

MensagemEnviada: Qui Nov 06, 2014 2:44 pm    Assunto: Responder com Citação

Para o indice da aliquota
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Automação Comercial Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB