[Resolvido]Erro transferência de dados para Form Vendas.

Boa tarde Pessoal..

Estou tentando fazer com que através de uma caixa de combinação eu consiga puxar alguns valores para o meu formulário de vendas. A consulta com os dados da caixa de combinação segue em anexo: E o código abaixo.

Código:

Option Compare Database

Private Sub cmbProdutosDetVendas_AfterUpdate()
Me.VlrUnitario_DetVend = Me.cmbProdutosDetVendas.Column(2)
Me.UnidadeMedida = Me.cmbProdutosDetVendas.Column(3)
Me.VlrIcms = Me.cmbProdutosDetVendas.Column(4)
Me.VlrIpi = Me.cmbProdutosDetVendas.Column(5)
End Sub

Fala fera, blz?

Tente no lugar de "columm" colocar ItemData.
Talvez funcione.

Abrasss!!!

Boa tarde,Samuel !
Tente dessa forma, eu acredito que irá funcionar sem ver o teu projeto.

Option Compare Database
option explicit

Private Sub cmbProdutosDetVendas_AfterUpdate()
Me.VlrUnitario_DetVend = Me.cmbProdutosDetVendas.Column(3)
Me.UnidadeMedida = Me.cmbProdutosDetVendas.Column(2)
Me.VlrIcms = Me.cmbProdutosDetVendas.Column(4)
Me.VlrIpi = Me.cmbProdutosDetVendas.Column(5)
End Sub

Ps. em vermelho as mudanças que eu fiz.

Boa Tarde Silvio..

Obrigado pelo Retorno.

Fiz as modificações que você me pediu, mas ao invés de trazer os dados esta zerando os campos, estou enviando o print screen da tela de vendas e o código logo abaixo.

Código:

Option Compare Database
Option Explicit

Private Sub cmbProdutosDetVendas_AfterUpdate()

Me.UnidadeMedida = Me.cmbProdutosDetVendas.Column(2)
Me.VlrUnitario_DetVend = Me.cmbProdutosDetVendas.Column(3)
Me.VlrIcms = Me.cmbProdutosDetVendas.Column(4)
Me.VlrIpi = Me.cmbProdutosDetVendas.Column(5)

End Sub


Samuel, boa tarde.

Se está zerando campos, há algo errado.

Na tua consulta está assim:

cod_prod = 0 ( coluna zero, portando chave primária )
desc_prod = 1 (coluna um )
unimed_prod = 2 (coluna dois)
vlrcompra_prod = 3 (coluna tres)
valoricms = 4 (coluna quatro)
valorIPI = 5 (coluna cinco).

Na tua combo ( cmbProdutosDetVendas ), tem que determinar as colunas, conforme a tua consulta.


Precisa eu ver, a qry que vc montou....há como postar parte desse banco para nós analisarmos ele ?

Silvio segue em anexo parte do meu sistema para a sua analise.

Vamos lá então. fiz o seguinte

a- propriedades da combo :cmbProdutosDetVendas

1- aba formato: numero de colunas = 5
2- largura das colunas: 0cm;9,949cm;0cm;0cm;0cm

Mude dessa forma, aqui funfou legal.


Abraços

Silvio, aqui funfou também, só que na unidade de medidas esta vindo o código ao invés de pc, kg, un etc.

Como mudo isto?

Corrija na largura de colunas, uma delas deve ter o valor 2,54cm

Silvio ja fiz testes e vários teste em todas e não funfou.

ok..vou te mandar o que eu fiz aqui....

Veja nas propriedades se a combo está com cabeçalho ativo.

Estranho mesmo, tem algo com a origem dos dados e com o relacionamentos entre algumas tabelas. ( tblprodutos e tblunidade de medidas )
Esta faltando algo, vou ver....mais tarde eu retorno, cliente no escritório.

Ok Silvio, muito Obrigado.

Bom dia Silvio..

Tem outro erro, o valor do Icms e o valor do Ipi, não podem ser copiados do cadastro de produtos não, vai ter que ser calculo, porque ele me trara a informação do valor de ambos só de uma unidade do produto.
E se eu vender 02, 03 etc, o valor ficara errado, ali terá que ser feito um calculo.

Concorda?

É pessoal o negócio aqui ficou mais complicado.
Fui tentar corrigir um erro e apareceu outro pior, agora a caixa de combinação não registra o produto que eu escolho e o valor total não faz mais o calculo.
Veja o Print Screen da Tela.
Alguém pode me ajudar.?

Bom dia Samuel.
Não tinha entendido o que queria ontem e só dei ideia besta...rs
O último problema ainda não analisei, porém o cálculo do ICMS e IPI não adria pra fazer assim?

Me.VlrIcms = Me.cmbProdutosDetVendas.Column(4) * [SeuCampoDeQuantidadedeVendasdosProdutos]
Me.VlrIpi = Me.cmbProdutosDetVendas.Column(5) * [SeuCampoDeQuantidadedeVendasdosProdutos]

