PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 24 → WX - Trabalhando com Arquivo Pai X Filho
WX - Trabalhando com Arquivo Pai X Filho
Iniciado por BOLLER ADRIANO, ago., 10 2016 7:30 PM - Sem resposta
Membro registado
2.962 mensagems
Popularité : +89 (91 votes)
Publicado em agosto, 10 2016 - 7:30 PM
Exemplo:

Procedure atualiza_itens(pedidotmp)

HourGlass(True)

dsItens is Data Source


TableDeleteAll(TABLE_itens)

HExecuteSQLQuery(dsItens,New_Connection,hQueryWithoutCorrection,"SELECT * FROM itens_pedido WHERE itens_pedido.pedido = '" + pedidotmp + "' ORDER BY itens_pedido.codigo")
HReadFirst(dsItens)

// adiciona os registros da query na grid

WHILE NOT HOut(dsItens)
TableAddLine(TABLE_itens,dsItens.id, dsItens.cod_cor, dsItens.t1, dsItens.t2, dsItens.t3, dsItens.t4, dsItens.t5, dsItens.t6, dsItens.t7, dsItens.t8, dsItens.t9, dsItens.t10, dsItens.t11, dsItens.t12, dsItens.valor_un,dsItens.quantidade,dsItens.subtotal)
HReadNext(dsItens)
END

TableSelectPlus(TABLE_itens,TableSeek(COL_produto,COMBO_Produto))
HCancelDeclaration(dsItens)

HourGlass(False)


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/