Problema con xbrowse (solucionado)

[sajarm]

Hola

Estoy preparando una tabla, donde doy codigo de articulo, y en el momento de entrar en la celda de cantidad, me da error
En la celda 1 es donde pregunta el codigo, cargo valores en el array para saber si hay stoc, salta automaticamente a la celda 3 donde preguntaria cantidad y ahi da el erro
El codigo es el siguiente

Code: Select all  Expand view

   REDEFINE XBROWSE oBrw ID 6400 of oFld       ;
      COLUMNS aCabe lfastedit cell lines  array aDatos

   oBrw:aCols[ 1 ]:nEditType  := 1
   oBrw:aCols[ 2 ]:nEditType  := 0
   oBrw:aCols[ 3 ]:nEditType  := 1
   oBrw:aCols[ 4 ]:nEditType  := 1
   oBrw:aCols[ 5 ]:nEditType  := 1
   oBrw:aCols[ 6 ]:nEditType  := 0
   oBrw:aCols[ 7 ]:nEditType  := 2
   oBrw:aCols[ 8 ]:nEditType  := 2
   oBrw:aCols[ 9 ]:nEditType  := 2
   oBrw:aCols[ 10 ]:nEditType  := 2
   oBrw:aCols[ 11 ]:nEditType  := 1
   oBrw:aCols[ 12 ]:nEditType  := 1
   oBrw:aCols[ 13 ]:nEditType  := 0


   oBrw:aCols[ 7 ]:aEditListTxt :=  aPlot
   oBrw:aCols[ 8 ]:aEditListTxt :=  aPpt
   oBrw:aCols[ 9 ]:aEditListTxt :=  aPiva
   oBrw:aCols[ 10 ]:aEditListTxt :=  aPre

   oBrw:aCols[ 1 ]:bEditValid   := {| oGet, oCol | ValidAlba( oGet, oCol, oBrw, @aDatos ),;
      oBrw:refresh() }


   oBrw:nMarqueeStyle       := 3
   oBrw:nRowDividerStyle    := LINESTYLE_BLACK
   oBrw:nColDividerStyle    := LINESTYLE_BLACK
   oBrw:lColDividerComplete := .T.
   oBrw:lFastEdit           := .T.
   oBrw:lAutoAppend         := .T.
 

Y el error que me da:

Code: Select all  Expand view

Application
===========
   Path and name: I:\Gestcdx\Contawin.exe (32 bits)
   Size: 4,559,872 bytes
   Compiler version: Harbour 3.2.0dev (r1506171039)
   FiveWin  Version: FWH 15.09
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 11 secs
   Error occurred at: 17-11-2015, 18:05:18
   Error description: Error BASE/1066  Argument error: conditional
   Args:
     [   1] = U  

Stack Calls
===========
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBRWCOLUMN_EDIT( 11906 )
   Called from: .\source\classes\TGET.PRG => TGET:LVALID( 1351 )
   Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW( 333 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:END( 0 )
   Called from: .\source\classes\CONTROL.PRG => TGET:END( 806 )
   Called from: .\source\classes\XBROWSE.PRG => EDITGETKEYDOWN( 12063 )
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBRWCOLUMN_EDIT( 11912 )
   Called from: .\source\classes\TGET.PRG => TGET:KEYDOWN( 948 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1733 )
   Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 670 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3557 )
   Called from:  => DIALOGBOX( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 293 )

                                                          Called from: I:\Gestcdx\PRG[b]\Albaran.prg => ALBARAN( 348 )

   Called from: I:\Gestcdx\PRG\CONTAWIN.prg => (b)MAIN( 391 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 638 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 872 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1723 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1705 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3557 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1020 )
   Called from: I:\Gestcdx\PRG\CONTAWIN.prg => MAIN( 423 )

System
======
   CPU type: Intel(R) Core(TM) i7-2600 CPU @ 3.40GHz 3500 Mhz
   Hardware memory: 3565 megs

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

   Windows total applications running: 76
      1
      2 MSCTFIME UI
      3 Default IME
      4  A L B A R A N    D E    E N T R E G A
      5 C O N T A B I L I D A D                              FLASHFORWARD S.L.                                                     EJERCICIO: 2015
      6 Cargar imagen
      7 Contawin - XEdit  (Corriendo)
      8 GDI+ Window
      9 Inicio
     10 ChangeColorForm
     11 L2SelectorForm
     12 WarningForm
     13 AlertHelper Dialog
     14 EPUHelp
     15 VCD Player
     16 Network Flyout
     17 Conmutación de tareas
     18 StatusForm
     19 FlashOsdForm
     20 CiceroUIWndFrame
     21 TF_FloatingLangBar_WndTitle
     22 Josep
     23 TurboVHelp
     24 Virtual CD v10 - Quick Launch Utility
     25 Debug - Contawin.exe
     26 WOWExec
     27 MCI command handling window
     28 WhatsApp Web - Google Chrome
     29 Sensor Main
     30 Splitter_Right
     31 Splitter_Left
     32 AI Suite II
     33 BarGadget
     34 ShadowForm
     35 Kodi
     36 IE Message Window
     37 µTorrent 3.4.5  (build 41202) [32-bit]
     38 Calendario (Ctrl+2)
     39 OutlookFbThreadWnd
     40 Microsoft Word
     41 Sinónimo
     42 Bandeja de entrada - jarmengol@studi-web.com - Microsoft Outlook
     43 Progreso de envío o recepción de Outlook
     44 Documento1
     45 DDE Server Window
     46 AXWIN Frame Window
     47 ViewDeferedNotifManager 0x1344 0x1320
     48 TNOTIFThisThreadSink 0x1344 0x1320
     49 Microsoft Outlook Social Connector
     50 WMS ST Notif Window 00001344 00001320
     51 WMS Idle
     52 OfficePowerManagerWindow
     53 HiddenFaxWindow
     54 BluetoothNotificationAreaIconWindowClass
     55 Printfil rel. 5.19 Registered
     56 MS_WebcheckMonitor
     57 Media Center SSO
     58 Medidor de la batería
     59 RhinoAshTray
     60 UnlockerAssistant
     61 Epson Event Manager Background
     62 SecureLineTrayIcon
     63 CAvastTrayIcon
     64 NvSvc
     65 Cobian Backup 11 Gravity
     66 Jump List
     67 Menú Inicio
     68 Turbovhelp
     69 UxdService
     70 AsRoutineController
     71 TaskEng - Proceso del Motor de Programador de tareas
     72 Task Host Window
     73 DWM Notification Window
     74 STM3 TrayIcon
     75 Msg
     76 Program Manager

Variables in use
================
   Procedure     Type   Value
   ==========================
   (b)TXBRWCOLUMN_EDIT
     Param   1:    O    Class: ERROR
   TGET:LVALID
     Param   1:    O    Class: TGET
     Local   1:    U    
     Local   2:    U    
     Local   3:    L    .F.
     Local   4:    U    
   (b)TWINDOW
     Local   1:    L    .T.
   TWINDOW:END
     Param   1:    O    Class: TGET
     Local   1:    U    
   TGET:END
   EDITGETKEYDOWN
     Local   1:    O    Class: TGET
     Local   2:    N    31
   (b)TXBRWCOLUMN_EDIT
     Param   1:    O    Class: TXBRWCOLUMN
     Param   2:    N    13
     Local   1:    L    .T.
   TGET:KEYDOWN
     Param   1:    N    13
     Param   2:    N    1835009
     Param   3:    O    Class: TGET
   TWINDOW:HANDLEEVENT
     Param   1:    N    13
     Param   2:    N    1835009
     Local   1:    O    Class: TGET
     Local   2:    U    
     Local   3:    U    
     Local   4:    U    
     Local   5:    N    -1
     Local   6:    U    
     Local   7:    S    
     Local   8:    U    
   TCONTROL:HANDLEEVENT
     Param   1:    N    256
     Param   2:    N    13
     Param   3:    N    1835009
   TGET:HANDLEEVENT
     Param   1:    N    256
     Param   2:    N    13
     Param   3:    N    1835009
     Local   1:    U    
   _FWH
     Param   1:    N    256
     Param   2:    N    13
     Param   3:    N    1835009
     Local   1:    U    
   DIALOGBOX
     Param   1:    N    1835009
     Param   2:    N    256
     Param   3:    N    13
     Param   4:    N    1835009
     Param   5:    N    81
     Local   1:    O    Class: TGET
   TDIALOG:ACTIVATE
     Param   1:    N    35848192
     Param   2:    C    "ALBARAN"
     Param   3:    N    3082280
     Param   4:    O    Class: TDIALOG
   ALBARAN
     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    
     Param  10:    U    
     Param  11:    U    
     Local   1:    N    3082280
     Local   2:    S    
     Local   3:    O    Class: TDIALOG
   (b)MAIN
     Param   1:    C    "ALB"
     Param   2:    N    0
     Local   1:    O    Class: TXBROWSE
     Local   2:    O    Class: TDIALOG
     Local   3:    U    
     Local   4:    U    
     Local   5:    A    Len:    5
     Local   6:    A    Len:    5
     Local   7:    A    Len:    1
     Local   8:    L    .F.
     Local   9:    L    .F.
     Local  10:    N    0
     Local  11:    C    "R/W+"
     Local  12:    C    " A L B A R A N    D E    E N T R E G A   "
     Local  13:    C    " Albarán incluido en la factura"
     Local  14:    N    0
     Local  15:    C    "Reserva"
     Local  16:    A    Len:   14
     Local  17:    C    "clientes"
     Local  18:    C    "codigo"
     Local  19:    C    "nombre"
     Local  20:    C    "clicod"
     Local  21:    C    "clinom"
     Local  22:    C    "CLIENTE:"
     Local  23:    C    "TRABAJO"
     Local  24:    A    Len:    4
     Local  25:    A    Len:    2
     Local  26:    A    Len:    1
     Local  27:    A    Len:    1
   TBTNBMP:CLICK
     Param   1:    O    Class: TBTNBMP
   TBTNBMP:LBUTTONUP
   TCONTROL:HANDLEEVENT
     Param   1:    N    45
     Param   2:    N    45
     Param   3:    N    0
     Local   1:    L    .T.
     Local   2:    S    
   TBTNBMP:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    2949165
     Local   1:    U    
   _FWH
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    2949165
   WINRUN
     Param   1:    N    2949165
     Param   2:    N    514
     Param   3:    N    0
     Param   4:    N    2949165
     Param   5:    N    13
     Local   1:    O    Class: TBTNBMP
   TWINDOW:ACTIVATE
     Param   1:    N    3082280
   MAIN
     Param   1:    C    "MAXIMIZED"
     Param   2:    U    
     Param   3:    U    
     Param   4:    U    
     Param   5:    U    
     Param   6:    U    
     Param   7:    U    
     Param   8:    B    {|| ... }
     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    
     Param  20:    L    .F.
     Local   1:    O    Class: TWINDOW
     Local   2:    U    
     Local   3:    U    

