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