!Loc:Transfere_Obs
!Essa rotina ira fazer com que nao quebre palavras
!loc:Texto string 2000
!loc:contador long
!loc:inicial long
!loc:final long
!loc:transfere_obs => Grupo => com ! wobs dim[6] Tamanno 80
loc:Texto=Loc:Transfere_Obs
Loc:Transfere_Obs=''
loc:contador=0
LOOP
IF loc:Texto<>''
Loc:Inicio=1;loc:Final=80;loc:contador+=1
IF loc:contador>6
BREAK
ELSE
LOOP
if (SUB(loc:Texto,loc:Final,1)<>'' AND SUB(loc:Texto,loc:Final+1,1)='') OR (SUB(loc:Texto,loc:Final,1)='')
WObs[loc:contador]=CLIP(LEFT(sub(loc:Texto,Loc:Inicio,loc:Final)))
loc:Texto=sub(loc:Texto,loc:Final+1,20000)
BREAK
ELSE
LOC:FINAL-=1
IF LOC:FINAL<1 p=""> LOC:INICIO=LOC:INICIO+loc:Final
WObs[loc:contador]=CLIP(LEFT(sub(loc:Texto,Loc:Inicio,loc:Final)))
LOC:FINAL=80
BREAK
END
END
END
END
ELSE
BREAK
END
END
!Loc:Transfere_Obs
