//Aula 1153 WinDev Curso ErpAmarildo 11 - Tabela Codigo de Alteração
//Nessa aula de hoje //vamos fazer a alteração do registro.
//En esta clase de hoy //Vamos a cambiar el registro.
//In this class today //Let's do the registry change.
IF TableSelect(TABLE_QRY_RELACAO_EMPRESAS)=-1 THEN RETURN _indice is int=TableSelect(TABLE_QRY_RELACAO_EMPRESAS) HReadSeekFirst(empresa,empresaID,TABLE_QRY_RELACAO_EMPRESAS.COL_EmpresaID) IF HFound(empresa) THEN Open(WIN_Form_empresa) END TableDisplay(TABLE_QRY_RELACAO_EMPRESAS,taReExecuteQuery) TableSelectPlus(TABLE_QRY_RELACAO_EMPRESAS,_indice) |