Search the Community

Pessoal, to roendo unhas já faz tempo, já fiz testes, mudei refiz, alterei.. só não deletei tudo! rsrsrsr O que acontece é o seguinte: Tenho um cadastro de disciplinas, neste cadastro eu gravo até 5 descrições, que são as tópicos ensinados aos alunos. Então em cada turma aberta, eu linko as disciplinas e consequentemente os tópicos. Fiz uma opção de avaliação, para que o professor assinale se o aluno aprendeu o tópico ou não. Como são várias disciplinas, e cada disciplina pode ter 5 tópicos, eu fiz com que o operador escolha a turma, o aluno e depois disso eu monto o rFolder com as disciplinas daquela turma e em cada aba eu coloco os tópicos referentes a disciplina, e dou os get´s.. até aqui ta tudo certo.. o que ta acontecendo é que minhas variáveis sempre são somente as ultimas.. tipo, fiz um for/next para inicializar as variáveis. for n_td := 1 to len( a_Disci) __c_ := strzero( n_td, 2, 0 ) if empty( qtde_abas ) qtde_abas := str(n_Td ) else qtde_abas := qtde_Abas + "," + alltrim( str(n_Td ) ) endif n_GetAval1_&__c_. := 0 n_GetAval2_&__c_. := 0 n_GetAval3_&__c_. := 0 n_GetAval4_&__c_. := 0 n_GetAval5_&__c_. := 0 * c_GetAval1_&__c_. := space(10) c_GetAval2_&__c_. := space(10) c_GetAval3_&__c_. := space(10) c_GetAval4_&__c_. := space(10) c_GetAval5_&__c_. := space(10) next e depois de inicializada as variáveis eu coloquei elas na Aba desta maneira.: if len( a_DCodi ) > 0 for n_Cd2 := 1 to len( a_DCodi) * c_nGet := strzero( n_Cd2, 2, 0 ) * select Topicos set order to 03 go top * if dbseek( alltrim( a_DCodi[n_Cd2] + TurmaEscolhida + strzero( nRad1, 2, 0 ) + strzero( val( nCbx2 ), 4, 0 ) ) ) * CodTurmaVet := a_DCodi[n_Cd2] aadd( a_AvlTp, { CodTurmaVet, ITEM_FORM } ) * * @ 40,20 Say ITEM_LN01 Size 480,20 of oFld4:aDialogs[n_Cd2] Pixel Color CLR_BLACK, nRGB( 164, 190, 219 ) Font oFont3 @ 75,20 Say ITEM_LN02 Size 480,20 of oFld4:aDialogs[n_Cd2] Pixel Color CLR_BLACK, nRGB( 164, 190, 219 ) Font oFont3 @ 110,20 Say ITEM_LN03 Size 480,20 of oFld4:aDialogs[n_Cd2] Pixel Color CLR_BLACK, nRGB( 164, 190, 219 ) Font oFont3 @ 145,20 Say ITEM_LN04 Size 480,20 of oFld4:aDialogs[n_Cd2] Pixel Color CLR_BLACK, nRGB( 164, 190, 219 ) Font oFont3 @ 180,20 Say ITEM_LN05 Size 480,20 of oFld4:aDialogs[n_Cd2] Pixel Color CLR_BLACK, nRGB( 164, 190, 219 ) Font oFont3 * * @ 40,610 get oGet1&c_nGet. VAR c_GetAval1_&c_nGet. SIZE 78, 20 COLOR 0, 16777215; PICTURE "@" PIXEL OF oFld4:aDialogs[n_Cd2] FONT oFont2 message "Lançamento de avaliações - Use conceitos de: [Não Atende/Parcialmente/Atende]" @ 75,610 get oGet2&c_nGet. VAR c_GetAval2_&c_nGet. SIZE 78, 20 COLOR 0, 16777215; PICTURE "@" PIXEL OF oFld4:aDialogs[n_Cd2] FONT oFont2 message "Lançamento de avaliações - Use conceitos de: [Não Atende/Parcialmente/Atende]" @ 110,610 get oGet3&c_nGet. VAR c_GetAval3_&c_nGet. SIZE 78, 20 COLOR 0, 16777215; PICTURE "@" PIXEL OF oFld4:aDialogs[n_Cd2] FONT oFont2 message "Lançamento de avaliações - Use conceitos de: [Não Atende/Parcialmente/Atende]" @ 145,610 get oGet4&c_nGet. VAR c_GetAval4_&c_nGet. SIZE 78, 20 COLOR 0, 16777215; PICTURE "@" PIXEL OF oFld4:aDialogs[n_Cd2] FONT oFont2 message "Lançamento de avaliações - Use conceitos de: [Não Atende/Parcialmente/Atende]" @ 180,610 get oGet5&c_nGet. VAR c_GetAval5_&c_nGet. SIZE 78, 20 COLOR 0, 16777215; PICTURE "@" PIXEL OF oFld4:aDialogs[n_Cd2] FONT oFont2 message "Lançamento de avaliações - Use conceitos de: [Não Atende/Parcialmente/Atende]" valid GrAvalFolder( a_AvlTp, a_DCodi, a_Disci, TurmaEscolhida, strzero( nRad1, 2, 0 ), strzero( val( nCbx2 ), 4, 0 ), c_GetAval1_&c_nGet., c_GetAval2_&c_nGet., c_GetAval3_&c_nGet., c_GetAval4_&c_nGet., c_GetAval5_&c_nGet., c_nGet ) * endif next endif Então não importa qtas abas eu tenha, as variáveis sempre serão da ultima.. No caso se tenho 4 abas eu teria que ter na Aba 01 a variável c_GetAval1_01, e na Aba 02 a variável c_GetAval1_02... mas sempre fico só com a ultima... a c_GetAval0_05. Como posso fazer para que cada aba tenha sua variável distinta? Ps.: Desculpem o post longo e por ter me enrolado muito... Att.