Entrar
¿Nuevo usuario? Inscribirme
guvoaII · GUVOA Visual Object Español
? ¿Ya estás suscrito? Entra a Yahoo!

Consejos

¿Sabías que...?
Podés hacer búsquedas de antiguos mensajes del grupo.

Mensajes

  Mensajes Ayuda
Avanzado
Mensajes 1538 - 1567 de 2837   Más reciente  |  < Más reciente  |  Más antiguo >  |  Más antiguo
Mensajes: Mostrar resúmenes de los mensajes   (Agrupar por tema) Clasificar por fecha v  
#1567 De: "AdeSistemas" <adesistemas@...>
Fecha: Mar, 17 de Abr, 2007 12:21 am
Asunto: Re: procesos con control de fechas
adessistemas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
En este proceso en el archivo concepto tengo que reemplazar el campo impo en cero (0)
pero no me lo hace me lo deja sin reemplazar, y no solo eso sino que tambien el proceso que sigue deja de funcionar.
Cual puede ser el problema
 
 
METHOD calculasaldos CLASS conceptos_saldos
 
   LOCAL oConcepto AS concepto
   oConcepto := Concepto{SELF,TRUE}
 
   
   oConcepto:gotop()  
   DO WHIL !Concepto->EOF()
     oConcepto:replace()                           este es el proceso con problemas
     oConcepto:IMPO := 0                                      
     Concepto->DBSKIP()
   ENDD
   oConcepto:GoTop()
 
   DBUSEAREA(TRUE,"DBFNTX","PLANILLA","MovMov",TRUE)
   MovMov->DBGOTOP()
   DO WHIL !MovMov->EOF()
      ? movmov->fecha
      ? CToD(oDCmfechadesde:Value)
      IF MovMov->fecha < CToD(oDCmfechadesde:Value)
        MovMov->DBSKIP()
        ? DToS(movmov->fecha)+"----1"
        LOOP
      ENDI
 
      mCodconc:=MovMov->cod_conc
      mImporte:=MovMov->impop + (MovMov->impon*-1)
 
      oConcepto:gotop()
      oConcepto:Seek(mCodconc)
      oConcepto:Replace()
      oConcepto:impo := oConcepto:impo + mImporte
 
      MovMov->DBSKIP()
 
   ENDD
 
   oConcepto:Close()
   MovMov->DBCLOSEAREA()
 
 
 
RETU
 
 
 
 
 
Muchas gracias
 
 
 
Luengo Sergio
Analista de Sistemas
General Pico - La Pampa
 
 

#1566 De: Oscar Macias <oscarmacias@...>
Fecha: Mar, 17 de Abr, 2007 1:22 am
Asunto: RE: Ayuda para Excel en cavo 2.7
oscarmaciasc
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Hola
 
La version es 2000, y la libreria es la 9.0
 
 
-----Mensaje original-----
De: guvoaII@... [mailto:guvoaII@...]En nombre de Jorge Accinelli
Enviado el: Lunes, 16 de Abril de 2007 07:54 p.m.
Para: guvoaII@...
Asunto: Re: [guvoaII] Ayuda para Excel en cavo 2.7

Habria que ver todo el codigo, pero parece
que instancias un excel no adecuado
Que version tenes de Excel instalado ?
 
Jorge
----- Original Message -----
Sent: Monday, April 16, 2007 7:21 PM
Subject: RE: [guvoaII] Ayuda para Excel en cavo 2.7

Hola:
solicitu su valiosa ayuda. Adjunto un mensaje de error que me nada al querer grabar en excel, y no se a que se pueda deber.
 
-----Mensaje original-----
De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar]En nombre de Jorge Accinelli
Enviado el: Lunes, 16 de Abril de 2007 01:22 p.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: Re: [guvoaII] Ayuda para Excel en cavo 2.7

 
Pego un metodo que a mi me dio resultado,
con un par de detalles que me pasaron aqui
en el grupo
Jorge Accinelli
 
METHOD PB_Excel( ) CLASS DgRanCau
 
   LOCAL oExcel             AS OBJECT
   LOCAL oWorkBooks         AS OBJECT
   LOCAL oWorkSheet         AS OBJECT
   LOCAL oRange             AS OBJECT
   LOCAL oRangeBorders      AS OBJECT
   LOCAL k := 0             AS INT
   LOCAL aArray             AS ARRAY
   LOCAL cRow := NULL_STRING AS STRING
   LOCAL oServer            AS OBJECT
   LOCAL nSize AS DWORD
   LOCAL t_uni := 0 AS DWORD
   LOCAL t_kgs := 0 AS FLOAT
   LOCAL nRec := 0 AS INT
 
 
 
   IF SELF:Browser:Server:Used
      IF SELF:Browser:server:LastRec = 0
        ErrorBox{SELF,"No hay datos aun!"}:show()
        RETURN SELF
      ENDIF
    ENDIF
 
 
 
   SELF:Pointer := Pointer{ POINTERHOURGLASS }
 
 
 
   // Instanciacion
   oExcel := OleAutoObject{"Excel.Application"}
   IF !oExcel:Finit
    infobox{SELF,"ERROR","No se puede inicializar Excel!"}:Show()
    RETURN SELF
   ENDIF
   oWorkBooks := oExcel:WorkBooks
   oWorkBooks:Add()
   oWorkSheet := oExcel:ActiveSheet
 
 
 
 
 
 
 
  // Datos vía array
     oServer := SELF:Browser:server
     oServer:SuspendNotification()
     nRec := oServer:Recno
     oServer:GoTop()
 
     aArray := ArrayNew ( oServer:LastRec, 6  )
     nSize := oServer:LastRec
     FOR k := 1 TO nSize
          aArray[k] := { oServer:CAUSAL , oServer:NOMBRE, oServer:UNI, oServer:KILOS, oServer:PORCE_UNI, oServer:PORCE_KGS  }
          t_uni += oServer:UNI
          t_kgs += oServer:KILOS
          oServer:Skip()
     NEXT
     oServer:GoTo(nRec)
     oServer:ResetNotification()
     oRange := oWorkSheet:[Range,"A7", "F"+AllTrim(Str(Len(aArray)+ 6 ))]
     oRange:Value := aArray
 
 
 

  // Subtítulos
     oRange := oWorkSheet:[Range,"A6","F6"]
     oRange:Value := { "CAUSAL","NOMBRE"," UNI "," KGS "," % UNI "," % KGS " }
     oRange:Font:Color := RGB(0,128,0)
     oRange:Font:Bold  := TRUE
 
 
 

  // Manejos de Borders
     oRange := oWorkSheet:[Range,"A6", "F" + AllTrim(Str(Len(aArray) + 6 ))  ]
     oRangeBorders := oRange:Borders
 
     oRangeBorders:[item, 8]:Weight := 2            // Top
     oRangeBorders:[item, 8]:ColorIndex := 11
     oRangeBorders:[item, 8]:LineStyle := 1
 
     oRangeBorders:[item, 9]:Weight := 2           // Bottom
     oRangeBorders:[item, 9]:ColorIndex := 11
     oRangeBorders:[item, 9]:LineStyle := 1
 
     oRangeBorders:[item, 7]:Weight := 2            // Left
     oRangeBorders:[item, 7]:ColorIndex := 11
     oRangeBorders:[item, 7]:LineStyle := 1
 
     oRangeBorders:[item, 10]:Weight := 2           // Right
     oRangeBorders:[item, 10]:ColorIndex := 11
     oRangeBorders:[item, 10]:LineStyle := 1
 
     oRangeBorders:[item, 12]:Weight := 1           // Inside Horizontal
     oRangeBorders:[item, 12]:ColorIndex := 11
     oRangeBorders:[item, 12]:LineStyle := 1
 
     oRangeBorders:[item, 11]:Weight := 1           // Inside Vertical
     oRangeBorders:[item, 11]:ColorIndex := 11
     oRangeBorders:[item, 11]:LineStyle := 1
 

     cRow := AllTrim(Str(Len(aArray)+8))
     oWorkSheet:[Range ,"F7"   , "F"+cRow ]:NumberFormat  := "###0,00"
     oWorkSheet:[Range ,"E7"   , "E"+cRow ]:NumberFormat  := "#########0,00"
 

     oRange:Font:Size := 10
     oRange:Font:Name := "Arial"
     oRange:Columns:AutoFit()
 

  // Totales
     cRow := AllTrim(Str(Len(aArray)+7))
     oWorkSheet:[Range ,"A"+cRow  , "A"+cRow ]:Value := "TOTALES"
     oWorkSheet:[Range ,"C"+cRow  , "C"+cRow ]:Value := t_uni
     oWorkSheet:[Range ,"D"+cRow  , "D"+cRow ]:Value := t_kgs
     oWorkSheet:[Range ,"A"+cRow  , "F"+cRow ]:Font:Color := RGB(0,128,0)
     oWorkSheet:[Range ,"A"+cRow  , "F"+cRow ]:Font:Bold  := TRUE
 
 
 

     // Titulos
     oRange := oWorkSheet:[Range,"A1","A1"]
     oRange:Value      := cNomEmp
     oRange:Font:Color := RGB(0,0,157)
     oRange:Font:size  := 15
     oRange:Font:Name  := "Arial"
 
     // Informe
     oRange := oWorkSheet:[Range,"A2","A2"]
     oRange:Value      := "RANKING DE CAUSALES DE RETRABAJO"
     oRange:Font:Color := RGB(0,0,200)
     oRange:Font:size  := 13
     oRange:Font:Name  := "Arial"
 
     // Periodo
     oRange := oWorkSheet:[Range,"A3","A3"]
     oRange:Value := "PERIODO: " + DToS(SELF:oDCDateTimePicker1:SelectedDate) + " - " + DToS(SELF:oDCDateTimePicker2:SelectedDate)
     oRange:Font:size  := 12
     oRange:Font:Name  := "Arial"
 
  // Visible
     oWorkSheet:[RANGE,"F1","f1"]:SELECT()
     oExcel:visible := TRUE
 
 
 
     SELF:Pointer := Pointer{ POINTERARROW }
 

  // Cierro
     oWorkBooks:DestroyOleObject()
     oWorkBooks := NULL_OBJECT
     oWorkSheet:DestroyOleObject()
     oWorkSheet := NULL_OBJECT
     oExcel:DestroyOleObject()
     oExcel := NULL_OBJECT
     CollectForced()
 
 
 
  RETURN SELF
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
----- Original Message -----
Sent: Monday, April 16, 2007 2:29 PM
Subject: [guvoaII] Ayuda para Excel en cavo 2.7

Hola, tenía una aplicacion para generar una hoja de excel desde cavo 2.6, al cambiar a cavo 2.7 no me funciona y no inicia la aplicacion.
Alguno me puede ayudar al respecto?
Gracias
 


No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.446 / Virus Database: 269.4.0/762 - Release Date: 15/04/2007 04:22 p.m.


No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.446 / Virus Database: 269.4.0/762 - Release Date: 15/04/2007 04:22 p.m.


#1565 De: "Jorge Accinelli" <jorgeaccinelli@...>
Fecha: Mar, 17 de Abr, 2007 12:54 am
Asunto: Re: Ayuda para Excel en cavo 2.7
jorgeeugenio...
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Habria que ver todo el codigo, pero parece
que instancias un excel no adecuado
Que version tenes de Excel instalado ?
 
Jorge
----- Original Message -----
Sent: Monday, April 16, 2007 7:21 PM
Subject: RE: [guvoaII] Ayuda para Excel en cavo 2.7

Hola:
solicitu su valiosa ayuda. Adjunto un mensaje de error que me nada al querer grabar en excel, y no se a que se pueda deber.
 
-----Mensaje original-----
De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar]En nombre de Jorge Accinelli
Enviado el: Lunes, 16 de Abril de 2007 01:22 p.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: Re: [guvoaII] Ayuda para Excel en cavo 2.7

 
Pego un metodo que a mi me dio resultado,
con un par de detalles que me pasaron aqui
en el grupo
Jorge Accinelli
 
METHOD PB_Excel( ) CLASS DgRanCau
 
   LOCAL oExcel             AS OBJECT
   LOCAL oWorkBooks         AS OBJECT
   LOCAL oWorkSheet         AS OBJECT
   LOCAL oRange             AS OBJECT
   LOCAL oRangeBorders      AS OBJECT
   LOCAL k := 0             AS INT
   LOCAL aArray             AS ARRAY
   LOCAL cRow := NULL_STRING AS STRING
   LOCAL oServer            AS OBJECT
   LOCAL nSize AS DWORD
   LOCAL t_uni := 0 AS DWORD
   LOCAL t_kgs := 0 AS FLOAT
   LOCAL nRec := 0 AS INT
 
 
 
   IF SELF:Browser:Server:Used
      IF SELF:Browser:server:LastRec = 0
        ErrorBox{SELF,"No hay datos aun!"}:show()
        RETURN SELF
      ENDIF
    ENDIF
 
 
 
   SELF:Pointer := Pointer{ POINTERHOURGLASS }
 
 
 
   // Instanciacion
   oExcel := OleAutoObject{"Excel.Application"}
   IF !oExcel:Finit
    infobox{SELF,"ERROR","No se puede inicializar Excel!"}:Show()
    RETURN SELF
   ENDIF
   oWorkBooks := oExcel:WorkBooks
   oWorkBooks:Add()
   oWorkSheet := oExcel:ActiveSheet
 
 
 
 
 
 
 
  // Datos vía array
     oServer := SELF:Browser:server
     oServer:SuspendNotification()
     nRec := oServer:Recno
     oServer:GoTop()
 
     aArray := ArrayNew ( oServer:LastRec, 6  )
     nSize := oServer:LastRec
     FOR k := 1 TO nSize
          aArray[k] := { oServer:CAUSAL , oServer:NOMBRE, oServer:UNI, oServer:KILOS, oServer:PORCE_UNI, oServer:PORCE_KGS  }
          t_uni += oServer:UNI
          t_kgs += oServer:KILOS
          oServer:Skip()
     NEXT
     oServer:GoTo(nRec)
     oServer:ResetNotification()
     oRange := oWorkSheet:[Range,"A7", "F"+AllTrim(Str(Len(aArray)+ 6 ))]
     oRange:Value := aArray
 
 
 

  // Subtítulos
     oRange := oWorkSheet:[Range,"A6","F6"]
     oRange:Value := { "CAUSAL","NOMBRE"," UNI "," KGS "," % UNI "," % KGS " }
     oRange:Font:Color := RGB(0,128,0)
     oRange:Font:Bold  := TRUE
 
 
 

  // Manejos de Borders
     oRange := oWorkSheet:[Range,"A6", "F" + AllTrim(Str(Len(aArray) + 6 ))  ]
     oRangeBorders := oRange:Borders
 
     oRangeBorders:[item, 8]:Weight := 2            // Top
     oRangeBorders:[item, 8]:ColorIndex := 11
     oRangeBorders:[item, 8]:LineStyle := 1
 
     oRangeBorders:[item, 9]:Weight := 2           // Bottom
     oRangeBorders:[item, 9]:ColorIndex := 11
     oRangeBorders:[item, 9]:LineStyle := 1
 
     oRangeBorders:[item, 7]:Weight := 2            // Left
     oRangeBorders:[item, 7]:ColorIndex := 11
     oRangeBorders:[item, 7]:LineStyle := 1
 
     oRangeBorders:[item, 10]:Weight := 2           // Right
     oRangeBorders:[item, 10]:ColorIndex := 11
     oRangeBorders:[item, 10]:LineStyle := 1
 
     oRangeBorders:[item, 12]:Weight := 1           // Inside Horizontal
     oRangeBorders:[item, 12]:ColorIndex := 11
     oRangeBorders:[item, 12]:LineStyle := 1
 
     oRangeBorders:[item, 11]:Weight := 1           // Inside Vertical
     oRangeBorders:[item, 11]:ColorIndex := 11
     oRangeBorders:[item, 11]:LineStyle := 1
 

     cRow := AllTrim(Str(Len(aArray)+8))
     oWorkSheet:[Range ,"F7"   , "F"+cRow ]:NumberFormat  := "###0,00"
     oWorkSheet:[Range ,"E7"   , "E"+cRow ]:NumberFormat  := "#########0,00"
 

     oRange:Font:Size := 10
     oRange:Font:Name := "Arial"
     oRange:Columns:AutoFit()
 

  // Totales
     cRow := AllTrim(Str(Len(aArray)+7))
     oWorkSheet:[Range ,"A"+cRow  , "A"+cRow ]:Value := "TOTALES"
     oWorkSheet:[Range ,"C"+cRow  , "C"+cRow ]:Value := t_uni
     oWorkSheet:[Range ,"D"+cRow  , "D"+cRow ]:Value := t_kgs
     oWorkSheet:[Range ,"A"+cRow  , "F"+cRow ]:Font:Color := RGB(0,128,0)
     oWorkSheet:[Range ,"A"+cRow  , "F"+cRow ]:Font:Bold  := TRUE
 
 
 

     // Titulos
     oRange := oWorkSheet:[Range,"A1","A1"]
     oRange:Value      := cNomEmp
     oRange:Font:Color := RGB(0,0,157)
     oRange:Font:size  := 15
     oRange:Font:Name  := "Arial"
 
     // Informe
     oRange := oWorkSheet:[Range,"A2","A2"]
     oRange:Value      := "RANKING DE CAUSALES DE RETRABAJO"
     oRange:Font:Color := RGB(0,0,200)
     oRange:Font:size  := 13
     oRange:Font:Name  := "Arial"
 
     // Periodo
     oRange := oWorkSheet:[Range,"A3","A3"]
     oRange:Value := "PERIODO: " + DToS(SELF:oDCDateTimePicker1:SelectedDate) + " - " + DToS(SELF:oDCDateTimePicker2:SelectedDate)
     oRange:Font:size  := 12
     oRange:Font:Name  := "Arial"
 
  // Visible
     oWorkSheet:[RANGE,"F1","f1"]:SELECT()
     oExcel:visible := TRUE
 
 
 
     SELF:Pointer := Pointer{ POINTERARROW }
 

  // Cierro
     oWorkBooks:DestroyOleObject()
     oWorkBooks := NULL_OBJECT
     oWorkSheet:DestroyOleObject()
     oWorkSheet := NULL_OBJECT
     oExcel:DestroyOleObject()
     oExcel := NULL_OBJECT
     CollectForced()
 
 
 
  RETURN SELF
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
----- Original Message -----
Sent: Monday, April 16, 2007 2:29 PM
Subject: [guvoaII] Ayuda para Excel en cavo 2.7

Hola, tenía una aplicacion para generar una hoja de excel desde cavo 2.6, al cambiar a cavo 2.7 no me funciona y no inicia la aplicacion.
Alguno me puede ayudar al respecto?
Gracias
 


No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.446 / Virus Database: 269.4.0/762 - Release Date: 15/04/2007 04:22 p.m.


No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.446 / Virus Database: 269.4.0/762 - Release Date: 15/04/2007 04:22 p.m.

#1564 De: "Jorge Accinelli" <jorgeaccinelli@...>
Fecha: Mar, 17 de Abr, 2007 12:31 am
Asunto: Re: procesos con control de fechas
jorgeeugenio...
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Podes tomar tambien del DateTimePicker
la propiedad SelectedDate que devuelve
en tipo fecha
 
Jorge accinelli
----- Original Message -----
Sent: Monday, April 16, 2007 4:56 PM
Subject: Re: [guvoaII] procesos con control de fechas

ok, lo voy a probar
 
 
Luengo Sergio
Analista de Sistemas
General Pico - La Pampa
 
 
----- Original Message -----
Sent: Monday, April 16, 2007 4:45 PM
Subject: RE: [guvoaII] procesos con control de fechas

Los controles DateTimePicker tienen contenido de tipo caracter, por lo tanto tenés que utilizar el CTOD()

MovMov->DBSEEK(CTOD(oDcmfechadesde:Value))

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@coyspu.com.ar
         gjbiagiotti@gmail.com
         gjbiagiotti@yahoo.com.ar

MSN: gerardo_biagiotti@hotmail.com

De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de AdeSistemas
Enviado el: Lunes, 16 de Abril de 2007 04:21 p.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: [guvoaII] procesos con control de fechas

Colegas:

Tengo un gran problema con las fechas.

Este metodo lo que hace es recorrer el archivo planilla tomar el codigo de concepto y el importe y buscar en el archivo concepto el codigo de concepto y le suma el importe. eso lo hace perfectamente, pero el problemas es con las fechas, cuando quiero contolar entre dos fechas no hay caso me larga errores de tipo de datos, como si no comparara las dos fechas en el mismo tipo.

 PROTECT oDCmfechadesde AS DATETIMEPICKER  que inclusive si esta fecha la cambio en la pantalla no me la toma , me toma el valor inicial que tiene.
El dbseek que hago me dice que no esta indexada la base de dato,

Cual pueden ser los inconvenientes que estoy teniendo.

Espero que me entiedan muchas gracias cualquier cosa les paso el .MEF

METHOD calculasaldos CLASS conceptos_saldos

   LOCAL oConcepto AS concepto
   oConcepto := Concepto{SELF,TRUE}

   DBUSEAREA(TRUE,"DBFNTX","PLANILLA","MovMov",TRUE)
   MovMov->DBGOTOP()
