FiveTech Software tech support forums

mastintin wrote:
Sin problemas. Una idea que se me ocurre para no romper compatibilidad con lo que tengas hecho y crearla con printer seria hacer algo así :
Añadir un metodo ... ( ojo que no se si estan bien los parametros que pongo pues va de memoria )

METHOD Box( nRow, nCol, nBottom, nRight, oPen ) INLINE ;
::Rect( nRow, nCol, nBottom, nRight, oPen )

METHOD RoundBox( nRow, nCol, nBottom, nRight, nWidth, nHeight, oPen, nBGColor ) INLINE ;
::Rect( nRow, nCol, nBottom, nRight, oPen,, Min( nWidth, nHeight ) , nBGColor )

METHOD CmBox( nRow, nCol, nBottom, nRight, oPen ) INLINE ;
::CmRect( nRow, nCol, nBottom, nRight, oPen )


Quedando la opción de usar box() o rect () indistintamente ...

mastintin wrote:Tengo otra pequeña corrección en el metodo say :

Code: Select all  Expand view

   ::CheckPage()
   HPDF_Page_BeginText( ::hPage )

   //-------------- nuevo sino se pasaba fuente daba error ahora coge la que esta activa  //
   If Empty( oFont )
      oFont := { HPDF_Page_GetCurrentFont( ::hPage ), HPDF_Page_GetCurrentFontSize(  ::hPage ) }
   EndIf
  //---------------------------------

   HPDF_Page_SetFontAndSize( ::hPage, oFont[1], oFont[2] )

 

Code: Select all  Expand view

   If !Empty( oFont )
       HPDF_Page_SetFontAndSize( ::hPage, oFont[1], oFont[2] )
   EndIf
 

Code: Select all  Expand view

METHOD Say(
  ..........................
   OTHER
      nWidth := HPDF_Page_TextWidth( ::hPage, cText )   // nuevo
      HPDF_Page_TextOut( ::hPage, nCol-nWidth/2, ::nHeight - nRow - oFont[2], cText )
   ENDCASE
.........................
 

Code: Select all  Expand view

  PRINT  oPrn TO HARU  PREVIEW
        PAGE HARU
        .........
        ENDPAGE  HARU
   ENDPRINT
 

ruben Dario wrote:Saludos.

Podrian Publicar la clase completo con todos los cambios.

Una Pregunta con lo que indicas con el commando PRINT
Se usaria asi. (Practicamente igual como se usa el command tradicional)

Code: Select all  Expand view

  PRINT  oPrn TO HARU  PREVIEW
        PAGE HARU
        .........
        ENDPAGE  HARU
   ENDPRINT
 

Vale, aunque más corto sería

If !Empty( oFont )
HPDF_Page_SetFontAndSize( ::hPage, oFont[1], oFont[2] )
EndIf

Ya que ya está seteado oFont.

Code: Select all  Expand view

   If Empty( oFont )
      oFont := { HPDF_Page_GetCurrentFont( ::hPage ), HPDF_Page_GetCurrentFontSize(  ::hPage ) }
   else
       HPDF_Page_SetFontAndSize( ::hPage, oFont[1], oFont[2] )
   EndIf

 

Code: Select all  Expand view

   METHOD GetFont() INLINE { HPDF_Page_GetCurrentFont( ::hPage ), HPDF_Page_GetCurrentFontSize(  ::hPage ) }

METHOD SetFont( oFont )
   If Empty( oFont )
      oFont := ::GetFont()
   else
      HPDF_Page_SetFontAndSize( ::hPage, oFont[1], oFont[2] )
   endif
Return oFont


//------------------------------------------------------------------------------
METHOD Say( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad )
//------------------------------------------------------------------------------

   LOCAL c
   ::CheckPage()
   HPDF_Page_BeginText( ::hPage )

   oFont := ::SetFont( oFont )

   ...........................

 

Nota: Por cierto, si alguien tiene una idea de como hacer un ShellExecute directamente desde Harbour sin FW, agradecido. Hasta ahora la solución es escribir una llamada en C al ShellExecute original

como hacer un ShellExecute desde fuera de FiveWin

Code: Select all  Expand view

FUNCTION OpenPdf( cPdf )

Local lOk:= .t.
Local oShell


TRY

   #IFDEF __XHARBOUR__

       oShell := CreateObject( "WScript.Shell" )

   #ELSE

       oShell := Win_OleCreateObject( "WScript.Shell" )

   #ENDIF

CATCH

      lOk:=.F.

END

IF lOk

   TRY

       oShell:Run( "%ComSpec% /C " + cPdf, 0, .T. )

   CATCH

       lOk:=.f.

   END

ENDIF

RETURN lOk

Code: Select all  Expand view

LOAD DATA LOCAL INFILE 'c:/importar.txt'
INTO TABLE importacion
FIELDS TERMINATED BY ',' ENCLOSED BY '"' ESCAPED BY '"'
LINES TERMINATED BY ' '

Si le pasas todos los campos al update aumentas el ancho de banda, si de alguna manera puedes pasar solo los cambios vas a ganar en velocidad. Piensa que entre actualizaciones no es tanto lo que cambia, por lo que reducir por ahí te va a hacer ganar mucho en términos de velocidad.

Es que tu problema es de ancho de banda. Y ftp no es particularmente rápido, aún en modo binario. El problema de velocidad, la mayoría de las veces, es un problema de percepción: Si el proceso es lento pero el usuario no se da cuenta, deja de ser tan relevante. En el caso de los archivos externos, yo plantearía la solucion de forma inversa: Publico un directorio local usando algun servicio, y en el servidor web pongo un cliente de sincronizacion. Por ejemplo, te paso una invitación de hubic que tiene clientes para muchas plataformas, y la sincronización es inteligente, mueve solo novedades. No sé que lógica usas para vincular las imágenes con los correspondientes registros, pero si tienes eso resuelto, es lo mejor que puedes hacer.

Si quieres crea una cuenta en Hubic, usa el código ZZOSRX al darte de alta para que te dé 5Gb de espacio extra (se va a 30Gb), y haz alguna prueba. Creo que si logras hacer andar la sincronización con Hubic vas a resolver un problema importante, porque sería instantáneo y automágico, en cuanto se copia un fichero en la carpeta de las imágenes quedaría automáticamente publicada.

Pensaba en hacer procesos automáticos. Si lo quieres hacer con Heidi no le veo inconveninte, yo pensaba en algo desatendido. Si es por una única vez, esta bien, si es de forma permanente... es para pensárselo.

hmpaquito wrote:He hecho una WebApp, no está aún en producción, para recogida de pedidos y tratamiento de informacion de clientes. Tengo que subirle los datos desde la aplicacion escritorio.
Subo varias tablas, articulos, clientes, etc.. y fotos y pdfs. Ahora mismo lo hago con UPDATE, uno por cada registro. Cada UPDATE lleva todos los campos del registro a grabar.

hmpaquito wrote:Creo que la primera de las soluciones que me has dado es la mejor, dado que tengo acceso al server.

Por cierto, como tengo que subir fotos y pdfs que estan en ficheros sueltos... ¿ aquí como actuar ?... los estaba subiendo con ftp...pero es muy lento.

hmpaquito wrote:Editado: ¿ Por qué el volcado de los UPDATEs hay que hacerlo por consola ? ¿ No es igual de efectivo si lo pego en un la ventana SQL de HeidiSql, pongamos por caso, y lo ejecuto ?

Code: Select all  Expand view

oPrn : GetPhySize()