PREGUNTAS CONTESTADAS - Clipper/FiveWin

#Define ID_COPYRIGHT "Juan Reyes 1998"
#Define ID_VERSION "2.3.1"
#Define PRIMERO 1
#Define SEGUNDO 2

#Include "MisDef.Ch"

FUNCTION Main()
..... @ 10, 10 SAY "Sistema desarrollado por " + ID_COPYRIGHT + " Versión : " + ID_VERSION
RETURN ( NIL )

Crea un programa llamado menu2.prg y coloca :

#Include "MisDef.Ch"
FUNCTION Main()
Local aDato := { 10, 20 } // Arreglo de dos posiciones e inicializado con un 10 en la primera posición y un 20 en la segunda posición.

@ 10, 10 SAY aDato[ PRIMERO ] // Aqui PRIMERO será reemplazado por el número 1
@ 11, 10 SAY aDato[ SEGUNDO ] // y SEGUNDO se reemplazara por el número 2

RETURN ( NIL )

CONSTANT.CH
#define IVA 0.15

#include "constant.ch"
..
nImp_IVA := nImporte * IVA

Utiliza mayúsculas para tus constantes.

Compilas tus programas con el modificador /P y revisa el archivo .PPO que produce para que compares el contednido de éste con tu original (.PRG)

En lo que pueda sequir ayudándote, no lo dudes.:-)

La segunda duda es si alguien sabe como cambiar las coordenadas del texto que sale al presionar la tecla INS (que sale en la coordenada 0,60 aprox) y el de FECHA INVALIDA que sale en la misma coordenada. De antemano gracias

Con respecto a la lectora de código de barras, en la empresa donde laboro se tienen dos no se que marca porque no la tienen, la conexción es muy senccilla, porque se tiene un adatador para conectárse al DIM del teclado, una entrada serie para la lectora y otra DIM para el teclado. Con esto se puede leer código de barras o teclear datos, finalmente es una entrada de datos. Al programa no le tienes que hacer absolutamente nada, ya que si utilizas la lectora lee el código llenando con los datos el campo/variable de entrada, incluso te toma como si oprimieras ENTER. Obviamente es recomendable hacer unas pruebas antes de.

Con relación a la lectura de codigos de barra en los programas te recomiento los que se conectan al teclado, ya que los conectados al puerto serie te obligan a incializar el puerto en el autoexec.bat, asi como cargar algun que otro drive en memoria, (con la consiguiente perdida de memoria disponible) y la mayoria de estos drives al final lo que hacen es redirigir lo que recibe la maquina por el puerto serie hacia el teclado, conclusion (POR TECLADO NO POR PUERTO SERIE)

Meu nome é Mauricio , moro na cidade de Araraquara,estado de São Paulo-BRASIL.

Abraço e até logo...

El comando SET PRINTER TO te permite colocar un nombre de puerto, por ejemplo

SET PRINTER TO LPT1 ó SET PRINTER TO LPT2

La impresora desde windows está bien que la hayas dejado como predeterminada, pero capturaste la COLA de impresión ?
Ve a MIPC, panel de control, impresoras, elije la impresora, haz click con el botón derecho del mouse, elije propiedades y selecciona la lengueta DETALLES, has click en el botón CAPTURAR PUERTO DE IMPRESORA.
Elije el dispositivo, la ruta de acceso a tu impresora y has click en el check box CONECTAR DE NUEVO AL INICIAR SESION. unicia una nueva sesión y verás que capturaste la cola, ahora tus programas de DOS deberían de imprimir redireccionando la impresión a este puerto. que no siempre debe de ser LPT1.

Chao amigo

NET USE LPT1: \\NOMBRE DE PC\NOMBRE DE IMPRESORA

Espero te sirva...

Index on DTOS(fechaing) to I2obrero

index on AppAterno+ApMaterno+Nombre to i3obrero

Agradezco cualquier comentario o sugerencia al respecto.
Gracias

Chao amigo

USE Base.Dbf INDEX Nombre.Ntx
C:=""
K:=0
SET SOFTSEEK ON
DO WHILE .T.
K:=0
DBEDIT( 5 , 10 , 20, 70 )
@ 2,10 SAY " Introdusca Nombre :"
K:=INKEY(0)
IF K = 27
EXIT
ENDIF
C:=C+CHR (K)
SEEK C
ENDDO
SET SOFTSEEK OFF

Espero que esto te sirva de ayuda

Chao, Compañero

Con objetos TBrowse ganarás en tus aplicaciones flexibilidad, mucha rapidez y un gran ahorro de memoria, es un poquito dífícil pero vale la pena aprenderlo, el porque, porque cuando desarrolles sistemas para un entorno windows con una herramienta que te permita hacer aplicaciones para este entorno veras mucho de clases y objetos.

Asi que amigo, ánimo e incorpórate al mundo actual, las herramientas obsoletas.... chao con ellas

1- Tengo una base de datos con los registros que deseo.
2- Construllo un objeto TBrowse, como es un objeto puede hacerlo como me de la gana.
3- Dentro de un ciclo tomo en InKey(0).
4- Tengo una variable donde voy introduciendo las teclas que han presionado y le hago un seek al valor que tenga la variable.
5- Le envio el mensaje RefreashAll al TBrose y listo.

