Yury

olá Alê, tudo bem ?
eu vi no tópico:
http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=10852
que vc usa a TExcelScript, porém tentei baixar no link do fórum internacional e me parece q o arquivo não está mais disponível...
será q vc pode fazer a gentileza de enviar por email pra mim?
sem querer abusar, mas já abusando, eu notei q vc está bem afiado nesta classe, se puder mandar um exemplo junto seria ótimo...
envie p/ vimansca@vimansca.com.br a/c Yury
muito obrigado desde já e um grande abraço
Yury Marcelino Al
Viman Sistemas
vimansca@vimansca.com.br
yury030575@yahoo.com.br (msn)
skype: yury.marcelino.al
Leme / SP
FW 2.6 / [x]Harbour 99.50 / WS / xDev 0.65 / @say

Olá, bom dia
você tem que diminuir 1 do contador do FOR quando redimensiona o array para um tamanho menor
e pode utilizar o Adel conforme a Ana falou, não precisa fazer aSize
for i=1 to len(aPlano7)
if aPlano7[i,9]<>0
if aPlano7[i,7]<>aPlano7[i,9]
if aPlano7[i,1]='010000014'
endif
DelMatriz(aPlano7,i)
i:=i-1 // aqui diminui um do contador
endif
endif
next
Abraço

LOCAL cFontBC:="3OF9_NEW.TTF" AddFontResource(cFontBC) DEFINE FONT oFontBC NAME "3 of 9 Barcode" SIZE -54,-68 OF oPrinter oPrinter:CmSay(nLin,nCol,"*"+STRZERO(nLoteInterno,10)+"*",oFontBC,NIL,CLR_BLACK,NIL,NIL) vc precisa de uma fonte para código de barras, no exemplo acima estou usando a "3 de 9" ...  na internet há vários repositórios, de vários tipos, para todas as necessidades
 
o AddFontResource adiciona a fonte no Windows
 
DEFINE FONT para criar o objeto TFont associado ao objeto TPrinter
 
para imprimir na coordenada desejada utilize a fonte como parâmetro para o CmSay do TPrinter
 
observação:  no caso desta fonte do exemplo acima Ã© necessário iniciar e finalizar os caracteres do código de barras com astericos ( * ) ;  outra coisa q vc deve observar é que determinados tipos de fontes para códigos de barras somente aceitam números, outros aceitam quaisquer caracteres, alguns deles tem uma quantidade de caracteres determinada,  ou seja, vai variar de fonte para fonte
 
abraço