PREGUNTAS CONTESTADAS - Clipper/FiveWin

SETCANCEL(.F.)

Runtime error R6003
-Integer divide by 0

1.- Utilizando Clipper 5.3b, que incorpora un parche para dichos procesadores.
2.- Descargando un parche para Clipper 5.2 que lamentablemente ahora no recuerdo donde lo he visto, pero creo que está disponible en "The Oasis". De todas formas si lo vuelvo a ver te mandaré otro mensaje.
De momento has de saber que no es problema tuyo.

Un saludo.

1.- La primera es concerniente a la incompatibilidad del procesador. Si quisieras optar por esta solución deberias conversar con el proveedor de tu equipo para solución a tu problema.

2.- La otra, existe una libreria que debes incluirla en los compiladores de tu aplicación, esta libreria es efectiva, para las aplicaciones desarrolladas en equipos AMD, el nombre de la libreria es : __wait.obj, esta libreria solamente existe para modo normal y no para aplicaciones que corren bajo modo protegido.

La libreria yo la tengo en mi poder.

Faça o teste..
Caso voce tenha outra solução me diga..

Saludos!!!

Func LOGO(_Pv)
_PantLogo:=SaveScreen(0,0,MaxRow(),MaxCol())

*// Para Clipper 5.3.....
Set VideoMode To LLG_VIDEO_VGA_640_480_16
_Bm:=GBmpLoad("GRAFICO.BMP")
GBMPDISP(_Bm)
Inkey(5)
Set VideoMode To LLG_VIDEO_TXT

*// Con SwPaint.Lib librerias para clipper 5.2 //*
v_MA=swsetvmode(-1)
swsetvmode(4)
swgcls()
swpopslide(´TECNASIS.LOG´)
Inkey(5)
swsetvmode(v_MA)

v_TimeLogo:=Time() // Se reinicializa contador de
// tiempo...
RestScreen(0,0,MaxRow(),MaxCol(),_PantLogo)

Retu NIL

declare art[100]
declare can[100]
afill(art,0)
afill(can,0)
do leer // osea una funcion que lea la base de datos y que ponga los valores a los arreglos//

a=1
do while a <= 100
lina = str(art[a])+" "+str(can[a])
a = a + 1
enddo

sele = achoice(5,5,15,70,lina)

do case
case sele ....

Local aArticulos := {}
SELECT Inventa
Inventa->( DbGoTop() )
Do While Inventa->( !Eof() )
AAdd( aArticulos, Inventa->Codigo + Inventa->Articulo )
Inventa->( DbSkip() )
EndDo
Achoice( 10, 10, 24, 70, aArticulos )

1. La función ACHOICE se usa para crear opciones de menús emergentes. Entonces:

vRgstros := {}
select NmbreDbf
go top
while !eof()
aadd(vRgstros, sCmpo1 + sC mpo2 + ... + sCmpon);
skip
enddo
nOpcion = Achoice(y1,x1,y2,x2,vRgstros) // Opci¢n del //men£. nOpcion = N£mero de Registro seleccionado. //Tenga en cuenta que no halla filtros.

2. La función DBEDIT lista una DBF:

set key -2 to LeerCmpo // Activar F3 para seleccionar.
@10,10 say "Cliente" get cClnte Valid LeerCmpo(@cClnte)
read
set key -2 to // No olvide desactivar la tecla.
Function LeerCmpo(cVrble)
vCmpos := {} //Número de los campos a listar.
select NmbreDbf //Seleccionar la DBF.
for i := 1 to fcount() //Agregar campos al vector.
aadd(vCmpos, i)
endfor
dbedit(y1, x1, y2, x2, vCmpos) //Puede llamarse sin //parámetros.
if (lastkey() == 27) // Esc. No seleccionó cliente.
return(.f.)
cVrble := NmbreClnte // O como se llame el campo.
return(.t.)

File:=MEMOREAD(Archivo)
i:=1
DO WHILE File[i]!=EOF
File[i++]:=File[i]-1
END DO
MEMOEDIT(File,y1+1,x1+1,y2-1,x2-1,.F.)

Local nI := 1
Local cArchivo := MEMOREAD( "Juan.Txt" )
Local nLargo := Len( cArchivo )
For nI := 1 To nLargo
.. cCar := SubStr( cArchivo, nI, 1 )
.. ? cCar
Next nI

DbSeek() con SEEK
DbSkip() con SKIP
DbAppend() con APPEND BLANK
DbGoto con GO

Use emision new
use tasas new
do while .not. eof()
emision->(dbskip()) && mueve puntero emision
skip && mueve puntero tasas
enddo

Te recomiendo usar comandos en vez de funciones, siempre se pueden usar comandos, cuando necesites utilizar un comando especificándole un alias hace para utilizar el comando ZAP :

FUNCTION JrZap()
ZAP
RETURN ( NIL )

FUNCTION JrDelete()
DELETE
RETURN ( NIL )

FUNCTION JrPack()
PACK
RETURN ( NIL )

FUNCTION JrSkip()
SKIP
RETURN ( NIL )

Imagina un sistema mono usuario que solamente necesitas compilar y enlazar de nuevo para convertirlo para red. Te creas un .CH y en el defines

#Command DELETE => RLock() ; DbDelete() ; DbUnLock()