//   MovMov->DBSEEK(oDcmfechadesde:Value)
   DO WHIL !MovMov->EOF()
*      ? DToS(movmov->fecha)
*      ? oDCmfechadesde:Value
   *   IF MovMov->fecha < oDCmfechadesde:Value
   *     MovMov->DBSKIP()
   *     LOOP
   *   ENDI

      mCodconc:=MovMov->cod_conc
      mImporte:=MovMov->impop + (MovMov->impon*-1)

      oConcepto:Seek(mCodconc)
      oConcepto:Replace()
      oConcepto:impo := mImporte

      MovMov->DBSKIP()

   ENDD

   oConcepto:Close()
   MovMov->DBCLOSEAREA()

RETU

Muchas gracias

Luengo Sergio
Analista de Sistemas
General Pico - La Pampa



__________ Información de NOD32, revisión 2188 (20070414) __________

Este mensaje ha sido analizado con NOD32 antivirus system
part000.txt - Esta correcto
part001.htm - Esta correcto

http://www.nod32.com


No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.446 / Virus Database: 269.4.0/762 - Release Date: 15/04/2007 04:22 p.m.

#1563 De: Oscar Macias <oscarmacias@...>
Fecha: Lun, 16 de Abr, 2007 10:21 pm
Asunto: RE: Ayuda para Excel en cavo 2.7
oscarmaciasc
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Hola:
solicitu su valiosa ayuda. Adjunto un mensaje de error que me nada al querer grabar en excel, y no se a que se pueda deber.
 
-----Mensaje original-----
De: guvoaII@... [mailto:guvoaII@...]En nombre de Jorge Accinelli
Enviado el: Lunes, 16 de Abril de 2007 01:22 p.m.
Para: guvoaII@...
Asunto: Re: [guvoaII] Ayuda para Excel en cavo 2.7

 
Pego un metodo que a mi me dio resultado,
con un par de detalles que me pasaron aqui
en el grupo
Jorge Accinelli
 
METHOD PB_Excel( ) CLASS DgRanCau
 
   LOCAL oExcel             AS OBJECT
   LOCAL oWorkBooks         AS OBJECT
   LOCAL oWorkSheet         AS OBJECT
   LOCAL oRange             AS OBJECT
   LOCAL oRangeBorders      AS OBJECT
   LOCAL k := 0             AS INT
   LOCAL aArray             AS ARRAY
   LOCAL cRow := NULL_STRING AS STRING
   LOCAL oServer            AS OBJECT
   LOCAL nSize AS DWORD
   LOCAL t_uni := 0 AS DWORD
   LOCAL t_kgs := 0 AS FLOAT
   LOCAL nRec := 0 AS INT
 
 
 
   IF SELF:Browser:Server:Used
      IF SELF:Browser:server:LastRec = 0
        ErrorBox{SELF,"No hay datos aun!"}:show()
        RETURN SELF
      ENDIF
    ENDIF
 
 
 
   SELF:Pointer := Pointer{ POINTERHOURGLASS }
 
 
 
   // Instanciacion
   oExcel := OleAutoObject{"Excel.Application"}
   IF !oExcel:Finit
    infobox{SELF,"ERROR","No se puede inicializar Excel!"}:Show()
    RETURN SELF
   ENDIF
   oWorkBooks := oExcel:WorkBooks
   oWorkBooks:Add()
   oWorkSheet := oExcel:ActiveSheet
 
 
 
 
 
 
 
  // Datos vía array
     oServer := SELF:Browser:server
     oServer:SuspendNotification()
     nRec := oServer:Recno
     oServer:GoTop()
 
     aArray := ArrayNew ( oServer:LastRec, 6  )
     nSize := oServer:LastRec
     FOR k := 1 TO nSize
          aArray[k] := { oServer:CAUSAL , oServer:NOMBRE, oServer:UNI, oServer:KILOS, oServer:PORCE_UNI, oServer:PORCE_KGS  }
          t_uni += oServer:UNI
          t_kgs += oServer:KILOS
          oServer:Skip()
     NEXT
     oServer:GoTo(nRec)
     oServer:ResetNotification()
     oRange := oWorkSheet:[Range,"A7", "F"+AllTrim(Str(Len(aArray)+ 6 ))]
     oRange:Value := aArray
 
 
 

  // Subtítulos
     oRange := oWorkSheet:[Range,"A6","F6"]
     oRange:Value := { "CAUSAL","NOMBRE"," UNI "," KGS "," % UNI "," % KGS " }
     oRange:Font:Color := RGB(0,128,0)
     oRange:Font:Bold  := TRUE
 
 
 

  // Manejos de Borders
     oRange := oWorkSheet:[Range,"A6", "F" + AllTrim(Str(Len(aArray) + 6 ))  ]
     oRangeBorders := oRange:Borders
 
     oRangeBorders:[item, 8]:Weight := 2            // Top
     oRangeBorders:[item, 8]:ColorIndex := 11
     oRangeBorders:[item, 8]:LineStyle := 1
 
     oRangeBorders:[item, 9]:Weight := 2           // Bottom
     oRangeBorders:[item, 9]:ColorIndex := 11
     oRangeBorders:[item, 9]:LineStyle := 1
 
     oRangeBorders:[item, 7]:Weight := 2            // Left
     oRangeBorders:[item, 7]:ColorIndex := 11
     oRangeBorders:[item, 7]:LineStyle := 1
 
     oRangeBorders:[item, 10]:Weight := 2           // Right
     oRangeBorders:[item, 10]:ColorIndex := 11
     oRangeBorders:[item, 10]:LineStyle := 1
 
     oRangeBorders:[item, 12]:Weight := 1           // Inside Horizontal
     oRangeBorders:[item, 12]:ColorIndex := 11
     oRangeBorders:[item, 12]:LineStyle := 1
 
     oRangeBorders:[item, 11]:Weight := 1           // Inside Vertical
     oRangeBorders:[item, 11]:ColorIndex := 11
     oRangeBorders:[item, 11]:LineStyle := 1
 

     cRow := AllTrim(Str(Len(aArray)+8))
     oWorkSheet:[Range ,"F7"   , "F"+cRow ]:NumberFormat  := "###0,00"
     oWorkSheet:[Range ,"E7"   , "E"+cRow ]:NumberFormat  := "#########0,00"
 

     oRange:Font:Size := 10
     oRange:Font:Name := "Arial"
     oRange:Columns:AutoFit()
 

  // Totales
     cRow := AllTrim(Str(Len(aArray)+7))
     oWorkSheet:[Range ,"A"+cRow  , "A"+cRow ]:Value := "TOTALES"
     oWorkSheet:[Range ,"C"+cRow  , "C"+cRow ]:Value := t_uni
     oWorkSheet:[Range ,"D"+cRow  , "D"+cRow ]:Value := t_kgs
     oWorkSheet:[Range ,"A"+cRow  , "F"+cRow ]:Font:Color := RGB(0,128,0)
     oWorkSheet:[Range ,"A"+cRow  , "F"+cRow ]:Font:Bold  := TRUE
 
 
 

     // Titulos
     oRange := oWorkSheet:[Range,"A1","A1"]
     oRange:Value      := cNomEmp
     oRange:Font:Color := RGB(0,0,157)
     oRange:Font:size  := 15
     oRange:Font:Name  := "Arial"
 
     // Informe
     oRange := oWorkSheet:[Range,"A2","A2"]
     oRange:Value      := "RANKING DE CAUSALES DE RETRABAJO"
     oRange:Font:Color := RGB(0,0,200)
     oRange:Font:size  := 13
     oRange:Font:Name  := "Arial"
 
     // Periodo
     oRange := oWorkSheet:[Range,"A3","A3"]
     oRange:Value := "PERIODO: " + DToS(SELF:oDCDateTimePicker1:SelectedDate) + " - " + DToS(SELF:oDCDateTimePicker2:SelectedDate)
     oRange:Font:size  := 12
     oRange:Font:Name  := "Arial"
 
  // Visible
     oWorkSheet:[RANGE,"F1","f1"]:SELECT()
     oExcel:visible := TRUE
 
 
 
     SELF:Pointer := Pointer{ POINTERARROW }
 

  // Cierro
     oWorkBooks:DestroyOleObject()
     oWorkBooks := NULL_OBJECT
     oWorkSheet:DestroyOleObject()
     oWorkSheet := NULL_OBJECT
     oExcel:DestroyOleObject()
     oExcel := NULL_OBJECT
     CollectForced()
 
 
 
  RETURN SELF
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
----- Original Message -----
Sent: Monday, April 16, 2007 2:29 PM
Subject: [guvoaII] Ayuda para Excel en cavo 2.7

Hola, tenía una aplicacion para generar una hoja de excel desde cavo 2.6, al cambiar a cavo 2.7 no me funciona y no inicia la aplicacion.
Alguno me puede ayudar al respecto?
Gracias
 


No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.446 / Virus Database: 269.4.0/762 - Release Date: 15/04/2007 04:22 p.m.


#1562 De: "AdeSistemas" <adesistemas@...>
Fecha: Lun, 16 de Abr, 2007 7:56 pm
Asunto: Re: procesos con control de fechas
adessistemas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
ok, lo voy a probar
 
 
Luengo Sergio
Analista de Sistemas
General Pico - La Pampa
 
 
----- Original Message -----
Sent: Monday, April 16, 2007 4:45 PM
Subject: RE: [guvoaII] procesos con control de fechas

Los controles DateTimePicker tienen contenido de tipo caracter, por lo tanto tenés que utilizar el CTOD()

MovMov->DBSEEK(CTOD(oDcmfechadesde:Value))

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@coyspu.com.ar
         gjbiagiotti@gmail.com
         gjbiagiotti@yahoo.com.ar

MSN: gerardo_biagiotti@hotmail.com

De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de AdeSistemas
Enviado el: Lunes, 16 de Abril de 2007 04:21 p.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: [guvoaII] procesos con control de fechas

Colegas:

Tengo un gran problema con las fechas.

Este metodo lo que hace es recorrer el archivo planilla tomar el codigo de concepto y el importe y buscar en el archivo concepto el codigo de concepto y le suma el importe. eso lo hace perfectamente, pero el problemas es con las fechas, cuando quiero contolar entre dos fechas no hay caso me larga errores de tipo de datos, como si no comparara las dos fechas en el mismo tipo.

 PROTECT oDCmfechadesde AS DATETIMEPICKER  que inclusive si esta fecha la cambio en la pantalla no me la toma , me toma el valor inicial que tiene.
El dbseek que hago me dice que no esta indexada la base de dato,

Cual pueden ser los inconvenientes que estoy teniendo.

Espero que me entiedan muchas gracias cualquier cosa les paso el .MEF

METHOD calculasaldos CLASS conceptos_saldos

   LOCAL oConcepto AS concepto
   oConcepto := Concepto{SELF,TRUE}

   DBUSEAREA(TRUE,"DBFNTX","PLANILLA","MovMov",TRUE)
   MovMov->DBGOTOP()
//   MovMov->DBSEEK(oDcmfechadesde:Value)
   DO WHIL !MovMov->EOF()
*      ? DToS(movmov->fecha)
*      ? oDCmfechadesde:Value
   *   IF MovMov->fecha < oDCmfechadesde:Value
   *     MovMov->DBSKIP()
   *     LOOP
   *   ENDI

      mCodconc:=MovMov->cod_conc
      mImporte:=MovMov->impop + (MovMov->impon*-1)

      oConcepto:Seek(mCodconc)
      oConcepto:Replace()
      oConcepto:impo := mImporte

      MovMov->DBSKIP()

   ENDD

   oConcepto:Close()
   MovMov->DBCLOSEAREA()

RETU

Muchas gracias

Luengo Sergio
Analista de Sistemas
General Pico - La Pampa



__________ Información de NOD32, revisión 2188 (20070414) __________

Este mensaje ha sido analizado con NOD32 antivirus system
part000.txt - Esta correcto
part001.htm - Esta correcto

http://www.nod32.com

#1561 De: Oscar Macias <oscarmacias@...>
Fecha: Lun, 16 de Abr, 2007 8:27 pm
Asunto: RE: Ayuda para Excel en cavo 2.7
oscarmaciasc
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Hola:
 
Gracias por la respuesta. Cuando abre excel, solo puedo ver la barra de iconos del excel y nada del contenido de las celdas. Esto a que se puede deber?
 
saludos
-----Mensaje original-----
De: guvoaII@... [mailto:guvoaII@...]En nombre de Jorge Accinelli
Enviado el: Lunes, 16 de Abril de 2007 01:22 p.m.
Para: guvoaII@...
Asunto: Re: [guvoaII] Ayuda para Excel en cavo 2.7

 
Pego un metodo que a mi me dio resultado,
con un par de detalles que me pasaron aqui
en el grupo
Jorge Accinelli
 
METHOD PB_Excel( ) CLASS DgRanCau
 
   LOCAL oExcel             AS OBJECT
   LOCAL oWorkBooks         AS OBJECT
   LOCAL oWorkSheet         AS OBJECT
   LOCAL oRange             AS OBJECT
   LOCAL oRangeBorders      AS OBJECT
   LOCAL k := 0             AS INT
   LOCAL aArray             AS ARRAY
   LOCAL cRow := NULL_STRING AS STRING
   LOCAL oServer            AS OBJECT
   LOCAL nSize AS DWORD
   LOCAL t_uni := 0 AS DWORD
   LOCAL t_kgs := 0 AS FLOAT
   LOCAL nRec := 0 AS INT
 
 
 
   IF SELF:Browser:Server:Used
      IF SELF:Browser:server:LastRec = 0
        ErrorBox{SELF,"No hay datos aun!"}:show()
        RETURN SELF
      ENDIF
    ENDIF
 
 
 
   SELF:Pointer := Pointer{ POINTERHOURGLASS }
 
 
 
   // Instanciacion
   oExcel := OleAutoObject{"Excel.Application"}
   IF !oExcel:Finit
    infobox{SELF,"ERROR","No se puede inicializar Excel!"}:Show()
    RETURN SELF
   ENDIF
   oWorkBooks := oExcel:WorkBooks
   oWorkBooks:Add()
   oWorkSheet := oExcel:ActiveSheet
 
 
 
 
 
 
 
  // Datos vía array
     oServer := SELF:Browser:server
     oServer:SuspendNotification()
     nRec := oServer:Recno
     oServer:GoTop()
 
     aArray := ArrayNew ( oServer:LastRec, 6  )
     nSize := oServer:LastRec
     FOR k := 1 TO nSize
          aArray[k] := { oServer:CAUSAL , oServer:NOMBRE, oServer:UNI, oServer:KILOS, oServer:PORCE_UNI, oServer:PORCE_KGS  }
          t_uni += oServer:UNI
          t_kgs += oServer:KILOS
          oServer:Skip()
     NEXT
     oServer:GoTo(nRec)
     oServer:ResetNotification()
     oRange := oWorkSheet:[Range,"A7", "F"+AllTrim(Str(Len(aArray)+ 6 ))]
     oRange:Value := aArray
 
 
 

  // Subtítulos
     oRange := oWorkSheet:[Range,"A6","F6"]
     oRange:Value := { "CAUSAL","NOMBRE"," UNI "," KGS "," % UNI "," % KGS " }
     oRange:Font:Color := RGB(0,128,0)
     oRange:Font:Bold  := TRUE
 
 
 

  // Manejos de Borders
     oRange := oWorkSheet:[Range,"A6", "F" + AllTrim(Str(Len(aArray) + 6 ))  ]
     oRangeBorders := oRange:Borders
 
     oRangeBorders:[item, 8]:Weight := 2            // Top
     oRangeBorders:[item, 8]:ColorIndex := 11
     oRangeBorders:[item, 8]:LineStyle := 1
 
     oRangeBorders:[item, 9]:Weight := 2           // Bottom
     oRangeBorders:[item, 9]:ColorIndex := 11
     oRangeBorders:[item, 9]:LineStyle := 1
 
     oRangeBorders:[item, 7]:Weight := 2            // Left
     oRangeBorders:[item, 7]:ColorIndex := 11
     oRangeBorders:[item, 7]:LineStyle := 1
 
     oRangeBorders:[item, 10]:Weight := 2           // Right
     oRangeBorders:[item, 10]:ColorIndex := 11
     oRangeBorders:[item, 10]:LineStyle := 1
 
     oRangeBorders:[item, 12]:Weight := 1           // Inside Horizontal
     oRangeBorders:[item, 12]:ColorIndex := 11
     oRangeBorders:[item, 12]:LineStyle := 1
 
     oRangeBorders:[item, 11]:Weight := 1           // Inside Vertical
     oRangeBorders:[item, 11]:ColorIndex := 11
     oRangeBorders:[item, 11]:LineStyle := 1
 

     cRow := AllTrim(Str(Len(aArray)+8))
     oWorkSheet:[Range ,"F7"   , "F"+cRow ]:NumberFormat  := "###0,00"
     oWorkSheet:[Range ,"E7"   , "E"+cRow ]:NumberFormat  := "#########0,00"
 

     oRange:Font:Size := 10
     oRange:Font:Name := "Arial"
     oRange:Columns:AutoFit()
 

  // Totales
     cRow := AllTrim(Str(Len(aArray)+7))
     oWorkSheet:[Range ,"A"+cRow  , "A"+cRow ]:Value := "TOTALES"
     oWorkSheet:[Range ,"C"+cRow  , "C"+cRow ]:Value := t_uni
     oWorkSheet:[Range ,"D"+cRow  , "D"+cRow ]:Value := t_kgs
     oWorkSheet:[Range ,"A"+cRow  , "F"+cRow ]:Font:Color := RGB(0,128,0)
     oWorkSheet:[Range ,"A"+cRow  , "F"+cRow ]:Font:Bold  := TRUE
 
 
 

     // Titulos
     oRange := oWorkSheet:[Range,"A1","A1"]
     oRange:Value      := cNomEmp
     oRange:Font:Color := RGB(0,0,157)
     oRange:Font:size  := 15
     oRange:Font:Name  := "Arial"
 
     // Informe
     oRange := oWorkSheet:[Range,"A2","A2"]
     oRange:Value      := "RANKING DE CAUSALES DE RETRABAJO"
     oRange:Font:Color := RGB(0,0,200)
     oRange:Font:size  := 13
     oRange:Font:Name  := "Arial"
 
     // Periodo
     oRange := oWorkSheet:[Range,"A3","A3"]
     oRange:Value := "PERIODO: " + DToS(SELF:oDCDateTimePicker1:SelectedDate) + " - " + DToS(SELF:oDCDateTimePicker2:SelectedDate)
     oRange:Font:size  := 12
     oRange:Font:Name  := "Arial"
 
  // Visible
     oWorkSheet:[RANGE,"F1","f1"]:SELECT()
     oExcel:visible := TRUE
 
 
 
     SELF:Pointer := Pointer{ POINTERARROW }
 

  // Cierro
     oWorkBooks:DestroyOleObject()
     oWorkBooks := NULL_OBJECT
     oWorkSheet:DestroyOleObject()
     oWorkSheet := NULL_OBJECT
     oExcel:DestroyOleObject()
     oExcel := NULL_OBJECT
     CollectForced()
 
 
 
  RETURN SELF
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
----- Original Message -----
Sent: Monday, April 16, 2007 2:29 PM
Subject: [guvoaII] Ayuda para Excel en cavo 2.7

Hola, tenía una aplicacion para generar una hoja de excel desde cavo 2.6, al cambiar a cavo 2.7 no me funciona y no inicia la aplicacion.
Alguno me puede ayudar al respecto?
Gracias
 


No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.446 / Virus Database: 269.4.0/762 - Release Date: 15/04/2007 04:22 p.m.


#1560 De: "AdeSistemas" <adesistemas@...>
Fecha: Lun, 16 de Abr, 2007 7:18 pm
Asunto: Re: Ayuda para Excel en cavo 2.7
adessistemas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Colegas:
 
Tengo un gran problema con las fechas.
Este metodo lo que hace es recorrer el archivo planilla tomar el codigo de concepto y el importe y buscar en el archivo concepto el codigo de concepto y le suma el importe. eso lo hace perfectamente, pero el problemas es con las fechas, cuando quiero contolar entre dos fechas no hay caso me larga errores de tipo de datos, como si no comparara las dos fechas en el mismo tipo.
 
 PROTECT oDCmfechadesde AS DATETIMEPICKER  que inclusive si esta fecha la cambio en la pantalla no me la toma , me toma el valor inicial que tiene.
El dbseek que hago me dice que no esta indexada la base de dato,
 
Cual pueden ser los inconvenientes que estoy teniendo.
 
Espero que me entiedan muchas gracias cualquier cosa les paso el .MEF
 
 
 
METHOD calculasaldos CLASS conceptos_saldos
 
   LOCAL oConcepto AS concepto
   oConcepto := Concepto{SELF,TRUE}
 
   DBUSEAREA(TRUE,"DBFNTX","PLANILLA","MovMov",TRUE)
   MovMov->DBGOTOP()
//   MovMov->DBSEEK(oDcmfechadesde:Value)
   DO WHIL !MovMov->EOF()
*      ? DToS(movmov->fecha)
*      ? oDCmfechadesde:Value
   *   IF MovMov->fecha < oDCmfechadesde:Value
   *     MovMov->DBSKIP()
   *     LOOP
   *   ENDI
 
      mCodconc:=MovMov->cod_conc
      mImporte:=MovMov->impop + (MovMov->impon*-1)
 
      oConcepto:Seek(mCodconc)
      oConcepto:Replace()
      oConcepto:impo := mImporte
 
      MovMov->DBSKIP()
 
   ENDD
 
   oConcepto:Close()
   MovMov->DBCLOSEAREA()
 
 
 
RETU
 
 
Muchas gracias
 
 
Luengo Sergio
Analista de Sistemas
General Pico - La Pampa
 

#1559 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Lun, 16 de Abr, 2007 7:45 pm
Asunto: RE: procesos con control de fechas
gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Los controles DateTimePicker tienen contenido de tipo caracter, por lo tanto tenés que utilizar el CTOD()

 

MovMov->DBSEEK(CTOD(oDcmfechadesde:Value))

 

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...

MSN: gerardo_biagiotti@...

 

De: guvoaII@... [mailto:guvoaII@...] En nombre de AdeSistemas
Enviado el: Lunes, 16 de Abril de 2007 04:21 p.m.
Para: guvoaII@...
Asunto: [guvoaII] procesos con control de fechas

 

 

 

Colegas:

 

Tengo un gran problema con las fechas.

Este metodo lo que hace es recorrer el archivo planilla tomar el codigo de concepto y el importe y buscar en el archivo concepto el codigo de concepto y le suma el importe. eso lo hace perfectamente, pero el problemas es con las fechas, cuando quiero contolar entre dos fechas no hay caso me larga errores de tipo de datos, como si no comparara las dos fechas en el mismo tipo.

 

 PROTECT oDCmfechadesde AS DATETIMEPICKER  que inclusive si esta fecha la cambio en la pantalla no me la toma , me toma el valor inicial que tiene.
El dbseek que hago me dice que no esta indexada la base de dato,

 

Cual pueden ser los inconvenientes que estoy teniendo.

 

Espero que me entiedan muchas gracias cualquier cosa les paso el .MEF

 

 

 

METHOD calculasaldos CLASS conceptos_saldos

 

   LOCAL oConcepto AS concepto
   oConcepto := Concepto{SELF,TRUE}

 

   DBUSEAREA(TRUE,"DBFNTX","PLANILLA","MovMov",TRUE)
   MovMov->DBGOTOP()
//   MovMov->DBSEEK(oDcmfechadesde:Value)
   DO WHIL !MovMov->EOF()
*      ? DToS(movmov->fecha)
*      ? oDCmfechadesde:Value
   *   IF MovMov->fecha < oDCmfechadesde:Value
   *     MovMov->DBSKIP()
   *     LOOP
   *   ENDI

 

      mCodconc:=MovMov->cod_conc
      mImporte:=MovMov->impop + (MovMov->impon*-1)

 

      oConcepto:Seek(mCodconc)
      oConcepto:Replace()
      oConcepto:impo := mImporte

 

      MovMov->DBSKIP()

 

   ENDD

 

   oConcepto:Close()
   MovMov->DBCLOSEAREA()

 

 

 

RETU

 

 

Muchas gracias

 

 

Luengo Sergio
Analista de Sistemas
General Pico - La Pampa

 


#1558 De: "AdeSistemas" <adesistemas@...>
Fecha: Lun, 16 de Abr, 2007 7:21 pm
Asunto: procesos con control de fechas
adessistemas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
 

Colegas:
 
Tengo un gran problema con las fechas.
Este metodo lo que hace es recorrer el archivo planilla tomar el codigo de concepto y el importe y buscar en el archivo concepto el codigo de concepto y le suma el importe. eso lo hace perfectamente, pero el problemas es con las fechas, cuando quiero contolar entre dos fechas no hay caso me larga errores de tipo de datos, como si no comparara las dos fechas en el mismo tipo.
 
 PROTECT oDCmfechadesde AS DATETIMEPICKER  que inclusive si esta fecha la cambio en la pantalla no me la toma , me toma el valor inicial que tiene.
El dbseek que hago me dice que no esta indexada la base de dato,
 
Cual pueden ser los inconvenientes que estoy teniendo.
 
Espero que me entiedan muchas gracias cualquier cosa les paso el .MEF
 
 
 
METHOD calculasaldos CLASS conceptos_saldos
 
   LOCAL oConcepto AS concepto
   oConcepto := Concepto{SELF,TRUE}
 
   DBUSEAREA(TRUE,"DBFNTX","PLANILLA","MovMov",TRUE)
   MovMov->DBGOTOP()
//   MovMov->DBSEEK(oDcmfechadesde:Value)
   DO WHIL !MovMov->EOF()
*      ? DToS(movmov->fecha)
*      ? oDCmfechadesde:Value
   *   IF MovMov->fecha < oDCmfechadesde:Value
   *     MovMov->DBSKIP()
   *     LOOP
   *   ENDI
 
      mCodconc:=MovMov->cod_conc
      mImporte:=MovMov->impop + (MovMov->impon*-1)
 
      oConcepto:Seek(mCodconc)
      oConcepto:Replace()
      oConcepto:impo := mImporte
 
      MovMov->DBSKIP()
 
   ENDD
 
   oConcepto:Close()
   MovMov->DBCLOSEAREA()
 
 
 
RETU
 
 
Muchas gracias
 
 
Luengo Sergio
Analista de Sistemas
General Pico - La Pampa
 

#1557 De: "Jorge Accinelli" <jorgeaccinelli@...>
Fecha: Lun, 16 de Abr, 2007 6:21 pm
Asunto: Re: Ayuda para Excel en cavo 2.7
jorgeeugenio...
Sin conexión Sin conexión
Enviar correo Enviar correo
 
 
Pego un metodo que a mi me dio resultado,
con un par de detalles que me pasaron aqui
en el grupo
Jorge Accinelli
 
METHOD PB_Excel( ) CLASS DgRanCau
 
   LOCAL oExcel             AS OBJECT
   LOCAL oWorkBooks         AS OBJECT
   LOCAL oWorkSheet         AS OBJECT
   LOCAL oRange             AS OBJECT
   LOCAL oRangeBorders      AS OBJECT
   LOCAL k := 0             AS INT
   LOCAL aArray             AS ARRAY
   LOCAL cRow := NULL_STRING AS STRING
   LOCAL oServer            AS OBJECT
   LOCAL nSize AS DWORD
   LOCAL t_uni := 0 AS DWORD
   LOCAL t_kgs := 0 AS FLOAT
   LOCAL nRec := 0 AS INT
 
 
 
   IF SELF:Browser:Server:Used
      IF SELF:Browser:server:LastRec = 0
        ErrorBox{SELF,"No hay datos aun!"}:show()
        RETURN SELF
      ENDIF
    ENDIF
 
 
 
   SELF:Pointer := Pointer{ POINTERHOURGLASS }
 
 
 
   // Instanciacion
   oExcel := OleAutoObject{"Excel.Application"}
   IF !oExcel:Finit
    infobox{SELF,"ERROR","No se puede inicializar Excel!"}:Show()
    RETURN SELF
   ENDIF
   oWorkBooks := oExcel:WorkBooks
   oWorkBooks:Add()
   oWorkSheet := oExcel:ActiveSheet
 
 
 
 
 
 
 
  // Datos vía array
     oServer := SELF:Browser:server
     oServer:SuspendNotification()
     nRec := oServer:Recno
     oServer:GoTop()
 
     aArray := ArrayNew ( oServer:LastRec, 6  )
     nSize := oServer:LastRec
     FOR k := 1 TO nSize
          aArray[k] := { oServer:CAUSAL , oServer:NOMBRE, oServer:UNI, oServer:KILOS, oServer:PORCE_UNI, oServer:PORCE_KGS  }
          t_uni += oServer:UNI
          t_kgs += oServer:KILOS
          oServer:Skip()
     NEXT
     oServer:GoTo(nRec)
     oServer:ResetNotification()
     oRange := oWorkSheet:[Range,"A7", "F"+AllTrim(Str(Len(aArray)+ 6 ))]
     oRange:Value := aArray
 
 
 

  // Subtítulos
     oRange := oWorkSheet:[Range,"A6","F6"]
     oRange:Value := { "CAUSAL","NOMBRE"," UNI "," KGS "," % UNI "," % KGS " }
     oRange:Font:Color := RGB(0,128,0)
     oRange:Font:Bold  := TRUE
 
 
 

  // Manejos de Borders
     oRange := oWorkSheet:[Range,"A6", "F" + AllTrim(Str(Len(aArray) + 6 ))  ]
     oRangeBorders := oRange:Borders
 
     oRangeBorders:[item, 8]:Weight := 2            // Top
     oRangeBorders:[item, 8]:ColorIndex := 11
     oRangeBorders:[item, 8]:LineStyle := 1
 
     oRangeBorders:[item, 9]:Weight := 2           // Bottom
     oRangeBorders:[item, 9]:ColorIndex := 11
     oRangeBorders:[item, 9]:LineStyle := 1
 
     oRangeBorders:[item, 7]:Weight := 2            // Left
     oRangeBorders:[item, 7]:ColorIndex := 11
     oRangeBorders:[item, 7]:LineStyle := 1
 
     oRangeBorders:[item, 10]:Weight := 2           // Right
     oRangeBorders:[item, 10]:ColorIndex := 11
     oRangeBorders:[item, 10]:LineStyle := 1
 
     oRangeBorders:[item, 12]:Weight := 1           // Inside Horizontal
     oRangeBorders:[item, 12]:ColorIndex := 11
     oRangeBorders:[item, 12]:LineStyle := 1
 
     oRangeBorders:[item, 11]:Weight := 1           // Inside Vertical
     oRangeBorders:[item, 11]:ColorIndex := 11
     oRangeBorders:[item, 11]:LineStyle := 1
 

     cRow := AllTrim(Str(Len(aArray)+8))
     oWorkSheet:[Range ,"F7"   , "F"+cRow ]:NumberFormat  := "###0,00"
     oWorkSheet:[Range ,"E7"   , "E"+cRow ]:NumberFormat  := "#########0,00"
 

     oRange:Font:Size := 10
     oRange:Font:Name := "Arial"
     oRange:Columns:AutoFit()
 

  // Totales
     cRow := AllTrim(Str(Len(aArray)+7))
     oWorkSheet:[Range ,"A"+cRow  , "A"+cRow ]:Value := "TOTALES"
     oWorkSheet:[Range ,"C"+cRow  , "C"+cRow ]:Value := t_uni
     oWorkSheet:[Range ,"D"+cRow  , "D"+cRow ]:Value := t_kgs
     oWorkSheet:[Range ,"A"+cRow  , "F"+cRow ]:Font:Color := RGB(0,128,0)
     oWorkSheet:[Range ,"A"+cRow  , "F"+cRow ]:Font:Bold  := TRUE
 
 
 

     // Titulos
     oRange := oWorkSheet:[Range,"A1","A1"]
     oRange:Value      := cNomEmp
     oRange:Font:Color := RGB(0,0,157)
     oRange:Font:size  := 15
     oRange:Font:Name  := "Arial"
 
     // Informe
     oRange := oWorkSheet:[Range,"A2","A2"]
     oRange:Value      := "RANKING DE CAUSALES DE RETRABAJO"
     oRange:Font:Color := RGB(0,0,200)
     oRange:Font:size  := 13
     oRange:Font:Name  := "Arial"
 
     // Periodo
     oRange := oWorkSheet:[Range,"A3","A3"]
     oRange:Value := "PERIODO: " + DToS(SELF:oDCDateTimePicker1:SelectedDate) + " - " + DToS(SELF:oDCDateTimePicker2:SelectedDate)
     oRange:Font:size  := 12
     oRange:Font:Name  := "Arial"
 
  // Visible
     oWorkSheet:[RANGE,"F1","f1"]:SELECT()
     oExcel:visible := TRUE
 
 
 
     SELF:Pointer := Pointer{ POINTERARROW }
 

  // Cierro
     oWorkBooks:DestroyOleObject()
     oWorkBooks := NULL_OBJECT
     oWorkSheet:DestroyOleObject()
     oWorkSheet := NULL_OBJECT
     oExcel:DestroyOleObject()
     oExcel := NULL_OBJECT
     CollectForced()
 
 
 
  RETURN SELF
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
----- Original Message -----
Sent: Monday, April 16, 2007 2:29 PM
Subject: [guvoaII] Ayuda para Excel en cavo 2.7

Hola, tenía una aplicacion para generar una hoja de excel desde cavo 2.6, al cambiar a cavo 2.7 no me funciona y no inicia la aplicacion.
Alguno me puede ayudar al respecto?
Gracias
 


No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.446 / Virus Database: 269.4.0/762 - Release Date: 15/04/2007 04:22 p.m.

#1556 De: Oscar Macias <oscarmacias@...>
Fecha: Lun, 16 de Abr, 2007 5:29 pm
Asunto: Ayuda para Excel en cavo 2.7
oscarmaciasc
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Hola, tenía una aplicacion para generar una hoja de excel desde cavo 2.6, al cambiar a cavo 2.7 no me funciona y no inicia la aplicacion.
Alguno me puede ayudar al respecto?
Gracias
 

#1555 De: "[xCSA] Claudio Torrillo" <clipsupp@...>
Fecha: Sáb, 14 de Abr, 2007 3:35 pm
Asunto: RE: Pregunta sobre control de cambios
clipsupp
Sin conexión Sin conexión
Enviar correo Enviar correo
 

El IDE de VO sólo trabaja con herramientas compatibles con MS Visual Source Safe. (VSS)

A partir de la versión 2.7, el IDE; al momento de detectar que hay una herramienta de estas activa en la PC; activa los correspondientes menues que hasta ale momento estan deshabilitados.

 

Las versiones anteriores tenian el problema que sólo mantenían en VSS copias de los MEF, con lo cual la “gran ventaja” de una control de versión, como ver las diferencias de código desaparecían y allí el VSS no era más que un simple sistema de Backup extendido.

 

Ahora, el VO 2.7 salva no sólo los MEF sino que además salva el código fuente en archivos PRG. Claro, esto lo hace en forma automática.

Ahora sí, podemos utilizar la gestión de diferencias en el código.

 

Todo esto es maravilloso, salvo por un pequeño problema, VSS es Microsoft con lo cual es $$$.

Por otro lado el VSS es una gran consumidor de recursos (memoria y CPU) lo que lo convierte en poco amigable a la hora de ponerlo en funcionamiento en máquinas muy exigidas.

Otra de las contras de VSS es que su protocolo no está preparado más que para redes locales, con lo cual si pretendemos utilizar un repositorio externo (IP - extranet), olvídenlo.

 

Pero no todo está perdido.

 

Existen multitud de sistemas de controlde versiones [ http://dmoz.org/Computers/Software/Configuration_Management/Tools/ ]

Sin duda, el más popular es CVS (Concurrent Versions System).

 

CVS tuvo el merito de ser el primer sistema usado por el movimiento de código abierto para que los programadores colaboraran remotamente mediante el envío de parches. Es de uso gratuito, código abierto, y emplea fusión de cambios.

 

Subversion se creó para igualar y mejorar la funcionalidad de CVS, preservando su filosofía de desarrollo. Su desarrollo comenzó en el año 2000 como proyecto de código abierto esponsorizado por CollabNet [ http://www.collab.net/products/subversion/index.html ].El líder del equipo de desarrollo fue KarlFogel, autor del libro Open Source Development with CVS [ http://cvsbook.red-bean.com ].


La versión 1.0 fue publicada en febrero del 2004. Emplea licencia Apache/BSD.

 

Hay una comparativa entre13 sistemas de control de versiones en  http://better-scm.berlios.de/comparison/comparison.html, y otra entre Subversion y CVS en http://wiki.gnuarch.org/moin.cgi/SubVersionAndCvsComparison.

 

De todas formas, tanto SVN (Subversion) como CVS no pueden trabajar directamente con VO L

Pero a no desanimarse!!!

 

Hay un producto, PushOK's SVN SCC plug-in [ http://www.pushok.com ] Lamentablemente no es gratuito, su costo de u$s 24.- (nada, comparado con los beneficios).

 

Bueno, despues de todo esto, obvio es decir que utilizo SVN.

Porqué?

 

Bueno, es muy sencillo de manejar, es sumamente económico, sólo los u$s 24.- del plugin, tiene requerimientos mínimos de Hardware, puede correr en cualquier plataforma (WinNT/Linux) y soporta como los dioses el uso de comunicaciones internet. En forma muy sencilla se puede configurar un servidor Apache y se puede tener un servidor de versiones muy profesional.

 

Les cuento mi experiencia, muchos de Uds me conocen si y saben que desde hace un tiempo desarrollo tanto en mi oficina como en otra que se halla en Palermo ( a unos 16km ). Gran problema, andar llevando y trayendo fuentes.

 

Pero lo peor es cuando uno trabaja en varios proyectos al mismo tiempo. La cantidad de veces que trabajando en un proyecto cambiaba código a las librerias propias y en los otros proyectos? … nada, a sincronizar … que cuernos habia cambiado? Un rollo …

 

Pues esto se soluciona con Subversion.

 

Ahora, tengo un repositorio de SVN con mis librerias base y para cada proyecto un repositorio (algo así como un directorio de los prgs, pero metido dentro de una base de datos especial )

Desde el IDE puedo recuperar código, verificar cambios mantener el historial de cambios, etc …

Y me olvidaba. Todo por internet … Una maravilla.

 

No lo dejen pasar, SubVersion, PushOk y TortoiseSVN son el complemento que permiten hacer de VO una poderosa herramienta de desarrollo profesional.

 

 

Claudio G. Torrillo

www.xcsa.com.ar

Tel/Fax: 4840-0255

info(@)xcsa.com.ar

 


De: guvoaII@... [mailto:guvoaII@...] En nombre de Guillermo A. Valenzuela
Enviado el: Jueves, 12 de Abril de 2007 11:52 a.m.
Para: guvoaII@...
Asunto: [guvoaII] Pregunta sobre control de cambios

 

Hola a todos, alguna sabe si existe alguna herramienta para VO que permita realizar un control de cambios sobre la codificación realizada, me refiero a un seguimiento de los cambios en código hechos por fechas o algo parecido.

 

Gracias

 

Guillermo Andrés Valenzuela Ramírez

Desarrollo

Global Education

Cra. 9 No. 74 - 62

Tel: 313 9200 ext. 307 Fax: 3175376

Bogotá - Colombia

www.universidadgarantizada.com 

 


--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.446 / Virus Database: 269.4.0/760 - Release Date: 13/04/2007 08:04 p.m.


#1554 De: José Manuel Jiménez <jmjimenez@...>
Fecha: Vie, 13 de Abr, 2007 11:42 am
Asunto: RE: [SPAM]: Pregunta sobre control de cambios
jmjimene
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Que yo sepa, cuando miré un poco el tema por encima, VO 2.5 era compatible con el interface de control de cambios de Microsoft SourceSafe. Incluso hay un producto gratuito (ComponentSoftware RCS) que anunciaba ser compatible con este mismo interface y por lo tanto con el IDE de VO
 
Personalmente, yo uso RCS para el control de cambios de mis fuentes en clipper y Microsoft SourceSafe para el control de cambios de mis fuentes en VB6 (integrado en el IDE de VB). Si puedo ayudarte algo, cuenta conmigo
 
En cuanto a lo que te interesa (Control de cambios para los fuentes de VO) hay dos alternativas:
- Si los fuentes están guardados en el repositorio de VO, hace falta que la herramienta de control de cambios se integre con el IDE (yo hice una pequeña prueba, pero no me funcionó)
- Si los fuentes son accesibles en formato TXT desde fuera del repositorio de VO, puedes controlar sus cambio de forma independiente (lo que hace el programa de control de cambios, es que los ficheros de fuentes bloqueados los marca de "solo lectura")
 
Lo dicho, si cualquier cosa, ya sabes
Saludos desde Málaga
José Manuel Jiménez
 
 
-----Mensaje original-----
De: guvoaII@... [mailto:guvoaII@...]En nombre de Guillermo A. Valenzuela
Enviado el: jueves, 12 de abril de 2007 16:52
Para: guvoaII@...
Asunto: [SPAM]: [guvoaII] Pregunta sobre control de cambios

Hola a todos, alguna sabe si existe alguna herramienta para VO que permita realizar un control de cambios sobre la codificación realizada, me refiero a un seguimiento de los cambios en código hechos por fechas o algo parecido.

 

Gracias

 

Guillermo Andrés Valenzuela Ramírez

Desarrollo

Global Education

Cra. 9 No. 74 - 62

Tel: 313 9200 ext. 307 Fax: 3175376

Bogotá - Colombia

www.universidadgarantizada.com 

 


#1553 De: "Guillermo A. Valenzuela" <gvalenzuela@...>
Fecha: Jue, 12 de Abr, 2007 2:52 pm
Asunto: Pregunta sobre control de cambios
kaoscore53
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Hola a todos, alguna sabe si existe alguna herramienta para VO que permita realizar un control de cambios sobre la codificación realizada, me refiero a un seguimiento de los cambios en código hechos por fechas o algo parecido.

 

Gracias

 

Guillermo Andrés Valenzuela Ramírez

Desarrollo

Global Education

Cra. 9 No. 74 - 62

Tel: 313 9200 ext. 307 Fax: 3175376

Bogotá - Colombia

www.universidadgarantizada.com 

 


#1552 De: "AdeSistemas" <adesistemas@...>
Fecha: Lun, 9 de Abr, 2007 11:19 am
Asunto: Re: manejo de archivos
adessistemas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Gracias Gerardo, ese tipo de ejemplo necesitaba.
 
 
Luengo Sergio
Analista de Sistemas
General Pico - La Pampa
 
 
----- Original Message -----
Sent: Saturday, April 07, 2007 1:16 PM
Subject: RE: [guvoaII] manejo de archivos

                              IF File(Upper(cUnidad+"Movimien.GGB"))

                                            oDb_File:=Db_MoviClie{SELF,FALSE}

                             

                                            DBUSEAREA(TRUE,"DBFNTX", cUnidad+"Movimien.GGB","AdmFile",TRUE)

                                            AdmFile->DBGOTOP()

                             

                                            IF SELF:oDCCB_BorraCCteClientes:Checked

                                                           oDb_File:Zap()

                                            ENDIF

                                            DO WHILE !AdmFile->EOF()

                                                           oDb_File:Append()

                                                           oDb_File:CODCLI_MCL := AdmFile->CODCLI_MOV

                                                           oDb_File:FECHA_MCL  := AdmFile->FECHA_MOV

                                                           oDb_File:FECVEN_MCL := AdmFile->FECVEN_MOV

                                                           oDb_File:NRCOMP_MCL := "     -"+StrZero(AdmFile->FACPAG_MOV,8)

                                                           oDb_File:NRECIB_MCL := IIF(AdmFile->ACREED_MOV>0,"     -"+StrZero(AdmFile->NRCOMP_MOV,8),"")

                                                           oDb_File:DESCRI_MCL := AdmFile->DESC_MOV

                                                           oDb_File:TIPMOV_MCL := IIF(AdmFile->ACREED_MOV>0, "A", "D")

                                                           oDb_File:MONPES_MCL := IIF(AdmFile->DEUDOR_MOV>0, AdmFile->DEUDOR_MOV, AdmFile->ACREED_MOV)

                                                           oDb_File:MONEDA_MCL := "MN"

                                                           oDb_File:Skip(0)

                     AdmFile->DBSKIP()

               ENDDO

               oDb_File:Close()

               AdmFile->DBCLOSEAREA()

      ENDIF

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@coyspu.com.ar
         gjbiagiotti@gmail.com
         gjbiagiotti@yahoo.com.ar

MSN: gerardo_biagiotti@hotmail.com

De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de AdeSistemas
Enviado el: Sábado, 07 de Abril de 2007 12:29 p.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: Re: [guvoaII] manejo de archivos

Necesitaria un ejemplo como pasar de un archivo a otro informacion. cualquier ejemplo.

Luengo Sergio
Analista de Sistemas
General Pico - La Pampa

----- Original Message -----

Sent: Saturday, April 07, 2007 9:56 AM

Subject: RE: [guvoaII] manejo de archivos

No entiendo que es lo que quieres, pero cualquier código que hayas hecho en clipper te sirve.

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@coyspu.com.ar
         gjbiagiotti@gmail.com
         gjbiagiotti@yahoo.com.ar

MSN: gerardo_biagiotti@hotmail.com


De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de AdeSistemas
Enviado el: Sábado, 07 de Abril de 2007 09:13 a.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: [guvoaII] manejo de archivos

Necesitaria si alquien puede pasarme un ejemplo de manejo de archivos, explico.

necesito pasar datos de un archivo de movimientos que tiene un campo codigo, a otro archivo que tiene codigo mas concepto, haciendo seek y reemplazando algunos datos, (no entiendo algunas cosas) con un ejemplo me sera facil.(creo)

Se lo agradeceria,

espero que me entiendan,

Muchas gracias

Luengo Sergio
Analista de Sistemas
General Pico - La Pampa



__________ Información de NOD32, revisión 2172 (20070407) __________

Este mensaje ha sido analizado con NOD32 antivirus system
part000.txt - Esta correcto
part001.htm - Esta correcto

http://www.nod32.com



__________ Información de NOD32, revisión 2172 (20070407) __________

Este mensaje ha sido analizado con NOD32 antivirus system
part000.txt - Esta correcto
part001.htm - Esta correcto

http://www.nod32.com

#1551 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Sáb, 7 de Abr, 2007 4:16 pm
Asunto: RE: manejo de archivos
gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

                              IF File(Upper(cUnidad+"Movimien.GGB"))

                                            oDb_File:=Db_MoviClie{SELF,FALSE}

                             

                                            DBUSEAREA(TRUE,"DBFNTX", cUnidad+"Movimien.GGB","AdmFile",TRUE)

                                            AdmFile->DBGOTOP()

                             

                                            IF SELF:oDCCB_BorraCCteClientes:Checked

                                                           oDb_File:Zap()

                                            ENDIF

 

                                            DO WHILE !AdmFile->EOF()

                                                           oDb_File:Append()

                                                           oDb_File:CODCLI_MCL := AdmFile->CODCLI_MOV

                                                           oDb_File:FECHA_MCL  := AdmFile->FECHA_MOV

                                                           oDb_File:FECVEN_MCL := AdmFile->FECVEN_MOV

                                                           oDb_File:NRCOMP_MCL := "     -"+StrZero(AdmFile->FACPAG_MOV,8)

                                                           oDb_File:NRECIB_MCL := IIF(AdmFile->ACREED_MOV>0,"     -"+StrZero(AdmFile->NRCOMP_MOV,8),"")

                                                           oDb_File:DESCRI_MCL := AdmFile->DESC_MOV

                                                           oDb_File:TIPMOV_MCL := IIF(AdmFile->ACREED_MOV>0, "A", "D")

                                                           oDb_File:MONPES_MCL := IIF(AdmFile->DEUDOR_MOV>0, AdmFile->DEUDOR_MOV, AdmFile->ACREED_MOV)

                                                           oDb_File:MONEDA_MCL := "MN"

                                                           oDb_File:Skip(0)

 

                     AdmFile->DBSKIP()

               ENDDO

 

               oDb_File:Close()

               AdmFile->DBCLOSEAREA()

      ENDIF

 

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...

MSN: gerardo_biagiotti@...

 

De: guvoaII@... [mailto:guvoaII@...] En nombre de AdeSistemas
Enviado el: Sábado, 07 de Abril de 2007 12:29 p.m.
Para: guvoaII@...
Asunto: Re: [guvoaII] manejo de archivos

 

Necesitaria un ejemplo como pasar de un archivo a otro informacion. cualquier ejemplo.

 

Luengo Sergio
Analista de Sistemas
General Pico - La Pampa

 

 

----- Original Message -----

Sent: Saturday, April 07, 2007 9:56 AM

Subject: RE: [guvoaII] manejo de archivos

 

No entiendo que es lo que quieres, pero cualquier código que hayas hecho en clipper te sirve.

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...

MSN: gerardo_biagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de AdeSistemas
Enviado el: Sábado, 07 de Abril de 2007 09:13 a.m.
Para: guvoaII@...
Asunto: [guvoaII] manejo de archivos

Necesitaria si alquien puede pasarme un ejemplo de manejo de archivos, explico.

necesito pasar datos de un archivo de movimientos que tiene un campo codigo, a otro archivo que tiene codigo mas concepto, haciendo seek y reemplazando algunos datos, (no entiendo algunas cosas) con un ejemplo me sera facil.(creo)

Se lo agradeceria,

espero que me entiendan,

Muchas gracias

Luengo Sergio
Analista de Sistemas
General Pico - La Pampa



__________ Información de NOD32, revisión 2172 (20070407) __________

Este mensaje ha sido analizado con NOD32 antivirus system
part000.txt - Esta correcto
part001.htm - Esta correcto

http://www.nod32.com


#1550 De: "AdeSistemas" <adesistemas@...>
Fecha: Sáb, 7 de Abr, 2007 3:28 pm
Asunto: Re: manejo de archivos
adessistemas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Necesitaria un ejemplo como pasar de un archivo a otro informacion. cualquier ejemplo.
 
Luengo Sergio
Analista de Sistemas
General Pico - La Pampa
 
 
----- Original Message -----
Sent: Saturday, April 07, 2007 9:56 AM
Subject: RE: [guvoaII] manejo de archivos

No entiendo que es lo que quieres, pero cualquier código que hayas hecho en clipper te sirve.

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@coyspu.com.ar
         gjbiagiotti@gmail.com
         gjbiagiotti@yahoo.com.ar

MSN: gerardo_biagiotti@hotmail.com

De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de AdeSistemas
Enviado el: Sábado, 07 de Abril de 2007 09:13 a.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: [guvoaII] manejo de archivos

Necesitaria si alquien puede pasarme un ejemplo de manejo de archivos, explico.

necesito pasar datos de un archivo de movimientos que tiene un campo codigo, a otro archivo que tiene codigo mas concepto, haciendo seek y reemplazando algunos datos, (no entiendo algunas cosas) con un ejemplo me sera facil.(creo)

Se lo agradeceria,

espero que me entiendan,

Muchas gracias

Luengo Sergio
Analista de Sistemas
General Pico - La Pampa



__________ Información de NOD32, revisión 2172 (20070407) __________

Este mensaje ha sido analizado con NOD32 antivirus system
part000.txt - Esta correcto
part001.htm - Esta correcto

http://www.nod32.com

#1549 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Sáb, 7 de Abr, 2007 12:56 pm
Asunto: RE: manejo de archivos
gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

No entiendo que es lo que quieres, pero cualquier código que hayas hecho en clipper te sirve.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...

MSN: gerardo_biagiotti@...

 

De: guvoaII@... [mailto:guvoaII@...] En nombre de AdeSistemas
Enviado el: Sábado, 07 de Abril de 2007 09:13 a.m.
Para: guvoaII@...
Asunto: [guvoaII] manejo de archivos

 

Necesitaria si alquien puede pasarme un ejemplo de manejo de archivos, explico.

 

necesito pasar datos de un archivo de movimientos que tiene un campo codigo, a otro archivo que tiene codigo mas concepto, haciendo seek y reemplazando algunos datos, (no entiendo algunas cosas) con un ejemplo me sera facil.(creo)

 

Se lo agradeceria,

espero que me entiendan,

 

Muchas gracias

 

 

 

Luengo Sergio
Analista de Sistemas
General Pico - La Pampa

 

 


#1548 De: "AdeSistemas" <adesistemas@...>
Fecha: Sáb, 7 de Abr, 2007 12:13 pm
Asunto: manejo de archivos
adessistemas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Necesitaria si alquien puede pasarme un ejemplo de manejo de archivos, explico.
 
necesito pasar datos de un archivo de movimientos que tiene un campo codigo, a otro archivo que tiene codigo mas concepto, haciendo seek y reemplazando algunos datos, (no entiendo algunas cosas) con un ejemplo me sera facil.(creo)
 
Se lo agradeceria,
espero que me entiendan,
 
Muchas gracias
 
 
 
Luengo Sergio
Analista de Sistemas
General Pico - La Pampa
 
 

#1547 De: jose luis perez castillo <jlpercas@...>
Fecha: Sáb, 7 de Abr, 2007 1:59 am
Asunto: RE: Re: VO 2.7 no me toma todos los TAGs al crear Dbserver
jlpercas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Gracias Claudio.
 
Si, olvide decir que es una tabla temporal. Cada vez que entro la ordeno y la lleno de datos.
 
 
Saludos
 


"[xCSA] Claudio Torrillo" <clipsupp@...> escribió:
Perdon, pero la duda me carcome…
Como puede ser que cada vez que entras a un Browser debés ordenar la tabla?
Eso tá muyyyyyyy mal.
Además, estamos hablando de CAVO?
Como que abrís la tabla con DBUseArea … eso no abre una tabla mediante objetos, eso no podes asignarlo al brower mediante :Use(). Por lo tanto en :Server  que tenés?
Otra, será una tabla temporal? Imagino que sí.
Me alegro que hayas solucionado el problema, de todas formas, para la próxima incluí el codigo AYUDARNOS A AYUDARTE!!! J J
Claudio G. Torrillo
www.xcsa.com.ar
Tel/Fax: 4840-0255
info(@)xcsa.com.ar

De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de jlpercas
Enviado el: Jueves, 05 de Abril de 2007 06:02 p.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: [guvoaII] Re: VO 2.7 no me toma todos los TAGs al crear Dbserver
Compañeros he encontrado la solucion para mi problema.

Incicialmente abria la tabla en modo exclusivo y ordenaba los datos
con el comando INDEX ON campo TAG campo. Al tratar de abrir algun
indice, no me mostraba datos.

Cambie mi programa de la siguiente forma.

Abri la tabla con el comando DBUSEAREA(), despues de esto se lo
asigne al Browser como SERVER y lo ordene con el comando

SELF:Browser:server:CreateOrder("CAMPO",,"CAMPO",,FALSE)

y de esta forma es como me funciono...... Ya puedo abrir la tabla
con el indice que quiero.

Saludos

--- En guvoaII@gruposyahoo.com.ar, "[xCSA] Claudio Torrillo"
<clipsupp@...> escribió:
>
> Incluí el código del método en la consulta.
>
>
>
> Claudio G. Torrillo
>
> www.xcsa.com.ar
>
> Tel/Fax: 4840-0255
>
> info(@)xcsa.com.ar
>
>
>
> _____
>
> De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar]
En nombre
> de jose luis perez castillo
> Enviado el: Martes, 03 de Abril de 2007 01:02 a.m.
> Para: guvoaII@gruposyahoo.com.ar
> Asunto: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
>
>
> Hola a todos,
>
>
>
> Tengo un Browser en una DataDialog. En el metodo PostInit creo una
tabla y
> se la asigno al Browser como Server.
>
> Al crear la tabla tambien creo un indice, pero al abrirla el
indice me lo
> ignora.
>
>
>
> Ya he probado con los comandos que ustedes han mencionado y sigue
igual.
>
> Si abro la tabla con algun progrma como tipo DBFNTX, puedo ver los
datos,
>
> pero si cargo el archivo DBFCDX que he creado, no me muestra nada.
>
>
>
> Alguien de ustedes me puede sugerir que debo hacer ?
>
>
>
> De antemano muchas gracias por la ayuda que me puedan proporcionar.
>
>
>
> Saludos
>
> Jose Luis Perez -- Tamaulipas, Mexico.
>
>
>
> "[xCSA] Claudio Torrillo" <clipsupp@...> escribió:
>
> Ok.
>
>
>
> Cambia la expresion a Str(RECNO()) creo que eso soluciona el
problema.
>
> Claudio G. Torrillo
>
> www.xcsa.com.ar
>
> Tel/Fax: 4840-0255
>
> info(@)xcsa.com.ar
>
>
>
>
>
>
> _____
>
>
> De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar]
En nombre
> de Pablo J. Pereyra
> Enviado el: Sábado, 17 de Marzo de 2007 04:20 p.m.
> Para: guvoaII@gruposyahoo.com.ar
> Asunto: Re: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Claudio, Gerardo,
>
>
>
> Si, podria hacer eso mismo... pero mi curiosidad viene porque en
Clipper
> tengo una rutina igual solo que como funcion y no como metodo pero
> exactamente la misma y alli funciona perfecto.
>
> En VO deberia hacer lo mismo y no funciona... estoy agregando
registros y
> observando el comportamiento del indice y no hace lo que
deberia... por
> ejemplo arme un metodo que recorra el DBF y se pare donde este
DELETED() y
> .NOT. RLOCK(), y me encuentra el deleted pero ese indice tiene los
registos
> bloqueados... medio raro.
>
>
>
> Este aplicativo en VO debe funcionar "simultaneamente" con el otro
hecho en
> cliper y usar los indices que ya dispongo, por eso no puedo crear
> condiciones nuevas... salvo cambiar el soft en clipper, pero como
estoy
> medio jugado de tiempo necesito hacerlo funcionar ahora y despues
ya si
> podre cambiar todo.
>
>
>
> COmo detalle los CDX son creados todos desde Clipper 5.3b, y en VO
uso los
> SETs correspondientes para clipper (collation, etc)
>
> Ya tengo este tipo de mezcla entre Clipper y VO usando mismos DBF
y CDX..
> pero ahora me esta dando problemas, llegue a pensar que los DBF
estaban
> dañados pero no es asi.
>
>
>
> La otra idea que tengo es "reciclar" registros pero sin usar
indice.... es
> decir recorrer registro a registro la DBF hasta encontrar uno que
este
> marcado como DELETED y alli rescatarlo,,, sera mas lento pero por
lo menos
> podre hacerlo hasta que descubra el problema.
>
>
>
> Alguna sugerencia ?
>
>
>
> Pablo J. Pereyra
> Córdoba - Argentina
> pjpereyra@ciudad. <mailto:pjpereyra@...> com.ar
> ICQ: 34806442
>
> ----- Original Message -----
>
> From: Gerardo <mailto:gjbiagiotti@...> J. Biagiotti
>
> To: guvoaII@gruposyahoo
<mailto:guvoaII@gruposyahoo.com.ar> .com.ar
>
> Sent: Saturday, March 17, 2007 4:03 PM
>
> Subject: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
>
>
> Otra opción podría ser trabajar con un filtro directamente:
>
> oBase:SetFilter(!oBase:Deleted)
>
> Gerardo J. Biagiotti
> Analista de Sistemas
> (2580) Marcos Juárez
> Córdoba - Argentina
>
> Mail: gjbiagiotti@ <mailto:gjbiagiotti@...> coyspu.com.ar
> MSN: gerardo_biagiotti@ <mailto:gerardo_biagiotti@...> hotmail.com
> gjbiagiotti@ <mailto:gjbiagiotti@...> gmail.com
> gjbiagiotti@ <mailto:gjbiagiotti@...> yahoo.com.ar
>
> De: guvoaII@gruposyahoo <mailto:guvoaII@gruposyahoo.com.ar> .com.ar
> [mailto:guvoaII@gruposyahoo.com.ar] En nombre de [xCSA] Claudio
Torrillo
> Enviado el: Sábado, 17 de Marzo de 2007 03:42 p.m.
> Para: guvoaII@gruposyahoo.com.ar
> Asunto: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> No debiera, pero ..
>
> Ahora, y si le cambias la expresión por INDEX ON IIF(DELETED
(),"S","N")
>
> Pasas a tener un índice STD y donde la clave te permite
seleccionar
> rápidamente cualquier condición.
>
> Claudio G. Torrillo
>
> www.xcsa.com.ar
>
> Tel/Fax: 4840-0255
>
> info(@)xcsa.com.ar
>
>
> _____
>
>
> De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar]
En nombre
> de Pablo J. Pereyra
> Enviado el: Sábado, 17 de Marzo de 2007 12:49 p.m.
> Para: guvoaII@gruposyahoo.com.ar
> Asunto: Re: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Claudio,
>
> Me esta pasando con varios dbserver, pero el problema lo tengo
especialmente
> con uno que tiene esta condicion, podra ser eso ?
>
> INDEX ON Recno() FOR Deleted()
>
> Ese dbserver tiene reutilizacion de registros porque tiene muchas
altas y
> bajas, sera que hay problemas con indices que tengan esa
condicion ?
>
> Pablo J. Pereyra
> Córdoba - Argentina
> pjpereyra@ciudad. <mailto:pjpereyra@...> com.ar
> ICQ: 34806442
>
> ----- Original Message -----
>
> From: [xCSA] Claudio Torrillo <mailto:clipsupp@...>
>
> To: guvoaII@gruposyahoo
<mailto:guvoaII@gruposyahoo.com.ar> .com.ar
>
> Sent: Saturday, March 17, 2007 6:56 AM
>
> Subject: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Pablo.
>
> Primero, el editor de DBserver … mejor ni hablar.
>
> Segundo, si el código fuente de los dbServer es el del 2.5
original, hay
> diferencias. Mínimas, pero diferencias al fin.
>
> Tercero, un problema que no sé si se corrigió es que si el
DBServer está
> definido por el editor en un directorio y luego le digo que la
tabla está en
> otro, pero el definido es alcanzable, el código junto con el
AUTOOPEN hace
> que el CDX se abra 2 veces, con lo cual en funcionamiento no anda
ni a
> cañones ya que no sabe a que tag apuntar por que los tiene
duplicados, esto
> ocurría en 2.5 y 2.6 si no me equivoco … hace años que tengo mi
propia clase
> y el editor ni lo miro.
>
> Ergo, lo que te dice Gerardo del AutoOpen soluciona en parte el
problema, lo
> otro a realizar es regenerar el código de los dbServer con 2.7
>
> Respecto de los TAGS que el editor no toma, simple, debes estar
utilizando
> funciones que el editor no conoce, hay una DLL que se genera
>
> -- CAVO27\VOLIB\cavorddb\CAVOUDF.AEF --
>
> Esa dll se genera y se pone en el directorio BIN, permite definir
las
> funciones que el editor de DBServer necesita para los indices.
>
> Por supuesto que si el problema de apertura es este, olvídate de la
> generación no?
>
> Claudio G. Torrillo
>
> www.xcsa.com.ar
>
> Tel/Fax: 4840-0255
>
> info(@)xcsa.com.ar
>
>
> _____
>
>
> De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar]
En nombre
> de Pablo J. Pereyra
> Enviado el: Viernes, 16 de Marzo de 2007 09:39 p.m.
> Para: guvoaII@gruposyahoo.com.ar
> Asunto: Re: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Me tiene enfermo... me toma 1 solo TAG.
>
> La base tiene 3 TAGS, le selecciono los otros por el numero o por
el nombre
> del mismo y el OrderInfo(DBOI_ORDERCOUNT) me devuelve siempre 1.
>
> la verdad ya no se que hacer porque no puedo trabajar asi... me
esta
> grabando donde quiere. Levanto el mismo DBF en VO 2.5 y lo levanta
> perfecto,, me parece que me voy a volver para atras en la version.
>
> Si no me lo mostrara en el IDE pero al operar si lo considerara no
me
> calienta... pero no existe para el VO.
>
> Pablo J. Pereyra
> Córdoba - Argentina
> pjpereyra@ciudad. <mailto:pjpereyra@...> com.ar
> ICQ: 34806442
>
> ----- Original Message -----
>
> From: Gerardo <mailto:gjbiagiotti@...> J. Biagiotti
>
> To: guvoaII@gruposyahoo
<mailto:guvoaII@gruposyahoo.com.ar> .com.ar
>
> Sent: Friday, March 16, 2007 9:23 PM
>
> Subject: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Utilizá en tu programa lo siguiente para confirmar cuantos TAG te
abre con
> la base:
>
> ?oBase:OrderInfo(DBOI_ORDERCOUNT)
>
> En mi caso el Editor DbServer no me muestra todos los TAGs pero al
ejecutar
> mi programa si los abre.
>
> Gerardo J. Biagiotti
> Analista de Sistemas
> (2580) Marcos Juárez
> Córdoba - Argentina
>
> Mail: gjbiagiotti@ <mailto:gjbiagiotti@...> coyspu.com.ar
> MSN: gerardo_biagiotti@ <mailto:gerardo_biagiotti@...> hotmail.com
> gjbiagiotti@...
> gjbiagiotti@...
>
> De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar]
En nombre
> de Pablo J. Pereyra
> Enviado el: Viernes, 16 de Marzo de 2007 05:12 p.m.
> Para: guvoaII@gruposyahoo.com.ar
> Asunto: Re: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Gerardo,
>
> El problema es con el editor,,, que me crea un solo TAG y tengo 3.
>
> Pero tambien estoy teniendo dramas porque cuando hago un SETORDER
() del TAG
> no mostrado es como que no encuentra registros.
>
> Voy a seguir haciendo pruebas y te confirmo esto ultimo.
>
> Que moco, no ?
>
> Pablo J. Pereyra
> Córdoba - Argentina
> pjpereyra@ciudad. <mailto:pjpereyra@...> com.ar
> ICQ: 34806442
>
> ----- Original Message -----
>
> From: Gerardo <mailto:gjbiagiotti@...> J. Biagiotti
>
> To: guvoaII@gruposyahoo
<mailto:guvoaII@gruposyahoo.com.ar> .com.ar
>
> Sent: Friday, March 16, 2007 2:35 PM
>
> Subject: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> No me quedó claro si el problema te lo hace al abrir la base con
el Browse
> del Editor DbServer o en la ejecución de tu programa.
>
> Recién probé a abrir la base de clientes, que tiene 5 Tags, con el
Browse
> del Editor DbServer y solo muestra 3 tags. Pero al utilizar la
base desde mi
> programa abre los 5 Tags.
>
> Utilizo VO 2.7b_2740
>
> Gerardo J. Biagiotti
> Analista de Sistemas
> (2580) Marcos Juárez
> Córdoba - Argentina
>
> Mail: gjbiagiotti@...
> MSN: gerardo_biagiotti@...
> gjbiagiotti@...
> gjbiagiotti@...
>
> De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar]
En nombre
> de Pablo J. Pereyra
> Enviado el: Viernes, 16 de Marzo de 2007 02:39 a.m.
> Para: guvoaII@gruposyahoo.com.ar
> Asunto: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Me volvi loco con una boludez que me paso y la comento por si
alguno sabe al
> solucion o que no le pase tambien.
>
> Tenia un problema de ubicacion de registros y perdiendome todo el
dia me di
> cuenta que no lo encuentra porque la clase creada por VO 2.7 al
armar un
> Dbserver solo me levanta el primer TAG que tiene el CDX y en mi
caso habia 3
> TAG.
>
> Que puede estar pasando ?
>
> El DBF esta perfecto asi como su CDX asociado, pues haciendo lo
mismo desde
> VO 2.5 toma todos sin problemas.
>
> Trabajano con VO2.7 si elimino el CDX que me levanta
automaticamente al
> seleccionar el DBF ... y lo vuelvo a seleccionar ahi si me toma
los TAGs.
>
> Supuestamente tengo los 3 parches instalados en el VO2.7, pero
como puedo
> saberlo ?
>
> Pablo J. Pereyra
> Córdoba - Argentina
> pjpereyra@ciudad. <mailto:pjpereyra@...> com.ar
> ICQ: 34806442
>
>
>
> __________ Información de NOD32 2121 (20070316) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32. <http://www.nod32.com/> com
>
>
>
> __________ Información de NOD32 2121 (20070316) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32. <http://www.nod32.com/> com
>
>
>
> __________ Información de NOD32 2122 (20070317) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32. <http://www.nod32.com/> com
>
>
>
> __________ Información de NOD32 2123 (20070317) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32. <http://www.nod32.com/> com
>
>
>
>
>
> _____
>
>
> LLama Gratis a cualquier PC del Mundo.
> Llamadas a fijos y móviles desde 1 céntimo por minuto.
> http://es.voice.
>
<http://us.rd.yahoo.com/mail/es/tagline/messenger/*http:/es.voice.yah
oo.com/
> > yahoo.com
>



LLama Gratis a cualquier PC del Mundo.
Llamadas a fijos y móviles desde 1 céntimo por minuto.
http://es.voice.yahoo.com

#1546 De: "[xCSA] Claudio Torrillo" <clipsupp@...>
Fecha: Vie, 6 de Abr, 2007 1:11 pm
Asunto: RE: Re: VO 2.7 no me toma todos los TAGs al crear Dbserver
clipsupp
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Perdon, pero la duda me carcome…

 

Como puede ser que cada vez que entras a un Browser debés ordenar la tabla?

Eso tá muyyyyyyy mal.

 

Además, estamos hablando de CAVO?

Como que abrís la tabla con DBUseArea … eso no abre una tabla mediante objetos, eso no podes asignarlo al brower mediante :Use(). Por lo tanto en :Server  que tenés?

Otra, será una tabla temporal? Imagino que sí.

 

Me alegro que hayas solucionado el problema, de todas formas, para la próxima incluí el codigo AYUDARNOS A AYUDARTE!!! J J

 

Claudio G. Torrillo

www.xcsa.com.ar

Tel/Fax: 4840-0255

info(@)xcsa.com.ar

 


De: guvoaII@... [mailto:guvoaII@...] En nombre de jlpercas
Enviado el: Jueves, 05 de Abril de 2007 06:02 p.m.
Para: guvoaII@...
Asunto: [guvoaII] Re: VO 2.7 no me toma todos los TAGs al crear Dbserver

 

Compañeros he encontrado la solucion para mi problema.

Incicialmente abria la tabla en modo exclusivo y ordenaba los datos
con el comando INDEX ON campo TAG campo. Al tratar de abrir algun
indice, no me mostraba datos.

Cambie mi programa de la siguiente forma.

Abri la tabla con el comando DBUSEAREA(), despues de esto se lo
asigne al Browser como SERVER y lo ordene con el comando

SELF:Browser:server:CreateOrder("CAMPO",,"CAMPO",,FALSE)

y de esta forma es como me funciono...... Ya puedo abrir la tabla
con el indice que quiero.

Saludos

--- En guvoaII@gruposyahoo.com.ar, "[xCSA] Claudio Torrillo"
<clipsupp@...> escribió:
>
> Incluí el código del método en la consulta.
>
>
>
> Claudio G. Torrillo
>
> www.xcsa.com.ar
>
> Tel/Fax: 4840-0255
>
> info(@)xcsa.com.ar
>
>
>
> _____
>
> De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar]
En nombre
> de jose luis perez castillo
> Enviado el: Martes, 03 de Abril de 2007 01:02 a.m.
> Para: guvoaII@gruposyahoo.com.ar
> Asunto: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
>
>
> Hola a todos,
>
>
>
> Tengo un Browser en una DataDialog. En el metodo PostInit creo una
tabla y
> se la asigno al Browser como Server.
>
> Al crear la tabla tambien creo un indice, pero al abrirla el
indice me lo
> ignora.
>
>
>
> Ya he probado con los comandos que ustedes han mencionado y sigue
igual.
>
> Si abro la tabla con algun progrma como tipo DBFNTX, puedo ver los
datos,
>
> pero si cargo el archivo DBFCDX que he creado, no me muestra nada.
>
>
>
> Alguien de ustedes me puede sugerir que debo hacer ?
>
>
>
> De antemano muchas gracias por la ayuda que me puedan proporcionar.
>
>
>
> Saludos
>
> Jose Luis Perez -- Tamaulipas, Mexico.
>
>
>
> "[xCSA] Claudio Torrillo" <clipsupp@...> escribió:
>
> Ok.
>
>
>
> Cambia la expresion a Str(RECNO()) creo que eso soluciona el
problema.
>
> Claudio G. Torrillo
>
> www.xcsa.com.ar
>
> Tel/Fax: 4840-0255
>
> info(@)xcsa.com.ar
>
>
>
>
>
>
> _____
>
>
> De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar]
En nombre
> de Pablo J. Pereyra
> Enviado el: Sábado, 17 de Marzo de 2007 04:20 p.m.
> Para: guvoaII@gruposyahoo.com.ar
> Asunto: Re: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Claudio, Gerardo,
>
>
>
> Si, podria hacer eso mismo... pero mi curiosidad viene porque en
Clipper
> tengo una rutina igual solo que como funcion y no como metodo pero
> exactamente la misma y alli funciona perfecto.
>
> En VO deberia hacer lo mismo y no funciona... estoy agregando
registros y
> observando el comportamiento del indice y no hace lo que
deberia... por
> ejemplo arme un metodo que recorra el DBF y se pare donde este
DELETED() y
> .NOT. RLOCK(), y me encuentra el deleted pero ese indice tiene los
registos
> bloqueados... medio raro.
>
>
>
> Este aplicativo en VO debe funcionar "simultaneamente" con el otro
hecho en
> cliper y usar los indices que ya dispongo, por eso no puedo crear
> condiciones nuevas... salvo cambiar el soft en clipper, pero como
estoy
> medio jugado de tiempo necesito hacerlo funcionar ahora y despues
ya si
> podre cambiar todo.
>
>
>
> COmo detalle los CDX son creados todos desde Clipper 5.3b, y en VO
uso los
> SETs correspondientes para clipper (collation, etc)
>
> Ya tengo este tipo de mezcla entre Clipper y VO usando mismos DBF
y CDX..
> pero ahora me esta dando problemas, llegue a pensar que los DBF
estaban
> dañados pero no es asi.
>
>
>
> La otra idea que tengo es "reciclar" registros pero sin usar
indice.... es
> decir recorrer registro a registro la DBF hasta encontrar uno que
este
> marcado como DELETED y alli rescatarlo,,, sera mas lento pero por
lo menos
> podre hacerlo hasta que descubra el problema.
>
>
>
> Alguna sugerencia ?
>
>
>
> Pablo J. Pereyra
> Córdoba - Argentina
> pjpereyra@ciudad. <mailto:pjpereyra@...> com.ar
> ICQ: 34806442
>
> ----- Original Message -----
>
> From: Gerardo <mailto:gjbiagiotti@...> J. Biagiotti
>
> To: guvoaII@gruposyahoo
<mailto:guvoaII@gruposyahoo.com.ar> .com.ar
>
> Sent: Saturday, March 17, 2007 4:03 PM
>
> Subject: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
>
>
> Otra opción podría ser trabajar con un filtro directamente:
>
> oBase:SetFilter(!oBase:Deleted)
>
> Gerardo J. Biagiotti
> Analista de Sistemas
> (2580) Marcos Juárez
> Córdoba - Argentina
>
> Mail: gjbiagiotti@ <mailto:gjbiagiotti@...> coyspu.com.ar
> MSN: gerardo_biagiotti@ <mailto:gerardo_biagiotti@...> hotmail.com
> gjbiagiotti@ <mailto:gjbiagiotti@...> gmail.com
> gjbiagiotti@ <mailto:gjbiagiotti@...> yahoo.com.ar
>
> De: guvoaII@gruposyahoo <mailto:guvoaII@gruposyahoo.com.ar> .com.ar
> [mailto:guvoaII@gruposyahoo.com.ar] En nombre de [xCSA] Claudio
Torrillo
> Enviado el: Sábado, 17 de Marzo de 2007 03:42 p.m.
> Para: guvoaII@gruposyahoo.com.ar
> Asunto: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> No debiera, pero ..
>
> Ahora, y si le cambias la expresión por INDEX ON IIF(DELETED
(),"S","N")
>
> Pasas a tener un índice STD y donde la clave te permite
seleccionar
> rápidamente cualquier condición.
>
> Claudio G. Torrillo
>
> www.xcsa.com.ar
>
> Tel/Fax: 4840-0255
>
> info(@)xcsa.com.ar
>
>
> _____
>
>
> De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar]
En nombre
> de Pablo J. Pereyra
> Enviado el: Sábado, 17 de Marzo de 2007 12:49 p.m.
> Para: guvoaII@gruposyahoo.com.ar
> Asunto: Re: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Claudio,
>
> Me esta pasando con varios dbserver, pero el problema lo tengo
especialmente
> con uno que tiene esta condicion, podra ser eso ?
>
> INDEX ON Recno() FOR Deleted()
>
> Ese dbserver tiene reutilizacion de registros porque tiene muchas
altas y
> bajas, sera que hay problemas con indices que tengan esa
condicion ?
>
> Pablo J. Pereyra
> Córdoba - Argentina
> pjpereyra@ciudad. <mailto:pjpereyra@...> com.ar
> ICQ: 34806442
>
> ----- Original Message -----
>
> From: [xCSA] Claudio Torrillo <mailto:clipsupp@...>
>
> To: guvoaII@gruposyahoo
<mailto:guvoaII@gruposyahoo.com.ar> .com.ar
>
> Sent: Saturday, March 17, 2007 6:56 AM
>
> Subject: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Pablo.
>
> Primero, el editor de DBserver … mejor ni hablar.
>
> Segundo, si el código fuente de los dbServer es el del 2.5
original, hay
> diferencias. Mínimas, pero diferencias al fin.
>
> Tercero, un problema que no sé si se corrigió es que si el
DBServer está
> definido por el editor en un directorio y luego le digo que la
tabla está en
> otro, pero el definido es alcanzable, el código junto con el
AUTOOPEN hace
> que el CDX se abra 2 veces, con lo cual en funcionamiento no anda
ni a
> cañones ya que no sabe a que tag apuntar por que los tiene
duplicados, esto
> ocurría en 2.5 y 2.6 si no me equivoco … hace años que tengo mi
propia clase
> y el editor ni lo miro.
>
> Ergo, lo que te dice Gerardo del AutoOpen soluciona en parte el
problema, lo
> otro a realizar es regenerar el código de los dbServer con 2.7
>
> Respecto de los TAGS que el editor no toma, simple, debes estar
utilizando
> funciones que el editor no conoce, hay una DLL que se genera
>
> -- CAVO27\VOLIB\cavorddb\CAVOUDF.AEF --
>
> Esa dll se genera y se pone en el directorio BIN, permite definir
las
> funciones que el editor de DBServer necesita para los indices.
>
> Por supuesto que si el problema de apertura es este, olvídate de la
> generación no?
>
> Claudio G. Torrillo
>
> www.xcsa.com.ar
>
> Tel/Fax: 4840-0255
>
> info(@)xcsa.com.ar
>
>
> _____
>
>
> De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar]
En nombre
> de Pablo J. Pereyra
> Enviado el: Viernes, 16 de Marzo de 2007 09:39 p.m.
> Para: guvoaII@gruposyahoo.com.ar
> Asunto: Re: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Me tiene enfermo... me toma 1 solo TAG.
>
> La base tiene 3 TAGS, le selecciono los otros por el numero o por
el nombre
> del mismo y el OrderInfo(DBOI_ORDERCOUNT) me devuelve siempre 1.
>
> la verdad ya no se que hacer porque no puedo trabajar asi... me
esta
> grabando donde quiere. Levanto el mismo DBF en VO 2.5 y lo levanta
> perfecto,, me parece que me voy a volver para atras en la version.
>
> Si no me lo mostrara en el IDE pero al operar si lo considerara no
me
> calienta... pero no existe para el VO.
>
> Pablo J. Pereyra
> Córdoba - Argentina
> pjpereyra@ciudad. <mailto:pjpereyra@...> com.ar
> ICQ: 34806442
>
> ----- Original Message -----
>
> From: Gerardo <mailto:gjbiagiotti@...> J. Biagiotti
>
> To: guvoaII@gruposyahoo
<mailto:guvoaII@gruposyahoo.com.ar> .com.ar
>
> Sent: Friday, March 16, 2007 9:23 PM
>
> Subject: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Utilizá en tu programa lo siguiente para confirmar cuantos TAG te
abre con
> la base:
>
> ?oBase:OrderInfo(DBOI_ORDERCOUNT)
>
> En mi caso el Editor DbServer no me muestra todos los TAGs pero al
ejecutar
> mi programa si los abre.
>
> Gerardo J. Biagiotti
> Analista de Sistemas
> (2580) Marcos Juárez
> Córdoba - Argentina
>
> Mail: gjbiagiotti@ <mailto:gjbiagiotti@...> coyspu.com.ar
> MSN: gerardo_biagiotti@ <mailto:gerardo_biagiotti@...> hotmail.com
> gjbiagiotti@...
> gjbiagiotti@...
>
> De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar]
En nombre
> de Pablo J. Pereyra
> Enviado el: Viernes, 16 de Marzo de 2007 05:12 p.m.
> Para: guvoaII@gruposyahoo.com.ar
> Asunto: Re: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Gerardo,
>
> El problema es con el editor,,, que me crea un solo TAG y tengo 3.
>
> Pero tambien estoy teniendo dramas porque cuando hago un SETORDER
() del TAG
> no mostrado es como que no encuentra registros.
>
> Voy a seguir haciendo pruebas y te confirmo esto ultimo.
>
> Que moco, no ?
>
> Pablo J. Pereyra
> Córdoba - Argentina
> pjpereyra@ciudad. <mailto:pjpereyra@...> com.ar
> ICQ: 34806442
>
> ----- Original Message -----
>
> From: Gerardo <mailto:gjbiagiotti@...> J. Biagiotti
>
> To: guvoaII@gruposyahoo
<mailto:guvoaII@gruposyahoo.com.ar> .com.ar
>
> Sent: Friday, March 16, 2007 2:35 PM
>
> Subject: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> No me quedó claro si el problema te lo hace al abrir la base con
el Browse
> del Editor DbServer o en la ejecución de tu programa.
>
> Recién probé a abrir la base de clientes, que tiene 5 Tags, con el
Browse
> del Editor DbServer y solo muestra 3 tags. Pero al utilizar la
base desde mi
> programa abre los 5 Tags.
>
> Utilizo VO 2.7b_2740
>
> Gerardo J. Biagiotti
> Analista de Sistemas
> (2580) Marcos Juárez
> Córdoba - Argentina
>
> Mail: gjbiagiotti@...
> MSN: gerardo_biagiotti@...
> gjbiagiotti@...
> gjbiagiotti@...
>
> De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar]
En nombre
> de Pablo J. Pereyra
> Enviado el: Viernes, 16 de Marzo de 2007 02:39 a.m.
> Para: guvoaII@gruposyahoo.com.ar
> Asunto: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Me volvi loco con una boludez que me paso y la comento por si
alguno sabe al
> solucion o que no le pase tambien.
>
> Tenia un problema de ubicacion de registros y perdiendome todo el
dia me di
> cuenta que no lo encuentra porque la clase creada por VO 2.7 al
armar un
> Dbserver solo me levanta el primer TAG que tiene el CDX y en mi
caso habia 3
> TAG.
>
> Que puede estar pasando ?
>
> El DBF esta perfecto asi como su CDX asociado, pues haciendo lo
mismo desde
> VO 2.5 toma todos sin problemas.
>
> Trabajano con VO2.7 si elimino el CDX que me levanta
automaticamente al
> seleccionar el DBF ... y lo vuelvo a seleccionar ahi si me toma
los TAGs.
>
> Supuestamente tengo los 3 parches instalados en el VO2.7, pero
como puedo
> saberlo ?
>
> Pablo J. Pereyra
> Córdoba - Argentina
> pjpereyra@ciudad. <mailto:pjpereyra@...> com.ar
> ICQ: 34806442
>
>
>
> __________ Información de NOD32 2121 (20070316) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32. <http://www.nod32.com/> com
>
>
>
> __________ Información de NOD32 2121 (20070316) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32. <http://www.nod32.com/> com
>
>
>
> __________ Información de NOD32 2122 (20070317) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32. <http://www.nod32.com/> com
>
>
>
> __________ Información de NOD32 2123 (20070317) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32. <http://www.nod32.com/> com
>
>
>
>
>
> _____
>
>
> LLama Gratis a cualquier PC del Mundo.
> Llamadas a fijos y móviles desde 1 céntimo por minuto.
> http://es.voice.
>
<http://us.rd.yahoo.com/mail/es/tagline/messenger/*http:/es.voice.yah
oo.com/
> > yahoo.com
>


#1545 De: "[xCSA] Claudio Torrillo" <clipsupp@...>
Fecha: Vie, 6 de Abr, 2007 1:05 pm
Asunto: RE: VO 2.7b y Style XP.
clipsupp
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Si, no cambiar de colores ;)

 

No, en realidad no.

 

Claudio G. Torrillo
www.xcsa.com.ar

Tel/Fax: 4840-0255

info(@)xcsa.com.ar

 


De: guvoaII@... [mailto:guvoaII@...] En nombre de Gerardo J. Biagiotti
Enviado el: Jueves, 05 de Abril de 2007 02:36 p.m.
Para: guvoaII@...
Asunto: RE: [guvoaII] VO 2.7b y Style XP.

 

Claudio, alguna otra idea o sugerencia para solucionar el problema????

 

Otro detalle que vi en estos días es que si se abre una DataDialog sobre una DataWindow no hace el problema en el cambio de color.

El problema lo hace solo cuando se abre una DataWindow sobre otra DataWindow.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@coyspu.com.ar
         gjbiagiotti@gmail.com
         gjbiagiotti@yahoo.com.ar

MSN: gerardo_biagiotti@hotmail.com


 

De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de Gerardo J. Biagiotti
Enviado el: Lunes, 02 de Abril de 2007 12:23 p.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: RE: [guvoaII] VO 2.7b y Style XP.

 

Claudio, hice la misma prueba con un programa que tengo en VO 2.6.

Te muestro los resultados:

 

Con VO 2.6 y el Style XP los colores de la ventana de fondo se mantienen con el azul original.

 

 

Con VO 2.7

 

 

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@coyspu.com.ar
         gjbiagiotti@gmail.com
         gjbiagiotti@yahoo.com.ar

MSN: gerardo_biagiotti@hotmail.com



 

De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de [xCSA] Claudio Torrillo
Enviado el: Domingo, 01 de Abril de 2007 09:52 a.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: RE: [guvoaII] VO 2.7b y Style XP.

 

El tema es que al utilizar los estilos, no sólo se afecta a la forma en como se muestran los controles, sino que también el contenido.

Para poder representar el color del texto de un FixedText la API de estilos debe buscar en la configuración de windows todos los datos.

 

Lo que vos haces, es cambiar el color del texto, claro eso al iniciar la ventana, pero al pasar una ventana por encima de la otra, los datos se redibujan teniendo en cuanta los estilos y no tu definición de colores.

 

Un consejo, los colores no deben cambiarse, eso invalida al usuario el uso del cambio de color.

 

No me canso de repetir lo que me pasó personalmente con una empresa a la cual mi definición de colores no le cuadraba, yo había tomado un color X para el texto y resulta que la empresa decidión que ese color fuese el mismo de fondo, ergo los datos no se veían.

 

Lo mejor es tratar de utilizar os colores definidos en Windows y para resaltar texto no CAMBIAR COLORES sino CUERPO y TAMAÑO de font. Se obtiene una estética más acompasada con el entorno.

 

Para más comparación, MS no usa colores en el texto, el texto siempre es negro sobr el fondo STD que manda el estilo.

 

Una de 2 o utilizas el estilo XP o utilizas TU estilo.

 

 

Claudio G. Torrillo

www.xcsa.com.ar

Tel/Fax: 4840-0255

info(@)xcsa.com.ar

 


De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de Gerardo J. Biagiotti
Enviado el: Viernes, 30 de Marzo de 2007 04:17 p.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: RE: [guvoaII] VO 2.7b y Style XP.

 

Claudio, no utilizo ninguna clase. Son STD FixedText.

A que te referís con “solo te funcionan si el control se diseña para trabajar con estilos”???

Te adjunto un MEF para que veas como están diseñados los controles.

 

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@coyspu.com.ar
         gjbiagiotti@gmail.com
         gjbiagiotti@yahoo.com.ar

MSN: gerardo_biagiotti@hotmail.com





 

De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de Claudio Torrillo
Enviado el: Viernes, 30 de Marzo de 2007 02:12 p.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: Re: [guvoaII] VO 2.7b y Style XP.

 

Los controles son STD FixedText o estas utilizando alguna clase?.

OJO, los estilos XP solo te funcionan si el control se diseña para trabajar con estilos.

Eso que pusistes, sólo afecta a los controles predefinidos de Windows.

Por ejemplo, si un botón tiene un BMP ya no lo ves como XP sino al viejo estilo W2000 o W98.

 

Claudio G. Torrillo
www.xcsa.com.ar

 

----- Mensaje original ----
De: Gerardo J. Biagiotti <gjbiagiotti@gmail.com>
Para: GUVOA II <guvoaII@gruposyahoo.com.ar>
Enviado: viernes 30 de marzo de 2007, 9:06:26
Asunto: [guvoaII] VO 2.7b y Style XP.

He incorporado a mi programa el código para que se vean con los estilos del XP.

 

DEFINE CREATEPROCESS_ MANIFEST_ RESOURCE_ ID := 1

RESOURCE CREATEPROCESS_ MANIFEST_ RESOURCE_ ID RC_RT_MANIFEST C:\SPI\Administració n\Sistema\ cctl6.man

DEFINE RC_RT_MANIFEST := 24

 

El archivo cctl6.man contiene lo siguiente:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>

<assembly xmlns="urn:schemas- microsoft- com:asm.v1" manifestVersion="1.0">

<assemblyIdentity

    version="1.0.0.0"

    processorArchitectu re="X86"

    name="VO.Application"

    type="win32"

/>

<description>Visual Objects Application.</description>

<dependency>

    <dependentAssembly>

        <assemblyIdentity

            type="win32"

            name="Microsoft.Windows. Common-Controls"

            version="6.0.0.0"

            processorArchitectu re="X86"

            publicKeyToken="6595b64144ccf1df"

            language="*"

        />

    </dependentAssembly>

</dependency>

</assembly>

 

En la imagen siguiente se pueden ver las 2 ventanas que contienen información del sistema, con textos en color azul (ventana superior) y controles de fondo azul y texto negro (ventana inferior alargada).

 

 

¡Error! Nombre de archivo no especificado.

 

Si observan la siguiente imagen, verán que al abrir una ventana cualquiera, los textos azules quedan de color negro, y los controles de fondo azul quedan con fondo gris en el área de los textos.

Pero al mover la ventana recién abierta sobre dichos texto y controles vuelven a sus colores originales.

Precisamente, parte del texto, ahora se ve color azul porque moví la ventana para que se vea el efecto.

Miren los controles de la ventana inferior.

 

¡Error! Nombre de archivo no especificado.

 

Cómo puedo hacer para evitar que sucedan estos cambios de colores cada vez que se abre una ventana.

Espero que las imágenes lleguen.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@ coyspu.com. ar
         gjbiagiotti@ gmail.com
         gjbiagiotti@ yahoo.com. ar

MSN: gerardo_biagiotti@ hotmail.com

 

 

 


Preguntá. Respondé. Descubrí.
Todo lo que querías saber, y lo que ni imaginabas,
está en Yahoo! Respuestas (Beta).
Probalo ya!


#1544 De: "jlpercas" <jlpercas@...>
Fecha: Jue, 5 de Abr, 2007 9:02 pm
Asunto: Re: VO 2.7 no me toma todos los TAGs al crear Dbserver
jlpercas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Compañeros he encontrado la solucion para mi problema.

Incicialmente abria la tabla en modo exclusivo y ordenaba los datos
con el comando INDEX ON campo TAG campo. Al tratar de abrir algun
indice, no me mostraba datos.

Cambie mi programa de la siguiente forma.

Abri la tabla con el comando DBUSEAREA(), despues de esto se lo
asigne al Browser como SERVER y lo ordene con el comando

SELF:Browser:server:CreateOrder("CAMPO",,"CAMPO",,FALSE)

y de esta forma es como me funciono...... Ya puedo abrir la tabla
con el indice que quiero.


Saludos



--- En guvoaII@..., "[xCSA] Claudio Torrillo"
<clipsupp@...> escribió:
>
> Incluí el código del método en la consulta.
>
>
>
> Claudio G. Torrillo
>
> www.xcsa.com.ar
>
> Tel/Fax: 4840-0255
>
> info(@)xcsa.com.ar
>
>
>
>   _____
>
> De: guvoaII@... [mailto:guvoaII@...]
En nombre
> de jose luis perez castillo
> Enviado el: Martes, 03 de Abril de 2007 01:02 a.m.
> Para: guvoaII@...
> Asunto: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
>
>
> Hola a todos,
>
>
>
> Tengo un Browser en una DataDialog. En el metodo PostInit creo una
tabla y
> se la asigno al Browser como Server.
>
> Al crear la tabla tambien creo un indice, pero al abrirla el
indice me lo
> ignora.
>
>
>
> Ya he probado con los comandos que ustedes han mencionado y sigue
igual.
>
> Si abro la tabla con algun progrma como tipo DBFNTX, puedo ver los
datos,
>
> pero si cargo el archivo DBFCDX que he creado, no me muestra nada.
>
>
>
> Alguien de ustedes me puede sugerir que debo hacer ?
>
>
>
> De antemano muchas gracias por la ayuda que me puedan proporcionar.
>
>
>
> Saludos
>
> Jose Luis Perez -- Tamaulipas, Mexico.
>
>
>
> "[xCSA] Claudio Torrillo" <clipsupp@...> escribió:
>
> Ok.
>
>
>
> Cambia la expresion a Str(RECNO()) creo que eso soluciona el
problema.
>
> Claudio G. Torrillo
>
> www.xcsa.com.ar
>
> Tel/Fax: 4840-0255
>
> info(@)xcsa.com.ar
>
>
>
>
>
>
>   _____
>
>
> De: guvoaII@... [mailto:guvoaII@...]
En nombre
> de Pablo J. Pereyra
> Enviado el: Sábado, 17 de Marzo de 2007 04:20 p.m.
> Para: guvoaII@...
> Asunto: Re: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Claudio, Gerardo,
>
>
>
> Si, podria hacer eso mismo... pero mi curiosidad viene porque en
Clipper
> tengo una rutina igual solo que como funcion y no como metodo pero
> exactamente la misma y alli funciona perfecto.
>
> En VO deberia hacer lo mismo y no funciona... estoy agregando
registros y
> observando el comportamiento del indice y no hace lo que
deberia... por
> ejemplo arme un metodo que recorra el DBF y se pare donde este
DELETED() y
> .NOT. RLOCK(), y me encuentra el deleted pero ese indice tiene los
registos
> bloqueados... medio raro.
>
>
>
> Este aplicativo en VO debe funcionar "simultaneamente" con el otro
hecho en
> cliper y usar los indices que ya dispongo, por eso no puedo crear
> condiciones nuevas... salvo cambiar el soft en clipper, pero como
estoy
> medio jugado de tiempo necesito hacerlo funcionar ahora y despues
ya si
> podre cambiar todo.
>
>
>
> COmo detalle los CDX son creados todos desde Clipper 5.3b, y en VO
uso los
> SETs correspondientes para clipper (collation, etc)
>
> Ya tengo este tipo de mezcla entre Clipper y VO usando mismos DBF
y CDX..
> pero ahora me esta dando problemas, llegue a pensar que los DBF
estaban
> dañados pero no es asi.
>
>
>
> La otra idea que tengo es "reciclar" registros pero sin usar
indice.... es
> decir recorrer registro a registro la DBF hasta encontrar uno que
este
> marcado como DELETED y alli rescatarlo,,, sera mas lento pero por
lo menos
> podre hacerlo hasta que descubra el problema.
>
>
>
> Alguna sugerencia ?
>
>
>
>       Pablo J. Pereyra
>    Córdoba  -  Argentina
>  pjpereyra@ciudad. <mailto:pjpereyra@...> com.ar
>  ICQ: 34806442
>
> ----- Original Message -----
>
> From: Gerardo <mailto:gjbiagiotti@...>  J. Biagiotti
>
> To: guvoaII@gruposyahoo
<mailto:guvoaII@...> .com.ar
>
> Sent: Saturday, March 17, 2007 4:03 PM
>
> Subject: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
>
>
> Otra opción podría ser trabajar con un filtro directamente:
>
> oBase:SetFilter(!oBase:Deleted)
>
> Gerardo J. Biagiotti
> Analista de Sistemas
> (2580) Marcos Juárez
> Córdoba - Argentina
>
> Mail:  gjbiagiotti@ <mailto:gjbiagiotti@...> coyspu.com.ar
> MSN: gerardo_biagiotti@ <mailto:gerardo_biagiotti@...> hotmail.com
>          gjbiagiotti@ <mailto:gjbiagiotti@...> gmail.com
>          gjbiagiotti@ <mailto:gjbiagiotti@...> yahoo.com.ar
>
> De: guvoaII@gruposyahoo <mailto:guvoaII@...> .com.ar
> [mailto:guvoaII@...] En nombre de [xCSA] Claudio
Torrillo
> Enviado el: Sábado, 17 de Marzo de 2007 03:42 p.m.
> Para: guvoaII@...
> Asunto: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> No debiera, pero ..
>
> Ahora, y si le cambias la expresión por INDEX ON IIF(DELETED
(),"S","N")
>
> Pasas a tener un índice  STD y donde la clave te permite
seleccionar
> rápidamente cualquier condición.
>
> Claudio G. Torrillo
>
> www.xcsa.com.ar
>
> Tel/Fax: 4840-0255
>
> info(@)xcsa.com.ar
>
>
>   _____
>
>
> De: guvoaII@... [mailto:guvoaII@...]
En nombre
> de Pablo J. Pereyra
> Enviado el: Sábado, 17 de Marzo de 2007 12:49 p.m.
> Para: guvoaII@...
> Asunto: Re: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Claudio,
>
> Me esta pasando con varios dbserver, pero el problema lo tengo
especialmente
> con uno que tiene esta condicion, podra ser eso ?
>
>  INDEX ON Recno() FOR Deleted()
>
> Ese dbserver tiene reutilizacion de registros porque tiene muchas
altas y
> bajas, sera que hay problemas con indices que tengan esa
condicion ?
>
>       Pablo J. Pereyra
>    Córdoba  -  Argentina
>  pjpereyra@ciudad. <mailto:pjpereyra@...> com.ar
>  ICQ: 34806442
>
> ----- Original Message -----
>
> From: [xCSA] Claudio Torrillo <mailto:clipsupp@...>
>
> To: guvoaII@gruposyahoo
<mailto:guvoaII@...> .com.ar
>
> Sent: Saturday, March 17, 2007 6:56 AM
>
> Subject: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Pablo.
>
> Primero, el editor de DBserver … mejor ni hablar.
>
> Segundo, si el código fuente de los dbServer es el del 2.5
original, hay
> diferencias. Mínimas, pero diferencias al fin.
>
> Tercero, un problema que no sé si se corrigió es que si el
DBServer está
> definido por el editor en un directorio y luego le digo que la
tabla está en
> otro, pero el definido es alcanzable, el código junto con el
AUTOOPEN hace
> que el CDX se abra 2 veces, con lo cual en funcionamiento no anda
ni a
> cañones ya que no sabe a que tag apuntar por que los tiene
duplicados, esto
> ocurría en 2.5 y 2.6 si no me equivoco … hace años que tengo mi
propia clase
> y el editor ni lo miro.
>
> Ergo, lo que te dice Gerardo del AutoOpen soluciona en parte el
problema, lo
> otro a realizar es regenerar el código de los dbServer con 2.7
>
> Respecto de los TAGS que el editor no toma, simple, debes estar
utilizando
> funciones que el editor no conoce, hay una DLL que se genera
>
> -- CAVO27\VOLIB\cavorddb\CAVOUDF.AEF --
>
> Esa dll se genera y se pone en el directorio BIN, permite definir
las
> funciones que el editor de DBServer necesita para los indices.
>
> Por supuesto que si el problema de apertura es este, olvídate de la
> generación no?
>
> Claudio G. Torrillo
>
> www.xcsa.com.ar
>
> Tel/Fax: 4840-0255
>
> info(@)xcsa.com.ar
>
>
>   _____
>
>
> De: guvoaII@... [mailto:guvoaII@...]
En nombre
> de Pablo J. Pereyra
> Enviado el: Viernes, 16 de Marzo de 2007 09:39 p.m.
> Para: guvoaII@...
> Asunto: Re: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Me tiene enfermo... me toma 1 solo TAG.
>
> La base tiene 3 TAGS, le selecciono los otros por el numero o por
el nombre
> del mismo y el  OrderInfo(DBOI_ORDERCOUNT)  me devuelve siempre 1.
>
> la verdad ya no se que hacer porque no puedo trabajar asi... me
esta
> grabando donde quiere. Levanto el mismo DBF en VO 2.5 y lo levanta
> perfecto,, me parece que me voy a volver para atras en la version.
>
> Si no me lo mostrara en el IDE pero al operar si lo considerara no
me
> calienta... pero no existe para el VO.
>
>       Pablo J. Pereyra
>    Córdoba  -  Argentina
>  pjpereyra@ciudad. <mailto:pjpereyra@...> com.ar
>  ICQ: 34806442
>
> ----- Original Message -----
>
> From: Gerardo <mailto:gjbiagiotti@...>  J. Biagiotti
>
> To: guvoaII@gruposyahoo
<mailto:guvoaII@...> .com.ar
>
> Sent: Friday, March 16, 2007 9:23 PM
>
> Subject: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Utilizá en tu programa lo siguiente para confirmar cuantos TAG te
abre con
> la base:
>
> ?oBase:OrderInfo(DBOI_ORDERCOUNT)
>
> En mi caso el Editor DbServer no me muestra todos los TAGs pero al
ejecutar
> mi programa si los abre.
>
> Gerardo J. Biagiotti
> Analista de Sistemas
> (2580) Marcos Juárez
> Córdoba - Argentina
>
> Mail:  gjbiagiotti@ <mailto:gjbiagiotti@...> coyspu.com.ar
> MSN: gerardo_biagiotti@ <mailto:gerardo_biagiotti@...> hotmail.com
>          gjbiagiotti@...
>          gjbiagiotti@...
>
> De: guvoaII@... [mailto:guvoaII@...]
En nombre
> de Pablo J. Pereyra
> Enviado el: Viernes, 16 de Marzo de 2007 05:12 p.m.
> Para: guvoaII@...
> Asunto: Re: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Gerardo,
>
> El problema es con el editor,,, que me crea un solo TAG y tengo 3.
>
> Pero tambien estoy teniendo dramas porque cuando hago un SETORDER
() del TAG
> no mostrado es como que no encuentra registros.
>
> Voy a seguir haciendo pruebas y te confirmo esto ultimo.
>
> Que moco, no ?
>
>       Pablo J. Pereyra
>    Córdoba  -  Argentina
>  pjpereyra@ciudad. <mailto:pjpereyra@...> com.ar
>  ICQ: 34806442
>
> ----- Original Message -----
>
> From: Gerardo <mailto:gjbiagiotti@...>  J. Biagiotti
>
> To: guvoaII@gruposyahoo
<mailto:guvoaII@...> .com.ar
>
> Sent: Friday, March 16, 2007 2:35 PM
>
> Subject: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> No me quedó claro si el problema te lo hace al abrir la base con
el Browse
> del Editor DbServer o en la ejecución de tu programa.
>
> Recién probé a abrir la base de clientes, que tiene 5 Tags, con el
Browse
> del Editor DbServer y solo muestra 3 tags. Pero al utilizar la
base desde mi
> programa abre los 5 Tags.
>
> Utilizo VO 2.7b_2740
>
> Gerardo J. Biagiotti
> Analista de Sistemas
> (2580) Marcos Juárez
> Córdoba - Argentina
>
> Mail:  gjbiagiotti@...
> MSN: gerardo_biagiotti@...
>          gjbiagiotti@...
>          gjbiagiotti@...
>
> De: guvoaII@... [mailto:guvoaII@...]
En nombre
> de Pablo J. Pereyra
> Enviado el: Viernes, 16 de Marzo de 2007 02:39 a.m.
> Para: guvoaII@...
> Asunto: [guvoaII] VO 2.7 no me toma todos los TAGs al crear
Dbserver
>
> Me volvi loco con una boludez que me paso y la comento por si
alguno sabe al
> solucion o que no le pase tambien.
>
> Tenia un problema de ubicacion de registros y perdiendome todo el
dia me di
> cuenta que no lo encuentra porque la clase creada por VO 2.7 al
armar un
> Dbserver solo me levanta el primer TAG que tiene el CDX y en mi
caso habia 3
> TAG.
>
> Que puede estar pasando ?
>
> El DBF esta perfecto asi como su CDX asociado, pues haciendo lo
mismo desde
> VO 2.5 toma todos sin problemas.
>
> Trabajano con VO2.7 si elimino el CDX que me levanta
automaticamente al
> seleccionar el DBF ... y lo vuelvo a seleccionar ahi si me toma
los TAGs.
>
> Supuestamente tengo los 3 parches instalados en el VO2.7, pero
como puedo
> saberlo ?
>
>       Pablo J. Pereyra
>    Córdoba  -  Argentina
>  pjpereyra@ciudad. <mailto:pjpereyra@...> com.ar
>  ICQ: 34806442
>
>
>
> __________ Información de NOD32 2121 (20070316) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32. <http://www.nod32.com/> com
>
>
>
> __________ Información de NOD32 2121 (20070316) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32. <http://www.nod32.com/> com
>
>
>
> __________ Información de NOD32 2122 (20070317) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32. <http://www.nod32.com/> com
>
>
>
> __________ Información de NOD32 2123 (20070317) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32. <http://www.nod32.com/> com
>
>
>
>
>
>   _____
>
>
> LLama Gratis a cualquier PC del Mundo.
> Llamadas a fijos y móviles desde 1 céntimo por minuto.
> http://es.voice.
>
<http://us.rd.yahoo.com/mail/es/tagline/messenger/*http:/es.voice.yah
oo.com/
> > yahoo.com
>

