FiveTech Support Forums

#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 )

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.

// Definicion

Static oRich_Adm1, Obs_Adm1:="",  oRich_Eva1, Obs_Eva1          

// Contenedor

    DEFINE DIALOG oDlg SIZE 1230,640 PIXEL TRUEPIXEL FONT oFont6 STYLE nOr( WS_POPUP, WS_VISIBLE, WS_DLGFRAME )
            oDlg:lTransparent := .F.

   @ 05, 05 FOLDEREX oFld SIZE 1220,568 OF oDlg PIXEL ROUND 5 ;
     PROMPT  "&FIC. MEDICA", "Evaluación &1er Parte", "Evaluación &2da Parte" , "&Administración";
        TAB HEIGHT 40   FONT oFont8

          oFld:aDialogs[1]:lTransparent   := .F.
            oFld:aDialogs[2]:lTransparent   := .F.
            oFld:aDialogs[3]:lTransparent   := .F.
            oFld:aDialogs[4]:lTransparent   := .F.

** NOTA: Uso campo memo en Pagina Eva 1er Parte y Administración.

     @  185,320 RICHEDIT5 oRich_Eva1 VAR Obs_Eva1 OF oFld:aDialogs[2] PIXEL SIZE 270, 70  FONT oFont2      // Texto RTF
....
....
    @  189,420 RICHEDIT5 oRich_Adm1 VAR Obs_Adm1  OF oFld:aDialogs[4] PIXEL SIZE 185, 70  FONT oFont2   // Texto RTF

.....
.....

     @ 585,330 BTNBMP  SIZE 55,50 PROMPT "GRABA" OF oDlg 2007 Resource "#8029" FONT oFont6 oGroup FLAT;
                    ToolTip "GRABA DATOS";
                        ACTION (((Obs_Adm1:=oRich_Adm1:SaveAsRTF(),Obs_Eva1:=oRich_Eva1:SaveAsRTF())), IF(!Graba_Agrega_Todo(),(MsgStop(Mensa),.F.),.t.) )



** NOTA; Aun que ud me dijo que no era necesario poner esto en ON INIT, ayer lo agregue a ver si era lo que causaba el error.

    ACTIVATE DIALOG oDlg CENTERED ON INIT ( oRich_Adm1:LoadRtf( Obs_Eva1 ), oRich_Eva1:PostMsg( WM_KEYDOWN, VK_HOME, 0 ) ) ;
      VALID ( (Obs_Eva1 := oRich_Eva1:SaveAsRTF(),Obs_Adm1 := oRich_Adm1:SaveAsRTF()), .T. )

     oFolder:aDialogs[ 1 ]:bInit := { || Function_donde_creas_los_controles() }
     oFolder:aDialogs[ 2 ]:bInit := { || .....
     .../...