Me esta generando un Error de ejecucion, no encuentro la causa, aun cuando en otros programas lo uso de la misma forma.
Estoy tratando de actualizar variable oAge2, para mostrar dato contenido en la variable al regreso desde donde la envie.
Muchos Saludos.
Antonio
Codigo:
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
