Tabela Grupo

Tabela Grupo
====
TableEnableFilter(TABLE_material_grupo.COL_Id_empresa,filterStartsWith,1) // gnEmpresaCodigo)
TableSort(TABLE_material_grupo,"TABLE_material_grupo.COL_Mascara_grupo")
==

IF TABLE_material_grupo.COL_Nivel=1 THEN
    TABLE_material_grupo[CurrentSubscript()]..Color = LightRed
END
IF TABLE_material_grupo.COL_Nivel=3 THEN
    TABLE_material_grupo[CurrentSubscript()]..Color = LightBlue
END
TABLE_material_grupo.COL_Nome  = RepeatString(" ",TABLE_material_grupo.COL_Nivel * 2) + TABLE_material_grupo.COL_Nome
//TABLE_CADASTRO.COL_DESCRICAO = RepeatString(" ",TABLE_CADASTRO.COL_NIVEL         * 2) + TABLE_CADASTRO.COL_DES
==== niveis
                    nProximo_codigo++
                    material_grupo.id_material_grupo=nProximo_codigo
                    material_grupo.id_empresa = ExtractString(sLinha,nextRank,"|") // 2          
                    nGrande_grupo = ExtractString(sLinha,nextRank,"|") // 3
                    nSub_grupo = ExtractString(sLinha,nextRank,"|") // 4
                    nTipo = ExtractString(sLinha,nextRank,"|") // 5
                    nCodigo = ExtractString(sLinha,nextRank,"|") // 6
                    material_grupo.id_codigo_grupo_antigo=nCodigo
                    material_grupo.nome  = ExtractString(sLinha,nextRank,"|") // 7
                    IF sFimarquivo="MATERIAL-GRUPO" THEN
                        material_grupo.mascara_grupo=NumToString(nCodigo,"03d")
                        material_grupo.nivel = 1
                        HAdd(material_grupo)
                    ELSE
                        IF sFimarquivo="SUB-GRUPO" THEN
                            material_grupo.mascara_grupo=NumToString(nGrande_grupo,"03d")+"."+NumToString(nCodigo,"03d")
                            material_grupo.nivel = 2
                            HAdd(material_grupo)
                        ELSE
                            IF sFimarquivo="TIPO_MATERIAL" THEN
                                material_grupo.mascara_grupo=NumToString(nGrande_grupo,"03d")+"."+NumToString(nSub_grupo,"03d")+"."+NumToString(nCodigo,"03d")
                                material_grupo.nivel = 3
                                HAdd(material_grupo)
                            END                              
                        END                  
                    END