Colocar Tipo de Preço na tela de Orçamento (Formulário Orçamento)
Software: SOFTSHOP | Grupo: ALTERACOES | Prioridade: BAIXA
Solução
Causa:
Solução:
Copiar campo (Combo) 'TipoPreco' do formulário 'Cadastro de Clientes' na aba 'Financeiras' e colar no formulário 'Orçamento';
Criar campo 'TipoPreco' tipo Texto e deixar como Fonte do Controle do campo (Combo) colado no formulário 'Orçamento' renomear a Combo também para 'TipoPreco';
Criar consulta:
UPDATE ([Cadastro de Clientes] INNER JOIN Orçamento ON [Cadastro de Clientes].[Código do Cliente] = Orçamento.codigodocliente) INNER JOIN ([Cadastro de mercadorias] INNER JOIN ProdOrç ON [Cadastro de mercadorias].[Código da Mercadoria] = ProdOrç.[Código da Mercadoria]) ON Orçamento.Registro = ProdOrç.[Código da Venda] SET ProdOrç.Preço = IIf([Formulários]![orçamento]![TPr]="padrao" Or [Formulários]![orçamento]![TPr] Is Null,[Preço de Venda],IIf([Formulários]![orçamento]![TPr]="a" And [VendaA]>0,[VendaA],IIf([Formulários]![orçamento]![TPr]="b" And [vendaB]>0,[VendaB],IIf([Formulários]![orçamento]![TPr]="c" And [VendaC]>0,[VendaC],[Preço de Venda])))), ProdOrç.PrecoBruto = IIf([Formulários]![orçamento]![TPr]="padrao" Or [Formulários]![orçamento]![TPr] Is Null,[Preço de Venda],IIf([Formulários]![orçamento]![TPr]="a" And [VendaA]>0,[VendaA],IIf([Formulários]![orçamento]![TPr]="b" And [vendaB]>0,[VendaB],IIf([Formulários]![orçamento]![TPr]="c" And [VendaC]>0,[VendaC],[Preço de Venda])))) WHERE (((Orçamento.Registro)=[forms]![Orçamento]![Registro]));
*Salvar Consulta CadastroOrçamento_TipoPreco
- Deixar consulta criada sendo executada no Evento Após atualizar campo (Combo) do Formulário 'Orçamento'- Macro deve ser neste sentido
DefinirAvisos = nao
AbrirConsulta = CadastroOrçamento_TipoPreco
RepetirConsulta = subformulário orçamento
- No formulário 'subformulário orçamento', atualizar Fonte do Controle do campo 'tipopreco'para '=[Formulários]![Orçamento]![TipoPreco]'
Tags: tipopreco, tpr, orçamento, preço