Instalar IqXml
Se ja instalou desconsidere essa etapa.
Para instalar entre no site
http://www.paresi.net/clarion/
e baixe a versao para 6.0
segunda-feira, 8 de dezembro de 2014
domingo, 28 de setembro de 2014
sexta-feira, 1 de agosto de 2014
sexta-feira, 20 de junho de 2014
Essa rotina ira fazer com que nao quebre palavras
Essa rotina ira fazer com que nao quebre palavras
!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
1>
!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
Marcadores:
20/06/2014,
Quebra Palavras,
String
sábado, 7 de junho de 2014
Assinar:
Postagens (Atom)