FiveTech Software tech support forums

www.FiveTechSoft.com

Skip to content

AYUDA URGENTE CON COMBOBOX

Post a reply

AYUDA URGENTE CON COMBOBOX

Postby remtec » Thu Nov 15, 2018 2:10 pm

Amigos

Muy buen dia, necesito ayuda urgente.

Desde un Combobox, segun dato seleccionado, voy a cargar una arreglo para un XBROWSE.

El problema que se me presenta es el Siguiente:

Mientras EXISTAN DATOS, para cargar el arreglo en XBROWSE, este se muestra muy bien el detalle.
Pero cuando NO encuentro datos, para cargar el arreglo, al Presionar el Boton Salir del Dialog en, arroja un error en ACTIVATE MARCADO.
REDEFINE BTNBMP ID 105 Resource "#8004" OF oDlg ;
ACTION (Cierra(),oDlg:END())

ACTIVATE DIALOG oDlg CENTERED <------- Aqui acusa error al salir

Dejo el Codigo del programa y del error:

Desde ya Muchas gracias.

Atte.

Antonio

Code: Select all  Expand view

     REDEFINE SAY oSay2 ID 120 PROMPT "TOTAL PACIENTES: "+str(total_pac,3) OF oDlg FONT oFont2  COLORS rgb(39, 0, 64)

     REDEFINE COMBOBOX oCod_pro1 VAR nCod_pro1 ITEMS ArrTranspose( aProfe )[ 2 ] ID 102 OF oDlg COLORS nRGB(9, 11, 10), nRGB(73, 250, 202);
                    ON CHANGE (cCod_pro1:=ArrTranspose( aProfe )[ 1 ][oCod_pro1:nAt],[b]Carga_paci(cCod_pro1)[/b],oPaci:Refresh(),oSay2:Refresh())
                                //                                                                                                                Voy a Cargar Xbrowse        , Refresco el Browse
     REDEFINE XBROWSE oPaci ID 104 OF oDlg ;
          COLUMNS 1,2,3,4,5,6,7;
            HEADERS "Nro. ","Nombre del Paciente" ,"Folio Caja","T. Pago","Valor ","Digita","Hr. Digi";
            COLSIZES 40, 350, 80, 80,70,80,80 ;
                FONT oFont1;
                ARRAY aPacientes ;
                FOOTERS LINES CELL

                oPaci:bClrStd             := {|| { nRGB(  0,  0,  0), nRGB(255,248,220) } }
                oPaci:bClrSelFocus        := {|| { nRGB(  0,  0,  0), nRGB(137, 247, 33) } }
                oPaci:bClrHeader       := {|| { CLR_BLUE, nRGB( 245, 245, 245 ) } }
                oPaci:bClrSel := {|| { nRGB(000,000,000), nRGB(128,255,128) } }
                oPaci:bClrSelFocus := {|| { nRGB( 0, 0, 0), nRGB(128,255,128) } }
                oPaci:bClrStd := {|| { nRGB(000,000,000), nRGB(255,255,200) } }
                oPaci:nStretchCol := STRETCHCOL_WIDEST

                   oCol := oPaci:AddCol()
                  oCol:AddResource("#8006")
                  oCol:AddResource("#8007")
                  oCol:cHeader = "Estado"

                      oCol:bBmpData   :=  { || if(aPacientes[oPaci:nArrayAt,8]=="S",1,2)}

     REDEFINE BTNBMP ID 105 Resource "#8004" OF oDlg ;               <---- Al dar Boton Salir
            ACTION (Cierra(),oDlg:END())

        ACTIVATE DIALOG oDlg CENTERED          <---- Aqui Marca el Error

Return  Nil


Static Function  Carga_paci(cCod_pro1)
             asize( aPacientes, 0 )

             If Len(cCod_pro1)=0
                MsgStop("No ha Seleccionado Profesional Medico")
                    Return
             Endif

             carchi:='PACI'+trim(cCod_pro1)
             If !file('&carchi..dbf')
                MsgStop("MEDICO SELECCIONADO NO TIENE INGRESOS DE PACIENTES")
                    Return
             Endif
             Sele 2
             Use &carchi Shared
             If !file('&carchi..ntx')
                    Inde on Cod_pro+dtos(ctod(fec_ate))+Str(Cor_pac,4) to &carchi
             Endif
             Set Inde to &carchi
             //seek cCod_pro1+dtos(date())
             DbGotop()
             If eof()
                MsgStop("MEDICO SELECCIONADO NO TIENE PACIENTES EN ESPERA")
                    DbClosearea()
                Return
             Endif


             Stor 0 to total_pac
             Do While !Eof()
                 // If (ctod(fec_ate)=Fecha_hoy)
                         AADD( aPacientes,{ b->Cor_pac,b->Nom_pac,b->Fol_caj,b->Tip_pag,b->Val_bon,b->Cod_dig,b->Hor_dig,b->Con_pac})
                         total_pac=total_pac+1
                 // Endif
                    DbSkip()
             Enddo
             DbClosearea()
             oPaci:SetArray( aPacientes )
                 oPaci:GoTop()
                 oPaci:Refresh()
             Return  oPaci

 


