FiveTech Software tech support forums

by **remtec** » Fri Dec 06, 2019 4:13 pm

Hola Amigos

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 Expand view: ** 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

Codigo del Error:

Code: Select all Expand view: 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

by **cnavarro** » Fri Dec 06, 2019 5:46 pm

remtec wrote:Codigo:
Code: Select all Expand view
** 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

Antonio, veo dos temas:
1.- La llamada a la function los parámetros están fuera de los paréntesis, prueba asi

Code: Select all Expand view: :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()}

2.- Entonces el orden de los parámetros en la function Sele_Dia no es correcto, prueba asi

Code: Select all Expand view: Function Sele_Dia(FechaHoy,cPro1,cEsp1,otitu1,cAgemdar,oDlg3,oBrw4,oAge1,oAge2)

by **remtec** » Fri Dec 06, 2019 8:57 pm

Hola Cristobal

Muchas gracias por toda tu ayuda y estar atento a los que necesitamos.

Funciono Perfecto, incluso agregue otras variables, todo OK.

Muchos Saludos.

Antonio

FiveTech Software tech support forums

Ayuda con Error " SetText()"

Ayuda con Error " SetText()"

Re: Ayuda con Error " SetText()"

Re: Ayuda con Error " SetText()"

Who is online