PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 28 → Creacion de control table
Creacion de control table
Débuté par Victor Maturana, 29 nov. 2017 15:41 - 1 réponse
Posté le 29 novembre 2017 - 15:41
se puede crear una control table via programacion ?? péro como lo hago
Posté le 30 novembre 2017 - 01:33
Hola Victor

Te paso un ejemplo, aqui tienes un carga por programacion de un objeto
table:
Llama un query y luego recorro los resultados y voy cargando el table.

TableDeleteAll(TABLE_inventario)

QRY_ItemsporLote.pCodigo=Null
QRY_ItemsporLote.pComienzaConDescripcion=Null
HExecuteQuery(QRY_ItemsporLote)
IF HReadFirst(QRY_ItemsporLote) = True THEN
WHILE NOT HOut
TableAddLine(TABLE_inventario, + ...
QRY_ItemsporLote.TCODIGO, QRY_ItemsporLote.TDESCRI,
QRY_ItemsporLote.TLOTE, QRY_ItemsporLote.TSTOCK, + ...
QRY_ItemsporLote.COSUNIT_S,QRY_ItemsporLote.COSUNIT_D,QRY_ItemsporLote.VSTOCK_S,QRY_ItemsporLote.VSTOCK_D,
QRY_ItemsporLote.PREC_VS, QRY_ItemsporLote.PREC_VD, + ...
QRY_ItemsporLote.CONTABLE, QRY_ItemsporLote.INICIAL,
QRY_ItemsporLote.TMARCA, QRY_ItemsporLote.TMODEL, + ...
QRY_ItemsporLote.TSERIES, QRY_ItemsporLote.PREC_CS,
QRY_ItemsporLote.PREC_CD)

HReadNext(QRY_ItemsporLote)
END
END

Espero que te sirva.

Saludos
Victor. :-)



---
El software de antivirus Avast ha analizado este correo electrónico en busca de virus.
https://www.avast.com/antivirus