FiveTech Support Forums

   ADD TO oBrw DATA IIf( oQryFeri:NACIONAL, "N/D", CIUD->NOMCOR ) TITLE "Ciudad"             SIZE 054

   bColCiudad := {|| IIf( oQryFeri:RecCount() > 0, IIf( oQryFeri:NACIONAL, "N/D", oQryFeri:NOMCOR ), "" ) } //nueva implementacion
 
   DEFINE DIALOG oDlg NAME "DLG_FERIADOSC" OF oMainWnd ICON GetIcon() FONT oFontD

   REDEFINE XBROWSE oBrw ID 101 OF oDlg ALIAS "FERI" ON DBLCLICK Feriados_Editar( FALSE ) FONT oFontD

   ADD TO oBrw DATA oQryFeri:FECHA      TITLE "Fecha"              SIZE 090 CENTER PICTURE "@D"
   ADD TO oBrw DATA oQryFeri:MOTIVO     TITLE "Motivo del feriado" SIZE 270
   ADD TO oBrw DATA oQryFeri:NACIONAL   TITLE "Nacional"           SIZE 054
   ADD TO oBrw DATA bColCiudad          TITLE "Ciudad"             SIZE 054 // nueva implementacion

CREATE TABLE `FERIADOS` (
    `NUM_CIUD` MEDIUMINT(6) NULL DEFAULT NULL,
    `FECHA` DATE NULL DEFAULT NULL,
    `MOTIVO` CHAR(40) NULL DEFAULT NULL COLLATE 'latin1_spanish_ci',
    `NACIONAL` TINYINT(1) NULL DEFAULT NULL,
    `MY_RECNO` INT(12) NOT NULL AUTO_INCREMENT,
    PRIMARY KEY (`MY_RECNO`),
    INDEX `NUM_CIUD` (`NUM_CIUD`),
    INDEX `FECHA` (`FECHA`)
)
COLLATE='latin1_spanish_ci'
ENGINE=InnoDB

SELECT `A`.`FECHA` AS `FECHA`,`A`.`NUM_CIUD` AS `NUM_CIUD`,`A`.`MOTIVO` AS `MOTIVO`,`A`.`NACIONAL` AS `NACIONAL`,`B`.`NOMCOR` AS `NOMCOR`,`B`.`NOMBRE` AS `CIUDAD`
FROM (`FERIADOS` `A`
LEFT JOIN `CIUDADES` `B` ON((`A`.`NUM_CIUD` = `B`.`NUM_CIUD`)))

PROCEDURE Feriados()
   PRIVATE oError
   PRIVATE oDlg, oBrw, oToolbar, oPopUp1, oBtnFilter
   PRIVATE oQryFeri, oQryCiud
   PRIVATE cFiltro, lFiltrado
   PRIVATE bColCiudad

   cFiltro   := ""
   lFiltrado := FALSE

   IF !oSesion:EsAdmin()
      cFiltro := ""
   ELSE
      cFiltro := "NUM_CIUD=%1 OR NUM_CIUD=0"
      cFiltro := StrFormat( cFiltro, Var2Str( oSesion:GetNumCiudad() ) )
   ENDIF

   TRY
      oQryCiud := oServer:Query2( "SELECT NUM_CIUD, NOMBRE FROM CIUDADES ORDER BY NOMBRE" )
      IF !Empty( cFiltro )
         oQryFeri := oServer:Query2( "SELECT * FROM vCATFERI WHERE " + cFiltro + " ORDER BY FECHA" )
      ELSE
         oQryFeri := oServer:Query2( "SELECT * FROM vCATFERI ORDER BY FECHA" )
      ENDIF
      oQryCiud:FillDbf( "TBLCIUD", "TEMP1" )
      oQryCiud:END()
   CATCH oError
      IIf( HB_IsObject( oQryCiud ), oQryCiud:END(), NIL )
      IIf( HB_IsObject( oQryFeri ), oQryFeri:END(), NIL )
      ShowError( oError )
      RETURN
   END

//---------------------VER ACA DANIEL
?oQryFeri:RecCount(), oQryFeri:NACIONAL, valtype(oQryFeri:NACIONAL)  
//si oQryFeri NO tiene filas, retorna 0, "", "C"
//si oQryFeri SI  tiene filas, retorna 18, .T., "L"
//---------------------

   bColCiudad := {|| IIf( oQryFeri:RecCount() > 0, IIf( oQryFeri:NACIONAL, "N/D", oQryFeri:NOMCOR ), "" ) }

   DEFINE DIALOG oDlg NAME "DLG_FERIADOSC" OF oMainWnd ICON GetIcon() FONT oFontD

   REDEFINE XBROWSE oBrw ID 101 OF oDlg ALIAS "FERI" ON DBLCLICK Feriados_Editar( FALSE ) FONT oFontD

   ADD TO oBrw DATA oQryFeri:FECHA      TITLE "Fecha"              SIZE 090 CENTER PICTURE "@D"
   ADD TO oBrw DATA oQryFeri:MOTIVO     TITLE "Motivo del feriado" SIZE 270
   ADD TO oBrw DATA oQryFeri:NACIONAL   TITLE "Nacional"           SIZE 054
   ADD TO oBrw DATA bColCiudad          TITLE "Ciudad"             SIZE 054

   WITH OBJECT oBrw
      :SetDolphin( oQryFeri, .F. )
      :MyConfig()
      :aCols[ 03 ]:SetCheck( { "BMS_CHECKON","BMS_CHECKOFF" } )
      :bKeyDown      := {|nKey| Feriados_ProcesaTecla( nKey ) }
      :lHScroll      := FALSE
      :nHeaderHeight := 36
   END

   ACTIVATE DIALOG oDlg ON INIT Feriados_Toolbar()

   TEMP1->( DBCloseArea() )

   oQryFeri:END()

RETURN