** ERROR **
Code: Select all  Expand view

C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 12 secs
   Error occurred at: 15/11/2018, 10:38:42
   Error description: Error BASE/1072  Argument error: <>
   Args:
     [   1] = N   1
     [   2] = C  

Stack Calls
===========
   Called from: .\source\classes\TGET.PRG => TGET:LOSTFOCUS( 1667 )
   Called from: .\source\classes\CONTROL.PRG => TGET:KILLFOCUS( 1081 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1694 )
   Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 795 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3348 )
   Called from:  => SETFOCUS( 0 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONDOWN( 849 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1718 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1873 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3348 )
   Called from:  => DIALOGBOX( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: .\Consulta.PRG => CONSU_PACI( 82 )
   Called from: .\MenuCon.PRG => (b)MAIN( 46 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 684 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 924 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1721 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1873 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3348 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1037 )
   Called from: .\MenuCon.PRG => MAIN( 58 )

System
======
   CPU type: Intel(R) Core(TM) i7-4510U CPU @ 2.00GHz 2594 Mhz
   Hardware memory: 8085 megs

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

   Windows total applications running: 6
      1 ,                                                                                                    
      2 , C:\Util\Boxpaci\MenuCon.exe                                                                        
      3 , C:\WINDOWS\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_5.82.17134.345_none_40ff7c
      4 , C:\WINDOWS\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.17134.345_none_42efd13
      5 DDE Server Window, C:\WINDOWS\System32\OLE32.DLL                                                                      
      6 G, C:\WINDOWS\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.17134.345_none_73dac4159f74062

Variables in use
================
   Procedure     Type   Value
   ==========================
   TGET:LOSTFOCUS
     Param   1:    O    Class: ERROR
   TGET:KILLFOCUS
     Param   1:    N    4459202
     Local   1:    N    1
     Local   2:    C    ""
     Local   3:    U    
     Local   4:    U    
   TCONTROL:HANDLEEVENT
     Param   1:    N    4459202
     Local   1:    U    
   TGET:HANDLEEVENT
     Param   1:    N    8
     Param   2:    N    4459202
     Param   3:    N    0
     Local   1:    U    
   _FWH
     Param   1:    N    8
     Param   2:    N    4459202
     Param   3:    N    0
     Local   1:    U    
   SETFOCUS
     Param   1:    N    0
     Param   2:    N    8
     Param   3:    N    4459202
     Param   4:    N    0
     Param   5:    N    10
     Local   1:    O    Class: TGET
   TBTNBMP:LBUTTONDOWN
     Param   1:    N    4459202
   TCONTROL:HANDLEEVENT
     Param   1:    N    17
     Param   2:    N    91
     Param   3:    N    1
     Param   4:    L    .F.
   TBTNBMP:HANDLEEVENT
     Param   1:    N    513
     Param   2:    N    1
     Param   3:    N    1114203
     Local   1:    U    
   _FWH
     Param   1:    N    513
     Param   2:    N    1
     Param   3:    N    1114203
   DIALOGBOX
     Param   1:    N    1114203
     Param   2:    N    513
     Param   3:    N    1
     Param   4:    N    1114203
     Param   5:    N    29
     Local   1:    O    Class: TBTNBMP
   TDIALOG:ACTIVATE
     Param   1:    N    4194304
     Param   2:    C    "#1004"
     Param   3:    N    5377348
     Param   4:    O    Class: TDIALOG
   CONSU_PACI
     Param   1:    U    
     Param   2:    U    
     Param   3:    U    
     Param   4:    L    .T.
     Param   5:    U    
     Param   6:    L    .T.
     Param   7:    U    
     Param   8:    U    
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Local   1:    N    5377348
     Local   2:    S    
     Local   3:    O    Class: TDIALOG
   (b)MAIN
     Local   1:    O    Class: TFONT
     Local   2:    O    Class: TFONT
     Local   3:    O    Class: TSAY
     Local   4:    O    Class: TFONT
     Local   5:    O    Class: TSAY
     Local   6:    O    Class: TDIALOG
     Local   7:    O    Class: TSAY
   TBTNBMP:CLICK
     Param   1:    O    Class: TBTNBMP
   TBTNBMP:LBUTTONUP
   TCONTROL:HANDLEEVENT
     Param   1:    N    15
     Param   2:    N    27
     Param   3:    N    0
     Local   1:    L    .T.
     Local   2:    N    0
     Local   3:    S    
   TBTNBMP:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    983067
     Local   1:    U    
   _FWH
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    983067
   WINRUN
     Param   1:    N    983067
     Param   2:    N    514
     Param   3:    N    0
     Param   4:    N    983067
     Param   5:    N    3
     Local   1:    O    Class: TBTNBMP
   TWINDOW:ACTIVATE
     Param   1:    N    5377348
   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:    B    {|| ... }
     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
   DBFBLOB
   DBFNTX

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

Classes in use:
===============
     1 ERROR
     2 HBCLASS
     3 HBOBJECT
     4 TCURSOR
     5 TFONT
     6 TWINDOW
     7 TDIALOG
     8 TBRUSH
     9 TCONTROL
    10 TBITMAP
    11 TSAY
    12 TGET
    13 GET
    14 TCLIPGET
    15 TBUTTON
    16 TRECT
    17 TREG32
    18 TBAR
    19 TBTNBMP
    20 TMSGBAR
    21 TCOMBOBOX
    22 TXBROWSE
    23 TXBRWCOLUMN
    24 TSCROLLBAR
    25 TCLIPBOARD
    26 TSTRUCT

Memory Analysis
===============
      384 Static variables

   Dynamic memory consume:
      Actual  Value:    1507328 bytes
      Highest Value:    1507328 bytes
 
FWH 22.10 - HARBOUR - PELLES C
remtec
 
Posts: 717
Joined: Fri May 12, 2017 2:50 pm
Top

Re: AYUDA URGENTE CON COMBOBOX

Postby horacio » Thu Nov 15, 2018 4:29 pm

Y la función cierra() que es lo que hace ?

Code: Select all  Expand view

     REDEFINE BTNBMP ID 105 Resource "#8004" OF oDlg ;               <---- Al dar Boton Salir
            ACTION (Cierra(),oDlg:END())

        ACTIVATE DIALOG oDlg CENTERED          <---- Aqui Marca el Error

Return  Nil

 


Saludo
horacio
 
Posts: 1358
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina
Top

Re: AYUDA URGENTE CON COMBOBOX

Postby remtec » Thu Nov 15, 2018 4:38 pm

Horacio

Hola, muchas gracias.

La Function Cierra()

Saludos.

Antonio

Code: Select all  Expand view

Static FUNCTION Cierra()
    Set relation to
    Close data
     sysrefresh()
return nil

 
FWH 22.10 - HARBOUR - PELLES C
remtec
 
Posts: 717
Joined: Fri May 12, 2017 2:50 pm
Top

Re: AYUDA URGENTE CON COMBOBOX

Postby horacio » Thu Nov 15, 2018 5:09 pm

Comenta esta linea y fijate que pasa

Code: Select all  Expand view

oCol : bBmpData := { || if(aPacientes[oPaci:nArrayAt,8]=="S",1,2)
 


Saludos
horacio
 
Posts: 1358
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina
Top

Re: AYUDA URGENTE CON COMBOBOX

Postby remtec » Thu Nov 15, 2018 5:17 pm

Horacio

Esta Columna solo Muestra un BMP con un Ticke cuando esta atendido y si Signo - cuando esta pendiente de atencion.

El xbrowse muestra un listado de Pacientes por Medico para una fecha, por lo que esta columna indica el estado de los pacientes en atencion en la consulta.

Saludos.

Code: Select all  Expand view

            oCol:AddResource("#8006")   <--- Ticket Atendido
            oCol:AddResource("#8007")   <--- Pendiente de atencion
                oCol:cHeader = "Estado"


oCol : bBmpData := { || if(aPacientes[oPaci:nArrayAt,8]=="S",1,2)
 
FWH 22.10 - HARBOUR - PELLES C
remtec
 
Posts: 717
Joined: Fri May 12, 2017 2:50 pm
Top

Re: AYUDA URGENTE CON COMBOBOX

Postby remtec » Thu Nov 15, 2018 5:33 pm

Horacio

Al Deshabilitar las lineas que comentas, emite el mismo error.

Cuando selecciono del Combobox un profesional medico que tiene pacientes, muestra los datos en el Xbrowse, al dar Boton salir, TODO BIEN.

Cuando Selecciono del Combobox un profesional medico que NO tiene pacientes, muestra un mensaje de aviso y al dar Boton Salir. EMITE ERROR.

Saludos.

Antonio.
FWH 22.10 - HARBOUR - PELLES C
remtec
 
Posts: 717
Joined: Fri May 12, 2017 2:50 pm
Top

Re: AYUDA URGENTE CON COMBOBOX

Postby VitalJavier » Thu Nov 15, 2018 8:11 pm

Ya probaste metiendo un registro en blanco al array de "apacientes"
cuando NO tenga Pacientes.

Solo para probar
VitalJavier
 
Posts: 227
Joined: Mon Jun 10, 2013 6:40 pm
Top

Re: AYUDA URGENTE CON COMBOBOX

Postby remtec » Thu Nov 15, 2018 8:41 pm

Javier

Hola, muchas gracias.

Fue lo primero que hice, para todos los casos en que no existan datos para llenar el Array, le agregue un registro en blanco o cada campo con espacios, para una fila, pero el resultado es el mismo, el error no cambia.

Saludos.

Antonio

Code: Select all  Expand view

   ACTIVATE DIALOG oDlg CENTERED      // El Error se produce en esta linea al dar Boton Salir.

 
FWH 22.10 - HARBOUR - PELLES C
remtec
 
Posts: 717
Joined: Fri May 12, 2017 2:50 pm
Top

Re: AYUDA URGENTE CON COMBOBOX

Postby armando.lagunas » Fri Nov 16, 2018 12:36 pm

remtec wrote:Javier

Hola, muchas gracias.

Fue lo primero que hice, para todos los casos en que no existan datos para llenar el Array, le agregue un registro en blanco o cada campo con espacios, para una fila, pero el resultado es el mismo, el error no cambia.

Saludos.

Antonio

Code: Select all  Expand view

   ACTIVATE DIALOG oDlg CENTERED      // El Error se produce en esta linea al dar Boton Salir.

 


el error no es donde dices, según el log el problema esta en la linea 82 de tu programa.

Stack Calls
===========
Called from: .\source\classes\TGET.PRG => TGET:LOSTFOCUS( 1667 )
Called from: .\source\classes\CONTROL.PRG => TGET:KILLFOCUS( 1081 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1694 )
Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 795 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3348 )
Called from: => SETFOCUS( 0 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONDOWN( 849 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1718 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1873 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3348 )
Called from: => DIALOGBOX( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
Called from: .\Consulta.PRG => CONSU_PACI( 82 ) <----- aquí
Called from: .\MenuCon.PRG => (b)MAIN( 46 )



coloca aquí esa linea específicamente y te puedo ayudar a darte una solución
SkyPe: armando.lagunas@hotmail.com
Mail: armando.lagunas@gmail.com
User avatar
armando.lagunas
 
Posts: 346
Joined: Mon Oct 05, 2009 3:35 pm
Location: Curico-Chile
Top

Re: AYUDA URGENTE CON COMBOBOX

Postby remtec » Fri Nov 16, 2018 4:13 pm

Armando

Hola, muchas gracias por responder, como siempre ayudandome.

Efectivamente la linea 82 del programa corresponde a:

Durante la Tarde, publicare el codigo completo del programa donde se emite el error.

Muchos Saludos

Antonio

Code: Select all  Expand view

ACTIVATE DIALOG oDlg CENTERED
 
FWH 22.10 - HARBOUR - PELLES C
remtec
 
Posts: 717
Joined: Fri May 12, 2017 2:50 pm
Top

Re: AYUDA URGENTE CON COMBOBOX

Postby remtec » Fri Nov 16, 2018 6:26 pm

Armando

Hola como estas??

Dejo el codigo del programa Consu_paci() completo y el error que arroja actualmente, ya que he realizado algunas pruebas y nada.

Detalle:
Cuando Selecciono un Profesional medico va al Carga_paci(cCod_pro1), revisa y SI encuentra pacientes, carga el Array y se muestra correctamente en el Xbrowse oPaci, puedo dar Boton Salir ( REDEFINE BTNBMP ID 105), va a cerrar() y luego cierra el programa Sin Errores.

Cuando Selecciono un Profesional medico va Carga_paci(cCod_pro1), revisa y NO encuentra pacientes, emite mensajes de lo que ha sucedido y deja el Array vacio, pero al dar Boton Salir ( REDEFINE BTNBMP ID 105), va a cerrar() y luego cierra el programa Con El Error descrito.

En Conclucion, el Error se produce cada ves que no carga el Array por algun motivo y se da boton Salir o El boton "REDEFINE BTNBMP ID 103", este boton solo permite realizar una actualizacion de los datos de Xbrowse con la Dbf on line.

Muchas gracias por tu ayuda.

Saludos
Antonio.

Codigo Consu_paci.prg
Code: Select all  Expand view

#include "FiveWin.ch"
#include "xbrowse.ch"

static oWnd

Function Consu_paci()
     Local oFont1,oFont,oSay1,oFont2,oSay
     Local oDlg1,oSay2
     Public Fecha_hoy,total_pac:=0
     Private oCod_pro1,cCod_pro1:="",nCod_pro1
     Public aProfe:= {},aPacientes:={},oPaci
     Sele 1
     Use Profesio Shared
     Dbgotop()
     If Eof()
          MsgStop(" NO Existen Profesionales Medicos ")
            dbclosearea()
            Return
     Endif
     AADD( aProfe,{ "",""})
     Do While !Eof()
            If Est_pro="S".and.Tip_esp="MEDI"
             AADD( aProfe,{ a->Cod_pro,a->Nom_pro})
            Endif
        a->(DbSkip())
     Enddo
     DbClosearea()
     ASORT( aProfe,,, { |x,y| x[2] < y[2] } )

     Fecha_hoy:=date()
     nCod_pro1=0

     Define Font oFont1 Name "Curier New" Size 0,16  BOLD
     Define Font oFont  Name "Courier new" Size 0,22   BOLD
     Define Font oFont2  Name "Courier new" Size 0,20  BOLD


   DEFINE DIALOG oDlg1 RESOURCE "#1004"
     REDEFINE SAY oSay  ID 100 PROMPT "PACIENTES EN ATENCION DIA "+dtoc(Date()) OF oDlg1 FONT oFont  COLORS RGB(12, 135, 27)

     REDEFINE SAY oSay1 ID 101 PROMPT "DOCTOR" OF oDlg1 FONT oFont  COLOR RGB(38, 74, 119)
     REDEFINE SAY oSay2 ID 120 PROMPT "TOTAL PACIENTES: "+str(total_pac,3) OF oDlg1 FONT oFont2  COLOR rgb(39, 0, 64)

     REDEFINE COMBOBOX oCod_pro1 VAR nCod_pro1 ITEMS ArrTranspose( aProfe )[ 2 ] ID 102 OF oDlg1 COLORS nRGB(9, 11, 10), nRGB(73, 250, 202);
                    ON CHANGE (cCod_pro1:=ArrTranspose( aProfe )[ 1 ][oCod_pro1:nAt],Carga_paci(cCod_pro1),oPaci:Refresh(),oSay2:Refresh())

     REDEFINE XBROWSE oPaci ID 104 OF oDlg1 ;
          COLUMNS 1,2,3,4,5,6,7;
            HEADERS "Nro. ","Nombre del Paciente" ,"Folio Caja","T. Pago","Valor ","Digita","Hr. Digi";
            COLSIZES 40, 350, 80, 80,70,80,80 ;
                FONT oFont1;
                ARRAY aPacientes ;
                FOOTERS LINES CELL

                oPaci:bClrStd             := {|| { nRGB(  0,  0,  0), nRGB(255,248,220) } }
                oPaci:bClrSelFocus        := {|| { nRGB(  0,  0,  0), nRGB(137, 247, 33) } }
                oPaci:bClrHeader       := {|| { CLR_BLUE, nRGB( 245, 245, 245 ) } }
                oPaci:bClrSel := {|| { nRGB(000,000,000), nRGB(128,255,128) } }
                oPaci:bClrSelFocus := {|| { nRGB( 0, 0, 0), nRGB(128,255,128) } }
                oPaci:bClrStd := {|| { nRGB(000,000,000), nRGB(255,255,200) } }
                oPaci:nStretchCol := STRETCHCOL_WIDEST

            oCol := oPaci:AddCol()
            oCol:AddResource("#8006")
            oCol:AddResource("#8007")
                oCol:cHeader = "Estado"
                oCol:bBmpData   :=  { || if(aPacientes[oPaci:nArrayAt,8]=="S",1,2)}




     REDEFINE BTNBMP ID 103 Resource "#8005" OF oDlg1 ;             <--------- Boton Para actualiza Array desde la Dbf Actualizada
            ACTION (Carga_paci(cCod_pro1))


     REDEFINE BTNBMP ID 105 Resource "#8004" OF oDlg1 ;            <--------- Boton salir del programa y volver al menu
            ACTION (Cierra(),oDlg1:END())

   ACTIVATE DIALOG oDlg1 CENTERED

Return  Nil


Static Function  Carga_paci(cCod_pro1)
             asize( aPacientes, 0 )

             If Len(cCod_pro1)=0
                MsgStop("No ha Seleccionado Profesional Medico")
                    Return .f.
             Endif

             carchi:='PACI'+trim(cCod_pro1)
             If !file('&carchi..dbf')
                MsgStop("MEDICO SELECCIONADO NO TIENE INGRESOS DE PACIENTES")
                    Return .f.
             Endif
             Sele 2
             Use &carchi Shared
             If !file('&carchi..ntx')
                    Inde on Cod_pro+dtos(ctod(fec_ate))+Str(Cor_pac,4) to &carchi
             Endif
             Set Inde to &carchi
             //seek cCod_pro1+dtos(date())
             DbGotop()
             If eof()
                MsgStop("MEDICO SELECCIONADO NO TIENE PACIENTES EN ESPERA")
                    DbClosearea()
                Return .f.
             Endif


             Stor 0 to total_pac
             Do While !Eof()
                 // If (ctod(fec_ate)=Fecha_hoy)
                         AADD( aPacientes,{ b->Cor_pac,b->Nom_pac,b->Fol_caj,b->Tip_pag,b->Val_bon,b->Cod_dig,b->Hor_dig,b->Con_pac})
                         total_pac=total_pac+1
                 // Endif
                    DbSkip()
             Enddo
             DbClosearea()
             oPaci:SetArray( aPacientes )
         oPaci:GoTop()
         oPaci:Refresh()
             Return  oPaci

Static FUNCTION Cierra()
    Set relation to
    Clos data
  sysrefresh()
return nil

 


Detalle del Error:
Code: Select all  Expand view

Time from start: 0 hours 0 mins 17 secs
   Error occurred at: 16/11/2018, 15:05:06
   Error description: Error BASE/1072  Argument error: <>
   Args:
     [   1] = N   3
     [   2] = C   GUILLERMO EUGENIO ROSEMBLATT AEDO  

Stack Calls
===========
   Called from: .\source\classes\TGET.PRG => TGET:LOSTFOCUS( 1667 )
   Called from: .\source\classes\CONTROL.PRG => TGET:KILLFOCUS( 1081 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1694 )
   Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 795 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3348 )
   Called from:  => SETFOCUS( 0 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONDOWN( 849 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1718 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1873 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3348 )
   Called from:  => DIALOGBOX( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: .\Consulta.PRG => CONSU_PACI( 79 )
   Called from: .\MenuCon.PRG => (b)MAIN( 46 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 684 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 924 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1721 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1873 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3348 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1037 )
   Called from: .\MenuCon.PRG => MAIN( 58 )

System
======
   CPU type: Intel(R) Core(TM) i7-4510U CPU @ 2.00GHz 2594 Mhz
   Hardware memory: 8085 megs

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

   Windows total applications running: 6
      1 ,                                                                                                    
      2 , C:\Util\Boxpaci\MenuCon.exe                                                                        
      3 , C:\WINDOWS\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_5.82.17134.407_none_40fb4d
      4 , C:\WINDOWS\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.17134.407_none_42f1d43
      5 DDE Server Window, C:\WINDOWS\System32\OLE32.DLL                                                                      
      6 G, C:\WINDOWS\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.17134.407_none_73dcc71f9f7234b

Variables in use
================
   Procedure     Type   Value
   ==========================
   TGET:LOSTFOCUS
     Param   1:    O    Class: ERROR
   TGET:KILLFOCUS
     Param   1:    N    656954
     Local   1:    N    3
     Local   2:    C    "GUILLERMO EUGENIO ROSEMBLATT AEDO  "
     Local   3:    U    
     Local   4:    U    
   TCONTROL:HANDLEEVENT
     Param   1:    N    656954
     Local   1:    U    
   TGET:HANDLEEVENT
     Param   1:    N    8
     Param   2:    N    656954
     Param   3:    N    0
     Local   1:    U    
   _FWH
     Param   1:    N    8
     Param   2:    N    656954
     Param   3:    N    0
     Local   1:    U    
   SETFOCUS
     Param   1:    N    0
     Param   2:    N    8
     Param   3:    N    656954
     Param   4:    N    0
     Param   5:    N    10
     Local   1:    O    Class: TGET
   TBTNBMP:LBUTTONDOWN
     Param   1:    N    656954
   TCONTROL:HANDLEEVENT
     Param   1:    N    14
     Param   2:    N    69
     Param   3:    N    1
     Param   4:    L    .F.
   TBTNBMP:HANDLEEVENT
     Param   1:    N    513
     Param   2:    N    1
     Param   3:    N    917573
     Local   1:    U    
   _FWH
     Param   1:    N    513
     Param   2:    N    1
     Param   3:    N    917573
   DIALOGBOX
     Param   1:    N    917573
     Param   2:    N    513
     Param   3:    N    1
     Param   4:    N    917573
     Param   5:    N    29
     Local   1:    O    Class: TBTNBMP
   TDIALOG:ACTIVATE
     Param   1:    N    4194304
     Param   2:    C    "#1004"
     Param   3:    N    395044
     Param   4:    O    Class: TDIALOG
   CONSU_PACI
     Param   1:    U    
     Param   2:    U    
     Param   3:    U    
     Param   4:    L    .T.
     Param   5:    U    
     Param   6:    L    .T.
     Param   7:    U    
     Param   8:    U    
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Local   1:    N    395044
     Local   2:    S    
     Local   3:    O    Class: TDIALOG
   (b)MAIN
     Local   1:    O    Class: TFONT
     Local   2:    O    Class: TFONT
     Local   3:    O    Class: TSAY
     Local   4:    O    Class: TFONT
     Local   5:    O    Class: TSAY
     Local   6:    O    Class: TDIALOG
     Local   7:    O    Class: TSAY
   TBTNBMP:CLICK
     Param   1:    O    Class: TBTNBMP
   TBTNBMP:LBUTTONUP
   TCONTROL:HANDLEEVENT
     Param   1:    N    23
     Param   2:    N    15
     Param   3:    N    0
     Local   1:    L    .T.
     Local   2:    N    0
     Local   3:    S    
   TBTNBMP:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    1507343
     Local   1:    U    
   _FWH
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    1507343
   WINRUN
     Param   1:    N    1507343
     Param   2:    N    514
     Param   3:    N    0
     Param   4:    N    1507343
     Param   5:    N    3
     Local   1:    O    Class: TBTNBMP
   TWINDOW:ACTIVATE
     Param   1:    N    395044
   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:    B    {|| ... }
     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
   DBFBLOB
   DBFNTX

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

Classes in use:
===============
     1 ERROR
     2 HBCLASS
     3 HBOBJECT
     4 TCURSOR
     5 TFONT
     6 TWINDOW
     7 TDIALOG
     8 TBRUSH
     9 TCONTROL
    10 TBITMAP
    11 TSAY
    12 TGET
    13 GET
    14 TCLIPGET
    15 TBUTTON
    16 TRECT
    17 TREG32
    18 TBAR
    19 TBTNBMP
    20 TMSGBAR
    21 TCOMBOBOX
    22 TXBROWSE
    23 TXBRWCOLUMN
    24 TSCROLLBAR
    25 TCLIPBOARD
    26 TSTRUCT

Memory Analysis
===============
      384 Static variables

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

 
FWH 22.10 - HARBOUR - PELLES C
remtec
 
Posts: 717
Joined: Fri May 12, 2017 2:50 pm
Top

Re: AYUDA URGENTE CON COMBOBOX

Postby Carlos Mora » Fri Nov 16, 2018 6:28 pm

Hola Antonio Remtec,

Donde dice :

Code: Select all  Expand view

     REDEFINE BTNBMP ID 105 Resource "#8004" OF oDlg ;               <---- Al dar Boton Salir
            ACTION (Cierra(),oDlg:END())
 


por favor prueba:

Code: Select all  Expand view

     REDEFINE BTNBMP ID 105 Resource "#8004" OF oDlg ;               <---- Al dar Boton Salir
            ACTION (oDlg:END(), Cierra())
 

Y si funciona... te invitas una cervecita, jaja

Un saludo
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
Carlos Mora
 
Posts: 988
Joined: Thu Nov 24, 2005 3:01 pm
Location: Madrid, España
Top

Re: AYUDA URGENTE CON COMBOBOX

Postby karinha » Fri Nov 16, 2018 6:47 pm

Post el archivo donde están los recursos, archivo.rc, porfa.

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7214
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Top

Re: AYUDA URGENTE CON COMBOBOX

Postby remtec » Fri Nov 16, 2018 7:00 pm

Hola Karinha.

Uso archivo de recursos RES, pero lo grabe el RC y aqui lo posteo.
Saludos

Antonio

Code: Select all  Expand view

// RESOURCE SCRIPT generated by "Pelles C for Windows, version 9.00".

#include <windows.h>
#include <commctrl.h>
#include <richedit.h>

LANGUAGE LANG_SPANISH,SUBLANG_SPANISH_CHILE

1002 DIALOG DISCARDABLE -15, 25, 159, 58
STYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
FONT 14, "Courier New"
{
  CONTROL "Ingrese Fecha :", 101, "Static", WS_BORDER|WS_GROUP, 12, 16, 60, 10
  CONTROL "", 151, "Edit", WS_BORDER|WS_TABSTOP, 88, 16, 38, 12
  CONTROL "", 200, "Button", BS_BITMAP|WS_GROUP|WS_TABSTOP, 12, 40, 56, 14
  CONTROL "", 4001, "Button", BS_BITMAP|WS_GROUP|WS_TABSTOP, 92, 40, 50, 14, WS_EX_TRANSPARENT
}

1004 DIALOGEX DISCARDABLE 6, 18, 358, 258
STYLE WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|DS_CENTER|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
FONT 12, "Courier New", 0, 1, 1
{
  CONTROL "", 104, "ListBox", LBS_SORT|LBS_NOTIFY|WS_VSCROLL|WS_BORDER|WS_TABSTOP, 4, 36, 352, 204
  CONTROL "", 101, "Static", SS_CENTER|WS_BORDER|WS_GROUP, 24, 12, 40, 12
  CONTROL "", 105, "Button", WS_TABSTOP, 212, 240, 50, 16 { 0xC0DE, 0x0001, 0x0008 }
  CONTROL "", 100, "Static", SS_CENTER|WS_GROUP, 28, 0, 192, 12
  CONTROL "", 102, "ComboBox", WS_BORDER|CBS_DROPDOWN|CBS_SORT|WS_VSCROLL|WS_TABSTOP, 72, 12, 160, 60
  CONTROL "", 103, "Button", WS_TABSTOP, 264, 12, 36, 16 { 0xC0DE, 0x0001, 0x0008 }
  CONTROL "", 120, "Static", SS_CENTER|WS_BORDER|WS_GROUP, 4, 240, 84, 12, WS_EX_TRANSPARENT
}

8004 BITMAP "res1.bmp"

1007 DIALOG DISCARDABLE 60, 72, 256, 116
STYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "User Identification"
FONT 10, "Arial Black"
{
  CONTROL 8022, 601, "Static", SS_BITMAP, 40, 32, 30, 26
  CONTROL "", 110, "Edit", WS_BORDER|WS_TABSTOP, 128, 40, 45, 12
  CONTROL "&CLAVE", -1, "Static", WS_GROUP, 88, 68, 33, 14
  CONTROL "", 120, "Edit", ES_PASSWORD|WS_BORDER|WS_TABSTOP, 128, 68, 45, 12
  CONTROL "&INGRESAR", 604, "Button", BS_DEFPUSHBUTTON|WS_TABSTOP, 108, 92, 37, 15
  CONTROL "&SALIR", 605, "Button", WS_TABSTOP, 164, 92, 37, 15
  CONTROL "&USUARIO", -1, "Static", WS_GROUP, 88, 40, 33, 14
  CONTROL 8023, 600, "Static", SS_BITMAP, 40, 68, 30, 26
  CONTROL "", 603, "Static", SS_CENTER|WS_GROUP, 8, 4, 244, 20
}

LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US

8022 BITMAP "res2.bmp"

LANGUAGE LANG_SPANISH,SUBLANG_SPANISH_CHILE

8023 BITMAP "res3.bmp"

LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US

8001 BITMAP "res4.bmp"

LANGUAGE LANG_SPANISH,SUBLANG_SPANISH_CHILE

8005 BITMAP "res5.bmp"
8006 BITMAP "res6.bmp"
8007 BITMAP "res7.bmp"
8010 BITMAP "res8.bmp"
8009 BITMAP "res9.bmp"



 
FWH 22.10 - HARBOUR - PELLES C
remtec
 
Posts: 717
Joined: Fri May 12, 2017 2:50 pm
Top

Re: AYUDA URGENTE CON COMBOBOX

Postby remtec » Fri Nov 16, 2018 7:04 pm

Hola Carlos Mora.

Muchas gracias a todos los que me han escrito.

Saludos

Antonio

Realice la modificacion y arroja el mismo error.
Code: Select all  Expand view

REDEFINE BTNBMP ID 105 Resource "#8004" OF oDlg1 ;
            ACTION (oDlg1:END(),cierra())
 
Last edited by remtec on Fri Nov 16, 2018 7:06 pm, edited 1 time in total.
FWH 22.10 - HARBOUR - PELLES C
remtec
 
Posts: 717
Joined: Fri May 12, 2017 2:50 pm
Top
Next
Post a reply

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 87 guests

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group