Search the Community
Showing results for tags 'macro'.
Found 1 result
-
Bom dia a todos tenho que usar do while com macro pois tenho 3 opcoes e cada opcao tem uma condicao diferente exemplo da opcao 2 If T_Escolha_Forma_Calculo = 2 Folfun->(OrdSetFocus("arqfun16")) condicao:="Str(folfun->Fun_Codemp,4)+Str(folfun->fun_alocac,8) >= Str(M->vCodemp,4)+Str(Codigo1,8) .and. Str(folfun->Fun_Codemp,4)+Str(folfun->fun_alocac,8)<=Str(M->vCodemp,4)+Str(Codigo2,8) .and. !folfun->(eof())" ? condicao _reg:=folfun->(recno()) Do while &Condicao // da erro aqui alquem poderia me ajudar solucionar esse problema ou estou fazendo algo errado ? Apagar() Folfun->(Dbskip()) Enddo folfun->(Dbgoto(_reg)) Endif Do while &condicao Apagar() T_TXT_001 := Str(FolFun->Fun_Matric,5) T_TXT_002 := ALLTRIM(FolFun->Fun_Nome) oT_TXT_001 : Refresh() oT_TXT_002 : Refresh() Folfun->(Dbskip()) Enddo folfun->(Dbgoto(_reg)) ALERT('Calculo Por Setor' ) *--------------------------------------------------------------------------------------------------------------------------------------------* Desde de já muito obrigado atodos Luiz Carlos Nogueira (Batata) Paulinia - SP zap (11) 96969-3667
