no me guarda
Publicado por luis (28 intervenciones) el 27/06/2006 23:10:35
hola gente, tengo este problema:
quiero ingresar una forma de pago, pro antes de guardarla quiero verificar que lo ingresado no sea nulo ni tampoco que ya este repetido. el problema es que cuando el valor es correcto no me lo guarda, que puede ser???
string ls_tipopago, ls_tipopago1
ls_tipopago = dw_2.GetItemstring(dw_2.GetRow(),"tipo_pago")
SELECT tipo_pago.tipo_pago
INTO :ls_tipopago1
FROM tipo_pago
where (tipo_pago = :ls_tipopago);
if (ls_tipopago = 'NULL') or (ls_tipopago = '') THEN
Messagebox ("Dato no valido", "El dato que desea ingresar no es valido...", StopSign!, OK!)
//esto no me anda
ELSEIF (ls_tipopago1 = 'NULL') then
INSERT tipo_pago
(tipo_pago
)
VALUES(upper (:ls_tipopago)
);
IF SQLCA.sqlcode = 0 THEN
MessageBox("Registro Guardado","Registro insertado correctamente")
END IF
IF SQLCA.sqlcode <> 0 THEN
MessageBox("Error al guardar",sqlca.sqlerrtext)
END IF
COMMIT;
end if
quiero ingresar una forma de pago, pro antes de guardarla quiero verificar que lo ingresado no sea nulo ni tampoco que ya este repetido. el problema es que cuando el valor es correcto no me lo guarda, que puede ser???
string ls_tipopago, ls_tipopago1
ls_tipopago = dw_2.GetItemstring(dw_2.GetRow(),"tipo_pago")
SELECT tipo_pago.tipo_pago
INTO :ls_tipopago1
FROM tipo_pago
where (tipo_pago = :ls_tipopago);
if (ls_tipopago = 'NULL') or (ls_tipopago = '') THEN
Messagebox ("Dato no valido", "El dato que desea ingresar no es valido...", StopSign!, OK!)
//esto no me anda
ELSEIF (ls_tipopago1 = 'NULL') then
INSERT tipo_pago
(tipo_pago
)
VALUES(upper (:ls_tipopago)
);
IF SQLCA.sqlcode = 0 THEN
MessageBox("Registro Guardado","Registro insertado correctamente")
END IF
IF SQLCA.sqlcode <> 0 THEN
MessageBox("Error al guardar",sqlca.sqlerrtext)
END IF
COMMIT;
end if
Valora esta pregunta
0