FiveTech Support Forums

#include "Fivewin.ch"
#include "xbrowse.ch"
#include "tdolphin.ch"
*************************************************
** ABM DE Encuesta
*************************************************

PROCEDURE Encuesta( oServer)
LOCAL oDlg, oBrw, oGet, oWnd, cBuscar := SPACE(50), base, oBar, oQry
oQry  = oServer:Query( "SELECT * FROM ENCUESTAS ORDER BY numero")

   // Defino el dialogo tomado del recurso ABMCAJA
   DEFINE WINDOW oWnd MDICHILD TITLE "A/B/M de Encuestas" ;
         OF MEMVAR->oWPpal NOZOOM ICON MEMVAR->oIco
         DEFINE BUTTONBAR oBar  3D SIZE 30,30 OF oWnd 2010
         DEFINE BUTTON RESOURCE "ALTA" OF oBar ;
            TOOLTIP "Agregar Registro"  ;
            ACTION Formu( oBrw , oQry, oWnd , .t., oServer)
         // Este boton cierra la aplicacion
         DEFINE BUTTON RESOURCE "BAJA" OF oBar;
            TOOLTIP "Eliminar Registro" ;
            ACTION Baja( oBrw, oQry, oServer ) WHEN(oQry:RecCount()>0)
         DEFINE BUTTON RESOURCE "MODI" OF oBar ;
            TOOLTIP "Modificar Registro" ;
            ACTION Formu( oBrw, oQry, oWnd, .f.,oServer) WHEN(oQry:RecCount()>0)
         DEFINE BUTTON RESOURCE "EXCE" OF oBar ;
            TOOLTIP "Exportar a Excel" ;
            ACTION oBrw:ToExcel() WHEN(oQry:RecCount()>0)
         DEFINE BUTTON RESOURCE "IMPR" OF oBar ;
            TOOLTIP "Reporte" ;
            ACTION oBrw:Report() WHEN(oQry:RecCount()>0)
         // Este boton cierra la aplicacion
         DEFINE BUTTON RESOURCE "SALE" OF oBar;
            TOOLTIP "Cerrar Ventana" ;
            ACTION oWnd:End()
   oWnd:bGotFocus := { || oDlg:SetFocus}
   oWnd:bResized := { || Incrusta( oWnd, oDlg, .t.) }
     DEFINE DIALOG oDlg RESOURCE "ABMS" OF oWnd
     REDEFINE XBROWSE oBrw;
              FIELDS oQry:numero , oQry:calle, oQry:npuerta,;
              oQry:piso, oQry:depto, oQry:motivo, oQry:fecha;
              HEADERS "Nro Enc.", "Calle", "Puerta", "Piso",;
              "Depto", "Cod.Motivo", "Fecha";
              SIZES 90, 80, 80, 70,70,70, 100 ID 111 OF oDlg
     *oBrw:aCols[1]:bDlbClick := {||  Modi(oBrw, oQry, oWnd ) }
     REDEFINE GET oGet VAR cBuscar PICTURE "9999999999" ID 112 OF oDlg ;
              ON CHANGE bus1(oQry, oGet, oBrw, "numero")
     oQry:bOnChangePage := {|| oBrw:Refresh() }
     SetDolphin( oBrw, oQry, .f. )
     oBrw:bClrStd := { || If( oBrw:KeyNo() % 2 == 0, ;
                         { CLR_BLACK, RGB(193,221,255) }, ;
                         { CLR_BLACK, RGB(221,245,255) } ) }
     oBrw:nFreeze := 6
     *oBrw:GOTOP()
     // Activo el dialogo y al iniciar muevo a 0,0
     ACTIVATE DIALOG oDlg NOWAIT ON INIT oDlg:Move(0,0)
   ACTIVATE WINDOW oWnd ON INIT Incrusta( oWnd, oDlg, .T.) VALID(cerrar(oQry))
RETURN

*************************************
** Agregar un registro nuevo
STATIC FUNCTION Formu ( oBrw, base, oWnd, lAlta, oServer )
LOCAL oGet := ARRAY(11), oBrw1, oBot := ARRAY(5), oDlg1, mrta := .f.,;
      aMotivo:= {"1. Entrevista realizada",;
                 "2. Todas las personas están temporalmente ausentes",;
                 "3. La vivienda está en alquiler o venta",;
                 "4. La vivienda está en construcción",;
                 "5. La vivienda se usa como comercio/oficina/consult.",;
                 "6. La vivienda se usa para vacaciones o fin de semana",;
                 "7. La vivienda está cerrada por motivos desconocidos",;
                 "8. La vivienda está abandonada",;
                 "9. Dirección inexistente",;
                 "10. Rechaza la entrevista"},;
      aSexo:= {"Masculino", "Femenino"}, base1, oQry, nEncu := 0
