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)