Como disse, é só uma ideia (espero que não seja besta de novo), pois, não baixei seu BD para teste.
Vou fazê-lo hoje para melhor analisar.

Abrasss!!!

Bom dia Chumbrega.
Obrigado pelo Retorno.
Vai analisando ai, que estou quebrando a cabeça aqui, só espero nã arrumar outro erro.

Abraços.

Samuel, estou em cliente por azar meu.
Mas estou a criar uma tbl de cadastro de produtos, onde será inserido o custo de compra, o IPI e mais o ICMS desse produto. Nessa tbl também há o preço de venda ( que é o resultado do custo de compra * IPI * ICMS)

Também um tblvenda,com os campos da tblprodutos ( escolhido via combobox); essa tbl faz parte de um frm venda.

Por volta de 16:00 hs estarei no escritório !

Boa tarde Silvio.
A tabela de cadastro de Produtos não tem estas informações?
Se quiser que te envio a tabela de novo, é só pedir.

Samuel, desculpe a demora.

Fiz algo meio que na correira, por isso não se atenha muito ao layout da mesma.

De uma olhada, veja se é isso que estas a precisar.

Veja o frmvendas.

Abraços.

Boa tarde Silvio.

É isto mesmo, só que o valor de icms e ipi vai ter que ser feito um calculo porque senão o valor que ele vai trazer e para uma unidade só, e se eu vender 2, 3 ,ou mais unidades o valor do imposto vai ficar errado.
Concorda<
Estou quebrando a cabeça aqui, para achar uma solução. E você viu os outros erros que apareceram?

sim, concordo com vc.... vamos quebrar a cabeça juntos.

Samuel, acrescentei dois campos na tblsubvendas (icbms2 e ipi2).

No subformulário os campos originais estão ocultos, teste !

E ai Samuel...deu certo ??

Ainda não Silvio..

Este código esta errado?

Código:

Option Compare Database
Option Explicit

Private Sub cmbProdutosDetVendas_AfterUpdate()

Me.UnidadeMedida = Me.cmbProdutosDetVendas.Column(2)
Me.VlrUnitario_DetVend = Me.cmbProdutosDetVendas.Column(3)

Me.VlrIcms.Value = [ValorTotalProduto] * [AliquotaIcms] / 100
Me.VlrIpi.Value = [ValorTotalProduto] * [AliquotaIpi] / 100
Me.ValorTotalProduto.Value = [QtdeProduto] * [ValorUnitProduto] - [ValorDesconto]
Me.Qtd_DetVend.SetFocus

End Sub

Esse código esta dando algum tipo de erro ?

Eu faria assim...

e.VlrIcms.Value = (me.ValorTotalProduto *me. AliquotaIcms) / 100
Me.VlrIpi.Value = (me.ValorTotalProduto] * me.AliquotaIpi) / 100
Me.ValorTotalProduto.Value = (me.QtdeProduto * me.ValorUnitProduto )- me.ValorDesconto

Não esta dando erro, mas também não esta funcionando. Ja aconteceu uma vez em outro formulário e de repente começou a funcionar do nada. Agora este esta complicado não funciona de jeito nenhum.
É aquele problema que estamos tentando resolver.

Bom dia.....eu faria desse jeito, como eu postei no exemplo...

Aqui eu coloquei o produto
Private Sub cboproduto_AfterUpdate()
Me.Nomeproduto = Me.cboproduto.Column(1)
Me.icms = Me.cboproduto.Column(2)---> txt oculta no frm
Me.IPI = Me.cboproduto.Column(3) ---> txt oculta no frm
Me.Precovenda = Me.cboproduto.Column(4)
Me.qtd.SetFocus
Me.cboproduto = Null
End Sub


*****************************************************************
Aqui eu faria os calculos atrelados a qtd do protudo
Private Sub qtd_AfterUpdate()
Me.TotalProdtuso.Value = Me.qtd * Me.Precovenda
Me.Icms2 = Me.icms * Me.qtd
Me.IPI2 = Me.IPI * Me.qtd

End Sub

Bom dia Silvio..

Coloquei do jeito que você me orientou, mas agora eu executo o formulário de vendas e ele abre só com os botões, os campos e e Labels sumiram não aparecem.
Onde eu errei.?

Hummmmm.......

Provavelmente, deve ter algum comando que esta a usa a carregar o teu formulário:

seucampo.enabled = false mude de false para true

Ja conferi todos os campos do formulário e do subformulário no modo design e estão todos corretos, quando coloco no modo formulário o cabeçalho e o rodapé aparecem normal mas o detalhe não, some tudo.

Zipa o dito cujo e manda ele aqui....deixa eu dar uma olhada nele.

Segue em anexo o bd.

Boa tarde Silvio...

Resolvi o problema do sumiço dos campos meu colega, depois de dois dias quebrando a cabeça, foi só criar uma consulta com os dados do formulário e aplicar na propriedade fonte de controle e os campos apareceram todos de novo.
A gente quando é amador apanha de mais, mas é assim que aprende.

Maravilha, que bom que resolveu.

O fórum agradece o retorno.