PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 28 → Creacion de control table
Creacion de control table
Iniciado por Victor Maturana, nov., 29 2017 3:41 PM - 1 resposta
Publicado em novembro, 29 2017 - 3:41 PM
se puede crear una control table via programacion ?? péro como lo hago
Publicado em novembro, 30 2017 - 1:33 AM
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