Nessa aula de hoje
VAMOS FINALIZAR A PARTE DA TABELA DE CUSTOS, VOU ARRUMAR A ORDEM,
VOU FAZER COM QUE A DESCRICAO, TENHA ESPACAMENTO CONFORME O NIVEL,
E COLOCAR UMA COR NO NIVEL 1, E TAMBEM FILTRAR OS CUSTOS POR EMPRESA
LET'S FINISH PART OF THE COST TABLE, I'LL TAKE THE ORDER,
I WILL MAKE THE DESCRIPTION, HAVE SPACES ACCORDING TO THE LEVEL,
AND PLACE A COLOR IN LEVEL 1, AND ALSO FILTER THE COSTS BY COMPANY
En esta clase de hoy
VAMOS FINALIZAR LA PARTE DE LA TABLA DE COSTOS, VOY ARRUMAR EL ORDEN,
VOY HACER CON QUE LA DESCRIPCIÓN, TIENE ESPACIO CONFORME A NIVEL,
Y COLOCAR UN COLOR EN EL NIVEL 1, Y TAMBIEN FILTRAR LOS COSTOS POR LA EMPRESA
IF TABLE_CUSTOS.COL_NIVEL=1 THEN
TABLE_CUSTOS[CurrentSubscript()]..Color = DarkGreen
ELSE
TABLE_CUSTOS.COL_DESCRICAO=RepeatString(" ", TABLE_CUSTOS.COL_NIVEL * 2) + ...
TABLE_CUSTOS.COL_DESCRICAO
END
_nivel is int=0
_grupo is boolean=False
_centro_custo is string=""
IF TABLE_CUSTOS.COL_CONTA_GRUPO=True THEN
_nivel=TABLE_CUSTOS.COL_NIVEL+1
_centro_custo=TABLE_CUSTOS.COL_CENTRO_CUSTO
ELSE
_nivel=TABLE_CUSTOS.COL_NIVEL
_posicao_final is int=(_nivel-1)*3
_centro_custo=TABLE_CUSTOS.COL_CENTRO_CUSTO[[1 TO _posicao_final]]
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
_centro_custo=TABLE_CUSTOS.COL_CENTRO_CUSTO
LOOP
_centro_custo=StringIncrement(_centro_custo,FromEnd)
HReadSeekFirst(CUSTOS,chave_idempresa_centrocusto,[gn_retorna_id_empresa_codigo,_centro_custo])
IF HFound(CUSTOS) THEN
ELSE
BREAK
END
END
END
HReset(CUSTOS)
Open(WIN_Form_CUSTOS,_nivel,_grupo,_centro_custo)
TableDisplay(TABLE_CUSTOS,taCurrentRecord)
_nivel is int=0
_grupo is boolean=True
_centro_custo is string=""
IF TableSelect(TABLE_CUSTOS) = -1 THEN
END
_nivel=TABLE_CUSTOS.COL_NIVEL+1
_centro_custo=TABLE_CUSTOS.COL_CENTRO_CUSTO
n_CONTADOR is int=3
LOOP
IF _centro_custo[[n_CONTADOR]]="" THEN
_centro_custo=_centro_custo+".000"
BREAK
ELSE
n_CONTADOR+=1
END
END
_centro_custo=StringIncrement(_centro_custo,FromEnd)
HReset(CUSTOS)
Open(WIN_Form_CUSTOS,_nivel,_grupo,_centro_custo)
TableDisplay(TABLE_CUSTOS,taCurrentFirst)
Procedure WIN_Form_CUSTOS(_nivel,_grupo,_centro_custos)
FileToScreen()
IF CUSTOS..NewRecord=True THEN
EDT_EmpresaID=gn_retorna_id_empresa_codigo
EDT_NIVEL=_nivel
CBOX_CONTA_GRUPO=_grupo
EDT_CENTRO_CUSTO=_centro_custos
IF _grupo=True THEN
EDT_DESCRICAO..Caption="NOME GRUPO"
END
END
ReturnToCapture(EDT_DESCRICAO)
MyWindow..ReturnedValue = False
ScreenToFile()
IF CUSTOS..NewRecord THEN
_data_source is Data Source
_sql is string
_sql = [
SELECT
Max(CUSTOS.id_empresa_custo) AS ultimo
FROM
CUSTOS
where
CUSTOS.empresaID=%1
]
_sql = StringBuild(_sql,gn_retorna_id_empresa_codigo)
IF HExecuteSQLQuery(_data_source,hQueryDefault,_sql) THEN
HReadFirst(_data_source)
CUSTOS.id_empresa_custo=_data_source.ultimo+1
ELSE
CUSTOS.id_empresa_custo=1
END
IF CUSTOS.CONTA_GRUPO=False THEN
CUSTOS.CENTRO_CUSTO=CUSTOS.CENTRO_CUSTO+"."+NumToString(CUSTOS.id_empresa_custo,"03D")
END
HAdd(CUSTOS)
ELSE
HModify(CUSTOS)
END
MyWindow..ReturnedValue = True
http://windevdesenvolvimento.blogspot.com.br/2017/06/aula-1179-windev-curso-erpamarildo-036.html