FiveTech Software tech support forums

HOLA A TODOS:
SOY NUEVO EN EL FORUM ESTOY TRATANDO DE EMIGRAR DE CLIPPER 5.3+FW24 A HARBOR + FWH. TODO LOBAJE DE MI FTDN ORIGINAL COMPRADO A FIVETECH
QUIERO TRABAJAR CON DLL EXTERNA YA QUE POR RC SE ME HA DOFICULTADO MAS AUN. EN FIN LOGRO HABRIR MI DIALOGO EN UNPROGRAMA PILOTO TOMADO DEL TUTOR09 Y AGREGANDO UNO DE MIS PROGRAMAS DE VISUALIZACION, HE HECHO TODO LO QUE PODIDO LEER EN LOS FORUM PERO AL EJECUTAR EL PROGRAMA ME ARROJA EL SIG. ERROR: ERROR BASE/1078 ARGUMENT ERROR: .AND. FROM ERRORSYS, LINE: 0
SI PUEDIERA ALGUEIN HECHARME LA MANO ME URGE EMIGRAR YA QE ME VAN A CAMBIAR DE MAQUINAS Y SON CON S.O. VISTA Y COMO HE LEIDO NO COMPILA LOS 16 BITS.
TRABAJO TAMBIEN CON EL BORLAND 5.5 Y WORKSHOP 4.5.
DE ANTEMANO MIL GRACIAS.
ATTE: JOSE MARQUEZ DE J.D. COVARRUBIAS,VERACRUZ, MEX,

Jose,

Bienvenido al foro

Por favor copia aqui el contenido del fichero error.log

Parece que estás haciendo un .AND. y uno de los valores usados no es de tipo lógico

AUI ESTA EL ERROR.ORG MAESTRO
Application
===========
Path and name: c:\HARBOUR\bin\tutor09.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

ANTONIO: LE MANDO MI CODIGO FTE PARA QUE LO REVISE. SI ES TAN AMABLE
GRACIAS :
JOSE


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:\AVIO\AVIORES\maepro ALIAS maepro
USE C:\AVIO\aviores\maepro ALIAS maepro
INDEX ON MAEPRO->NOMBRE1 TO c:\AVIO\ALFA
set index to c:\AVIO\ALFA
close data

// USE C:\AVIO\AVIORES\maepro alias maepro shared new
USE C:\AVIO\aviores\maepro alias maepro shared new
set index to c:\AVIO\ALFA
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:\Windows\media\chimes.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: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:\windows\media\notify.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)

El fallo está aqui:

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

Has de usar valores lógicos en ese array, no números:

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

ó con los valores que necesites

MIL GRACIAS MAESTRO ANTONIO
TODO SALIO BIEN YA EMEZAREA A HACER UNA EMIGRACION ENSERIO
SALUDOS
ATTE:.JOSE