FiveTech Software tech support forums

Hola a todos.

Estoy haciendo un listbox de una dbf que esta vacia, cuando agrego registros no muestra nada a pesar de que hago todos los refresh() posibles, en cambio si la dbf comienza con un registro funciona perfectamente.

Muchas gracias.
Jorge Jaurena

Jorge,

Por favor muéstranos el código de cómo creas el browse (listbox).

*****LIST BOX CON LOS PRODUCTOS DE LA NOTA DE PEDIDO*****

REDEFINE LISTBOX oLbx;
FIELD TRAN(oDbfTemp:CODIGONP,"######"),oDbfTemp:DESCRIP,;
TRAN(oDbfTemp:CANTIDAD,"#######.####"),;
TRAN(oDbfTemp:PRECIO,"#######.####"),;
TRAN ((oDbfTemp:CANTIDAD*oDbfTemp:PRECIO),"#######.####"),"";
HEAD "Código Nota","Descripción","Cantidad","Precio","Total","";
SIZES 100,300,120,150,150,1;
ID 1000 OF oDlg1;
COLOR Negro,Blanco

REDEFINE BTNBMP Btn7 ID 300 OF oDlg1 RESOURCE "PRIMERO";
ACTION oDbfTemp:GoTop(),oLbx:GoTop(),oLbx:Refresh();
TOOLTIP "Ir a la primera fila de la lista"
REDEFINE BTNBMP Btn8 ID 301 OF oDlg1 RESOURCE "ULTIMO";
ACTION oDbfTemp:GoBottom(),oLbx:GoBottom(),oLbx:Refresh();
TOOLTIP "Ir a la ultima fila de la lista"

REDEFINE BTNBMP Btn9 ID 206 OF oDlg1 RESOURCE "NUEVO";
WHEN (.f.)
REDEFINE BTNBMP Btn10 ID 207 OF oDlg1 RESOURCE "EDITAR";
ACTION ModificarN(oDbfTemp,oLbx);
TOOLTIP "Modificar el Producto ingresado"
REDEFINE BTNBMP Btn11 ID 208 OF oDlg1 RESOURCE "ELIMINAR";
ACTION EliminarN(oDbfTemp,oLbx);
TOOLTIP "Eliminar el Producto ingresado"
REDEFINE BTNBMP Btn12 ID 209 OF oDlg1 RESOURCE "MENSAJE";
WHEN (.f.)
REDEFINE BTNBMP Btn13 ID 210 OF oDlg1 RESOURCE "FILTROS";
WHEN (.f.)
REDEFINE BTNBMP Btn14 ID 211 OF oDlg1 RESOURCE "PRINTER";
WHEN (.f.)
REDEFINE BTNBMP Btn15 ID 212 OF oDlg1 RESOURCE "SALIR";
WHEN (.f.)

oLbx:aJustify:={.t.,.f.,.t.,.t.,.t.,.f.}
oLbx:bSkip :={|nRecs|oDbfTemp:Skipper(nRecs)}

*************************************************************

Yo declaro tres bases de datos:
-----------------------------------
- La de la nota de pedido que es donde grabo los datos definitivamente:

USE NOTAPED INDEX NOTAPED1,NOTAPED2,NOTAPED3 NEW
DATABASE oDbf
oDbf:bEoF=nil
oDbf:GoBottom()

**Uso GoBottom porque necesito que se posicione en el ultimo lugar para despues incrementar el codigo en uno y asi obtener el codigo de la que seria la siguiente nota de pedido.

-La segunda base que uso es una auxiliar que siempre esta vacia que tiene la misma estructura que "NOTAPED":

USE AUXNOTA INDEX AUXNOTA1,AUXNOTA2,AUXNOTA3 NEW
DATABASE oDbfAux
oDbfAux:bEoF=nil
oDbfAux:GoTop()

Esta la uso para luego dentro del .prg declarar una base temporal que es la que uso en el browse.

- La tercera base (la temporal) es la siguiente:

Private TEMPON

TEMPON:="T"+SUBSTR(TIME(),4,2)+SUBSTR(TIME(),7,2)+".DBF"
COPY FILE DATOS\AUXNOTA.DBF TO &TEMPON

USE &TEMPON NEW
DATABASE oDbfTemp
oDbfTemp:bEoF=nil
oDbfTemp:GoTop()

- El problema es el siguiente:

