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

   
Vista:

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

Publicado por Francisco (97 intervenciones) el 23/08/2011 00:07:34
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..
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

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

Publicado por JeinnerH jhidalgo@excelteccr.com (638 intervenciones) el 23/08/2011 20:44:49
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

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

Publicado por Yuri yuripeca@hotmail.com (143 intervenciones) el 01/09/2011 03:01:40
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ú!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar