Page 1 of 1
¿Cómo se pone una fecha en un control LABEL?
Posted: Thu Oct 29, 2009 4:33 pm
by arroya2
Hola amigos.
Aquí estoy de nuevo con otra tontería, pero no me sale. He escrito el control label de la siguiente forma:
Code: Select all
DEFINE LABEL Label_20
ROW 341
COL 240
WIDTH 130
HEIGHT 25
VALUE Dtoc(Clientes->FechaNac)
FONTCOLOR {0,0,255}
END LABEL
Yo sé que la propiedad VALUE tiene que ser de tipo caracter, por eso convierto la fecha a caracter, pero no sale nada.
Un saludo
Rafael Pérez
Re: ¿Cómo se pone una fecha en un control LABEL?
Posted: Thu Oct 29, 2009 9:17 pm
by mustafa
Hola Rafael
Te mando este pequeño ejemplo de fecha
Code: Select all
*-------------------------------------------*
#include "minigui.ch"
function Main()
SET CENTURY ON
SET DATE FRENCH
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 640 HEIGHT 480 ;
TITLE 'Fecha ' ;
MAIN
@ 180, 150 LABEL LABEL_1z VALUE "Fecha de Hoy:" AUTOSIZE ;
FONT "Verdana" SIZE 15 BOLD ITALIC ;
@ 180,325 LABEL LABEL_1 VALUE DTOC(date()) AUTOSIZE ;
FONT "Verdana" SIZE 15 BOLD ITALIC ;
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return NIL
*-------------------------------------------*
Un Saludo
Mustafa
Re: ¿Cómo se pone una fecha en un control LABEL?
Posted: Thu Oct 29, 2009 9:51 pm
by mustafa
Con la Base de datos
Code: Select all
#include "minigui.ch"
function Main()
SET CENTURY ON
SET DATE FRENCH
**** Abrir la base de Datos ******
USE CLIENTES
fechax = DTOC(FechaNac)
*--------------------------------*
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 640 HEIGHT 480 ;
TITLE 'Fecha ' ;
MAIN
SET DATE FRENCH
@ 180, 145 LABEL LABEL_1z VALUE "Fecha Registro:" AUTOSIZE ;
FONT "Verdana" SIZE 15 BOLD ITALIC ;
@ 180,325 LABEL LABEL_1 VALUE fechax AUTOSIZE ;
FONT "Verdana" SIZE 15 BOLD ITALIC ;
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return NIL
Un Saludo
Mustafa
Re: ¿Cómo se pone una fecha en un control LABEL?
Posted: Fri Oct 30, 2009 11:33 am
by arroya2
Hola a todos.
Gracias Mustafá.
Has sido muy amable con la ilustración. Problema solucionado.
Saludos
Rafael Pérez