Elegir entre 3 columnas segun la condicion pvt1 pvt2 pvt3
Publicado por Andres (4 intervenciones) el 24/06/2019 15:42:55
Buenas tardes, desde ya muchas gracias por su tiempo, les comento que soy novato con vb pero trato de encontrarle soluciones hasta que se me acaban las ideas y es ahi que pido ayuda.
Paso a comentarles mi problema aunque seguro que para muchos es cuestión de un trámite.
Tengo las Tablas
t_clientes con los campos: idClie , Apell , Cond_vta_clie
t_art con los campos: idArt , Cod_ba_Art, descrip_Art , Pvta1_Art , Pvta2_Art ,Pvta3_Art
t_fact
t_fact_deta
Tengo un formulario llamado:
F_fact basado en la t_fact y su relación con la t_cliente (acá van los datos del cliente, pero también la forma de compra y esto es lo que me va a determinar que precio se le hace si es "Público" , "Mayorista" o "Especial"
y un subformulario llamado F_fact_det basado con la t_fact_deta y vinculado con la t_fact con los campos:
codigo , descrip, cant , P.Vta
Bien, lo que quiero es que al ingresar el código me determine que precio le corresponde, si público, mayorista o especial
Acá dejo algo de lo que intenté hacer... Los campos son de tipo texto
Paso a comentarles mi problema aunque seguro que para muchos es cuestión de un trámite.
Tengo las Tablas
t_clientes con los campos: idClie , Apell , Cond_vta_clie
t_art con los campos: idArt , Cod_ba_Art, descrip_Art , Pvta1_Art , Pvta2_Art ,Pvta3_Art
t_fact
t_fact_deta
Tengo un formulario llamado:
F_fact basado en la t_fact y su relación con la t_cliente (acá van los datos del cliente, pero también la forma de compra y esto es lo que me va a determinar que precio se le hace si es "Público" , "Mayorista" o "Especial"
y un subformulario llamado F_fact_det basado con la t_fact_deta y vinculado con la t_fact con los campos:
codigo , descrip, cant , P.Vta
Bien, lo que quiero es que al ingresar el código me determine que precio le corresponde, si público, mayorista o especial
Acá dejo algo de lo que intenté hacer... Los campos son de tipo texto
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Dim vNro_Art_Deta As Variant
Dim vPvta1_Art As Variant
Dim vPvta2_Art As Variant
Dim vPvta3_Art As Variant
Dim VT_Precio_Deta As Variant
Dim vCompruebo As Variant
vNro_Art_Deta = Nz(Me.Nro_Art_Deta.Value, "")
VT_Precio_Deta = Nz(Me.T_Precio_Deta.Value, "")
vPvta1_Art = DLookup("Pvta1_Art", "T_art")
vPvta2_Art = DLookup("Pvta2_Art", "T_art")
vPvta3_Art = DLookup("Pvta3_Art", "T_art")
'_____________________________________________SI EL CAMPO NO TIENE NINGÚN VALOR____________________________________
If IsNull(Me.Nro_Art_Deta) Then
Me.Nro_Art_Deta.SetFocus
Exit Sub
End If
'_________________________________________________________________________________________________________________
vCompruebo = DLookup("Cod_ba_Art", "t_Art", "Cod_ba_Art ='" & vNro_Art_Deta & "'")
If vNro_Art_Deta = vCompruebo Then 'SI EL CODIGO EXISTE? ENTONCES QUE?
vNro_Art_Deta = DLookup("Pvta1_Art", "T_art")
Me.Precio_Deta = vPvta1_Art
ElseIf vNro_Art_Deta = DLookup("Pvta2_Art", "T_art") Then
Me.Precio_Deta = vPvta2_Art
ElseIf vNro_Art_Deta <> vCompruebo Then
MsgBox "CODIGO NO EXISTE", vbInformation, "AVISO"
End If
Valora esta pregunta
0