obtener datos de un campo dando otro campo
Publicado por Martha (8 intervenciones) el 02/04/2003 02:52:21
No puedo obtener un dato de una tabla dando das de la misma
CON ESTE SCRIP OBTENGO EL NOMBRE DANDO EL RFC y lo hace bien
String ls_nombre
If dwo.name = 'rfc' Then
SELECT nom_pro
INTO :ls_nombre
FROM maestros
WHERE rfc = :DATA;
IF SQLCA.SQLCODE = 0 THEN
This.SetItem(Row, 'maestros.nom_pro', ls_nombre)
Return 0
ELSE
MessageBox("Aviso", "La clave es incorrecto o no existe")
Return 1
End If
End If
CON ESTE OTRO SCRIP QUIERO OBTENER EL NOMBRE DEL MATERIAL,, LA DIFERENCIA ES QUE PARA OBTENERLO DEBE DE DAR DOS CAMPOS Y NO SE CUAL SEA MI ERROR
String ls_nombre
If (dwo.name = 'no_adq') and (dwo.name = 'clv_mat') Then
SELECT nom_mat
INTO :ls_nombre
FROM materiales
WHERE (no_adq = :DATA) and (clv_mat = :DATA);
IF SQLCA.SQLCODE = 0 THEN
This.SetItem(Row, 'materiales_nom_mat', ls_nombre)
Return 0
ELSE
MessageBox("Aviso", "La clave es incorrecto o no existe")
Return 1
End If
End If
GRACIAS DE ANTEMANO
CON ESTE SCRIP OBTENGO EL NOMBRE DANDO EL RFC y lo hace bien
String ls_nombre
If dwo.name = 'rfc' Then
SELECT nom_pro
INTO :ls_nombre
FROM maestros
WHERE rfc = :DATA;
IF SQLCA.SQLCODE = 0 THEN
This.SetItem(Row, 'maestros.nom_pro', ls_nombre)
Return 0
ELSE
MessageBox("Aviso", "La clave es incorrecto o no existe")
Return 1
End If
End If
CON ESTE OTRO SCRIP QUIERO OBTENER EL NOMBRE DEL MATERIAL,, LA DIFERENCIA ES QUE PARA OBTENERLO DEBE DE DAR DOS CAMPOS Y NO SE CUAL SEA MI ERROR
String ls_nombre
If (dwo.name = 'no_adq') and (dwo.name = 'clv_mat') Then
SELECT nom_mat
INTO :ls_nombre
FROM materiales
WHERE (no_adq = :DATA) and (clv_mat = :DATA);
IF SQLCA.SQLCODE = 0 THEN
This.SetItem(Row, 'materiales_nom_mat', ls_nombre)
Return 0
ELSE
MessageBox("Aviso", "La clave es incorrecto o no existe")
Return 1
End If
End If
GRACIAS DE ANTEMANO
Valora esta pregunta


0