BOTON AGREGAR FACTURA! AYUDA URGENTE
Publicado por Daniel (4 intervenciones) el 26/11/2009 06:49:09
Hola Programadores
Bueno tengo un problema en powerbuilder y quisiera que alguien me apoye porque ya entre en desesperacion jaja ...
Les explico estoy haciendo un proyecto de estudios que es de un sistema de hostal y bueno llege al formulario de FACTURA para esto tengo tambien un formulario FICHA DE INGRESO primero lleno la FICHA DE INGRESO y luego jalo los datos para la FACTURA o BOLETA y bueno el problema surge en la FICHA DE INGRESO, tengo campos para ingresar los datos (sle,ddlb,etc) y bueno tengo tambien un DataWindow que sirve como Detalle de algunos campos que lleno en esta FICHA DE INGRESO y bueno tengo un boton "AGREGAR" y eh programado en este boton para que algunos campos que lleno en esta FICHA DE INGRESO sean visualizados en este DW (Visualiza: Nro_Habitacion, Tipo de Habitacion, El Precio, El Numero de Dias a Hospedarse, y el Total osea el Importe a pagar)
Bueno esta es mi programacion del Boton AGREGAR, alguien que me apoyara que cualquier ayuda es valiosa...
integer ne,nd,tot
string t=""
integer can,c,tk
//string nom=""
SELECT temporal.tipo_habiatcion
INTO :t
FROM temporal
WHERE temporal.nro_Habitacion = :id ;
num=left(ddlb_3.text,3)
tipo=right(ddlb_4.text,8)
//precio=real(st_pre.text)
//nd=integer(sle_22.text)
//tot=real(st_t.text)
//
if t="" then
can=integer(sle_22.text)
tot=real(st_t.text)
insert into temporal(nro_habitacion,tipo_habitacion,precio,nro_dias,total)
values (:num,:sle_9.text,:st_pre.text,:can,:tot);
dw_1.settransobject(sqlca)
dw_1.retrieve()
dw_1.enabled=true
else
messagebox("Mensaje","Producto ya existe en la Venta")
end if
sle_9.text=""
sle_22.text=""
st_t.text=""
st_pre.text=""
ddlb_3.selectitem(0)
ddlb_4.selectitem(0)
Bueno desde ya agradesco las respuestas
Adios
Bueno tengo un problema en powerbuilder y quisiera que alguien me apoye porque ya entre en desesperacion jaja ...
Les explico estoy haciendo un proyecto de estudios que es de un sistema de hostal y bueno llege al formulario de FACTURA para esto tengo tambien un formulario FICHA DE INGRESO primero lleno la FICHA DE INGRESO y luego jalo los datos para la FACTURA o BOLETA y bueno el problema surge en la FICHA DE INGRESO, tengo campos para ingresar los datos (sle,ddlb,etc) y bueno tengo tambien un DataWindow que sirve como Detalle de algunos campos que lleno en esta FICHA DE INGRESO y bueno tengo un boton "AGREGAR" y eh programado en este boton para que algunos campos que lleno en esta FICHA DE INGRESO sean visualizados en este DW (Visualiza: Nro_Habitacion, Tipo de Habitacion, El Precio, El Numero de Dias a Hospedarse, y el Total osea el Importe a pagar)
Bueno esta es mi programacion del Boton AGREGAR, alguien que me apoyara que cualquier ayuda es valiosa...
integer ne,nd,tot
string t=""
integer can,c,tk
//string nom=""
SELECT temporal.tipo_habiatcion
INTO :t
FROM temporal
WHERE temporal.nro_Habitacion = :id ;
num=left(ddlb_3.text,3)
tipo=right(ddlb_4.text,8)
//precio=real(st_pre.text)
//nd=integer(sle_22.text)
//tot=real(st_t.text)
//
if t="" then
can=integer(sle_22.text)
tot=real(st_t.text)
insert into temporal(nro_habitacion,tipo_habitacion,precio,nro_dias,total)
values (:num,:sle_9.text,:st_pre.text,:can,:tot);
dw_1.settransobject(sqlca)
dw_1.retrieve()
dw_1.enabled=true
else
messagebox("Mensaje","Producto ya existe en la Venta")
end if
sle_9.text=""
sle_22.text=""
st_t.text=""
st_pre.text=""
ddlb_3.selectitem(0)
ddlb_4.selectitem(0)
Bueno desde ya agradesco las respuestas
Adios
Valora esta pregunta
0