**----- Busca Quantidade Total de Clientes ------------** * RESET MCIS1209-PARAMETROS(*) MCIS1209-SYS-CHAMADOR := 'MCI' MCIS1209-PRG-CHAMADOR := *PROGRAM MCIS1209-CD-USUARIO := *USER MCIS1209-CD-DEP-USUARIO := +GD-AGEN MCIS1209-FUNCAO := 9 MCIS1209-CD-GR-RLC-CLI := #TAB-COD-GRUPO(#IX) MCIS1209-IN-CLI-CNSD-GR := 'N' MCIS1209-CD-CLI-VCLD-GR := 0 MCIS1209-CD-GR-RLC-CLI-ULT := 0 MCIS1209-CD-CLI-VCLD-GR-ULT := 0 MCIS1209-RET-CODE := 0 SET CONTROL 'P=C' CALL 'MCIS1209' MCIS1209-PARAMETROS(*) DECIDE ON FIRST VALUE OF MCIS1209-RET-CODE VALUE 0 , 88888 IF +GD-OPCAO-MENU NE 62 /* Vrs:016 MOVE MCIS1209-QTD-TOT-S TO #QTD-TOT-CLI-VCL ELSE #QTD-TOT-CLI-VCL := (MCIS1209-QTD-TOT-S - #CENTRALIZADOR) END-IF VALUE 306 +MSG := ' No existem empresas vinculadas ao grupo.' ESCAPE BOTTOM NONE VALUE #SEQ-ERRO := 2 CALLNAT 'MCIN0215' #PROG #SEQ-ERRO MCIS1209-CONTROLE-SAIDA(*) #COD-RETN END-DECIDE * **----- Busca Lista de Clientes Vinculados ------------** **----- Busca Lista de Clientes Vinculados ------------** * RESET MCIS1209-PARAMETROS(*) MCIS1209-SYS-CHAMADOR := 'MCI' MCIS1209-PRG-CHAMADOR := *PROGRAM MCIS1209-CD-USUARIO := *USER MCIS1209-CD-DEP-USUARIO := +GD-AGEN MCIS1209-FUNCAO := 1 MCIS1209-CD-GR-RLC-CLI := #TAB-COD-GRUPO(#IX) GDA-COD-CLI := 0 MCIS1209-IN-CLI-CNSD-GR := 'N' MCIS1209-CD-CLI-VCLD-GR := 0 MCIS1209-CD-GR-RLC-CLI-ULT := 0 MCIS1209-CD-CLI-VCLD-GR-ULT := 0 MCIS1209-RET-CODE := 0 * REPEAT REPEAT RESET #IX-TAB PERFORM CHAMA-MCIS1209 IF +GD-OPCAO-MENU NE 62 /* Vrs:016 PERFORM MOSTRA-VINCULACOES ELSE PERFORM MOSTRA-VINCULACOES-FRANQUIA /* MAPA P/ FRANQUIA END-IF IF MCIS1209-RET-CODE NE 88888 #SAIR := 'S' END-IF IF #SAIR EQ 'S' RESET #NOM-GRUPO ESCAPE ROUTINE END-IF END-REPEAT * *