Clipper/FiveWin - ERROR BASE/1078

   
Vista:

ERROR BASE/1078

Publicado por jose marquez (21 intervenciones) el 05/12/2007 18:31:21
HOLA A TODOS:
ESTOY TRATANDO DE EMIGRAR CLIPPER + FW 24 A HARBOUR FWH 24 PERO ME SURGIO EL SIGUIENTE ERROR AL EJECUTAR QUE NO LE PUEDO ENCONTRAR:
ERROR BASE/1087 ARGUMENT ERROR: .AND. FROM ERRORSYS, LINA: 0.
HAEBER SI ALGUIEN ME LO PUEDE EXPLICAR SE LOAGRADECERIA INFINITAMENTE.
LES DEJO MI CODIGO FUENTE PARA QUE LO ANALICEN. DE ANTEMANO MIL GRACIAS.

Function avi601()
LOCAL oFont5
local oBtm5
local oBtm6
local oBmp6, oBmp, oBtnbmp
LOCAL oIcon3
local oBarra
local oDlg2
CNOMBRE:=space(30)
CCVECAN:=CIMPORTE:=0
FUERA:=.f.
set _3dlook on
//patres:="z:aviores"
// USE C:AVIOAVIORESmaepro ALIAS maepro
USE C:AVIOavioresmaepro ALIAS maepro
INDEX ON maepro->NOMBRE1 TO c:ALFA
set index to c:ALFA
close data

// USE C:AVIOAVIORESmaepro alias maepro shared new
USE C:AVIOavioresmaepro alias maepro shared new
set index to c:ALFA
VISA1()
close data
return nil
function VISA1()

DEFINE FONT oFont5 NAME "arial" SIZE 05,14 bold

DO WHILE .T.

// DEFINE ICON oIcon3 resource "fivewin"

// DEFINE BITMAP oBmp resource "pintura5"

DEFINE DIALOG oDlg2 RESOURCE "BRWALFA" OF oWnd
// oDlg2:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oBmp:hBitmap ) }
MsgInfo( "definio dialogo" )

oDlg2:bGotFocus = { || SndPlaySound("c:Windowsmediachimes.wav") }
// Odlg2:oIcon=oIcon3
// oDlg2:nClrText=nRGB(249,16,32)
MsgInfo( "antes del get" )

REDEFINE GET oGet VAR CNOMBRE PICTURE "@!" ID 101 OF oDlg2 COLOR "R+/BG+" font oFont5;
VALID (APUNTA(CNOMBRE),.t.)
//MsgInfo( "antes del listbox" )

REDEFINE LISTBOX oBrow fields transform(cvenva,"9/99-999"),TRANSFORM(VAL(CLAVECONSO),"9/99-999"),;
OemToansi(nombre1),asoc,pad_0607 alias "maepro" font oFont5;
ID 102 OF oDlg2 head "CLAVE","CVECON","NOMBRE DEL PRODUCTOR","ASOC","PADRON";
COLOR "R+/BG+"
//MsgInfo( "despues del listbox" )

oBrow:refresh()

oBrow:aJustify={2,2,0,2,2}

oBrow:nLinestyle=11

oBrow:nClrbackhead=nRGB(0,213,213)
oBrow:nClrforehead=nRGB(0,150,151)
oBrow:nClrforefocus=nRGB(249,216,32)
oBrow:nClrbackfocus=nRGB(249,29,83)
oBrow:nClrpane:={||iif((ordkeyno())%2==0,RGB(0,213,213),rgb(0,150,151))}

//oBrow:nClrpane:={||iif((ordkeyno())%2==0,RGB(230,230,230),rgb(190,215,190))}

// REDEFINE BUTTON oBtm5 ID 103 OF oDlg2 prompt "Salir" font oFont5 ACTION (FUERA:=.T.,oDlg2:End())
// REDEFINE BUTTON oBtm5 ID 103 OF oDlg2 prompt "Salir" font oFont5 ACTION (cancel)
//MsgInfo( "antes del boton" )
REDEFINE BTNBMP oBtnBmp ID 103 OF oDlg2 RESOURCE "Salida" ACTION (FUERA:=.T.,oDlg2:End())
oBtnBmp:nClrpane=nRGB(0,151,151)
//MsgInfo( "despues del boton" )
//oBtnBmp:nClrpane=nRGB(78,20,240)
// oBtnBmp:nClrtext=nRGB(18,190,71)

ACTIVATE DIALOG oDlg2 CENTER;
on init (sndPlaySound("c:windowsmedia otify.wav"),oGet:setfocus())
// If GetKeyState(VK_ESCAPE).or.fuera=.t.
// IF (FUERA=.T.).OR.CNOMBRE=SPACE(30)
// RETURN .F.
// ENDIF
//MsgInfo( "activo dialogo" )

RETURN
ENDDO

// set resources to
release font oFont5
oFont5:end()

RETURN NIL

FUNCTION APUNTA(CNOMBRE)
// MsgInfo( "antes de apuntar" )
MAEPRO->(DBSEEK(CNOMBRE,.t.))
//oGet:setfocus()
oBrow:upstable()
oBrow:refresh()
//MsgInfo( "despues de apuntas" )
RETURN(cnombre)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ERROR BASE/1078

Publicado por Jose Flores (26 intervenciones) el 06/12/2007 09:16:41
BASE/1078 Error de argumento: .AND.
Causa: Uno de los argumentos (o ambos) del operador .AND. no es un
valor lógico.

BASE/1087 Error de argumento: --
Causa: El operador -- se ha aplicado a una variable o elemento de
matriz cuyo valor no era numérico.

Hola Jose.
Buscar en el fichero ERROR.LOG la línea (n) que te indica donde está el error.
pero creo que está en esta:
INDEX ON maepro->NOMBRE1 TO c:ALFA
set index to c:ALFA

estas mandando el mensaje ALFA al OBJETO c

la Clave del indice debe de estar sin "c:"
Espero haberte servido.
Saludos.
Jose Flores
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ERROR BASE/1078

Publicado por Jose Flores (26 intervenciones) el 06/12/2007 12:16:36
Jose.
perdona qque esta mañana me he levantado dormido.
esto:
>>DEX ON maepro->NOMBRE1 TO c:ALFA
>>t index to c:ALFA
>>tas mandando el mensaje ALFA al OBJETO c
No tiene nada que ver con el error.
Busca en el fichero ERROR:LOG que ahí tienes la solución
Saludos.
Jose Flores
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ERROR BASE/1078

Publicado por jose marquez (21 intervenciones) el 06/12/2007 17:46:21
TOCALLO:
YA LE PUSE UNA DIRECCION MAS LARGA , PERO ME SIGUE GENERANDO EL MISMO ERROR.
CON RESPECTO AL ERROR.LOG TE LO MANDO HABER SI LE HAYAS POR QUE YA LE BUSQUE Y NO LE ENCUENTRO
GRACIAS
SALUDOS:
Application
===========
Path and name: c:HARBOURin utor09.exe (32 bits)
Size: 985,600 bytes
Time from start: 0 hours 0 mins 5 secs
Error occurred at: 12/06/07, 10:42:10
Error description: Error BASE/1078 Argument error: .AND.
Args:
[ 1] = L .t.
[ 2] = N 2

Stack Calls
===========
Called from WBRWLINE(0)
Called from TWBROWSE:PAINT(0)
Called from TWBROWSE:DISPLAY(0)
Called from TCONTROL:HANDLEEVENT(0)
Called from _FWH(0)
Called from DIALOGBOX(0)
Called from TDIALOG:ACTIVATE(0)
Called from VISA1(85)
Called from AVI601(27)
Called from EVAL(78)
Called from TMENU:COMMAND(0)
Called from TWINDOW:COMMAND(0)
Called from TWINDOW:HANDLEEVENT(0)
Called from _FWH(0)
Called from WINRUN(0)
Called from TWINDOW:ACTIVATE(0)
Called from MAIN(31)

System
======
CPU type: GetCPU() failed! 2800 Mhz
Hardware memory: 504 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Compiler version: Harbour Alpha build 40.0 Intl. (Flex)
Windows version: 5.1, Build 2600 Service Pack 2

Windows total applications running: 56
1
2 M
3 Default IME
4 Menú Inicio
5 CiceroUIWndFrame
6 Menú desplegable de Autosugerir
7 Search_Glow
8 SysFader
9 Canon LBP3200
10 TF_FloatingLangBar_WndTitle
11 Visualiza Padron Alfabetico
12 Using a FiveWin quick browse
13 MCI command handling window
14 Símbolo del sistema - BUILDH TUTOR09
15 Foros - Clipper/FiveWin - RE:ERROR BASE/1078 (Jose Flores) - La Web del Programador - Windows Internet Explorer
16 WOWExec
17 MSNBhoPump
18 {E45D665E-2B19-404e-A3EF-79514A24839D}
19 Acrobat IEHelper
20 IscMsgPump
21 AXWIN Frame Window
22 {3A59DA8F-0ED9-483c-BE8E-258A09AED07F}
23 DDE Server Window
24 AD760EEA-46D4-4e12-BAF5-58E2E3D1D0B2_jmv040@hotmail.com
25 B1E4D14A-F6D0-457d-8F12-711BF924E011_jmv040@hotmail.com
26 IMON Hidden Window
27 D897EE71-E263-449d-9241-5E918A81AF41_jmv040@hotmail.com
28 0C6C1D2B-CA92-49a1-B5F5-A9BBF3D2921A_jmv040@hotmail.com
29 HiddenFaxWindow
30 CTicketManagerWnd
31 {A7E495BF-9589-4a6e-8479-DDA2D8D3C05F}
32 Connections Tray
33 Medidor de energía
34 IHW2
35 Acme.PCHButton
36 MS_WebcheckMonitor
37 HelperMsgListenerWnd
38 NOD32KrnSvcWindow
39 SMWindow
40 GDI+ Window
41 NOD32 Update
42 NOD32 Scanner
43 IMON - Protección para el tráfico de Internet
44 EMON - Protección de correo para Microsoft Outlook
45 DMON - Protección de documentos Microsoft Office
46 AMON - Monitor del sistema de archivos
47 NOD32 Kernel
48 Configuración general del sistema NOD32
49 Información
50 Tareas programadas
51 Cuarentena
52 Registros de NOD32 Scanner
53 Registros de amenazas
54 Registros del sistema NOD32
55 NOD32 2.5 Control Center
56 Program Manager

Variables in use
================
Procedure Type Value
==========================
WBRWLINE
Param 1: N 459850
Param 2: N **********
Param 3: N 0
Param 4: A Len: 5
Param 5: A Len: 5
Param 6: N 1
Param 7: N 9934336
Param 8: N 14013696
Param 9: N 940182857
Param 10: L .f.
Param 11: A Len: 5
Param 12: U
Param 13: N 11
Param 14: U
Param 15: U
Param 16: O Class: TSCROLLBAR
Local 1: N 15
Local 2: N 25821217
Local 3: N 62
Local 4: N 544
Local 5: N 0
Local 6: N 0
Local 7: N 14
Local 8: N 0
Local 9: N 62
Local 10: N 1
Local 11: L .f.
Local 12: U
Local 13: U
Local 14: L .t.
Local 15: N 2
TWBROWSE:PAINT
Local 1: O Class: TWBROWSE
Local 2: N 1
Local 3: N 1
Local 4: U
TWBROWSE:DISPLAY
Local 1: O Class: TWBROWSE
Local 2: N 4670
TCONTROL:HANDLEEVENT
Param 1: N 15
Param 2: N 0
Param 3: N 0
Local 1: O Class: TWBROWSE
_FWH
Param 1: N 0
Param 2: N 15
Param 3: N 0
Param 4: N 0
Param 5: N 2
Local 1: O Class: TWBROWSE
DIALOGBOX
Param 1: N 20316160
Param 2: C "BRWALFA"
Param 3: N 2622760
Param 4: O Class: TDIALOG
Local 1: U
Local 2: L .t.
Local 3: U
Local 4: U
Local 5: U
Local 6: U
Local 7: U
Local 8: N 0
Local 9: U
Local 10: L .t.
Local 11: U
Local 12: L .f.
Local 13: N 1141902710
Local 14: N 1141902710
TDIALOG:ACTIVATE
Param 1: U
Param 2: U
Param 3: U
Param 4: L .t.
Param 5: U
Param 6: L .t.
Param 7: B {|| ... }
Param 8: U
Param 9: U
Local 1: O Class: TDIALOG
Local 2: N 2622760
Local 3: U
Local 4: U
Local 5: U
Local 6: O Class: TDIALOG
VISA1
AVI601
Local 1: U
Local 2: U
Local 3: U
Local 4: U
Local 5: U
Local 6: U
Local 7: U
Local 8: U
Local 9: U
EVAL
Param 1: O Class: TMENUITEM
TMENU:COMMAND
Param 1: N 20009
Local 1: O Class: TMENU
Local 2: O Class: TMENUITEM
TWINDOW:COMMAND
Param 1: N 20009
Param 2: N 0
Local 1: O Class: TWINDOW
Local 2: N 0
Local 3: N 20009
Local 4: N 0
TWINDOW:HANDLEEVENT
Param 1: N 273
Param 2: N 20009
Param 3: N 0
_FWH
Param 1: N 0
Param 2: N 273
Param 3: N 20009
Param 4: N 0
Param 5: N 3
Local 1: O Class: TWINDOW
WINRUN
Param 1: N 2622760
TWINDOW:ACTIVATE
Param 1: C "NORMAL"
Param 2: U
Param 3: U
Param 4: U
Param 5: U
Param 6: U
Param 7: U
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: U
Param 18: U
Param 19: U
Local 1: O Class: TWINDOW
Local 2: U
Local 3: U
MAIN
Local 1: U
Local 2: U
Local 3: O Class: TBITMAP
Local 4: U
Local 5: U
Local 6: U
Local 7: U
Local 8: U
Local 9: U
Local 10: N 15073280

Linked RDDs
===========
DBF
DBFNTX

DataBases in use
================

1: => MAEPRO RddName: DBFNTX
==============================
RecNo RecCount BOF EOF
4202 4670 .t. .f.

Indexes in use TagName
=> MAEPRO->NOMBRE1 ALFA

Relations in use

Classes in use:
===============
1 HBCLASS
2 HBOBJECT
3 TWINDOW
4 TDIALOG
5 TBRUSH
6 TCONTROL
7 TBITMAP
8 TFONT
9 TTIMER
10 TMENU
11 TMENUITEM
12 TMSGBAR
13 TRECT
14 TMSGITEM
15 TGET
16 GET
17 TCLIPGET
18 TWBROWSE
19 TBTNBMP
20 TSCROLLBAR
21 ERROR

Memory Analysis
===============
109 Static variables

Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ERROR BASE/1078

Publicado por jose marquez (21 intervenciones) el 06/12/2007 20:02:42
YA LE ENCONTRE MAS BIE ME CORRIGIO EL MAESTRO ANTONIO LINARES EN EL FORO DE FIVETECH
TENIA ASI:

oBrow:aJustify={2,2,0,2,2}

Y DEBE SE
oBrow:aJustify={.T.,.T.,.F.,.T.,.T.}
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ERROR BASE/1078

Publicado por Adalberto Baqueros (213 intervenciones) el 06/12/2007 20:41:57
José Marquez.

Podrías, por favor, poner aquí tu función o procedimiento VISA1?.

Gracias!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ERROR BASE/1078

Publicado por jose marquez (21 intervenciones) el 07/12/2007 16:16:57
adalberto :
aqui lotinenes ya ccorregido y para todo el que lo quiera tomar
saludos

Function avi601()
LOCAL oFont5
local oBtm5
local oBtm6
local oBmp6, oBmp, oBtnbmp
LOCAL oIcon3
local oBarra
local oDlg2
CNOMBRE:=space(30)
CCVECAN:=CIMPORTE:=0
FUERA:=.T.
FUERA2:=.T.
FUERA3:=.T.
OKEY:=.T.
RET:=.T.
set _3dlook on
//patres:="z:aviores"
// USE C:AVIOAVIORESmaepro ALIAS maepro
USE C:AVIOavioresmaepro ALIAS maepro
INDEX ON MAEPRO->NOMBRE1 TO c:AVIOALFA
set index to c:AVIOALFA
close data

