Estoy tratando de usar RICHEDI5 y me arroja este error "No existe el m‚todo: LOADRTF", esto es al tratar de asignar el texto.
Aun cuando lo estoy usando en otros programas sin ningun problema, en este caso teniendo definicion de la misma forma incluyendo la cabecera RICHEDI5.CH, se cae programa, emitiendo el error que describo.
Que atento a los comentarios.
Saludos
Antonio
Codigo.
- Code: Select all Expand view
#include "FiveWin.ch"
#include "dtpicker.ch"
#include "xbrowse.ch"
#include "richedi5.ch"
#DEFINE TOPSCOPE 0
#DEFINE BOTTOMSCOPE 1
#define LINE_LEFT 1
REQUEST HB_LANG_ESWIN
REQUEST HB_CODEPAGE_ESWIN // Para establecer código de página a Español (Ordenación, etc..)
Static cSeek:="",oSeek,Mensa,Existe,Rut_Pac2
Static oGet1,oGet2,oGet3,oGet4 , oGet5,oGet6,oGet7,oGet8,oGet9,oGet10,oGet11,oGet12,oGet13,oGet14,oGet15,oGet16,oGet17
Static oGetf1,oGetf2,oGetf3,oGetf4 , oGetf5,oGetf6,oGetf7,oGetf8,oGetf9,oGetf10,oGet11f,oGetf12,oGetf13,oGetf14,oGetf15,oGetf16,oGetf17,oGetf18,oGetf19,oGetf20
Static oSayRece,oGetRece,Receta1
Static oSay1,oSay2,oSay3,oSay4,oSay5 ,oSay6
/// VIGENTE
Static Ant_Mor11,Ant_Mor21,Ant_Qui11,Ant_Qui21,Hos_Ant11,Hos_Ant21,Alergia11
Static Alergia21,Med_Dia11,Med_Dia21,Tra_Est11,Tra_Est21,Pat_Der11,Pat_Der21
Static Enf_Neu11,Enf_Neu21,Dis_Coa11,Dis_Coa21,Enf_Aut11,Enf_Aut21,His_Erp11
Static His_Erp21,Exp_Sol11,Exp_Sol21,Usa_Tab11,Usa_Tab21,Alcohol11,Alcohol21
Static Droga11,Droga21,Alime11,Alime21,Uso_Blo11,Uso_Blo21,Con_Agu11,Con_Agu21
Static Act_Fis11,Act_Fis21,Emb_Lac11,Emb_Lac21,Fur11,Fur21,Met_Ant11,Met_Ant21
Static Emb_Hij11,Emb_Hij21,Cic_Hip11,Cic_Hip21,Cui_Pie11,Cui_Pie21,Fc_Pac1,Pas_Pac1,Pad_Pac1
Static Spo2_Pac1,Peso_Pac1,Alt_Pac1,Imc_Pac1,Cc_Pac1,Rec_Apl1,Obs_Eva1
Static Nom_Pacien4,Rut_Pac4,Eda_Pac4,Fec_Nac4,oSayT1,oSayT2,oSayT3,oSayT4,oSayT5,oSayT6 ,oSayT7
Static Nom_Pacien5,Rut_Pac5,Eda_Pac5,Fec_Nac5,oSayP1,oSayP2,oSayP3,oSayP4,oSayP5,oSayP6
Static Nom_Pacien6,Rut_Pac6,Eda_Pac6,Fec_Nac6,oSayA1,oSayA2,oSayA3,oSayA4,oSayA5,oSayA6
Static Fec_Eva1,oFecha_Ing1
Static oFld
Static xBr // Control xBrowse Adminis y Zona, saber si selecciono administracion para Agregar Nueva Zonas
Static aMarAdm := {}, aProdApAdm:={} , aProdPaso:={} , aAdmProdLote:={} // Lo Usare en el ingreso de Ventana de Tipos de Administracion
** Marcas
Static Mar_Pro2,Tip_Pro2,oLot_Pro2,Lot_Pro2
Static oZon_Apl2,Nom_ZonAp2, oZon_Apl22,Nom_AZon2,Zon_Apl2, Cod_Proc2
Static oSona,Cod_Proc3:=" ", cZona:=" ",nP1,nP2
Static oRich_Adm1, Obs_Adm1:="", oRich_Eva1 // Esta variable Objeto la uso para actualizar Texto Observacion de Administracion de la variable Obs_Gra1
Static Graba_Admi:= .F.,Graba_Zona:=.F., Graba_Adm_Gral:=.F. // Estavariable la uso para saber si se actualizo algun datos den la Pagina de Administracion y me indica si debo grabas gatos en los archivos maestros
// Entra con .F. y cuando se grabe en Xbrowse DAdm o DZon, asigno .T., despues al grabar, vuelvo a asignar .F.
// Para Graba_Adm_Gral, la uso para saber si se actualizo Fecha de Control, Fecha de Ingreso u Observacion
//Actu_Exa_Nue(Rut_P,Ingre_Fic,Ingre_Eva,Ingre_Adm) // Viene de Actu_Ing.Prg si (Ingre_Fic,Ingre_Eva,Ingre_Adm) son todas Falsas, significa paciente sin ficha ni atenciones
Function Actu_Exa_Nue(Rut_Enviado,Ingre_Fic,Ingre_Eva,Ingre_Adm)
Local oDlg, oFld //, nOption := Array(5)
Local oFecha_Ing1,oSay7,oSay8,oSay9,oNom_Prof
Local oFont1,oFont2,oFont3,oFont4,oFont5,oFont6,oFont7,oFont8,oFont9,oFon10,oTitu,oTitu2,oTitu3,oTitu4,oTitu5
Local cGet:= Array(30) , oGet:= Array(40)
Local cGet2:= Array(30) , oGet2:= Array(40) , oGetF:= Array(40)
Local oGroup,oGroup1, oGroup2, oGroup3 , oGroup4 , oGroup5 , oGroup6
Local Obs_Gra2:="" // Uso variable para comparar si actualizo texto memo
Public nCiud:=0,nSexo:=0,nComu:=0,nPais:=0, Cod_Nac1:=0,nCivi:=0,nProf1:=0,nZonA,oZon_Apl2,nZonApl
Public aComunas := {}, aCiudades := {}, aSexo := {}, aNaciona := {} , aEstaCivil:= {} , aEvaMed:= {}, aProfesio := {}, aProcedi := {}, aZonas := {}, aMarcas := {}, aProdAp:={}
Public aAdmZonas:={},aAdmProc:={} , aProdApAdm:={},oRich
.....
.....
.....
Obs_Adm1:=""
Obs_Eva1:=""
cText:=""
oRich:LoadRtf( cTxt ) <------ Aqui se produce el Error
oRich_Adm1:LoadRtf( Obs_Adm1 )
oRich_Eva1:LoadRtf( Obs_Eva1 )
Error:
- Code: Select all Expand view
pplication
===========
Path and name: C:\Desa\Clarp Estetica\Clarp.exe (32 bits)
Size: 7,358,464 bytes
Compiler version: Harbour 3.2.0dev (r2008190002)
FiveWin version: FWH 22.03
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 11 secs
Error occurred at: 13/09/2022, 09:35:59
Error description: Error BASE/1004 No existe el m‚todo: LOADRTF
Args:
[ 1] = L .F.
[ 2] = C
Stack Calls
===========
Called from: => LOADRTF( 0 )
Called from: .\Actu_Exa_Nuevo.PRG => ACTU_EXA_NUE( 119 )
Called from: .\Actu_Ingre.PRG => CONSULTA_ATEN( 146 )
Called from: .\Actu_Ingre.PRG => (b)ACTUA_INGRESO( 59 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 713 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2040 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3560 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\Actu_Ingre.PRG => ACTUA_INGRESO( 66 )
Called from: .\Clarp.PRG => (b)MAIN( 98 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 713 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 999 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1845 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2051 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3560 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1097 )
Called from: .\Clarp.PRG => MAIN( 251 )
System
======
CPU type: Pentium(R) Dual-Core CPU E6600 @ 3.06GHz 3058 Mhz
Hardware memory: 2010 megs
Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %
Windows total applications running: 10
1 ,
2 , C:\Desa\Clarp Estetica\Clarp.exe
3 , C:\WINDOWS\WinSxS\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.2600.6028_x-ww_61e65202
4 , C:\WINDOWS\system32\COMCTL32.DLL
5 , C:\WINDOWS\system32\SHLWAPI.dll
6 DDE Server Window, C:\WINDOWS\system32\OLE32.DLL
7 GDI+ Window, C:\WINDOWS\WinSxS\x86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.6002.23084_x-ww_f3f35550\GDIPLU
8 M, C:\WINDOWS\system32\msctfime.ime
9 MCI command handling window, C:\WINDOWS\system32\WINMM.DLL
10 SysFader, C:\WINDOWS\system32\SHELL32.dll
Variables in use
================
Procedure Type Value
==========================
LOADRTF
Param 1: O Class: ERROR
ACTU_EXA_NUE
Param 1: C ""
Local 1: U
Local 2: U
CONSULTA_ATEN
Param 1: C "79.815.570-9"
Param 2: L .T.
Param 3: L .F.
Param 4: L .F.
Local 1: U
Local 2: U
Local 3: U
Local 4: U
Local 5: U
Local 6: U
Local 7: U
Local 8: U
Local 9: U
Local 10: U
Local 11: U
Local 12: U
Local 13: U
Local 14: U
Local 15: U
Local 16: U
Local 17: U
Local 18: A Len: 30
Local 19: A Len: 40
Local 20: A Len: 30
Local 21: A Len: 40
Local 22: A Len: 40
Local 23: U
Local 24: U
Local 25: U
Local 26: U
Local 27: C ""
Local 28: L .F.
