FoxPro/Visual FoxPro - Campo General

   
Vista:

Campo General

Publicado por Guillermo L Mauricio  (2 intervenciones) el 04/08/2009 15:10:56
Gente: Buenos dias.
Sabe alguien como son las limitaciones de un campo general?
Sucede que tengo una tabla donde estoy archivando en un campo general imágenes y documentos pdf.-
Venía todo ok hasta llegar al registro 850.-
A partir de ahí no se cargan mas imágenes en el campo, aún cuando el problema no es de disco.
Creee una nueva table, similar a la anterior sin registros y anda bien, por lo tanto hay algo que me estoy "comiendo" y no se que es...

Alguien sabe porque puede ser?

Desde ya muchas gracias.-

Guillermo
Neuquen - Patagonia Argentina
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Campo General

Publicado por HELDER (COUNDY) (710 intervenciones) el 04/08/2009 22:46:13
CUAL ES TU CODIGO?

SALUDES
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Campo General

Publicado por Guillermo (2 intervenciones) el 05/08/2009 11:31:28
CD C:PDF
F=GETFILE()
LEN_=LEN(F)

F2=AT(",",F)
F1=AT(" ",F)
L_=LEN(F)-RAT("",F)
F1_=RIGHT(F,L_)

IF F1<>0 .OR. F2<>0
F1=IIF(F1<F2,F1,F2)
SF=SUBSTR(F,1,F1-1)

W=AT("(",F)
IF W<>0
dd_=SUBSTR(F,w,3)
sf=sf+"*"+dd_

else
sf=sf+"*"
endif

EXT_=SUBSTR(F,at(".",f),4)
FR_=SF+EXT_


FD_= SF+EXT_

*** elimino ESPACIOS
DO WHILE .T.
IF AT(" ",F1_)=0
EXIT
ELSE
W=AT(" ",F1_)
F1_=STUFF(F1_,W,1,"_")
ENDIF
ENDDO

** elimino ,
DO WHILE .T.
IF AT(",",F1_)=0
EXIT
ELSE
W=AT(",",F1_)
F1_=STUFF(F1_,W,1,"_")
ENDIF
ENDDO

** elimino PARENTESIS...
DO WHILE .T.
IF AT("(",F1_)=0
EXIT
ELSE
W=AT("(",F1_)
F1_=STUFF(F1_,W,1,"_")
ENDIF

ENDDO
else
FR_=F
ENDIF

DO WHILE .T.
IF AT(")",F1_)=0
EXIT
ELSE
W=AT(")",F1_)
F1_=STUFF(F1_,W,1,"_")
ENDIF
ENDDO


*F2_="\ServercarteraARCHIVO"+F1_
F2_="\Servercarteraarchivo"+F1_
IF SUBSTR(FR_,1,25)<>"\SERVERCARTERAARCHIVO"
COPY FILE &FR_ TO &F2_
ENDIF
PZA_=" "
marca_=0

APPEND general link_ from &f2_ link

=MESSAGEBOX("LINK A UN DOCUMENTO OK")

CHDIR C:cartera_FOX

THISFORM.COMMAND10.VISIBLE=.T.

*? FR_
*? F2_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar