• Domingo 5 de Mayo de 2024, 01:22

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - nessthor

Páginas: [1]
1
Visual FoxPro / Concexion Foxpro-sqlserver Urgente
« en: Viernes 12 de Diciembre de 2003, 15:37 »
Hola amigos
Necesito de su valiosa ayuda.
Me podrian por favor explicar como hago para conectar mi motor de base de datos SQLServer con VisualFoxPro, donde en Fox haré mis aplicaciones de mantenimiento.
Muchas gracias....

2
Visual FoxPro / insertar datos numericos en una columna de caracter
« en: Miércoles 2 de Julio de 2003, 20:03 »
Tengo el siguiente còdigo, necesito  insertar en la columna tiempo (de tipo caracter tamaño 5) segun lo ke necesito en cada If...ENDIF.
Por ejemplo, necestio insertar el dato 00:minuto, donde este valor minuto me esta cambiando, este valor es numerico.
Gracias

Codigo:
select pruebas &&pruebas = nombre de la tabla
store hora to xValue
store hora_ant to yValue
store fecha to aValue
Store fecha_ant to bValue
skip
do while !eof()
   
   store hora to xValue
   store hora_ant to yValue
   store fecha to aValue
   store fecha_ant to bValue
   
   a=CTOT(DTOC(bValue)+" "+yValue)
    b=CTOT(DTOC(aValue)+" "+xValue)
    segundos=b-a && (fin - inicio)
   minutos=segundos/60
   horas=minutos/60
   
   ** diferencia de 1 hora **
   If (minutos)>59 And (minutos)<60.5 And (horas)>0 and (horas)<2 Then
      replace tiempo with '01:00'
   EndIf

   ** diferencia de 2 horas **
   If (minutos)>119 And (minutos)<120.5 And (horas)>1 and (horas)<3 Then
      replace tiempo with '02:00'
   EndIf

   ** menor de una hora **
   If (minutos)<60 And (minutos)>=0  And (horas)<1  Then
      replace tiempo with '00:'+Str(minutos)
   EndIf

   ** mayor de una hora **
   If (minutos)>60.5 And (horas)>1 And (horas)<2Then
      minutos=minutos-60
      replace tiempo with '01:'+Str(minutos)
   EndIf

   ** mayor de 2 hora **
   If (minutos)>60.5 And (horas)>2 Then
      minutos=minutos-120
      replace tiempo with '02:'+Str(minutos)
   EndIf
   
   skip
enddo

Brow
Close tables               
Clear

Páginas: [1]