#1543 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Jue, 5 de Abr, 2007 5:36 pm
Asunto: RE: VO 2.7b y Style XP.
gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Claudio, alguna otra idea o sugerencia para solucionar el problema????

 

Otro detalle que vi en estos días es que si se abre una DataDialog sobre una DataWindow no hace el problema en el cambio de color.

El problema lo hace solo cuando se abre una DataWindow sobre otra DataWindow.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...

MSN: gerardo_biagiotti@...

 

De: guvoaII@... [mailto:guvoaII@...] En nombre de Gerardo J. Biagiotti
Enviado el: Lunes, 02 de Abril de 2007 12:23 p.m.
Para: guvoaII@...
Asunto: RE: [guvoaII] VO 2.7b y Style XP.

 

Claudio, hice la misma prueba con un programa que tengo en VO 2.6.

Te muestro los resultados:

 

Con VO 2.6 y el Style XP los colores de la ventana de fondo se mantienen con el azul original.

 

 

Con VO 2.7

 

 

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...

MSN: gerardo_biagiotti@...


 

De: guvoaII@... [mailto:guvoaII@...] En nombre de [xCSA] Claudio Torrillo
Enviado el: Domingo, 01 de Abril de 2007 09:52 a.m.
Para: guvoaII@...
Asunto: RE: [guvoaII] VO 2.7b y Style XP.

 

El tema es que al utilizar los estilos, no sólo se afecta a la forma en como se muestran los controles, sino que también el contenido.

Para poder representar el color del texto de un FixedText la API de estilos debe buscar en la configuración de windows todos los datos.

 

Lo que vos haces, es cambiar el color del texto, claro eso al iniciar la ventana, pero al pasar una ventana por encima de la otra, los datos se redibujan teniendo en cuanta los estilos y no tu definición de colores.

 

Un consejo, los colores no deben cambiarse, eso invalida al usuario el uso del cambio de color.

 

No me canso de repetir lo que me pasó personalmente con una empresa a la cual mi definición de colores no le cuadraba, yo había tomado un color X para el texto y resulta que la empresa decidión que ese color fuese el mismo de fondo, ergo los datos no se veían.

 

Lo mejor es tratar de utilizar os colores definidos en Windows y para resaltar texto no CAMBIAR COLORES sino CUERPO y TAMAÑO de font. Se obtiene una estética más acompasada con el entorno.

 

Para más comparación, MS no usa colores en el texto, el texto siempre es negro sobr el fondo STD que manda el estilo.

 

Una de 2 o utilizas el estilo XP o utilizas TU estilo.

 

 

Claudio G. Torrillo

www.xcsa.com.ar

Tel/Fax: 4840-0255

info(@)xcsa.com.ar

 


De: guvoaII@... [mailto:guvoaII@...] En nombre de Gerardo J. Biagiotti
Enviado el: Viernes, 30 de Marzo de 2007 04:17 p.m.
Para: guvoaII@...
Asunto: RE: [guvoaII] VO 2.7b y Style XP.

 

Claudio, no utilizo ninguna clase. Son STD FixedText.

A que te referís con “solo te funcionan si el control se diseña para trabajar con estilos”???

Te adjunto un MEF para que veas como están diseñados los controles.

 

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...

MSN: gerardo_biagiotti@...




 

De: guvoaII@... [mailto:guvoaII@...] En nombre de Claudio Torrillo
Enviado el: Viernes, 30 de Marzo de 2007 02:12 p.m.
Para: guvoaII@...
Asunto: Re: [guvoaII] VO 2.7b y Style XP.

 

Los controles son STD FixedText o estas utilizando alguna clase?.

OJO, los estilos XP solo te funcionan si el control se diseña para trabajar con estilos.

Eso que pusistes, sólo afecta a los controles predefinidos de Windows.

Por ejemplo, si un botón tiene un BMP ya no lo ves como XP sino al viejo estilo W2000 o W98.

 

Claudio G. Torrillo
www.xcsa.com.ar

 

----- Mensaje original ----
De: Gerardo J. Biagiotti <gjbiagiotti@...>
Para: GUVOA II <guvoaII@...>
Enviado: viernes 30 de marzo de 2007, 9:06:26
Asunto: [guvoaII] VO 2.7b y Style XP.

He incorporado a mi programa el código para que se vean con los estilos del XP.

 

DEFINE CREATEPROCESS_ MANIFEST_ RESOURCE_ ID := 1

RESOURCE CREATEPROCESS_ MANIFEST_ RESOURCE_ ID RC_RT_MANIFEST C:\SPI\Administració n\Sistema\ cctl6.man

DEFINE RC_RT_MANIFEST := 24

 

El archivo cctl6.man contiene lo siguiente:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>

<assembly xmlns="urn:schemas- microsoft- com:asm.v1" manifestVersion="1.0">

<assemblyIdentity

    version="1.0.0.0"

    processorArchitectu re="X86"

    name="VO.Application"

    type="win32"

/>

<description>Visual Objects Application.</description>

<dependency>

    <dependentAssembly>

        <assemblyIdentity

            type="win32"

            name="Microsoft.Windows. Common-Controls"

            version="6.0.0.0"

            processorArchitectu re="X86"

            publicKeyToken="6595b64144ccf1df"

            language="*"

        />

    </dependentAssembly>

</dependency>

</assembly>

 

En la imagen siguiente se pueden ver las 2 ventanas que contienen información del sistema, con textos en color azul (ventana superior) y controles de fondo azul y texto negro (ventana inferior alargada).

 

 

¡Error! Nombre de archivo no especificado.

 

Si observan la siguiente imagen, verán que al abrir una ventana cualquiera, los textos azules quedan de color negro, y los controles de fondo azul quedan con fondo gris en el área de los textos.

Pero al mover la ventana recién abierta sobre dichos texto y controles vuelven a sus colores originales.

Precisamente, parte del texto, ahora se ve color azul porque moví la ventana para que se vea el efecto.

Miren los controles de la ventana inferior.

 

¡Error! Nombre de archivo no especificado.

 

Cómo puedo hacer para evitar que sucedan estos cambios de colores cada vez que se abre una ventana.

Espero que las imágenes lleguen.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@ coyspu.com. ar
         gjbiagiotti@ gmail.com
         gjbiagiotti@ yahoo.com. ar

MSN: gerardo_biagiotti@ hotmail.com

 

 

 


Preguntá. Respondé. Descubrí.
Todo lo que querías saber, y lo que ni imaginabas,
está en Yahoo! Respuestas (Beta).
Probalo ya!


#1542 De: "[xCSA] Claudio Torrillo" <clipsupp@...>
Fecha: Mar, 3 de Abr, 2007 12:07 pm
Asunto: RE: VO 2.7 no me toma todos los TAGs al crear Dbserver
clipsupp
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Incluí el código del método en la consulta.

 

Claudio G. Torrillo

www.xcsa.com.ar

Tel/Fax: 4840-0255

info(@)xcsa.com.ar

 


De: guvoaII@... [mailto:guvoaII@...] En nombre de jose luis perez castillo
Enviado el: Martes, 03 de Abril de 2007 01:02 a.m.
Para: guvoaII@...
Asunto: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver

 

Hola a todos,

 

Tengo un Browser en una DataDialog. En el metodo PostInit creo una tabla y se la asigno al Browser como Server.

Al crear la tabla tambien creo un indice, pero al abrirla el indice me lo ignora.

 

Ya he probado con los comandos que ustedes han mencionado y sigue igual.

Si abro la tabla con algun progrma como tipo DBFNTX, puedo ver los datos,

pero si cargo el archivo DBFCDX que he creado, no me muestra nada.

 

Alguien de ustedes me puede sugerir que debo hacer ?

 

De antemano muchas gracias por la ayuda que me puedan proporcionar.

 

Saludos

Jose Luis Perez -- Tamaulipas, Mexico.



"[xCSA] Claudio Torrillo" <clipsupp@yahoo.com.ar> escribió:

Ok.

 

Cambia la expresion a Str(RECNO()) creo que eso soluciona el problema.

Claudio G. Torrillo

www.xcsa.com.ar

Tel/Fax: 4840-0255

info(@)xcsa.com.ar

 

 


De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de Pablo J. Pereyra
Enviado el: Sábado, 17 de Marzo de 2007 04:20 p.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: Re: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver

Claudio, Gerardo,

 

Si, podria hacer eso mismo... pero mi curiosidad viene porque en Clipper tengo una rutina igual solo que como funcion y no como metodo pero exactamente la misma y alli funciona perfecto.

En VO deberia hacer lo mismo y no funciona... estoy agregando registros y observando el comportamiento del indice y no hace lo que deberia... por ejemplo arme un metodo que recorra el DBF y se pare donde este DELETED() y .NOT. RLOCK(), y me encuentra el deleted pero ese indice tiene los registos bloqueados... medio raro.

 

Este aplicativo en VO debe funcionar "simultaneamente" con el otro hecho en cliper y usar los indices que ya dispongo, por eso no puedo crear condiciones nuevas... salvo cambiar el soft en clipper, pero como estoy medio jugado de tiempo necesito hacerlo funcionar ahora y despues ya si podre cambiar todo.

 

COmo detalle los CDX son creados todos desde Clipper 5.3b, y en VO uso los SETs correspondientes para clipper (collation, etc)

Ya tengo este tipo de mezcla entre Clipper y VO usando mismos DBF y CDX.. pero ahora me esta dando problemas, llegue a pensar que los DBF estaban dañados pero no es asi.

 

La otra idea que tengo es "reciclar" registros pero sin usar indice.... es decir recorrer registro a registro la DBF hasta encontrar uno que este marcado como DELETED y alli rescatarlo,,, sera mas lento pero por lo menos podre hacerlo hasta que descubra el problema.

 

Alguna sugerencia ?

 

      Pablo J. Pereyra
   Córdoba  -  Argentina
 pjpereyra@ciudad.com.ar
 ICQ: 34806442

----- Original Message -----

Sent: Saturday, March 17, 2007 4:03 PM

Subject: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver

 

Otra opción podría ser trabajar con un filtro directamente:

oBase:SetFilter(!oBase:Deleted)

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de [xCSA] Claudio Torrillo
Enviado el: Sábado, 17 de Marzo de 2007 03:42 p.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver

No debiera, pero ..

Ahora, y si le cambias la expresión por INDEX ON IIF(DELETED(),”S”,”N”)

Pasas a tener un índice  STD y donde la clave te permite seleccionar rápidamente cualquier condición.

Claudio G. Torrillo

www.xcsa.com.ar

Tel/Fax: 4840-0255

info(@)xcsa.com.ar


De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de Pablo J. Pereyra
Enviado el: Sábado, 17 de Marzo de 2007 12:49 p.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: Re: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver

Claudio,

Me esta pasando con varios dbserver, pero el problema lo tengo especialmente con uno que tiene esta condicion, podra ser eso ?

 INDEX ON Recno() FOR Deleted()  

Ese dbserver tiene reutilizacion de registros porque tiene muchas altas y bajas, sera que hay problemas con indices que tengan esa condicion ?

      Pablo J. Pereyra
   Córdoba  -  Argentina
 pjpereyra@ciudad.com.ar
 ICQ: 34806442

----- Original Message -----

Sent: Saturday, March 17, 2007 6:56 AM

Subject: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver

Pablo.

Primero, el editor de DBserver … mejor ni hablar.

Segundo, si el código fuente de los dbServer es el del 2.5 original, hay diferencias. Mínimas, pero diferencias al fin.

Tercero, un problema que no sé si se corrigió es que si el DBServer está definido por el editor en un directorio y luego le digo que la tabla está en otro, pero el definido es alcanzable, el código junto con el AUTOOPEN hace que el CDX se abra 2 veces, con lo cual en funcionamiento no anda ni a cañones ya que no sabe a que tag apuntar por que los tiene duplicados, esto ocurría en 2.5 y 2.6 si no me equivoco … hace años que tengo mi propia clase y el editor ni lo miro.

Ergo, lo que te dice Gerardo del AutoOpen soluciona en parte el problema, lo otro a realizar es regenerar el código de los dbServer con 2.7

Respecto de los TAGS que el editor no toma, simple, debes estar utilizando funciones que el editor no conoce, hay una DLL que se genera

-- CAVO27\VOLIB\cavorddb\CAVOUDF.AEF --

Esa dll se genera y se pone en el directorio BIN, permite definir las funciones que el editor de DBServer necesita para los indices.

Por supuesto que si el problema de apertura es este, olvídate de la generación no?

Claudio G. Torrillo

www.xcsa.com.ar

Tel/Fax: 4840-0255

info(@)xcsa.com.ar


De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de Pablo J. Pereyra
Enviado el: Viernes, 16 de Marzo de 2007 09:39 p.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: Re: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver

Me tiene enfermo... me toma 1 solo TAG.

La base tiene 3 TAGS, le selecciono los otros por el numero o por el nombre del mismo y el  OrderInfo(DBOI_ORDERCOUNT)  me devuelve siempre 1.

la verdad ya no se que hacer porque no puedo trabajar asi... me esta grabando donde quiere. Levanto el mismo DBF en VO 2.5 y lo levanta perfecto,, me parece que me voy a volver para atras en la version.

Si no me lo mostrara en el IDE pero al operar si lo considerara no me calienta... pero no existe para el VO.

      Pablo J. Pereyra
   Córdoba  -  Argentina
 pjpereyra@ciudad.com.ar
 ICQ: 34806442

----- Original Message -----

Sent: Friday, March 16, 2007 9:23 PM

Subject: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver

Utilizá en tu programa lo siguiente para confirmar cuantos TAG te abre con la base:

?oBase:OrderInfo(DBOI_ORDERCOUNT)

En mi caso el Editor DbServer no me muestra todos los TAGs pero al ejecutar mi programa si los abre.

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@coyspu.com.ar
MSN: gerardo_biagiotti@hotmail.com
         gjbiagiotti@gmail.com
         gjbiagiotti@yahoo.com.ar

De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de Pablo J. Pereyra
Enviado el: Viernes, 16 de Marzo de 2007 05:12 p.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: Re: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver

Gerardo,

El problema es con el editor,,, que me crea un solo TAG y tengo 3.

Pero tambien estoy teniendo dramas porque cuando hago un SETORDER() del TAG no mostrado es como que no encuentra registros.

Voy a seguir haciendo pruebas y te confirmo esto ultimo.

Que moco, no ?

      Pablo J. Pereyra
   Córdoba  -  Argentina
 pjpereyra@ciudad.com.ar
 ICQ: 34806442

----- Original Message -----

Sent: Friday, March 16, 2007 2:35 PM

Subject: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver

No me quedó claro si el problema te lo hace al abrir la base con el Browse del Editor DbServer o en la ejecución de tu programa.

Recién probé a abrir la base de clientes, que tiene 5 Tags, con el Browse del Editor DbServer y solo muestra 3 tags. Pero al utilizar la base desde mi programa abre los 5 Tags.

Utilizo VO 2.7b_2740

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@coyspu.com.ar
MSN: gerardo_biagiotti@hotmail.com
         gjbiagiotti@gmail.com
         gjbiagiotti@yahoo.com.ar

De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de Pablo J. Pereyra
Enviado el: Viernes, 16 de Marzo de 2007 02:39 a.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver

Me volvi loco con una boludez que me paso y la comento por si alguno sabe al solucion o que no le pase tambien.

Tenia un problema de ubicacion de registros y perdiendome todo el dia me di cuenta que no lo encuentra porque la clase creada por VO 2.7 al armar un Dbserver solo me levanta el primer TAG que tiene el CDX y en mi caso habia 3 TAG.

Que puede estar pasando ?

El DBF esta perfecto asi como su CDX asociado, pues haciendo lo mismo desde VO 2.5 toma todos sin problemas.

Trabajano con VO2.7 si elimino el CDX que me levanta automaticamente al seleccionar el DBF ... y lo vuelvo a seleccionar ahi si me toma los TAGs.

Supuestamente tengo los 3 parches instalados en el VO2.7, pero como puedo saberlo ? 

      Pablo J. Pereyra
   Córdoba  -  Argentina
 pjpereyra@ciudad.com.ar
 ICQ: 34806442



__________ Información de NOD32 2121 (20070316) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com



__________ Información de NOD32 2121 (20070316) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com



__________ Información de NOD32 2122 (20070317) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com



__________ Información de NOD32 2123 (20070317) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com

 

 



LLama Gratis a cualquier PC del Mundo.
Llamadas a fijos y móviles desde 1 céntimo por minuto.
http://es.voice.yahoo.com


#1541 De: jose luis perez castillo <jlpercas@...>
Fecha: Mar, 3 de Abr, 2007 4:02 am
Asunto: RE: VO 2.7 no me toma todos los TAGs al crear Dbserver
jlpercas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Hola a todos,
 
Tengo un Browser en una DataDialog. En el metodo PostInit creo una tabla y se la asigno al Browser como Server.
Al crear la tabla tambien creo un indice, pero al abrirla el indice me lo ignora.
 
Ya he probado con los comandos que ustedes han mencionado y sigue igual.
Si abro la tabla con algun progrma como tipo DBFNTX, puedo ver los datos,
pero si cargo el archivo DBFCDX que he creado, no me muestra nada.
 
Alguien de ustedes me puede sugerir que debo hacer ?
 
De antemano muchas gracias por la ayuda que me puedan proporcionar.
 
Saludos
Jose Luis Perez -- Tamaulipas, Mexico.


"[xCSA] Claudio Torrillo" <clipsupp@...> escribió:
Ok.
 
Cambia la expresion a Str(RECNO()) creo que eso soluciona el problema.
Claudio G. Torrillo
www.xcsa.com.ar
Tel/Fax: 4840-0255
info(@)xcsa.com.ar
 


De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de Pablo J. Pereyra
Enviado el: Sábado, 17 de Marzo de 2007 04:20 p.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: Re: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver

Claudio, Gerardo,
 
Si, podria hacer eso mismo... pero mi curiosidad viene porque en Clipper tengo una rutina igual solo que como funcion y no como metodo pero exactamente la misma y alli funciona perfecto.
En VO deberia hacer lo mismo y no funciona... estoy agregando registros y observando el comportamiento del indice y no hace lo que deberia... por ejemplo arme un metodo que recorra el DBF y se pare donde este DELETED() y .NOT. RLOCK(), y me encuentra el deleted pero ese indice tiene los registos bloqueados... medio raro.
 
Este aplicativo en VO debe funcionar "simultaneamente" con el otro hecho en cliper y usar los indices que ya dispongo, por eso no puedo crear condiciones nuevas... salvo cambiar el soft en clipper, pero como estoy medio jugado de tiempo necesito hacerlo funcionar ahora y despues ya si podre cambiar todo.
 
COmo detalle los CDX son creados todos desde Clipper 5.3b, y en VO uso los SETs correspondientes para clipper (collation, etc)
Ya tengo este tipo de mezcla entre Clipper y VO usando mismos DBF y CDX.. pero ahora me esta dando problemas, llegue a pensar que los DBF estaban dañados pero no es asi.
 
La otra idea que tengo es "reciclar" registros pero sin usar indice.... es decir recorrer registro a registro la DBF hasta encontrar uno que este marcado como DELETED y alli rescatarlo,,, sera mas lento pero por lo menos podre hacerlo hasta que descubra el problema.
 
