¿Cómo se pone una fecha en un control LABEL?

[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

[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

[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

[arroya2]

Hola a todos.

Gracias Mustafá.

Has sido muy amable con la ilustración. Problema solucionado.

Saludos
Rafael Pérez