Si quieres un programa de ejemplo avisame.

Usuario N 3
Hora C 5
Estado C 1 // M Modificado I Ingresado E eliminado, etc.
FechaEst d 8 // fecha que representa cuando se hizo el cambio de estado
con esto en cada registro sabrás que se hizo y la hora.

La otra idea es llevar una base de datos con un historial.
Usuario N 3
Hora C 5
Fecha D 8
descripcion C 20

Cada vez que crees, modifiques o elimines un registro tendrás que grabar en este historial todos los datos. en la descripción puedes colocar :
Borró F/435435
ingresó cliente 123037871
mod nota 234324
http://members.xoom.com/jonysoft
http://members.xoom.com/manuales

Procedure Accesos(cTabla, cAccion, dFecha, cHora)
If dFecha == Nil
dFecha := Date()
EndIf
If cHora == Nil
cHora := Time()
EndIf
// Puedes validar acceso en una red
Append Blank
tabla := cTabla
accion := cAccion
fecha := dFecha
hora := cHora
// Si es en red desbloquea regiostro

Datos en la base Y:
Clave Descripcion Clave_linea
001 Lavadora 456 1
002 refrigerador X 1

Bueno Cuando haga un Dbedit a mi base Y, necesito que aparezca la descripcion de la linea 1, Diran Bueno pues guardala en la otra base, pues no puedo , imaginenese que tengo como 400 lineas como con mas de 5000 articulos, se va a tardar un monton, y mejor asi las relaciono y nadamas despliego informacion, ademas que tambien es un relajo a la hora de que hacen un cambio a la descripcion de la linea, tendria que cambiar a todas en la otra base
Saludos

Function Busca(cClave, nPosCampo, nIndice)
Local nIndAnt, xValor, cTipo

// Valores por defecto si no los pasan
if nPosCampo == Nil; nPosCampo := 0; End
if nIndice == Nil; nIndice := 1; End

nIndAnt := PonIndice(nIndice) //indice de búsqueda
DBSeek(cClave)
If nPosCampo > 0 // un campo en particular
If Found()
xValor := FieldGet(nPosCampo)
Else
cTipo := ValType(FieldGet(nPosCampo))
If cTipo == [C]; xValor := [S/desc]
ElseIf cTipo == [N]; xValor := 0
ElseIf cTipo == [D]; xValor := CtoD([00/00/0000])
ElseIf cTipo == [L]; xValor := .f.
Else
xValor := []
EndIf
EndIf
Else
xValor := Found()
EndIf
PonIndice(nIndAnt)
Return( xValor )

Function PonIndice(nIndice)
// Esta rutina pone como activo un índice en
// especial y retorna el índice que estaba.
Local nIndAnt := IndexOrd()
DBSetOrder( nIndice )
Return( nIndAnt )

If ARTICULO->( Busca(cCveArt) ) // Buscar clave
// Encontre el artículo
EndIf

// Obtiene la descripción en un objeto TBRowse
oCol := TBColumn([Desc. Articulo], {|| ARTICULO->( DETFACTURA->faccveart, 2)})

// Busca sobre el Indice 3 (por Grupo)
If ARTICULO->( Busca(cGpoArt,, 3))
cGrupo := ARTICULO->grupo // deja el apuntador y dispongo de todos los campos
Else
// Error en grupo
EndIf

USE X NEW EXCLUSIVE
INDEX ON X->Clave TO X1
USE Y NEW EXCLUSIVE

SELECT Y
Y->(DbGoTop())

// Si lo haces on objetos TBrowse :

oTb := TBrowseDB( 1, 1, 24, 78 )
...oTb:addColumn( TbColumnNew( "CODIGO" , {|| Y->Clave }))
...oTb:addColumn( TbColumnNew( "DESCRIPCION", {|| Y->Descripcion }))
...oTb:addColumn( TbColumnNew( "LINEA" , { || IIF( X->( DbSeek( Y->Clave_Linea )), X->Descripcion, Space( 20 ))})
.
.
.

// si lo haces con DBEdit ( no te lo recomiendo )
Local acColumnas := { "Y->Clave", "Y->Descripcion", " IIF( X->( DbSeek( Y->Clave_Linea )), X->Descripcion, Space( 20 ))")
USE X NEW EXCLUSIVE
INDEX ON X->Clave TO X1
USE Y NEW EXCLUSIVE

SELECT Y
Y->(DbGoTop())

DBEDIT( 1, 1, 24, 78, acColumnas, . .. .. . .. )

No te recomiendo usar SET RELATION ya que en entornos de red y con artos registros, 5 mil como dices tu se te podrá lentísimo, si tienes una máquina rápida te salvas, pero si no ?.

Si ves la NG de clipper 5.2e te darás cuenta que DBEDIT tiene un asterisco al lado derecho del nombre de la función, que significa esto, que DBEDIT ESTA OBSOLETO, a si que a aprender objetos TBRowse, ganarás velocidad, un gran ahorro de memori y flexibilidad.

Chao amigo,
http://members.xoom.com/jonysoft
http://members.xoom.com/manuales

Vé si es compatible con el PCL de las HP, si es así avísame ya que tengo los códigos para una HPDeskJet

Chao amigo

Escríbeme si necesitas conocer expert help!