Consulta en mysql
Posted: Tue Apr 11, 2017 11:36 pmOtra consulta, para una cuenta corriente lo que hago es cargar un array y mostrarlo
Y se muestra
Y como veran un boton para borrar que va a esta funcion
Si borro el último registro no hay problema lo elimina sin mas de la base de datos, pero si la elección es algún registro intermedio no la afecta, ni la modifica en ninguno de sus registros.
Otra consulta ¿ es mejor hacer una sentencia en mysql para mostrar la cuenta corriente ó hacerlo como lo he planteado?
Gracias por su atención
Luis
- Code: Select all Expand view
- cQueryct := "SELECT * FROM ctacte where ncli = "+ alltrim(str(oCta:ncli)) + " ORDER by fecha"
oQry :=oMysql:Query( cQueryct)
oQry:gotop()
do
nImporte := 0
if oQry:tipo = "1"
lTipo := .t.
nsaldo += oQry:importe
else
lTipo := .f.
nsaldo -= oQry:importe
endif
aadd(oCta:adet,{oQry:fecha, (oQry:descripcion + oQry:numero),lTipo, oQry:importe, nsaldo, oQry:pventa, oQry:numero,oQry:tipodoc})
oQry:skip()
until oQry:eof()
Y se muestra
- Code: Select all Expand view
- REDEFINE LISTBOX oBrw fields "" ID 101 of oDlg UPDATE ON DBLCLICK detacli(oMysql,oBrw,oBrw:nAt,lcliente, oDlg )
oBrw:bline:= {|nAt| nAt:= oBrw:nAt,;
iif(len(oCta:adet ) < 1 .or. nAt > len(oCta:adet), array(5),;
{transform(oCta:adet[nAt,1],"@d "),oCta:adet[nAt,2] ,;
iif(oCta:aDet[nAt,3], transform(oCta:aDet[nAt,4],"@e 999,999.99"),""),; //facturas
iif(oCta:aDet[nAt,3],"", transform(oCta:aDet[nAt,4],"@e 999,999.99")),; //pagos
transform(oCta:aDet[nAt,5],"@e 999,999.99") } ) }
oBrw:setarray(oCta:adet)
oBrw:acolsizes := {80,158,115,115,120}
oBrw:aheaders := { "FECHA","DETALLE","DEBE","PAGOS","SALDO"}
oBrw:ajustify := {0,0,1,1,1}
oBrw:aHjustify := {2,2,2,2,2}
oBrw:lAdjlastcol:= .t.
oBrw:nLineStyle := 3
REDEFINE BUTTON oNbut[4] ID 106 ACTION borrar(oMysql, lcliente,oCta,oBrw )
Y como veran un boton para borrar que va a esta funcion
- Code: Select all Expand view
- STATIC FUNCTION borrar(oMysql, lcliente,oCta,oBrw)
if MsgYesNo("¿Desea borrar este registro y todos los asociados?","Aviso del sistema")
oQry:goto(oBrw:nAt)
oQry:delete()
oQry:refresh()
ADel( oCta:aDet,oBrw:nAt )
ASize( oCta:aDet, Len( oCta:aDet ) - 1 )
corregir(oCta:adet)
oBrw:gotop()
oBrw:gobottom()
oBrw:refresh()
endif
RETURN NIL
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Si borro el último registro no hay problema lo elimina sin mas de la base de datos, pero si la elección es algún registro intermedio no la afecta, ni la modifica en ninguno de sus registros.
Otra consulta ¿ es mejor hacer una sentencia en mysql para mostrar la cuenta corriente ó hacerlo como lo he planteado?
Gracias por su atención
Luis
