FiveTech Software tech support forums

Code: Select all

** Desde Aqui lo Mando
        WITH OBJECT oBrw3
            :bLDblClick:={||(Sele_Dia(oBrw3: SelectedCol (): Value,cPro1,cEsp1,otitu1,@cAgendar),oDlg3,oBrw4,oAge1,oAge2),iif(cAgendar=="S",oBtnxx:Show(),oBtnxx:Hide()),oDlg3:Refresh(),oBrw4:Refresh(),oGroup2:Refresh(),oAge2:Refresh()}
        END


****  Funccion donde se produce el Error
Function Sele_Dia(FechaHoy,cPro1,cEsp1,otitu1,cAgemdar,oDlg3,oBrw4,oAge2)
        If Dtoc(FechaHoy)=="  /  /    "
         MsgStop( "Error DIa sin Valor ")
             return  .f.
        Endif
        If (Dtos(FechaHoy) < Dtos(Date()))
          MsgStop( "Error, No puede Seleccionar Fecha Menor a Hoy")
                return .f.
        Endif
      Dia3:= aDias[ DoW( FechaHoy ) ]
        nDia3:= aScan(aDiasLD, Dia3)

        Sele HoraB
        DbSetOrder(1)
        Seek cPro1
        Stor "" To Hrs,Hrs1
        Stor 0 To Can_Hor1
        Do while (Cod_pro=cPro1).and.!eof()
                If Cod_dia # nDia3
                     DbSkip()
                     Loop
                Endif
                Hrs:= Hrs + Hor_ini + " - "+Hor_Fin+ "   "
                DbSkip()
        Enddo
        Hrs = Trim(Hrs)


      cVar:=cPro1 + cEsp1 + Dtos(FechaHoy)
      Sele Agen
        Agen->(ORDSCOPE(0, NIL )) // reset
        Agen->(ORDSCOPE(1, NIL )) // reset

      Agen->(OrdScope(TOPSCOPE, cVar))
      Agen->(OrdScope(BOTTOMSCOPE, cVar))
      Agen->(DbGotop())


        Pri_Hr1:= ""
        Stor 0 To Can_Hor1

        If Eof()
             cAgendar:="S"
             Pri_Hr1:= Subs(Hrs,1,5)
        Else
             cAgendar:="N"
             Stor 0 To Can_Hor1
             Stor "Sin Horas" To Pri_Hr1
             Do While (Cod_Pro = cPro1  .and. Cod_Esp = cEsp1 .and. Fec_Ate = Dtoc(FechaHoy)).and. !Eof()
                    If Nom_Pac == Spac(30) .and. Pri_Hr1 == "Sin Horas"
                         Pri_Hr1:= Hor_Ate
                    Endif
                    If Nom_Pac == Spac(30)
                         Can_Hor1:= Can_Hor1 + 1

                    Endif

                    DbSkip()
             Enddo
             Agen->(DbGotop())
        Endif
        otitu1:SetText("AGENDAR DIA "+dtoc(FechaHoy)+ "    --> HRS : "+Hrs)
        otitu1:UpDate()
        oAge2:SetText(Can_Hor1)                    // <----- AQUI SE PRODUCE EL ERROR
        oAge2:UpDate()

        Return

 

Code: Select all

Application
===========
   Path and name: G:\Desa\Rem Sur\Recepcion\MenuRece.exe (32 bits)
   Size: 4,502,016 bytes
   Compiler version: Harbour 3.2.0dev (r1506171039)
   FiveWin  version: FWH 17.09
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 5.1, Build 2600 Service Pack 3

   Time from start: 0 hours 0 mins 10 secs 
   Error occurred at: 06/12/2019, 12:59:23
   Error description: Error BASE/1004  No existe el m‚todo: SETTEXT
   Args:
     [   1] = U   
     [   2] = N   0

