FiveTech Support Forums

FUNCTION PRUEBA(RALS)
 LOCAL SeleAct:=SELECT(),oWndA,oDlgA,TituVent,oBtnXDef,YaExiste:="N",BAceptar:=.F.,X
 PUBLIC oTDBF,aTDBF
 RELEASE M->oTDBF,M->aTDBF //Anula la variables privadas

 //Abre los archivos requeridos
 ArTarA[CH_ES_CONCEPTO]:=AbreArchivo('Concepto') //Abre archivo de Conceptos
 ArTarA[CH_ES_GANADO]  :=AbreArchivo("Ganado")   //Archivo para la tarjeta
 DBSELECTAREA(ArTarA[CH_ES_GANADO])
 DATABASE M->oTDBF //Para usar oTDBF:LOAD() y oTDBF:SAVE()
 M->oTDBF:LOAD()
 //Define la ventana que contendra el dialogo
 DEFINE WINDOW oWndA MDICHILD OF oWnd ;
   FROM 0,0 TO 24,79 COLOR CLR_BLACK,CLR_WHITE ;
   VSCROLL HSCROLL ; //Estas instrucciones trabajan en conjunto con TScrWnd en el ON INIT de oWndA
   HELPID "Tarejeta_Animal"
  oWndA:bGotFocus:={||oDlgA:SetFocus()} //Pasa el control a Dialogo
  //Define el dialogo que estara dentro de la ventana
  DEFINE DIALOG oDlgA RESOURCE "TAR_ANI" OF oWndA HELPID "Tarejeta_Animal"
   //Botones
   REDEFINE BTNBMP oBtnXDef FILE DirSist+"BAceptar.BMP" ID 151 OF oDlgA ;
    ACTION (BAceptar:=.T.,oDlgA:END()) PROMPT "" TOOLTIP 'Actualizar los datos modificados y salir'
   REDEFINE BTNBMP FILE DirSist+"BCancelar.BMP" ID 161 OF oDlgA ;
    ACTION (BAceptar:=.F.,oDlgA:END()) PROMPT "" TOOLTIP "Salir ignorando los cambios efectuados"
   //Datos de identificacion
   REDEFINE SAY VAR M->oTDBF:Regi ID 3 OF oDlgA UPDATE //Registro
   REDEFINE SAY VAR M->oTDBF:Letr ID 5 OF oDlgA UPDATE //Letra
   REDEFINE GET M->oTDBF:Aret ID 10 OF oDlgA UPDATE MESSAGE "Color y/o numero del arete (crotal)" //Arete
   REDEFINE GET M->oTDBF:Nomb ID 11 OF oDlgA UPDATE MESSAGE "Nombre del animal segun su familia" //Nombre
   REDEFINE GET M->oTDBF:Tatu ID 12 OF oDlgA UPDATE MESSAGE "Tatuaje o Microchip de identificacion" //Tatuaje
  ACTIVATE DIALOG oDlgA NOWAIT ;
   ON INIT (oDlgA:Move(0,0)) ; //Coloca el dialogo al inicio de la ventana
   VALID(oWndA:End(),.T.) //Al cerrar el dialogo cierra la ventana

 ACTIVATE WINDOW oWndA ;
  ON INIT (oWndA:SetSize(oDlgA:nWidth,oDlgA:nHeight) ; //Hace la ventana del mismo tamaño que el dialogo
           ,TScrWnd():New(oWndA,1,5,1,70),oWndA:Paint() ) ; //Controla las barras del Scroll 
  VALID (IIF(BAceptar,(M->oTDBF:SAVE(),TarA_Cierra(ArTarA)),NIL),DBSELECTAREA(SeleAct),.T.) //En su caso graba los datos y Cierra los archivos
RETURN(NIL)

Application
===========
   Path and name: C:\acs\VTA\TOROS\prg.act\Toros.Exe (32 bits)
   Size:   820,736 bytes
   Time from start: 0 hours 0 mins 37 secs 
   Error occurred at: 01/07/2011, 19:43:45
   Error description: Error BASE/1004  No exported method: EVAL
   Args:
     [   1] = U   
     [   2] = O   TDATABASE

Stack Calls
===========
   Called from:  => EVAL(0)
   Called from: .\source\classes\DATABASE.PRG => TDATABASE:FIELDGET(618)
   Called from: .\source\classes\DATABASE.PRG => TDATABASE:ARET(824)
   Called from: C:\ACS\VTA\TOROS\PRG.ACT\PRG\TARJETA.PRG => (b)PRUEBA(76)
   Called from: source\rtl\tget.prg => TCLIPGET:VARGET(985)
   Called from: source\rtl\tget.prg => TCLIPGET:SETFOCUS(855)
   Called from: .\source\classes\TGET.PRG => TGET:LOSTFOCUS(1239)
   Called from: .\source\classes\CONTROL.PRG => TGET:KILLFOCUS(883)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1456)
   Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT(597)
......

  ACTIVATE DIALOG oDlgA NOWAIT ;
   ON INIT (oDlgA:Move(0,0)) ; //Coloca el dialogo al inicio de la ventana
   VALID(oWndA:End(),IIF(BAceptar,(M->oTDBF:SAVE(),TarA_Cierra(ArTarA)),NIL),DBSELECTAREA(SeleAct),.T.) //Al cerrar el dialogo cierra la ventana, graba cambios y cierra archivos

 ACTIVATE WINDOW oWndA ;
  ON INIT (oWndA:SetSize(oDlgA:nWidth,oDlgA:nHeight) ; //Hace la ventana del mismo tamaño que el dialogo
           ,TScrWnd():New(oWndA,1,5,1,70),oWndA:Paint() ) //Controla las barras del Scroll 
RETURN(NIL)