Cuando tengo algo en la base de datos e ingreso una nueva nota de pedido me muestra correctamente en el browse los productos que voy ingresando, pero si zapeo o borro todos los registros de la base de datos de nota de pedido y quiero ingresar por primera vez una nota de pedido no me muestra los productos que voy ingresando en el listbox. Si los graba pero no los muestra, o sea los esta ingresando en la base de datos temporal pero no los muestra en el browse.
Ya probe con todos los refrescos posibles y sigue igual.

Lo extraño de esto es que yo estoy haciendo browse de la base temporal y no de la de nota de pedido. Abajo le envio la funcion que uso para, al ingresar una nueva nota de pedido, buscar si existe o no.

///////////////////////////////////////////////////////////////////////////////////////////////////
Function BuscaNota(oDbf,oDbfIva,oDbfTemp,oDbfCli,oLbx)
Local Nota:=vCod

IniVarN()
RefresN()

vCod:=Nota
oCod:Refresh()

oDbfTemp:GoTop()
DO WHILE !oDbfTemp:Eof()
oDbfTemp:RecLock()
oDbfTemp:Delete()
oDbfTemp:Unlock()
oDbfTemp:Skip()
ENDDO

oDbf:Seek(vCod)
IF !oDbf:Eof()
oCod:Disable()
oCli:Disable()
oNroOr:Disable()
oNomCli:Disable()
oCuitcli:Disable()
oIvaCli:Disable()
oFech:Disable()
vCli :=oDbf:CLIENTE
vNroOr:=oDbf:NROORDEN
oDbfCli:Seek(vCli)
IF !oDbfCli:Eof()
vNomCli:=oDbfCli:RAZONSOC
ELSE
vNomCli:=SPACE(60)
ENDIF
oDbfIva:Seek(oDbf:IVACLI)
IF !oDbfIva:Eof()
vIvaCli:=oDbfIva:DESCRIP
ELSE
vIvaCli:=SPACE(60)
ENDIF
vCuitCli:=oDbf:CUITCLI
vFech :=oDbf:FECHA
vNet :=oDbf:NETOGRAV
vIvaI :=oDbf:IVAI
vTotGral:=oDbf:TOTALFAC

DO WHILE !oDbf:Eof() .AND. oDbf:CODIGONP=vCod
oDbfTemp:Append()
oDbfTemp:CODIGONP:=oDbf:CODIGONP
oDbfTemp:NROORDEN:=oDbf:NROORDEN
oDbfTemp:CLIENTE :=oDbf:CLIENTE
oDbfTemp:IVACLI :=oDbf:IVACLI
oDbfTemp:CUITCLI :=oDbf:CUITCLI
oDbfTemp:FECHA :=oDbf:FECHA
oDbfTemp:LETRA :=oDbf:LETRA
oDbfTemp:PUNTOVTA:=oDbf:PUNTOVTA
oDbfTemp:NUMERO :=oDbf:NUMERO
oDbfTemp:CODPROD :=oDbf:CODPROD
oDbfTemp:DESCRIP :=oDbf:DESCRIP
oDbfTemp:CANTIDAD:=oDbf:CANTIDAD
oDbfTemp:PRECIO :=oDbf:PRECIO
oDbfTemp:TOTAL :=oDbf:TOTAL
oDbfTemp:NETOGRAV:=oDbf:NETOGRAV
oDbfTemp:IVAI :=oDbf:IVAI
oDbfTemp:TOTALFAC:=oDbf:TOTALFAC
oDbfTemp:TOMADA :=oDbf:TOMADA
oDbfTemp:Save()
oDbfTemp:Unlock()
oDbf:Skip()
ENDDO

oCli:Refresh()
oNroOr:Refresh()
oNomCli:Refresh()
oIvaCli:Refresh()
oCuitCli:Refresh()
oFech:Refresh()
oNet:Refresh()
oIvaI:Refresh()
oTotGral:Refresh()
oDbfTemp:GoTop()
oLbx:GoTop()
oLbx:Refresh()
ENDIF

oDbfTemp:GoTop()
oLbx:GoTop()
oLbx:Refresh()
Return .T.
///////////////////////////////////////////////////////////////////////////////////////////////////

Gracias por la atencion.
Saludos! Jorge Jaurena

Jorge,

Si usas registros borrados, debes indexar usando la cláusula FOR .not. Deleted()