PROBLEMA CON HEADERS NO LOS PUEDO MOSTRAR EN UN DLG

[Ruben]

Buenos dias a todos, saben tengo problemas para visualizar en un DLG ciertos campos de un DBF, les anexo el Codigo

es en la function BrwClientes()
en especial en el ListBox, si alguien lo puede verificar se los agradeceria

SALUDOS



#Include "FiveWin.Ch"

static oWnd, oClientes, oClient, oName
static cName

Function Main()
Local oBarBtn,oFont,oIcon,oBtns[10]
Public oWndMain,aUsuarios:={}, oDlg

USE cat_cli ALIAS Clientes
USE tab_emp New
Select Clientes

//Inicio()
// DEFINE ICON oIcon RESOURCE "aLogo"
DEFINE FONT oFont NAME "MS SANS SERIF" SIZE 10,-10
DEFINE WINDOW oWndMain FROM 1,1 TO 22,75 TITLE "Modulo de Cuentas por Cobrar" MENU CreaMenu() ICON oIcon
SET FONT OF oWndMain TO oFont
SET MESSAGE OF oWndMain TO Chr(169)+" Modulo de Cuentas por Cobrar - Alcide Fuentes y Asociados " KEYBOARD CLOCK DATE
DEFINE BUTTONBAR oBarBtn SIZE 25,25 3D TOP OF oWndMain
DEFINE BUTTON oBtns[1] RESOURCE "B_Emp" OF oBarBtn ;
TOOLTIP "Empresas"
DEFINE BUTTON oBtns[2] RESOURCE "B_Faces" OF oBarBtn ;
TOOLTIP "Conceptos"
DEFINE BUTTON oBtns[3] RESOURCE "B_Ctas" OF oBarBtn ;
TOOLTIP "Impresion" // ACTION SwCatCta() GROUP MESSAGE "mensaje"
DEFINE BUTTON oBtns[4] RESOURCE "B_Fin" OF oBarBtn ;
TOOLTIP "Salir" ACTION oWndMain:End() GROUP MESSAGE "Salir del programa"
ACTIVATE WINDOW oWndMain MAXIMIZED ON INIT BmpBrush() Valid Finaliza()
Return Nil

//*************************************************

Static Function CreaMenu()
Local oMenu
MENU oMenu
MENUITEM "&Catálogos"
MENU
MENUITEM "C&atalago de Clientes" ACTION BrwClientes() //GROUP MESSAGE "ADMINISTRADOR DE CLIENTES"
MENUITEM "&Catalago de Conceptos" ACTION BrwConceptos() //GROUP MESSAGE "CATALAGO DE CONCEPTOS"
MENUITEM "&Salir..."
ENDMENU
MENUITEM "&Documentos"
MENU
MENUITEM "&Captura de Documentos"
MENUITEM "&Captura de Pagos"
MENUITEM "&Notas de Crédito"
Separator
MENUITEM "&Movimiento de Documentos"
MENUITEM "&Movimiento de Pagos"
MENUITEM "&Movimiento de Notas de Crédito"
ENDMENU
MENUITEM "&Reportes y Consultas"
MENU
MENUITEM "&Auxiliares [Históricos]"
MENUITEM "E&stados de Cuenta"
MENUITEM "&Antiguedad de Saldos"
MENUITEM "&Acumulado de Clientes"
separator
MENUITEM "&Reporte Previo de Ingresos"
MENUITEM "&Reporte de Control de Folios"
MENUITEM "&Reporte Anual de Facturas"
MENUITEM "&Reporte de Ventas"
MENUITEM "&Reporte de Facturas"
ENDMENU
MENUITEM "&Utilerias"
MENU
MENUITEM "&Respaldo de Información"
MENUITEM "&Restaurar Información"
MENUITEM "G&eneración de Indices"
MENUITEM "&Parametros del Sistema"
MENUITEM "&Control de Usuarios"
MENUITEM "&Rec. de Pagos [Auxiliares]"
MENUITEM "&Rec. de Notas de Credito [Auxiliares]"
ENDMENU
MENUITEM "&Otros"
MENU
MENUITEM "&Cambio de Empresa"
MENUITEM "&Calculadora"
MENU
MENUITEM FILE "calc.bmp" ;
ACTION WinExec("Calc.exe")
ENDMENU
ENDMENU
MENUITEM "&Salir"
MENU
MENUITEM "&Salir de CXC" ACTION Salir()
ENDMENU
ENDMENU
Return oMenu

//*******************************************************

Static Function DispTit()
oWndMain:cTitle('Modulo de Cuentas por Cobrar'+' ['+aUsuarios[1]+']')
SET MESSAGE OF oWndMain TO Chr(169)+' Alcide Fuentes y Asociados' CLOCK DATE KEYBOARD
Return Nil