IF lAlta
   base:gobottom()
   nEncu := base:numero + 1
   base:GetBlankRow(.t.)  
   base:numero := nEncu
   *base1:GetBlankRow(.f.)
   oQry := BuildQuery( {"*"}, {"personas"} , "personas.numero = " + ClipValue2SQL( base:numero )  )
   *oQry := BuildQuery( {"*"}, {"personas"} , "personas.numero = " + ClipValue2SQL( base:numero )   )
   base1  := oServer:Query( oQry)   
ELSE
   base:GetRow()
   nEncu := base:numero
   oQry := BuildQuery( {"*"}, {"personas"} , "personas.numero = " + ClipValue2SQL( nEncu )  )
   base1  := oServer:Query( oQry)
   *base1:GetRow()
ENDIF
DEFINE DIALOG oDlg1 TITLE IF(lAlta,"Alta","Modificacion")+" de Encuestas" RESOURCE "ENCU" ;
       OF oWnd
   oDlg1:lHelpIcon := .f.
   REDEFINE GET oGet[1] VAR base:numero ID 111 PICTURE "99999999" OF oDlg1 ;
      WHEN (lAlta .and. oBrw1:nLen() = 0) VALID(base:numero >0)
   REDEFINE GET oGet[2] VAR base:calle ID 112 PICTURE "@!" OF oDlg1 
   REDEFINE GET oGet[3] VAR base:npuerta ID 113 PICTURE "99999" OF oDlg1
   REDEFINE GET oGet[4] VAR base:piso ID 114 PICTURE "999" OF oDlg1
   REDEFINE GET oGet[5] VAR base:depto ID 115 PICTURE "@!" OF oDlg1
   REDEFINE COMBOBOX oGet[6] VAR base:motivo ID 116 ITEMS aMotivo OF oDlg1
   REDEFINE GET oGet[7] VAR base:fecha  ID 117 PICTURE "@D" OF oDlg1
   REDEFINE BUTTON oBot[1] ID 118 OF oDlg1 ACTION (base:Save(),AgregaPer(oBrw1, base1, .t., base:numero, oDlg1))
   REDEFINE BUTTON oBot[2] ID 119 OF oDlg1 ACTION AgregaPer(oBrw1, base1, .f., base:numero, oDlg1) WHEN oBrw1:nLen()>0
   REDEFINE BUTTON oBot[3] ID 120 OF oDlg1 ACTION BorraPer(oBrw1, base1) WHEN oBrw1:nLen()>0 
   REDEFINE XBROWSE oBrw1 FIELDS base1:numfami, base1:apenom, base1:sexo, base1:edad;
   HEADERS "Persona Nº", "Nombre", "Sexo", "Edad" SIZES 60, 300, 80, 60 ID 123 OF oDlg1
     base1:bOnChangePage := {|| oBrw1:Refresh() }
     SetDolphin( oBrw1, base1, .f. )
     oBrw1:bClrStd := { || If( oBrw1:KeyNo() % 2 == 0, ;
                         { CLR_BLACK, RGB(193,221,255) }, ;
                         { CLR_BLACK, RGB(221,245,255) } ) }   
   REDEFINE BUTTON oBot[4] ID 125 OF oDlg1 ACTION (mrta:=.t., oDlg1:End())
   REDEFINE BUTTON oBot[5] ID 126 OF oDlg1 ACTION (mrta:=.f., oDlg1:End()) CANCEL
   ACTIVATE DIALOG oDlg1 CENTER //ON INIT oGet[1]:SetFocus()  
IF !mrta .or. base:numero = 0
   base:lAppend := .f.
   base:Refresh()
   base1:End()
   RETURN nil
ENDIF
IF lAlta .and. base:Seek(base:numero,"NUMERO") > 0
   MsgStop("Registro duplicado","Error")
   base:lAppend := .f.
   base:Refresh()
   RETURN nil
ENDIF
base:Save()
base:Refresh()
base1:End()
oBrw:Refresh()
RETURN nil

oRow = oQry:GetBlankRow( .T. )

@ 1,1 GET oGet VAR oRow:nombre

oRow:Save()

oRow:undo()