Linked RDDs
===========
   DBF
   DBFFPT
   DBFCDX
   DBFBLOB
   DBFNTX

Classes in use:
===============
     1 ERROR
     2 HBCLASS
     3 HBDEBUGGER
     4 HBDBMENU
     5 HBDBMENUITEM
     6 HBDBWINDOW
     7 HBDBINPUT
     8 HBDBBROWSER
     9 HBDBCOLUMN
    10 HBOBJECT
    11 TBRUSH
    12 TFONT
    13 TWINDOW
    14 TMENU
    15 TMENUITEM
    16 TCONTROL
    17 TBAR
    18 TRECT
    19 TBTNBMP
    20 TMSGBAR
    21 TMSGITEM
    22 TTIMER
    23 TDIALOG
    24 TXBROWSE
    25 TXBRWCOLUMN
    26 TSCROLLBAR
    27 TINTERNET
    28 TFTP
    29 TFTPFILE
    30 TGET
    31 GET
    32 TCLIPGET
    33 TSAY
    34 TCHECKBOX
    35 TWBROWSE
    36 TREG32

Memory Analysis
===============
      404 Static variables

   Dynamic memory consume:
      Actual  Value:          0 bytes
      Highest Value:          0 bytes


 

La linea que remarco (albaran(348)), es la que activa el dialogo, con lo cual no tengo referencia de que linea es la que me esta dando el problema.
Agradezco de antemano vuestra ayuda

[FranciscoA]

Hola, tal vez esto ayude.

BASE/1066 Argument error: conditional
(Error de argumento: sentencia condicional)

Causas:

1. Ha especificado un argumento, para una sentencia condicional tipo IF
o DO WHILE, que no ha devuelto un valor l¢gico.

2. Ha especificado la funci¢n IF() y el primer argumento no ha devuelto
un valor l¢gico.

Soluci¢n: Corrija el programa.

Consulte tambi‚n: El cap¡tulo Conceptos B sicos de la gu¡a de
Programaci¢n y Utilidades.

[Antonio Linares]

Esta línea tienes que modificarla asi:

oBrw:aCols[ 1 ]:bEditValid := {| oGet, oCol | oBrw:refresh(), ValidAlba( oGet, oCol, oBrw, @aDatos ) }

y la función ValidAlba() debe devolver un valor lógico

[sajarm]

Gracias a los dos
Antonio aqui tienes validalba

Code: Select all  Expand view

FUNCTION ValidAlba( oGet, oCol, oBrw, aDatos )

   LOCAL xCta

   xCta := SeekArt( oGet:Value(), @aDatos, oBrw )
   IF aDatos[ oBrw:nrowsel, 1 ] <> xCta .AND. !Empty( aDatos[ oBrw:nrowsel, 1 ] )
      ValidStoc( oGet, oCol, oBrw, aDatos, aDatos[ oBrw:nrowsel, 1 ], xCta, .F. )          //resta stock en cas de modificacio
   ENDIF
   artialb( @aDatos, oBrw, xCta )
   oGet:VarPut( xCta )

RETURN ( .t. )

De seekart, va a devolver siempre valor, nunca va a ser un valor en blanco y si paro el programa antes del return(.t.), me presenta en pantalla los datos cargados en el array por seekart, cuando salto y vuelve al xbrowse, es cuando me da el error
Si pongo la instruccion como me la das tu, no me refresca la pantalla
Saludos

[Antonio Linares]

Te funciona ya bien o sigue dando error ?

[sajarm]

Si pongo la instruccion como me la das, no me da el error, pero no me refresca pantalla.

En validalba carga unos valores a presentar, y no me presenta ninguno.

Entendia que el refresh() lo tenia que hacer despues de cargar datos, antes del validalba no me sirve para nada y lo he quitado

Gracias
Saludos

[Antonio Linares]

Pruébalo así:

oBrw:aCols[ 1 ]:bEditValid := {| oGet, oCol, lRet | lRet := ValidAlba( oGet, oCol, oBrw, @aDatos ), oBrw:refresh(), lRet }

[sajarm]

Antonio.

Ok. solucionado.

Gracias