//****************************************************
Static Function Finaliza()

If MsgNoYes(" Salir del Sistema ?","Modulo CXC")
DBCOMMITALL() ; DBUNLOCKALL() ; DBCLOSEALL()
SET RESOURCES TO
Return .T.
End
Return .F.

//*****************************************

Static Function BmpBrush()
Local cBitmap := "LOGO.BMP",oBrush
If !Empty( cBitmap )
DEFINE BRUSH oBrush FILE cBitmap
SET BRUSH OF oWndMain TO oBrush
End
Return Nil

//****************************************

Static Function Inicio()
SET EPOCH TO 1990
SET DATE BRITISH
SET RESOURCES TO
SET DELETED ON
SET CONFIRM ON
SET AUTOPEN OFF
SET _3DLOOK ON
REQUEST DBFNTX,DBFCDX,DBFFPT
RDDSETDEFAULT("DBFCDX")
SetCancel(.F.)
SetHandleCount(150)
// AADD(aUsuarios,FwCurDir()) // Guardamos el directorio de la aplicacion
Return Nil

//*************************************************
function BrwClientes()

local oDlg
local oLbx
local cVar

USE Cat_cli

if RecCount() == 0
APPEND BLANK
endif

INDEX ON Cat_Cli->Nombre TO Nombre
SET INDEX TO Nombre

GO TOP

DEFINE DIALOG oDlg FROM 3, 3 TO 26, 85 TITLE "Administrador de Clientes"

@ 0, 1 SAY " &Listado de Clientes" OF oDlg

@ 1, 1 LISTBOX oLbx FIELDS;
Cat_cli->Clave, AllTrim( Cat_cli->Nombre );
Cat_cli->RFC, HEADERS "CLAVE", "NOMBRE", "RFC";
FIELDSIZES 8, 40, 15;
SIZE 142, 77 OF oDlg

oLbx:aJustify = {.f., .f., .t.}

@ 8.7, 1.4 BUTTON "&Agregar" OF oDlg //ACTION EditClient( oLbx, .t. ) SIZE 40, 12
@ 8.7, 9.4 BUTTON "&Modificar" OF oDlg //ACTION EditClient( oLbx, .f. ) SIZE 40, 12
@ 8.7, 17.4 BUTTON "&Borrar" OF oDlg //ACTION DelClient( oLbx ) SIZE 40, 12
@ 8.7, 25.4 BUTTON "&Buscar" OF oDlg //ACTION SeekClient( oLbx ) SIZE 40, 12

@ 8.7, 33.4 BUTTON "&Imprimir" OF oDlg ;
//ACTION oLbx:Report( "clients Report", .t. ) ; // .t. --> wants preview
//SIZE 40, 12

@ 8.7, 42 BUTTON "&Salir" OF oDlg ACTION oDlg:End() SIZE 40, 12

ACTIVATE DIALOG oDlg

USE

AEval( aHBitmaps, { | hBmp | DeleteObject( hBmp ) } )

return nil

//**************************************************

function BrwConceptos()
USE cat_con
Browse()
USE
return nil
//***************************************
function ChangeClient()

if oClient != nil
cName = AllTrim( Clientes->Last ) + ", " + Clients->First
oName:Refresh()
endif
RETURN NIL
//******************************************

FUNCTION SALIR()

oWndMain:End()
ACTIVATE WINDOW oWndMain MAXIMIZED ON INIT BmpBrush() Valid Finaliza()

return nil


return nil

[JOSEMAR]

AL ABRIR LA DBF ASIGNA UN ALIAS
Y DESPUES EN LISTBOX

LISTBOX ....
.. ALIAS "ELALIAS"

[Ruben]

GRACIAS JOSEMAR, HICE LE CAMBIO PERO EL ERROR PERSISTE, ME MANDA ESTE ERROR AL MOMENTO DE COMPILAR

corregido.prg(162) Error E0030 Syntax error: "parse error at {"

Y NO SE PORQUE RAZON ME MANDA ESTO

HACE REFERENCIA A ESTA PARTE DEL CODIGO

//*******************************

@ 1, 1 LISTBOX oLbx FIELDS;
clientes->Clave, AllTrim( clientes->Nombre );
clientes->RFC, HEADERS "CLAVE", "NOMBRE", "RFC";
FIELDSIZES 8, 40, 15;
SIZE 142, 77 OF oDlg

[Francisco Horta]

te falta la coma y sta mal estructurado
clientes->Clave, AllTrim( clientes->Nombre ),;
clientes->RFC;
HEADERS "CLAVE", "NOMBRE", "RFC";

[Ruben]

GRACIAS FRANCISCO YA QUEDO DE PELOS

MUCHAS GRACIAS Y SEGUIRE ADELANTE CON MI PROGRAMITA

SALUDOS A TODOS EN EL FORO