Buenos dias a todos, saben tengo problemas para visualizar en un DLG _ 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
PROBLEMA CON HEADERS NO LOS PUEDO MOSTRAR EN UN DLG
GRACIAS JOSE MAR
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
- Posts: 845
- Joined: Sun Oct 09, 2005 5:36 pm
- Location: la laguna, mexico.
GRACIAS FRANCISCO
GRACIAS FRANCISCO YA QUEDO DE PELOS
MUCHAS GRACIAS Y SEGUIRE ADELANTE CON MI PROGRAMITA
SALUDOS A TODOS EN EL FORO
MUCHAS GRACIAS Y SEGUIRE ADELANTE CON MI PROGRAMITA
SALUDOS A TODOS EN EL FORO