WINDEV Exemplo Table com COMBO programável com valores fixos e com valores variaveis

VIDEO
https://youtu.be/QaLMRokMdoU

https://youtu.be/oiX8INArBgY

DEIXE SEU LIKE E COMPARTILHE COM OS AMIGOS

CODIGO:

// Summary: <specify the procedure action>
// Syntax:
//Altera_Combo_Container_Fixo ()
//
// Parameters:
// None
// Example:
// <Specify a usage example>
//
// Return value:
PROCEDURE Altera_Combo_Container_Fixo()

nx is int = TableInfoXY(TABLEGRID_t001_controles,tiLineNumber,MouseXPos(), MouseYPos())

IF nx > 0 THEN

gnid is 8-byte int = TABLEGRID_t001_controles[nx].COL_T001_controle_id

HReset(t001_controles)
IF HReadSeek(t001_controles,t001_controle_id,gnid,hIdentical)=True THEN

t001_controles.t001_status_fixo = TABLEGRID_t001_controles[nx].COL_Container.COMBO_Container_Fixo.Value

IF HModify(t001_controles) = True THEN
TableDisplay(TABLEGRID_t001_controles,taInit)
ELSE
Info(HErrorInfo())
END

ELSE
Info(HErrorInfo())
END

END

//-------------------------------------------------------------------------------------------

// Summary: <specify the procedure action>
// Syntax:
//Altera_Combo_Container_Variavel ()
//
// Parameters:
// None
// Example:
// <Specify a usage example>
//
// Return value:
PROCEDURE Altera_Combo_Container_Variavel()

nx is int = TableInfoXY(TABLEGRID_t001_controles,tiLineNumber,MouseXPos(), MouseYPos())

IF nx > 0 THEN

gnid is 8-byte int = TABLEGRID_t001_controles[nx].COL_T001_controle_id

HReset(t001_controles)
IF HReadSeek(t001_controles,t001_controle_id,gnid,hIdentical)=True THEN

t001_controles.t001_valor_escolhido = TABLEGRID_t001_controles[nx].COL_ContainerValores.COMBO_Container_Variavel.Value

IF HModify(t001_controles) = True THEN
TableDisplay(TABLEGRID_t001_controles,taInit)
ELSE
Info(HErrorInfo())
END

ELSE
Info(HErrorInfo())
END

ELSE
TableDisplay(TABLEGRID_t001_controles,taInit)
END


//-------------------------------------------------------------------------------------------

// Summary: <specify the procedure action>
// Syntax:
//Carga_Combo_Container_Fixo ()
//
// Parameters:
// None
// Example:
// <Specify a usage example>
//
// Return value:
PROCEDURE Carga_Combo_Container_Fixo()

IF glo_linha <= 0 THEN
RETURN
ELSE
Status is int = TABLEGRID_t001_controles[TABLEGRID_t001_controles].COL_T001_status

TABLEGRID_t001_controles[TABLEGRID_t001_controles].COL_Container.COMBO_Container_Fixo = Status //PATH FULL
END

//------------------------------------------------------------------------------------------

// Summary: <specify the procedure action>
// Syntax:
//Carga_Combo_Container_Variavel ()
//
// Parameters:
// None
// Example:
// <Specify a usage example>
//
// Return value:
PROCEDURE Carga_Combo_Container_Variavel()

valor_escolhido is int = 0

valores is string = ""

IF glo_linha <= 0 THEN

RETURN

ELSE

gnid is 8-byte int = t001_controles.t001_controle_id

IF HReadSeek(t001_controles,t001_controle_id,gnid,hIdentical) = True

valores = Replace(t001_controles.t001_valores,";",CR)

TABLEGRID_t001_controles[TABLEGRID_t001_controles].COL_ContainerValores.COMBO_Container_Variavel.InitialContent = valores

valor_escolhido = TABLEGRID_t001_controles[TABLEGRID_t001_controles].COL_T001_Valor_Escolhido

TABLEGRID_t001_controles[TABLEGRID_t001_controles].COL_ContainerValores.COMBO_Container_Variavel = valor_escolhido //PATH FULL


//ajuste tecnico da linha 1

gnid = TABLEGRID_t001_controles[1].COL_T001_controle_id

IF HReadSeek(t001_controles,t001_controle_id,gnid,hIdentical) = True THEN

valores = Replace(t001_controles.t001_valores,";",CR)

TABLEGRID_t001_controles[1].COL_ContainerValores.COMBO_Container_Variavel.InitialContent = valores

valor_escolhido = TABLEGRID_t001_controles[1].COL_T001_Valor_Escolhido

TABLEGRID_t001_controles[1].COL_ContainerValores.COMBO_Container_Variavel = valor_escolhido //PATH FULL

END

END

END

//------------------------------------------------------------------------------------------