Stack Calls
===========
   Called from:  => SETTEXT( 0 )
   Called from: .\ConsHora.PRG => SELE_DIA( 573 )
   Called from: .\ConsHora.PRG => (b)CONSULTA_AGENDA( 357 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:LDBLCLICK( 1997 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:LDBLCLICK( 1744 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:LDBLCLICK( 4709 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1731 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 10242 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3348 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: .\ConsHora.PRG => CONSULTA_AGENDA( 415 )
   Called from: .\ConsHora.PRG => (b)CONSULTA_HORARIO( 166 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:LDBLCLICK( 1997 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:LDBLCLICK( 1744 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:LDBLCLICK( 4709 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1731 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 10242 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3348 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: .\ConsHora.PRG => CONSULTA_HORARIO( 171 )
   Called from: .\MenuRece.PRG => (b)MAIN( 86 )
   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: .\MenuRece.PRG => MAIN( 189 )

System
======
   CPU type: Intel(R) Core(TM)2 Duo CPU     E7400  @ 2.80GHz 2792 Mhz
   Hardware memory: 1980 megs

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

   Windows total applications running: 9
      1 ,                                                                                                     
      2 , C:\WINDOWS\WinSxS\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.2600.6028_x-ww_61e65202
      3 , C:\WINDOWS\system32\COMCTL32.DLL                                                                    
      4 , C:\WINDOWS\system32\SHLWAPI.dll                                                                     
      5 , G:\Desa\Rem Sur\Recepcion\MenuRece.exe                                                              
      6 DDE Server Window, C:\WINDOWS\system32\OLE32.DLL                                                                       
      7 GDI+ Window, C:\WINDOWS\WinSxS\x86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.6002.23846_x-ww_f7dfd05e\GDIPLU
      8 M, C:\WINDOWS\system32\msctfime.ime                                                                    
      9 SysFader, C:\WINDOWS\system32\SHELL32.dll                                                                     

Variables in use
================
   Procedure     Type   Value
   ==========================
   SETTEXT
     Param   1:    O    Class: ERROR
   SELE_DIA
     Param   1:    N    0
     Local   1:    U    
     Local   2:    U    
   (b)CONSULTA_AGENDA
     Param   1:    D    10/12/2019
     Param   2:    C    "BUST"
     Param   3:    C    "MEDI"
     Param   4:    O    Class: TSAY
     Param   5:    C    "S"
     Local   1:    U    
     Local   2:    U    
     Local   3:    U    
     Local   4:    U    
   TWINDOW:LDBLCLICK
     Param   1:    N    86
     Param   2:    N    42
     Param   3:    N    1
     Param   4:    O    Class: TXBROWSE
   TCONTROL:LDBLCLICK
     Param   1:    N    86
     Param   2:    N    42
     Param   3:    N    1
   TXBROWSE:LDBLCLICK
     Param   1:    N    86
     Param   2:    N    42
     Param   3:    N    1
   TWINDOW:HANDLEEVENT
     Param   1:    N    86
     Param   2:    N    42
     Param   3:    N    1
     Local   1:    O    Class: TXBRWCOLUMN
     Local   2:    N    2
     Local   3:    N    3
   TCONTROL:HANDLEEVENT
     Param   1:    N    515
     Param   2:    N    1
     Param   3:    N    5636138
   TXBROWSE:HANDLEEVENT
     Param   1:    N    515
     Param   2:    N    1
     Param   3:    N    5636138
     Local   1:    U    
   _FWH
     Param   1:    N    515
     Param   2:    N    1
     Param   3:    N    5636138
   DIALOGBOXINDIRECT
     Param   1:    N    5636138
     Param   2:    N    515
     Param   3:    N    1
     Param   4:    N    5636138
     Param   5:    N    50
     Local   1:    O    Class: TXBROWSE
   TDIALOG:ACTIVATE
     Param   1:    N    4194304
     Param   2:    C    "  @     îÿ³ÿÃ,         P    Œ  ^
  S T A T I C   A G E N D A R   D I A       /     /               P    ‡ 
 
 ‘ B U T T O N          P    ‘  B ’ S T A T I C   D r .   S O C .   P R O F .   M E D I C A   P A R A C E L S O   L T D A .          P      ‡  “ S T A T I C   D I C I E M B R E     2 0 1 9         P    
  n V ” T X B R O W S E         P    
  
 
 • T B T N B M P           P    m  
 
 – T B T N B M P           ¡P    ‡  ÿ<— T X B R O W S E   A g e n d a D r       P    
 – t L ˜ B U T T O N   I n f o r m a c i ó n   d e   A g e n d a          P     ª š  ™ S T A T I C   1 °   H o r a   D i s p o n i b l e :              P     ¾ ¨  š S T A T I C   T o t a l   H o r a s   D i s p o . :         0       P    È   › T B T N B M P   C R E A       "
     Param   3:    N    4522522
     Param   4:    O    Class: TDIALOG
   CONSULTA_AGENDA
     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    4522522
     Local   2:    S    
     Local   3:    O    Class: TDIALOG
   (b)CONSULTA_HORARIO
     Param   1:    A    Len:    7
     Param   2:    N    2
     Param   3:    C    "08:00"
     Local   1:    C    "c:"
     Local   2:    D      /  /    
     Local   3:    D    06/12/2019
     Local   4:    D    01/01/2020
     Local   5:    O    Class: TGROUP
     Local   6:    O    Class: TSAY
     Local   7:    O    Class: TSAY
     Local   8:    O    Class: TSAY
     Local   9:    A    Len:    1
     Local  10:    O    Class: TDIALOG
     Local  11:    O    Class: TXBROWSE
     Local  12:    O    Class: TFONT
     Local  13:    O    Class: TFONT
     Local  14:    O    Class: TFONT
     Local  15:    O    Class: TXBROWSE
     Local  16:    O    Class: TBTNBMP
     Local  17:    O    Class: TBTNBMP
     Local  18:    O    Class: TFONT
     Local  19:    O    Class: TBTNBMP
     Local  20:    O    Class: TGROUP
     Local  21:    O    Class: TSAY
     Local  22:    O    Class: TSAY
     Local  23:    C    ""
     Local  24:    N    0
   TWINDOW:LDBLCLICK
     Param   1:    N    71
     Param   2:    N    491
     Param   3:    N    1
     Param   4:    O    Class: TXBROWSE
   TCONTROL:LDBLCLICK
     Param   1:    N    71
     Param   2:    N    491
     Param   3:    N    1
   TXBROWSE:LDBLCLICK
     Param   1:    N    71
     Param   2:    N    491
     Param   3:    N    1
   TWINDOW:HANDLEEVENT
     Param   1:    N    71
     Param   2:    N    491
     Param   3:    N    1
     Local   1:    O    Class: TXBRWCOLUMN
     Local   2:    N    7
     Local   3:    N    2
   TCONTROL:HANDLEEVENT
     Param   1:    N    515
     Param   2:    N    1
     Param   3:    N    4653547
   TXBROWSE:HANDLEEVENT
     Param   1:    N    515
     Param   2:    N    1
     Param   3:    N    4653547
     Local   1:    U    
   _FWH
     Param   1:    N    515
     Param   2:    N    1
     Param   3:    N    4653547
   DIALOGBOXINDIRECT
     Param   1:    N    4653547
     Param   2:    N    515
     Param   3:    N    1
     Param   4:    N    4653547
     Param   5:    N    15
     Local   1:    O    Class: TXBROWSE
   TDIALOG:ACTIVATE
     Param   1:    N    4194304
     Param   2:    C    "  @       Ùâ          P    Œ   È p S T A T I C     H O R A R I O   D E   A T E N C I O N   P O R   P R O F E S I O N A L           ±P    
  ©°q T X B R O W S E       "
     Param   3:    N    11207096
     Param   4:    O    Class: TDIALOG
   CONSULTA_HORARIO
     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    11207096
     Local   2:    S    
     Local   3:    O    Class: TDIALOG
   (b)MAIN
     Local   1:    O    Class: TDIALOG
     Local   2:    O    Class: TXBROWSE
     Local   3:    A    Len:    7
     Local   4:    A    Len:   16
     Local   5:    C    "RUBI"
     Local   6:    C    "1"
     Local   7:    O    Class: TFONT
     Local   8:    O    Class: TFONT
     Local   9:    O    Class: TFONT
     Local  10:    N    11
   TBTNBMP:CLICK
     Param   1:    O    Class: TBTNBMP
   TBTNBMP:LBUTTONUP
   TCONTROL:HANDLEEVENT
     Param   1:    N    17
     Param   2:    N    19
     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    1114131
     Local   1:    U    
   _FWH
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    1114131
   WINRUN
     Param   1:    N    1114131
     Param   2:    N    514
     Param   3:    N    0
     Param   4:    N    1114131
     Param   5:    N    3
     Local   1:    O    Class: TBTNBMP
   TWINDOW:ACTIVATE
     Param   1:    N    11207096
   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:    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:    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
   DBFCDX
   DBFNTX

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

  1:    PROFE                              RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          1          352      .F.   .F.

     Indexes in use                        TagName
           Cod_Pro                            MED1
        => Nom_Pro                            MED2

     Relations in use

  2:    HORAB                              RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          5           21      .F.   .F.

     Indexes in use                        TagName
        => field->Cod_Pro + Str(Field->Turno,1HR1
           field->Cod_Pro +  str(Field->Cod_DiHR2

     Relations in use

  3: => AGEN                               RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
         96           95      .T.   .T.

     Indexes in use                        TagName
        => field->Cod_Pro + field->Cod_Esp+DtoAG1

     Relations 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 TMENUITEM
    21 TMSGBAR
    22 TMSGITEM
    23 TTIMER
    24 TXBROWSE
    25 TXBRWCOLUMN
    26 TSCROLLBAR
    27 TCLIPBOARD
    28 TGROUP
    29 TSTRUCT

Memory Analysis
===============
      402 Static variables

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

 

Code: Select all

            :bLDblClick:={||(Sele_Dia(oBrw3: SelectedCol (): Value,cPro1,cEsp1,otitu1,@cAgendar,oDlg3,oBrw4,oAge1,oAge2)), ;
iif(cAgendar=="S",oBtnxx:Show(),oBtnxx:Hide()),oDlg3:Refresh(),oBrw4:Refresh(),oGroup2:Refresh(),oAge2:Refresh()}
 

Code: Select all

Function Sele_Dia(FechaHoy,cPro1,cEsp1,otitu1,cAgemdar,oDlg3,oBrw4,oAge1,oAge2)