Bienvenidos a los foros de FiveTech Software

[Alfredo Arteaga]

Ya llegué!!! (anadaba perdido).

Felicidades.

[joms]

Hola Antonio,

Este foro a mí por lo menos no me gusta nada, era muy comodo visitar las news en el outlook.

Seguiré entrando a ver si me acostumbro y espero que sea beneficioso para todos.

Un abrazo
Jorge

[joms]

Antonio,

Los mensajes se pueden editar y modificar por quienes lo crearon, esto me parece muy malo ya que normalmente aparecen polémicas y sería fácil retractarse modificando el mensaje original lo que haría que todo el hilo de la discusión perdiera sentido.

No sabría calificar esto como grave o no, pero al menos es un asunto discutible.

Saludos
Jorge

[pymsoft]

Bueno, aqui estamos. No estuve por una semana y veo grandes cambios. Espero que sean para bien de todos.

Pedro Gonzalez
Savona - Italia

[Guest]

Antonio,

Tengo un foro local con Linux en mi oficina, tengo un direccionamiento de dynu.com

Este tipo de foro tambien se ve util. Veremos como nos va.

Saludos
Juan Navas

[Kleyber]

Bueno, estoy por acá, intentando acostumbrarme a estes nuevos foros.

Saludos,

Kleyber Derick

[FerCastro]

No había tenido tiempo de felicitarte por este nuevo espacio. Honestamente me agradan más las news, pero a todo se acostumbra uno.

Muchas gracias y esperemos que este cambio funcione y sea para mejor.

Saludos!!

Fernando Castro
México, D.F.

[daniel]

Hola a todos,

Confiamos en que estos nuevos foros proporcionarán un mejor servicio a la comunidad de usuarios de FiveWin.

saludos,

Antonio Linares
www.fivetechsoft.com

pues pa serte sincero, me gusta mas estos forros.

que las NEWS,
he leido mucho en los blog, que no gustan estos forros.
no hay que tenerle miedo a _, mas si son para mejorar.

[Armando Picon]

Agradecido por este tipo de foro, Antonio.

Por lo general no hago uso de un solo equipo sino que por la naturaleza de mis ocupaciones debo estar en constante movimiento en diversos lugares y mediante este tipo de foro no tengo que estar configurando el Outlook en en el equipo que en ese momento tengo que utilizar.

Por mi parte; recibe congratulaciones al haber decidido poner las news aca.

Un abrazo.

Armando

Hola a todos,

Confiamos en que estos nuevos foros proporcionarán un mejor servicio a la comunidad de usuarios de FiveWin.

saludos,

Antonio Linares
www.fivetechsoft.com

[RodolfoRBG]

Me parece GENIAL esta idea. Tenía mucho tiempo de no poder entrar a este foro ya que en la empresa en la que trabajo no se puede entrar a las NEWS.

Suerte!!

[Ruben]

Buenas tardes Antonio Linares

Un saludo desde Tampico Tamaulipas Mexico
Sabe estoy empezando a programar en xHarbour y FiveWin y estoy realizando un programa de Cuentas por cobrar, es apenas el principio aun no hay nada complejo pero se me dificulta visualizar el listado de clientes en una ventana, me podria ayudar
Aqui le envio el código para ver que sugerencias tengo, de antemano muchas gracias y espero comentarios.

LA FUNCION function BrwClientes()
NO ME FUNCIONA

#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 oBarBtn,oFont,oIcon,oBtns[10]

local oBrw, oIco, oBar, oClientes

If oClientes != nil
return nil
ENDIF
use cat_cli
//DEFINE ICON oIcon FILENAME "c:\fwh\samples\setup.ico"
DEFINE WINDOW oClientes MDIChild TITLE "ADMINISTRADOR DE CLIENTES" //OF oWndMain
//SET MESSAGE OF oClientes TO "ESPERO QUE FUNCIONE" CENTERED
//DEFINE BUTTONBAR oBar of oClientes
//DEFINE BUTTON oBar RESOURCE "OPEN" NOBORDER
// @ 2,0 LISTBOX oBrw FIELDS OF oClientes size 1000,500
use
//ON CHANGE ChangeClient()

// oClientes:SetControl( oBrw )

ACTIVATE WINDOW oClientes

//VALID( oClientes := nil, .t.)

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

[Antonio Linares]

Ruben,

Revisa fwh\samples\fwbrow.prg

[Ruben]

Gracias Antonio

Lo voy a checar y te comentare como quedo, mcuhas gracias

[JmGarcia]

Pues, personalmente, me rompen todos los esquemas. No me gusta el nuevo look
Pero si hay que avanzar, avancemos...

[Antonio Linares]

JM,

La apariencia en este caso no es la razón del cambio, sino un manejo mas eficiente de la base de datos que administra el foro.

Esta versión phpBB3 debe funcionar más rápido que la versión anterior. Esto es necesario pues el volumen de datos (mensajes) que usamos es cada vez mayor