BOA noite
Na aula de hoje, vamos comecar a fazer os ajustes
do custo, para fazer automatico os nivels
Good evening
In today's class, we will begin to make adjustments
Of cost, to make automatic levels
Buenas noches
En la clase de hoy, vamos a empezar a hacer los ajustes
Del coste, para hacer automatico los nivels
_nivel is int=0
_grupo is boolean=True
_centro_custo is string=""
IF TableSelect(TABLE_CUSTOS) = -1 THEN
_nivel=1
_centro_custo="01"
ELSE
_nivel=TABLE_CUSTOS.COL_NIVEL
TableSelectPlus(TABLE_CUSTOS,TABLE_CUSTOS..Occurrence)
_centro_custo=StringIncrement(TABLE_CUSTOS.COL_CENTRO_CUSTO,FromBeginning)
END
HReset(CUSTOS)
Open(WIN_Form_CUSTOS,_nivel,_grupo,_centro_custo)
TableDisplay(TABLE_CUSTOS,taCurrentFirst)
_nivel is int=0
_grupo is boolean=True
_centro_custo is string=""
IF TableSelect(TABLE_CUSTOS) = -1 THEN
_nivel=1
_centro_custo="01"
ELSE
_nivel=TABLE_CUSTOS.COL_NIVEL
TableSelectPlus(TABLE_CUSTOS,TABLE_CUSTOS..Occurrence)
_centro_custo=StringIncrement(TABLE_CUSTOS.COL_CENTRO_CUSTO,FromBeginning)
END
HReset(CUSTOS)
Open(WIN_Form_CUSTOS,_nivel,_grupo,_centro_custo)
TableDisplay(TABLE_CUSTOS,taCurrentFirst)
http://windevdesenvolvimento.blogspot.com.br/2017/06/aula-1172-windev-curso-029-formulario.html