// USE C:AVIOAVIORESmaepro alias maepro shared new
USE C:AVIOavioresmaepro alias maepro shared new
set index to c:AVIOALFA
VISA1()
close data
return nil
function VISA1()

DEFINE FONT oFont5 NAME "arial" SIZE 05,14 bold

DO WHILE OKEY

// DEFINE ICON oIcon3 resource "fivewin"

// DEFINE BITMAP oBmp resource "pintura5"

DEFINE DIALOG oDlg2 RESOURCE "BRWALFA" OF oWnd
// oDlg2:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oBmp:hBitmap ) }
//MsgInfo( "definio dialogo" )

oDlg2:bGotFocus = { || SndPlaySound("c:Windowsmediachimes.wav") }
// Odlg2:oIcon=oIcon3
// oDlg2:nClrText=nRGB(249,16,32)
//MsgInfo( "antes del get" )

REDEFINE GET oGet VAR CNOMBRE PICTURE "@!" ID 101 OF oDlg2 COLOR "R+/BG+" font oFont5;
VALID (APUNTA(CNOMBRE),FUERA2)
//MsgInfo( "antes del listbox" )

REDEFINE LISTBOX oBrow fields transform(MAEPRO->cvenva,"9/99-999"),TRANSFORM(VAL(MAEPRO->CLAVECONSO),"9/99-999"),;
OemToansi(MAEPRO->nombre1),MAEPRO->asoc,MAEPRO->pad_0607 alias "maepro" font oFont5;
ID 102 OF oDlg2 head "CLAVE","CVECON","NOMBRE DEL PRODUCTOR","ASOC","PADRON";
COLOR "R+/BG+"
//MsgInfo( "despues del listbox" )

oBrow:refresh()

// oBrow:aJustify={2,2,0,2,2}

oBrow:aJustify={.T.,.T.,.F.,.T.,.T.}

oBrow:nLinestyle=11

oBrow:nClrbackhead=nRGB(0,213,213)
oBrow:nClrforehead=nRGB(0,150,151)
oBrow:nClrforefocus=nRGB(249,216,32)
oBrow:nClrbackfocus=nRGB(249,29,83)
oBrow:nClrpane:={||iif((ordkeyno())%2==0,RGB(0,213,213),rgb(0,150,151))}

//oBrow:nClrpane:={||iif((ordkeyno())%2==0,RGB(230,230,230),rgb(190,215,190))}

// REDEFINE BUTTON oBtm5 ID 103 OF oDlg2 prompt "Salir" font oFont5 ACTION (FUERA:=.T.,oDlg2:End())
// REDEFINE BUTTON oBtm5 ID 103 OF oDlg2 prompt "Salir" font oFont5 ACTION (cancel)
//MsgInfo( "antes del boton" )
// REDEFINE BTNBMP oBtnBmp ID 103 OF oDlg2 RESOURCE "Salida" ACTION (FUERA,oDlg2:End())
REDEFINE BTNBMP oBtnBmp ID 103 OF oDlg2 RESOURCE "Salida" ACTION oDlg2:End()
oBtnBmp:nClrpane=nRGB(0,151,151)
//MsgInfo( "despues del boton" )
//oBtnBmp:nClrpane=nRGB(78,20,240)
// oBtnBmp:nClrtext=nRGB(18,190,71)

ACTIVATE DIALOG oDlg2 CENTER;
on init (sndPlaySound("c:windowsmedia otify.wav"),oGet:setfocus())
// If GetKeyState(VK_ESCAPE).or.fuera=.t.
// IF (FUERA=.T.).OR.CNOMBRE=SPACE(30)
// RETURN .F.
// ENDIF
//MsgInfo( "activo dialogo" )

RETURN RET
ENDDO

// set resources to
release font oFont5
oFont5:end()

RETURN NIL

FUNCTION APUNTA(CNOMBRE)
// MsgInfo( "antes de apuntar" )
MAEPRO->(DBSEEK(CNOMBRE,FUERA3))
//oGet:setfocus()
oBrow:upstable()
oBrow:refresh()
//MsgInfo( "despues de apuntas" )
RETURN(cnombre)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar