Colocar Tipo de Preço na tela de vendas (Vendas3)
Software: SOFTSHOP | Grupo: ALTERACOES | Prioridade: BAIXA
Solução
Obs: Apenas necessario em versões mais antigas do Softshop, pois as versões mais atuais já possui modulo de Segurança na seguinte confinguração:
Copiar campo (Combo) 'TipoPreco' do formulário 'Cadastro de Clientes' na aba 'Financeiras' e colar no formulário 'Vendas3';
Criar campo 'TPr' tipo Texto e deixar como Fonte do Controle do campo (Combo) colado no formulário 'Vendas' renomear a Combo também para 'TPr';
Criar consulta:
UPDATE [Cadastro de Clientes] INNER JOIN ([Cadastro de mercadorias] INNER JOIN ([Cadastro de Vendas] INNER JOIN [Vendas Efetuadas] ON [Cadastro de Vendas].[Código da Venda] = [Vendas Efetuadas].[Código da Venda]) ON [Cadastro de mercadorias].[Código da Mercadoria] = [Vendas Efetuadas].[Código da Mercadoria]) ON [Cadastro de Clientes].[Código do Cliente] = [Cadastro de Vendas].[Nome do Cliente] SET [Vendas Efetuadas].Preço = IIf([Formulários]![Vendas3]![TPr]="padrao" Or [Formulários]![Vendas3]![TPr] Is Null,[Preço de Venda],IIf([Formulários]![Vendas3]![TPr]="a",[VendaA],IIf([Formulários]![Vendas3]![TPr]="b",[VendaB],IIf([Formulários]![Vendas3]![TPr]="c",[VendaC],[Preço de Venda])))), [Vendas Efetuadas].PrecoBruto = IIf([Formulários]![Vendas3]![TPr]="padrao" Or [Formulários]![Vendas3]![TPr] Is Null,[Preço de Venda],IIf([Formulários]![Vendas3]![TPr]="a",[VendaA],IIf([Formulários]![Vendas3]![TPr]="b",[VendaB],IIf([Formulários]![Vendas3]![TPr]="c",[VendaC],[Preço de Venda]))))WHERE ((([Cadastro de Vendas].[Código da Venda])=[Formulários]![vendas3]![Código da Venda]));
- Salvar Consulta CadastroVendas_Tpr
4.Deixar consulta criada sendo executada no Envento Após atualizar campo (Combo) do Formulário 'Vendas3'
- Macro deve ser neste sentido
DefinirAvisos = nao
AbrirConsulta = CadastroVendas_Tpr
RepetirConsulta = subformulário vendas2
- No formulário 'subformulário vendas2', atualizar Fonte do Controle do campo 'tipopreco'para '=[Formulários]![vendas3]![TPr]'
Tags: tipo preço, tipo preco, vendas3, tabela de preço, curv