CLIENTE LER

CLIENTE LER

//ler cliente
HReadSeekFirst(cliente,cliente.id_cliente,TABLE_cliente.COL_Id_cliente)
IF HFound(cliente) THEN
    Open(WIN_Form_cliente)
END