Alguna sugerencia ?
 
      Pablo J. Pereyra
   Córdoba  -  Argentina
 pjpereyra@ciudad.com.ar
 ICQ: 34806442
----- Original Message -----
Sent: Saturday, March 17, 2007 4:03 PM
Subject: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver

Otra opción podría ser trabajar con un filtro directamente:
oBase:SetFilter(!oBase:Deleted)
Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina
De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de [xCSA] Claudio Torrillo
Enviado el: Sábado, 17 de Marzo de 2007 03:42 p.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver
No debiera, pero ..
Ahora, y si le cambias la expresión por INDEX ON IIF(DELETED(),”S”,”N”)
Pasas a tener un índice  STD y donde la clave te permite seleccionar rápidamente cualquier condición.
Claudio G. Torrillo
www.xcsa.com.ar
Tel/Fax: 4840-0255
info(@)xcsa.com.ar

De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de Pablo J. Pereyra
Enviado el: Sábado, 17 de Marzo de 2007 12:49 p.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: Re: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver
Claudio,
Me esta pasando con varios dbserver, pero el problema lo tengo especialmente con uno que tiene esta condicion, podra ser eso ?
 INDEX ON Recno() FOR Deleted()  
Ese dbserver tiene reutilizacion de registros porque tiene muchas altas y bajas, sera que hay problemas con indices que tengan esa condicion ?
      Pablo J. Pereyra
   Córdoba  -  Argentina
 pjpereyra@ciudad.com.ar
 ICQ: 34806442
----- Original Message -----
Sent: Saturday, March 17, 2007 6:56 AM
Subject: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver
Pablo.
Primero, el editor de DBserver … mejor ni hablar.
Segundo, si el código fuente de los dbServer es el del 2.5 original, hay diferencias. Mínimas, pero diferencias al fin.
Tercero, un problema que no sé si se corrigió es que si el DBServer está definido por el editor en un directorio y luego le digo que la tabla está en otro, pero el definido es alcanzable, el código junto con el AUTOOPEN hace que el CDX se abra 2 veces, con lo cual en funcionamiento no anda ni a cañones ya que no sabe a que tag apuntar por que los tiene duplicados, esto ocurría en 2.5 y 2.6 si no me equivoco … hace años que tengo mi propia clase y el editor ni lo miro.
Ergo, lo que te dice Gerardo del AutoOpen soluciona en parte el problema, lo otro a realizar es regenerar el código de los dbServer con 2.7
Respecto de los TAGS que el editor no toma, simple, debes estar utilizando funciones que el editor no conoce, hay una DLL que se genera
-- CAVO27\VOLIB\cavorddb\CAVOUDF.AEF --
Esa dll se genera y se pone en el directorio BIN, permite definir las funciones que el editor de DBServer necesita para los indices.
Por supuesto que si el problema de apertura es este, olvídate de la generación no?
Claudio G. Torrillo
www.xcsa.com.ar
Tel/Fax: 4840-0255
info(@)xcsa.com.ar

De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de Pablo J. Pereyra
Enviado el: Viernes, 16 de Marzo de 2007 09:39 p.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: Re: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver
Me tiene enfermo... me toma 1 solo TAG.
La base tiene 3 TAGS, le selecciono los otros por el numero o por el nombre del mismo y el  OrderInfo(DBOI_ORDERCOUNT)  me devuelve siempre 1.
la verdad ya no se que hacer porque no puedo trabajar asi... me esta grabando donde quiere. Levanto el mismo DBF en VO 2.5 y lo levanta perfecto,, me parece que me voy a volver para atras en la version.
Si no me lo mostrara en el IDE pero al operar si lo considerara no me calienta... pero no existe para el VO.
      Pablo J. Pereyra
   Córdoba  -  Argentina
 pjpereyra@ciudad.com.ar
 ICQ: 34806442
----- Original Message -----
Sent: Friday, March 16, 2007 9:23 PM
Subject: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver
Utilizá en tu programa lo siguiente para confirmar cuantos TAG te abre con la base:
?oBase:OrderInfo(DBOI_ORDERCOUNT)
En mi caso el Editor DbServer no me muestra todos los TAGs pero al ejecutar mi programa si los abre.
Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina
Mail:  gjbiagiotti@coyspu.com.ar
MSN: gerardo_biagiotti@hotmail.com
         gjbiagiotti@gmail.com
         gjbiagiotti@yahoo.com.ar
De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de Pablo J. Pereyra
Enviado el: Viernes, 16 de Marzo de 2007 05:12 p.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: Re: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver
Gerardo,
El problema es con el editor,,, que me crea un solo TAG y tengo 3.
Pero tambien estoy teniendo dramas porque cuando hago un SETORDER() del TAG no mostrado es como que no encuentra registros.
Voy a seguir haciendo pruebas y te confirmo esto ultimo.
Que moco, no ?
      Pablo J. Pereyra
   Córdoba  -  Argentina
 pjpereyra@ciudad.com.ar
 ICQ: 34806442
----- Original Message -----
Sent: Friday, March 16, 2007 2:35 PM
Subject: RE: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver
No me quedó claro si el problema te lo hace al abrir la base con el Browse del Editor DbServer o en la ejecución de tu programa.
Recién probé a abrir la base de clientes, que tiene 5 Tags, con el Browse del Editor DbServer y solo muestra 3 tags. Pero al utilizar la base desde mi programa abre los 5 Tags.
Utilizo VO 2.7b_2740
Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina
Mail:  gjbiagiotti@coyspu.com.ar
MSN: gerardo_biagiotti@hotmail.com
         gjbiagiotti@gmail.com
         gjbiagiotti@yahoo.com.ar
De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de Pablo J. Pereyra
Enviado el: Viernes, 16 de Marzo de 2007 02:39 a.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: [guvoaII] VO 2.7 no me toma todos los TAGs al crear Dbserver
Me volvi loco con una boludez que me paso y la comento por si alguno sabe al solucion o que no le pase tambien.
Tenia un problema de ubicacion de registros y perdiendome todo el dia me di cuenta que no lo encuentra porque la clase creada por VO 2.7 al armar un Dbserver solo me levanta el primer TAG que tiene el CDX y en mi caso habia 3 TAG.
Que puede estar pasando ?
El DBF esta perfecto asi como su CDX asociado, pues haciendo lo mismo desde VO 2.5 toma todos sin problemas.
Trabajano con VO2.7 si elimino el CDX que me levanta automaticamente al seleccionar el DBF ... y lo vuelvo a seleccionar ahi si me toma los TAGs.
Supuestamente tengo los 3 parches instalados en el VO2.7, pero como puedo saberlo ? 
      Pablo J. Pereyra
   Córdoba  -  Argentina
 pjpereyra@ciudad.com.ar
 ICQ: 34806442


__________ Información de NOD32 2121 (20070316) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com


__________ Información de NOD32 2121 (20070316) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com


__________ Información de NOD32 2122 (20070317) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com


__________ Información de NOD32 2123 (20070317) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com



LLama Gratis a cualquier PC del Mundo.
Llamadas a fijos y móviles desde 1 céntimo por minuto.
http://es.voice.yahoo.com

#1540 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Lun, 2 de Abr, 2007 3:23 pm
Asunto: RE: VO 2.7b y Style XP.
gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Claudio, hice la misma prueba con un programa que tengo en VO 2.6.

Te muestro los resultados:

 

Con VO 2.6 y el Style XP los colores de la ventana de fondo se mantienen con el azul original.

 

 

Con VO 2.7

 

 

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...

MSN: gerardo_biagiotti@...

 

De: guvoaII@... [mailto:guvoaII@...] En nombre de [xCSA] Claudio Torrillo
Enviado el: Domingo, 01 de Abril de 2007 09:52 a.m.
Para: guvoaII@...
Asunto: RE: [guvoaII] VO 2.7b y Style XP.

 

El tema es que al utilizar los estilos, no sólo se afecta a la forma en como se muestran los controles, sino que también el contenido.

Para poder representar el color del texto de un FixedText la API de estilos debe buscar en la configuración de windows todos los datos.

 

Lo que vos haces, es cambiar el color del texto, claro eso al iniciar la ventana, pero al pasar una ventana por encima de la otra, los datos se redibujan teniendo en cuanta los estilos y no tu definición de colores.

 

Un consejo, los colores no deben cambiarse, eso invalida al usuario el uso del cambio de color.

 

No me canso de repetir lo que me pasó personalmente con una empresa a la cual mi definición de colores no le cuadraba, yo había tomado un color X para el texto y resulta que la empresa decidión que ese color fuese el mismo de fondo, ergo los datos no se veían.

 

Lo mejor es tratar de utilizar os colores definidos en Windows y para resaltar texto no CAMBIAR COLORES sino CUERPO y TAMAÑO de font. Se obtiene una estética más acompasada con el entorno.

 

Para más comparación, MS no usa colores en el texto, el texto siempre es negro sobr el fondo STD que manda el estilo.

 

Una de 2 o utilizas el estilo XP o utilizas TU estilo.

 

 

Claudio G. Torrillo

www.xcsa.com.ar

Tel/Fax: 4840-0255

info(@)xcsa.com.ar

 


De: guvoaII@... [mailto:guvoaII@...] En nombre de Gerardo J. Biagiotti
Enviado el: Viernes, 30 de Marzo de 2007 04:17 p.m.
Para: guvoaII@...
Asunto: RE: [guvoaII] VO 2.7b y Style XP.

 

Claudio, no utilizo ninguna clase. Son STD FixedText.

A que te referís con “solo te funcionan si el control se diseña para trabajar con estilos”???

Te adjunto un MEF para que veas como están diseñados los controles.

 

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...

MSN: gerardo_biagiotti@...



 

De: guvoaII@... [mailto:guvoaII@...] En nombre de Claudio Torrillo
Enviado el: Viernes, 30 de Marzo de 2007 02:12 p.m.
Para: guvoaII@...
Asunto: Re: [guvoaII] VO 2.7b y Style XP.

 

Los controles son STD FixedText o estas utilizando alguna clase?.

OJO, los estilos XP solo te funcionan si el control se diseña para trabajar con estilos.

Eso que pusistes, sólo afecta a los controles predefinidos de Windows.

Por ejemplo, si un botón tiene un BMP ya no lo ves como XP sino al viejo estilo W2000 o W98.

 

Claudio G. Torrillo
www.xcsa.com.ar

 

----- Mensaje original ----
De: Gerardo J. Biagiotti <gjbiagiotti@...>
Para: GUVOA II <guvoaII@...>
Enviado: viernes 30 de marzo de 2007, 9:06:26
Asunto: [guvoaII] VO 2.7b y Style XP.

He incorporado a mi programa el código para que se vean con los estilos del XP.

 

DEFINE CREATEPROCESS_ MANIFEST_ RESOURCE_ ID := 1

RESOURCE CREATEPROCESS_ MANIFEST_ RESOURCE_ ID RC_RT_MANIFEST C:\SPI\Administració n\Sistema\ cctl6.man

DEFINE RC_RT_MANIFEST := 24

 

El archivo cctl6.man contiene lo siguiente:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>

<assembly xmlns="urn:schemas- microsoft- com:asm.v1" manifestVersion="1.0">

<assemblyIdentity

    version="1.0.0.0"

    processorArchitectu re="X86"

    name="VO.Application"

    type="win32"

/>

<description>Visual Objects Application.</description>

<dependency>

    <dependentAssembly>

        <assemblyIdentity

            type="win32"

            name="Microsoft.Windows. Common-Controls"

            version="6.0.0.0"

            processorArchitectu re="X86"

            publicKeyToken="6595b64144ccf1df"

            language="*"

        />

    </dependentAssembly>

</dependency>

</assembly>

 

En la imagen siguiente se pueden ver las 2 ventanas que contienen información del sistema, con textos en color azul (ventana superior) y controles de fondo azul y texto negro (ventana inferior alargada).

 

 

¡Error! Nombre de archivo no especificado.

 

Si observan la siguiente imagen, verán que al abrir una ventana cualquiera, los textos azules quedan de color negro, y los controles de fondo azul quedan con fondo gris en el área de los textos.

Pero al mover la ventana recién abierta sobre dichos texto y controles vuelven a sus colores originales.

Precisamente, parte del texto, ahora se ve color azul porque moví la ventana para que se vea el efecto.

Miren los controles de la ventana inferior.

 

¡Error! Nombre de archivo no especificado.

 

Cómo puedo hacer para evitar que sucedan estos cambios de colores cada vez que se abre una ventana.

Espero que las imágenes lleguen.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@ coyspu.com. ar
         gjbiagiotti@ gmail.com
         gjbiagiotti@ yahoo.com. ar

MSN: gerardo_biagiotti@ hotmail.com

 

 

 


Preguntá. Respondé. Descubrí.
Todo lo que querías saber, y lo que ni imaginabas,
está en Yahoo! Respuestas (Beta).
Probalo ya!


#1539 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Lun, 2 de Abr, 2007 2:27 pm
Asunto: RE: VO 2.7b y Style XP.
gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

La explicación está bárbara, pero el cambio de colores no la hace solo en el texto también en el fondo de los controles.

En la ventana siguiente solo cambié el color del texto, y al abrir otra ventana quedó en negro el área que no pisó dicha ventana.

 

En esta otra ventana el texto es negro y el fondo azul, y cambió el color de fondo en el área donde está el texto.

O sea que según esta explicación no puedo utilizar ningún color, tiene que ser todo negro y gris.

 

No encuentro lógico ni comprensible que bajo el estilo XP no se pueda utilizar la paleta de colores.

Si saco el estilo XP, por lo tanto queda estilo Win 9X, anda todo bien.

Cómo es posible que el estilo XP no respete las opciones de colores seleccionada por el programa.

 

A mi me parece que el problema está en el VO al setear el estilo XP.

Vas a ver que el 2.8 no hace este problema.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...

MSN: gerardo_biagiotti@...

 

De: guvoaII@... [mailto:guvoaII@...] En nombre de [xCSA] Claudio Torrillo
Enviado el: Domingo, 01 de Abril de 2007 09:52 a.m.
Para: guvoaII@...
Asunto: RE: [guvoaII] VO 2.7b y Style XP.

 

El tema es que al utilizar los estilos, no sólo se afecta a la forma en como se muestran los controles, sino que también el contenido.

Para poder representar el color del texto de un FixedText la API de estilos debe buscar en la configuración de windows todos los datos.

Lo que vos haces, es cambiar el color del texto, claro eso al iniciar la ventana, pero al pasar una ventana por encima de la otra, los datos se redibujan teniendo en cuanta los estilos y no tu definición de colores.

Un consejo, los colores no deben cambiarse, eso invalida al usuario el uso del cambio de color.

No me canso de repetir lo que me pasó personalmente con una empresa a la cual mi definición de colores no le cuadraba, yo había tomado un color X para el texto y resulta que la empresa decidión que ese color fuese el mismo de fondo, ergo los datos no se veían.

Lo mejor es tratar de utilizar os colores definidos en Windows y para resaltar texto no CAMBIAR COLORES sino CUERPO y TAMAÑO de font. Se obtiene una estética más acompasada con el entorno.

Para más comparación, MS no usa colores en el texto, el texto siempre es negro sobr el fondo STD que manda el estilo.

Una de 2 o utilizas el estilo XP o utilizas TU estilo.

 

Claudio G. Torrillo

www.xcsa.com.ar

Tel/Fax: 4840-0255

info(@)xcsa.com.ar

 



#1538 De: "[xCSA] Claudio Torrillo" <clipsupp@...>
Fecha: Dom, 1 de Abr, 2007 12:51 pm
Asunto: RE: VO 2.7b y Style XP.
clipsupp
Sin conexión Sin conexión
Enviar correo Enviar correo
 

El tema es que al utilizar los estilos, no sólo se afecta a la forma en como se muestran los controles, sino que también el contenido.

Para poder representar el color del texto de un FixedText la API de estilos debe buscar en la configuración de windows todos los datos.

 

Lo que vos haces, es cambiar el color del texto, claro eso al iniciar la ventana, pero al pasar una ventana por encima de la otra, los datos se redibujan teniendo en cuanta los estilos y no tu definición de colores.

 

Un consejo, los colores no deben cambiarse, eso invalida al usuario el uso del cambio de color.

 

No me canso de repetir lo que me pasó personalmente con una empresa a la cual mi definición de colores no le cuadraba, yo había tomado un color X para el texto y resulta que la empresa decidión que ese color fuese el mismo de fondo, ergo los datos no se veían.

 

Lo mejor es tratar de utilizar os colores definidos en Windows y para resaltar texto no CAMBIAR COLORES sino CUERPO y TAMAÑO de font. Se obtiene una estética más acompasada con el entorno.

 

Para más comparación, MS no usa colores en el texto, el texto siempre es negro sobr el fondo STD que manda el estilo.

 

Una de 2 o utilizas el estilo XP o utilizas TU estilo.

 

 

Claudio G. Torrillo

www.xcsa.com.ar

Tel/Fax: 4840-0255

info(@)xcsa.com.ar

 


De: guvoaII@... [mailto:guvoaII@...] En nombre de Gerardo J. Biagiotti
Enviado el: Viernes, 30 de Marzo de 2007 04:17 p.m.
Para: guvoaII@...
Asunto: RE: [guvoaII] VO 2.7b y Style XP.

 

Claudio, no utilizo ninguna clase. Son STD FixedText.

A que te referís con “solo te funcionan si el control se diseña para trabajar con estilos”???

Te adjunto un MEF para que veas como están diseñados los controles.

 

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@coyspu.com.ar
         gjbiagiotti@gmail.com
         gjbiagiotti@yahoo.com.ar

MSN: gerardo_biagiotti@hotmail.com


 

De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de Claudio Torrillo
Enviado el: Viernes, 30 de Marzo de 2007 02:12 p.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: Re: [guvoaII] VO 2.7b y Style XP.

 

Los controles son STD FixedText o estas utilizando alguna clase?.

OJO, los estilos XP solo te funcionan si el control se diseña para trabajar con estilos.

Eso que pusistes, sólo afecta a los controles predefinidos de Windows.

Por ejemplo, si un botón tiene un BMP ya no lo ves como XP sino al viejo estilo W2000 o W98.

 

Claudio G. Torrillo
www.xcsa.com.ar

 

----- Mensaje original ----
De: Gerardo J. Biagiotti <gjbiagiotti@gmail.com>
Para: GUVOA II <guvoaII@gruposyahoo.com.ar>
Enviado: viernes 30 de marzo de 2007, 9:06:26
Asunto: [guvoaII] VO 2.7b y Style XP.

He incorporado a mi programa el código para que se vean con los estilos del XP.

 

DEFINE CREATEPROCESS_ MANIFEST_ RESOURCE_ ID := 1

RESOURCE CREATEPROCESS_ MANIFEST_ RESOURCE_ ID RC_RT_MANIFEST C:\SPI\Administració n\Sistema\ cctl6.man

DEFINE RC_RT_MANIFEST := 24

 

El archivo cctl6.man contiene lo siguiente:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>

<assembly xmlns="urn:schemas- microsoft- com:asm.v1" manifestVersion="1.0">

<assemblyIdentity

    version="1.0.0.0"

    processorArchitectu re="X86"

    name="VO.Application"

    type="win32"

/>

<description>Visual Objects Application.</description>

<dependency>

    <dependentAssembly>

        <assemblyIdentity

            type="win32"

            name="Microsoft.Windows. Common-Controls"

            version="6.0.0.0"

            processorArchitectu re="X86"

            publicKeyToken="6595b64144ccf1df"

            language="*"

        />

    </dependentAssembly>

</dependency>

</assembly>

 

En la imagen siguiente se pueden ver las 2 ventanas que contienen información del sistema, con textos en color azul (ventana superior) y controles de fondo azul y texto negro (ventana inferior alargada).

 

 

¡Error! Nombre de archivo no especificado.

 

Si observan la siguiente imagen, verán que al abrir una ventana cualquiera, los textos azules quedan de color negro, y los controles de fondo azul quedan con fondo gris en el área de los textos.

Pero al mover la ventana recién abierta sobre dichos texto y controles vuelven a sus colores originales.

Precisamente, parte del texto, ahora se ve color azul porque moví la ventana para que se vea el efecto.

Miren los controles de la ventana inferior.

 

¡Error! Nombre de archivo no especificado.

 

Cómo puedo hacer para evitar que sucedan estos cambios de colores cada vez que se abre una ventana.

Espero que las imágenes lleguen.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@ coyspu.com. ar
         gjbiagiotti@ gmail.com
         gjbiagiotti@ yahoo.com. ar

MSN: gerardo_biagiotti@ hotmail.com

 

 

 


Preguntá. Respondé. Descubrí.
Todo lo que querías saber, y lo que ni imaginabas,
está en Yahoo! Respuestas (Beta).
Probalo ya!


Mensajes 1538 - 1567 de 2837   Más reciente  |  < Más reciente  |  Más antiguo >  |  Más antiguo
Avanzado

Copyright © 2009 Yahoo! de Argentina S.R.L. Todos los derechos reservados.
Política de privacidad - Condiciones del Servicio - Reglas de la comunidad de Yahoo! - Ayuda