Power Builder - Problema de da al grabar la infom. despues de 12:00 noche

Hola amigo tengo un sistema de venta copec. el cual tiene tres turno

1.- Dia
2.- Tarde
3.- Noche

pero tengo el problema que no graba la informacion del turno de NOCHE.

Tengo una Variable hora que voy grabando cada venta que se hace

string s_hora=string(Now(),"HH:MM:SS")

el script del botom grabar este

----------------------------------------------------------------------------------------------------

long i
long i_op
date fecha1
long s_contador


string s_turnos

string s_codigo_prod,s_nombre_prod,s_nombre_prod2
long s_cant,s_precio

long s_total_venta

integer s_codigo_grup


dw_detalle.setTransObject (sqlca)
dw_total1.setTransObject (sqlca)

dw_detalle.AcceptText()
dw_total1.AcceptText()

s_turnos=string(st_turnos.text) //turno

i_op= Messagebox("¡ ATENCIÓN ! "," Graba La Venta..: ",Question!,YesNo!,2)

If i_op = 1 then


string hh3

long ls_codigo
long ll_codigo

long s_nro_inicio


s_total_venta=dw_total1.object.p_venta[dw_total1.getrow()]

fecha1=date(em_1.text)

hh3=string(now(),"hh:mm:ss")


SELECT max(n_venta)
INTO :ls_codigo
FROM tabla_busca_hj_ventas USING SQLCA;
ll_codigo = long(ls_codigo)
IF ll_codigo < 1 or IsNull(ll_codigo) THEN
ll_codigo = 1 //s_nro_inicio
ELSE
ll_codigo = ll_codigo + 1
END IF


st_numero.text=string(ll_codigo,"000000")



INSERT INTO tabla_busca_hj_ventas
( n_venta,
fecha,
turno,
hora,
total )
VALUES ( :st_numero.text,
:fecha1,
:s_turnos,
:hh3,
:s_total_venta ) ;


//segunda etapa grabar detalle de venta



for i =1 to dw_detalle.rowcount()

if dw_detalle.accepttext()=1 then

s_codigo_prod =dw_detalle.object.codigo_prod[i]

s_precio =dw_detalle.object.p_venta[i]

s_cant =dw_detalle.object.cantidad[i]

s_nombre_prod2 =dw_detalle.object.productos[i]



SELECT tabla_productos.codigo_grup,
tabla_productos.nombre_producto
INTO :s_codigo_grup,
:s_nombre_prod
FROM tabla_productos
WHERE tabla_productos.codigo_prod = :s_codigo_prod ;



UPDATE tabla_productos
SET stock =stock - :s_cant
WHERE tabla_productos.codigo_prod = :s_codigo_prod ;


end if

INSERT INTO tabla_hoja_ventas
( n_venta,
fecha,
turno,
codigo_prod,
codigo_grup,
cantidad,
p_venta )
VALUES ( :st_numero.text,
:fecha1,
:s_turnos,
:s_codigo_prod,
:s_codigo_grup,
:s_cant,
:s_precio ) ;

dw_detalle.scrollnextrow()
next
commit;//

end if

cb_borrar.enabled=false
scrip//

cb_grabar.enabled=false


cb_imprimir.enabled=true

cb_nuevo.enabled=true
scrip//
al precionar el botom nuevo me da una venta nueva y limpia las dw
y activa los botones


dw_detalle
es la dw que tiene la infomacion del detalle de venta

cb_grabar.enabled=false
cb_imprimir.enabled=false
cb_nuevo.enabled=false

st_numero.text=" "

st_total_item.text=" "
st_vuelto.text=" "

dw_detalle.reset()

dw_codigo.reset()
dw_codigo.insertrow(1)

dw_paga.reset()
dw_paga.insertrow(1)

dw_total1.setitem(1,'p_venta',0)

dw_codigo.setcolumn('codigo_prod')
dw_codigo.setfocus()

me puede ayudar por fa

francisco
desde Chile
Gracias..

Y exactamente cuál es el problema, en dónde es que no te graba?

Te da un error de base de datos o simplemente no graba la información?

Saludos.

Hola Francisco, te recomiendo que trabajes con datawindows, se te hará mas fácil la gestión de tus datos, aqui tienes algo de informacion sobre datawindows:

http://www.inei.gob.pe/biblioineipub/bancopub/inf/lib5022/CAP-06.HTM


Saludos desde Perú!