{ Sistema : Picaso Módulo : Unidad : Autor : Fecha : Comentario : } unit KiPrincipal; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, DB, Forms, Dialogs, Menus, StdCtrls, JfRichEdit, ExtCtrls, FUtiles, ClipBrd, ToolWin, rxSpeedBar, JfMemo, JfMenus, JfMain, JPeg, JfButtons, JfPanel, JfDbMemo, JfFocusImage, rxAppUtils, JfSplitter, JfStatusBar, JfImage, JfListBox, JfLabel, JfCheckBox, JfEdit, JfRadioGroup, IBCustomDataSet, JfDbCheckBox, JfComboBox, JfDbComboBox, JfDbEdit, ComCtrls, JfDbGrid, JfDbLookup, JfDbImage, JfDbRichEdit, JfPageControl, JfDbListBox, JfDbLabel, JfGrid, JfUpDown, JfRadioButton, JfScrollBox, rxPlacemnt, rxAppEvent, JfLBPrivileges, Variants, IBDatabase, JfDbRadioGroup, GIFImage, rxDateUtil, JvSpeedbar, JvExExtCtrls, JvExtComponent, JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement, JvExComCtrls, JvCoolBar, JvAppIniStorage, JvAppEvent, JvAppStorageSelectList, JvFormPlacementSelectList, JvFormTransparent; {$R *.DFM} const Version = '8.05.151'; NombreDiccio = 'diccio.ini'; type TfKiPrincipal = class(TForm) JfCApplicationKit: TJfCApplication; JfCFormKiPrincipal: TJfCForm; JfPkgImagesSPImagenes: TJfPkgImages; JfPopupMenuBarraHerra: TJfPopupMenu; JfPopupMenuImagenKit: TJfPopupMenu; JfMenuItemPopupArchivo: TJfMenuItem; JfMenuItemPopupConfiguracion: TJfMenuItem; JfMenuItemPopupUtilidades: TJfMenuItem; JfMenuItemPopupFondoDeSPKitAdministracion: TJfMenuItem; JfPkgImagesKiSkins: TJfPkgImages; JfMenuItemPopupInformes: TJfMenuItem; JfMenuItemPopupNovedades: TJfMenuItem; JfMenuItemPopPersonaliza: TJfMenuItem; JfMenuItemSepPopup: TJfMenuItem; JfPanelPrincipal: TJfPanel; JfSplitterPrin: TJfSplitter; JfPanelBarraModulos: TJfPanel; JfSpeedButton1: TJfSpeedButton; JfSpeedButton2: TJfSpeedButton; JfSpeedButton3: TJfSpeedButton; JfSpeedButton4: TJfSpeedButton; JfSpeedButton5: TJfSpeedButton; JfSpeedButtonSueldos: TJfSpeedButton; JfFocusImageAyuda: TJfFocusImage; JfStatusBar: TJfStatusBar; JfPageDiagramas: TJfPageControl; JfTabSheet1: TJfTabSheet; JfGroupBoxArchivoCompras: TJfGroupBox; JfSpeedButton14: TJfSpeedButton; JfSpeedButton27: TJfSpeedButton; JfSpeedButton7: TJfSpeedButton; JfSpeedButton8: TJfSpeedButton; JfSpeedButton37: TJfSpeedButton; JfSpeedButton39: TJfSpeedButton; JfSpeedButton6: TJfSpeedButton; JfGroupBoxNovedadesCompras: TJfGroupBox; JfSpeedButton31: TJfSpeedButton; JfSpeedButton17: TJfSpeedButton; JfSpeedButton18: TJfSpeedButton; JfSpeedButton19: TJfSpeedButton; JfSpeedButton21: TJfSpeedButton; JfSpeedButton22: TJfSpeedButton; JfSpeedButton26: TJfSpeedButton; JfSpeedButton29: TJfSpeedButton; JfSpeedButton30: TJfSpeedButton; JfSpeedButton23: TJfSpeedButton; JfSpeedButton28: TJfSpeedButton; JfSpeedButton32: TJfSpeedButton; JfSpeedButton38: TJfSpeedButton; JfSpeedButton40: TJfSpeedButton; JfSpeedButton20: TJfSpeedButton; JfGroupBoxInformesCompras: TJfGroupBox; JfSpeedButton15: TJfSpeedButton; JfSpeedButton33: TJfSpeedButton; JfSpeedButton34: TJfSpeedButton; JfSpeedButton35: TJfSpeedButton; JfSpeedButton36: TJfSpeedButton; JfTabSheet2: TJfTabSheet; JfGroupBoxArchivoStock: TJfGroupBox; JfSpeedButtonItems: TJfSpeedButton; JfSpeedButtonAgrupaItems: TJfSpeedButton; JfGroupBoxNovedadesStock: TJfGroupBox; JfSpeedButtonActuPre: TJfSpeedButton; JfSpeedButtonTransfe: TJfSpeedButton; JfSpeedButtonConsultaPrecios: TJfSpeedButton; JfSpeedButtonExpor: TJfSpeedButton; JfSpeedButtonImportarPreProve: TJfSpeedButton; JfGroupBoxInformesStock: TJfGroupBox; JfSpeedButton16: TJfSpeedButton; JfSpeedButtonInfoLisPre: TJfSpeedButton; JfSpeedButtonInfoInven: TJfSpeedButton; JfTabSheet3: TJfTabSheet; JfGroupBoxArchivoVentas: TJfGroupBox; JfSpeedButtonVClientes: TJfSpeedButton; JfSpeedButtonVeAgruClien: TJfSpeedButton; JfSpeedButtonVeFle10: TJfSpeedButton; JfSpeedButton54: TJfSpeedButton; JfSpeedButton86: TJfSpeedButton; JfSpeedButton87: TJfSpeedButton; JfSpeedButton88: TJfSpeedButton; JfGroupBoxInformesVentas: TJfGroupBox; JfSpeedButton11: TJfSpeedButton; JfSpeedButtonVeInfoCC: TJfSpeedButton; JfSpeedButtonVeInfoCob: TJfSpeedButton; JfSpeedButtonVeInfoVtas: TJfSpeedButton; JfSpeedButtonVeInfoFis: TJfSpeedButton; JfGroupBoxNovedadesVentas: TJfGroupBox; JfSpeedButton95: TJfSpeedButton; JfSpeedButtonVeStock: TJfSpeedButton; JfSpeedButtonVeRemitos: TJfSpeedButton; JfSpeedButtonVeCptesFiscales: TJfSpeedButton; JfSpeedButtonVeFondos: TJfSpeedButton; JfSpeedButtonVePresupuestos: TJfSpeedButton; JfSpeedButtonVeRecibos: TJfSpeedButton; JfSpeedButton89: TJfSpeedButton; JfSpeedButton92: TJfSpeedButton; JfSpeedButton93: TJfSpeedButton; JfSpeedButton94: TJfSpeedButton; JfSpeedButton91: TJfSpeedButton; JfSpeedButton97: TJfSpeedButton; JfSpeedButton98: TJfSpeedButton; JfSpeedButton90: TJfSpeedButton; JfSpeedButton96: TJfSpeedButton; JfTabSheet4: TJfTabSheet; JfGroupBoxArchivoFondos: TJfGroupBox; JfSpeedButton9: TJfSpeedButton; JfSpeedButton24: TJfSpeedButton; JfSpeedButton25: TJfSpeedButton; JfSpeedButton41: TJfSpeedButton; JfGroupBoxNovedadesFondos: TJfGroupBox; JfSpeedButton46: TJfSpeedButton; JfSpeedButton47: TJfSpeedButton; JfSpeedButton48: TJfSpeedButton; JfSpeedButton49: TJfSpeedButton; JfSpeedButton50: TJfSpeedButton; JfSpeedButton51: TJfSpeedButton; JfSpeedButton52: TJfSpeedButton; JfSpeedButton53: TJfSpeedButton; JfSpeedButton55: TJfSpeedButton; JfSpeedButton56: TJfSpeedButton; JfSpeedButton57: TJfSpeedButton; JfSpeedButton58: TJfSpeedButton; JfSpeedButton59: TJfSpeedButton; JfSpeedButton60: TJfSpeedButton; JfSpeedButton85: TJfSpeedButton; JfGroupBoxInformesFondos: TJfGroupBox; JfSpeedButton12: TJfSpeedButton; JfSpeedButton42: TJfSpeedButton; JfSpeedButton43: TJfSpeedButton; JfSpeedButton44: TJfSpeedButton; JfSpeedButton45: TJfSpeedButton; JfTabSheet5: TJfTabSheet; JfGroupBoxArchivoContabilidad: TJfGroupBox; JfSpeedButton75: TJfSpeedButton; JfSpeedButton10: TJfSpeedButton; JfSpeedButton66: TJfSpeedButton; JfSpeedButton76: TJfSpeedButton; JfSpeedButton77: TJfSpeedButton; JfSpeedButton78: TJfSpeedButton; JfGroupBoxNovedadesContabilidad: TJfGroupBox; JfSpeedButton61: TJfSpeedButton; JfSpeedButton65: TJfSpeedButton; JfSpeedButton62: TJfSpeedButton; JfSpeedButton63: TJfSpeedButton; JfSpeedButton64: TJfSpeedButton; JfSpeedButton68: TJfSpeedButton; JfSpeedButton69: TJfSpeedButton; JfSpeedButton70: TJfSpeedButton; JfSpeedButton71: TJfSpeedButton; JfSpeedButton73: TJfSpeedButton; JfSpeedButton74: TJfSpeedButton; JfSpeedButton67: TJfSpeedButton; JfSpeedButton83: TJfSpeedButton; JfSpeedButton72: TJfSpeedButton; JfSpeedButton127: TJfSpeedButton; JfSpeedButton128: TJfSpeedButton; JfGroupBoxInformesContabilidad: TJfGroupBox; JfSpeedButton79: TJfSpeedButton; JfSpeedButton80: TJfSpeedButton; JfSpeedButton81: TJfSpeedButton; JfSpeedButton13: TJfSpeedButton; JfSpeedButton82: TJfSpeedButton; JfTabSheet6: TJfTabSheet; JfGroupBox1: TJfGroupBox; JfSpeedButton84: TJfSpeedButton; JfSpeedButton99: TJfSpeedButton; JfSpeedButton100: TJfSpeedButton; JfSpeedButton101: TJfSpeedButton; JfSpeedButton102: TJfSpeedButton; JfSpeedButton115: TJfSpeedButton; JfSpeedButton125: TJfSpeedButton; JfSpeedButton124: TJfSpeedButton; JfSpeedButton116: TJfSpeedButton; JfSpeedButton126: TJfSpeedButton; JfGroupBox2: TJfGroupBox; JfSpeedButton103: TJfSpeedButton; JfSpeedButton104: TJfSpeedButton; JfSpeedButton105: TJfSpeedButton; JfSpeedButton106: TJfSpeedButton; JfSpeedButton107: TJfSpeedButton; JfSpeedButton108: TJfSpeedButton; JfSpeedButton109: TJfSpeedButton; JfSpeedButton110: TJfSpeedButton; JfSpeedButton118: TJfSpeedButton; JfSpeedButton119: TJfSpeedButton; JfSpeedButton121: TJfSpeedButton; JfSpeedButton117: TJfSpeedButton; JfSpeedButton122: TJfSpeedButton; JfSpeedButton123: TJfSpeedButton; JfSpeedButton129: TJfSpeedButton; JfGroupBox3: TJfGroupBox; JfSpeedButton111: TJfSpeedButton; JfSpeedButton112: TJfSpeedButton; JfSpeedButton113: TJfSpeedButton; JfSpeedButton114: TJfSpeedButton; JfSpeedButton120: TJfSpeedButton; AppEventsKit: TJvAppEvents; JvAppRegistryStoragePrincipal: TJvAppRegistryStorage; JvFormStoragePrincipal: TJvFormStorage; CoolBarPrin: TCoolBar; JfPanelMenuKit: TJfPanelMenu; JfMenuItemArchivo: TJfMenuItem; JfMenuItemANuevo: TJfMenuItem; JfMenuItemANTablas: TJfMenuItem; JfMenuItemEmpre: TJfMenuItem; JfMenuItemSucur: TJfMenuItem; JfMenuItemUsuarAcces: TJfMenuItem; JfMenuItem5: TJfMenuItem; JfMenuItemCiuda: TJfMenuItem; JfMenuItemProvi: TJfMenuItem; JfMenuItemPaise: TJfMenuItem; JfMenuItem2: TJfMenuItem; JfMenuItemTiposdeDocum: TJfMenuItem; JfMenuItem6: TJfMenuItem; JfMenuItemActiv: TJfMenuItem; JfMenuItemBanco: TJfMenuItem; JfMenuItemCentrdeCosto: TJfMenuItem; JfMenuItem7: TJfMenuItem; JfMenuItemTiposdeCompr: TJfMenuItem; JfMenuItemFormu: TJfMenuItem; JfMenuItemTablasSueldos: TJfMenuItem; JfMenuItemTablasAfip: TJfMenuItem; JfMenuItemZonasGeogr: TJfMenuItem; JfMenuItemModaldeContr: TJfMenuItem; JfMenuItemSituadeRevis: TJfMenuItem; JfMenuItemCódigdeCondi: TJfMenuItem; JfMenuItemSinie: TJfMenuItem; JfMenuItemObrasSocia: TJfMenuItem; JfMenuItemDistribucionANSSAObraSocia: TJfMenuItem; JfMenuItemMontoAsignFamil: TJfMenuItem; JfMenuItemTablasGanancias: TJfMenuItem; JfMenuItemDeducAnualArt23: TJfMenuItem; JfMenuItemOtrasDeduc: TJfMenuItem; JfMenuItemEscalArt90RG2027: TJfMenuItem; JfMenuItemART: TJfMenuItem; JfMenuItemVacac: TJfMenuItem; JfMenuItemValorPorAntig: TJfMenuItem; JfMenuItemValorPorImpor: TJfMenuItem; JfMenuItemFeria: TJfMenuItem; JfMenuItemEmpleados: TJfMenuItem; JfMenuItemSubEmple: TJfMenuItem; JfMenuItem8: TJfMenuItem; JfMenuItemHoraryDesca: TJfMenuItem; JfMenuItemCambiDeObraSocia: TJfMenuItem; JfMenuItemContr: TJfMenuItem; JfMenuItemCambiDeSituaDeRevis: TJfMenuItem; JfMenuItemPerioNoLabor: TJfMenuItem; JfMenuItemEmbar: TJfMenuItem; JfMenuItem9: TJfMenuItem; JfMenuItemCalcuVacac: TJfMenuItem; JfMenuItemCargaFechaDeSalidDeVacac: TJfMenuItem; JfMenuItem10: TJfMenuItem; JfMenuItemHabarIniciPorSAC: TJfMenuItem; JfMenuItemHaberPagadPorOtraEmpre: TJfMenuItem; JfMenuItem11: TJfMenuItem; JfMenuItemGanan: TJfMenuItem; JfMenuItemInhibRetenGanan: TJfMenuItem; JfMenuItemDatosIniciParaLiquiGanan: TJfMenuItem; JfMenuItemDeducEmple: TJfMenuItem; JfMenuItemFamiliares: TJfMenuItem; JfMenuItem12: TJfMenuItem; JfMenuItemConce: TJfMenuItem; JfMenuItemFormulas: TJfMenuItem; JfMenuItemModeloDeLiqui: TJfMenuItem; JfMenuItem13: TJfMenuItem; JfMenuItemSindi: TJfMenuItem; JfMenuItemCateg: TJfMenuItem; JfMenuItemCargo: TJfMenuItem; JfMenuItemSecci: TJfMenuItem; JfMenuItem14: TJfMenuItem; JfMenuItemModelDeAsien: TJfMenuItem; JfMenuItemAbrirEmpre: TJfMenuItem; JfMenuItemAbrirSucu: TJfMenuItem; JfMenuItemASep1: TJfMenuItem; JfMenuItemAExportar: TJfMenuItem; JfMenuItemSueldos: TJfMenuItem; JfMenuItemAFIPSICOSDecla: TJfMenuItem; JfMenuItemUOCRA: TJfMenuItem; JfMenuItemUOM: TJfMenuItem; JfMenuItemRENAT: TJfMenuItem; JfMenuItemSindicDeComer: TJfMenuItem; JfMenuItemASep2: TJfMenuItem; JfMenuItemSalir: TJfMenuItem; JfMenuItemEdicion: TJfMenuItem; JfMenuItemDeshacer: TJfMenuItem; JfMenuItemESep1: TJfMenuItem; JfMenuItemCortar: TJfMenuItem; JfMenuItemCopiar: TJfMenuItem; JfMenuItemPegar: TJfMenuItem; JfMenuItemEliminar: TJfMenuItem; JfMenuItemESep2: TJfMenuItem; JfMenuItemSeleccionarTodo: TJfMenuItem; JfMenuItemVer: TJfMenuItem; JfMenuItemVBarraDeHerramientas: TJfMenuItem; JfMenuItemVBArchivo: TJfMenuItem; JfMenuItemVBNovedades: TJfMenuItem; JfMenuItemVBInformes: TJfMenuItem; JfMenuItemVBConfiguracion: TJfMenuItem; JfMenuItemVBUtilidades: TJfMenuItem; JfMenuItemVBarraDeEstado: TJfMenuItem; JfMenuItemVFondoDeSPKitAdministracion: TJfMenuItem; JfMenuItemModulos: TJfMenuItem; JfMenuItemNovedadesSueldos: TJfMenuItem; JfMenuItemAsignConcePorEmple: TJfMenuItem; JfMenuItemAsignEmplePorConce: TJfMenuItem; JfMenuItem1: TJfMenuItem; JfMenuItemCalcuLiquiSueldJorna: TJfMenuItem; JfMenuItemCalcuRetenDeGanan: TJfMenuItem; JfMenuItemLiquiFinalDeGanan: TJfMenuItem; JfMenuItem23: TJfMenuItem; JfMenuItemEmisiDeRecib: TJfMenuItem; JfMenuItem3: TJfMenuItem; JfMenuItemActuaMasivDatosDeLosEmple: TJfMenuItem; JfMenuItemActuaDeImpor: TJfMenuItem; JfMenuItem4: TJfMenuItem; JfMenuItemAvisoAutom: TJfMenuItem; JfMenuItemInformes: TJfMenuItem; JfMenuItemInformesSueldos: TJfMenuItem; JfMenuItemBorraDeLiqui: TJfMenuItem; JfMenuItemLibroDeSueldyJorna: TJfMenuItem; JfMenuItemSueldyJornaAPagar: TJfMenuItem; JfMenuItemPlaniDeSueldyJorna: TJfMenuItem; JfMenuItem16: TJfMenuItem; JfMenuItemCargasSociales: TJfMenuItem; JfMenuItemInforObrasSocia: TJfMenuItem; JfMenuItemSegurSocia: TJfMenuItem; JfMenuItemInforSindi: TJfMenuItem; JfMenuItemInforArt: TJfMenuItem; JfMenuItemInforParaGananPersoFísic: TJfMenuItem; JfMenuItemOSPREDeclaJurad: TJfMenuItem; JfMenuItemLaEstre: TJfMenuItem; JfMenuItemSindiPetro: TJfMenuItem; JfMenuItemCertiArt80: TJfMenuItem; JfMenuItemFondoDeDesem: TJfMenuItem; JfMenuItemBoletDeFondoDeDesem: TJfMenuItem; JfMenuItem15: TJfMenuItem; JfMenuItemComundeVacac: TJfMenuItem; JfMenuItemGráfiDeVacac: TJfMenuItem; JfMenuItemDiasDeVacac: TJfMenuItem; JfMenuItem17: TJfMenuItem; JfMenuItemConceLiqui: TJfMenuItem; JfMenuItemAcumuPorConce: TJfMenuItem; JfMenuItemAcumuParaAguin: TJfMenuItem; JfMenuItem19: TJfMenuItem; JfMenuItemEmplePorPerio: TJfMenuItem; JfMenuItemCostoDeCadaEmpleParaLaEmpre: TJfMenuItem; JfMenuItem18: TJfMenuItem; JfMenuItemComunEntreDeRopa: TJfMenuItem; JfMenuItemNotaEmbar: TJfMenuItem; JfMenuItem20: TJfMenuItem; JfMenuItemAsienDeSueld: TJfMenuItem; JfMenuItemConfiguracion: TJfMenuItem; JfMenuItemParametrosIniciales: TJfMenuItem; JfMenuItemFechaDeOperatividad: TJfMenuItem; JfMenuItemCambiarUsuario: TJfMenuItem; JfMenuItemCSep2: TJfMenuItem; JfMenuItemPersonalizar: TJfMenuItem; JfMenuItemVentana: TJfMenuItem; JfMenuItemCascada: TJfMenuItem; JfMenuItemMosaicoHorizontal: TJfMenuItem; JfMenuItemMosaicoVertical: TJfMenuItem; JfMenuItemSiguiente: TJfMenuItem; JfMenuItemAnterior: TJfMenuItem; JfMenuItemVSep1: TJfMenuItem; JfMenuItemOrganizarIconos: TJfMenuItem; JfMenuItemMinimizarTodas: TJfMenuItem; JfMenuItemCerrarTodas: TJfMenuItem; JfMenuItemAyuda: TJfMenuItem; JfMenuItemContenido: TJfMenuItem; JfMenuItemIndice: TJfMenuItem; JfMenuItemSep1: TJfMenuItem; JfMenuItemUsoDeLaAyuda: TJfMenuItem; JfMenuItemSep2: TJfMenuItem; JfMenuItemSoporte: TJfMenuItem; JfMenuItemSopEnvBaseDato: TJfMenuItem; JfMenuItemSep3: TJfMenuItem; JfMenuItemAcercade: TJfMenuItem; SpeedBarArchivo: TJvSpeedBar; JvSpeedBarSectionArchi: TJvSpeedBarSection; JvSpeedItemAbrirEmpre: TJvSpeedItem; JvSpeedItemAbrirSucur: TJvSpeedItem; JvSpeedItemActiv: TJvSpeedItem; JvSpeedItemAfipSicos: TJvSpeedItem; JvSpeedItemArt: TJvSpeedItem; JvSpeedItemBanco: TJvSpeedItem; JvSpeedItemCambiSituaRevis: TJvSpeedItem; JvSpeedItemCambiObraSocia: TJvSpeedItem; JvSpeedItemCalcuVacas: TJvSpeedItem; JvSpeedItemCargaFechaVacas: TJvSpeedItem; JvSpeedItemCateg: TJvSpeedItem; JvSpeedItemCargo: TJvSpeedItem; JvSpeedItemCentrCosto: TJvSpeedItem; JvSpeedItemCiuda: TJvSpeedItem; JvSpeedItemConce: TJvSpeedItem; JvSpeedItemContr: TJvSpeedItem; JvSpeedItemCodigCondi: TJvSpeedItem; JvSpeedItemDatosIniciLiquiGanan: TJvSpeedItem; JvSpeedItemDeducEmple: TJvSpeedItem; JvSpeedItemDeducAnual: TJvSpeedItem; JvSpeedItemDistrAnssa: TJvSpeedItem; JvSpeedItemEmbar: TJvSpeedItem; JvSpeedItemEscalArt90: TJvSpeedItem; JvSpeedItemEmple: TJvSpeedItem; JvSpeedItemEmpre: TJvSpeedItem; JvSpeedItemFormu: TJvSpeedItem; JvSpeedItemFeria: TJvSpeedItem; JvSpeedItemFormularios: TJvSpeedItem; JvSpeedItemHorarDesca: TJvSpeedItem; JvSpeedItemHaberIniciSac: TJvSpeedItem; JvSpeedItemHaberPagadEmpre: TJvSpeedItem; JvSpeedItemInhibRetenGanan: TJvSpeedItem; JvSpeedItemModelLiqui: TJvSpeedItem; JvSpeedItemMontoAsignFamil: TJvSpeedItem; JvSpeedItemModelContr: TJvSpeedItem; JvSpeedItemModelAsien: TJvSpeedItem; JvSpeedItemOtrasDeduc: TJvSpeedItem; JvSpeedItemObrasSocia: TJvSpeedItem; JvSpeedItemPaise: TJvSpeedItem; JvSpeedItemPerioNoLabor: TJvSpeedItem; JvSpeedItemProvi: TJvSpeedItem; JvSpeedItemRenat: TJvSpeedItem; JvSpeedItemSindi: TJvSpeedItem; JvSpeedItemSinie: TJvSpeedItem; JvSpeedItemSituaRevis: TJvSpeedItem; JvSpeedItemSindiComer: TJvSpeedItem; JvSpeedItemSecci: TJvSpeedItem; JvSpeedItemSucur: TJvSpeedItem; JvSpeedItemTiposDocum: TJvSpeedItem; JvSpeedItemTiposCompr: TJvSpeedItem; JvSpeedItemUom: TJvSpeedItem; JvSpeedItemUocra: TJvSpeedItem; JvSpeedItemUsuarAcces: TJvSpeedItem; JvSpeedItemVacas: TJvSpeedItem; JvSpeedItemValorAntig: TJvSpeedItem; JvSpeedItemValorImpor: TJvSpeedItem; JvSpeedItemZonaGeogr: TJvSpeedItem; SpeedBarNovedades: TJvSpeedBar; JvSpeedBarSectionNoved: TJvSpeedBarSection; JvSpeedItemConceEmple: TJvSpeedItem; JvSpeedItemEmpleConce: TJvSpeedItem; JvSpeedItemCalcuLiqui: TJvSpeedItem; JvSpeedItemEmisiRecib: TJvSpeedItem; JvSpeedItemActuaMasivDatosEmple: TJvSpeedItem; JvSpeedItemActuaImpor: TJvSpeedItem; JvSpeedItemAvisoAutom: TJvSpeedItem; SpeedBarInformes: TJvSpeedBar; JvSpeedBarSectionInfor: TJvSpeedBarSection; JvSpeedItem62: TJvSpeedItem; JvSpeedItem63: TJvSpeedItem; JvSpeedItem64: TJvSpeedItem; JvSpeedItem73: TJvSpeedItem; JvSpeedItem74: TJvSpeedItem; JvSpeedItem75: TJvSpeedItem; JvSpeedItem76: TJvSpeedItem; JvSpeedItem77: TJvSpeedItem; JvSpeedItem78: TJvSpeedItem; JvSpeedItem79: TJvSpeedItem; JvSpeedItem80: TJvSpeedItem; JvSpeedItem81: TJvSpeedItem; JvSpeedItem82: TJvSpeedItem; JvSpeedItem83: TJvSpeedItem; JvSpeedItem84: TJvSpeedItem; JvSpeedItem85: TJvSpeedItem; JvSpeedItem86: TJvSpeedItem; JvSpeedItem87: TJvSpeedItem; JvSpeedItem88: TJvSpeedItem; JvSpeedItem89: TJvSpeedItem; JvSpeedItem90: TJvSpeedItem; JvSpeedItem91: TJvSpeedItem; JvSpeedItem92: TJvSpeedItem; JvSpeedItem93: TJvSpeedItem; JvSpeedItem94: TJvSpeedItem; JvSpeedItem95: TJvSpeedItem; SpeedBarConfiguracion: TJvSpeedBar; JvSpeedBarSectionConfi: TJvSpeedBarSection; JvSpeedItemParamInici: TJvSpeedItem; JvSpeedItemFechaOpera: TJvSpeedItem; JvSpeedItemCambiUsuar: TJvSpeedItem; JvSpeedItemPerso: TJvSpeedItem; SpeedBarUtilidades: TJvSpeedBar; JvSpeedBarSectionUtili: TJvSpeedBarSection; JvSpeedItemCalcu: TJvSpeedItem; JvSpeedItemCalen: TJvSpeedItem; JvSpeedItemSalir: TJvSpeedItem; procedure FormCreate(Sender: TObject); procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure PersonalizarClick(Sender: TObject); procedure SpeedItemCalculadoraClick(Sender: TObject); procedure SpeedItemCalendarioClick(Sender: TObject); procedure SalirClick(Sender: TObject); procedure JfMenuItemCascadaClick(Sender: TObject); procedure JfMenuItemMosaicoHorizontalClick(Sender: TObject); procedure JfMenuItemMosaicoVerticalClick(Sender: TObject); procedure JfMenuItemSiguienteClick(Sender: TObject); procedure JfMenuItemAnteriorClick(Sender: TObject); procedure JfMenuItemMinimizarTodasClick(Sender: TObject); procedure JfMenuItemCerrarTodasClick(Sender: TObject); procedure JfMenuItemOrganizarIconosClick(Sender: TObject); procedure JfStatusBarClickPanel(Sender: TObject; APanel: TJfStatusBarPanel); procedure SetStatusBar; procedure VerArchivoClick(Sender: TObject); procedure VerConfiguracionClick(Sender: TObject); procedure VerUtilidadesClick(Sender: TObject); procedure FechaOperaClick(Sender: TObject); procedure CambiaUsuarioClick(Sender: TObject); procedure JfMenuItemEdicionClick(Sender: TObject); procedure JfMenuItemCortarClick(Sender: TObject); procedure JfMenuItemCopiarClick(Sender: TObject); procedure JfMenuItemPegarClick(Sender: TObject); procedure JfMenuItemEliminarClick(Sender: TObject); procedure JfMenuItemSeleccionarTodoClick(Sender: TObject); procedure JfMenuItemAcercadeClick(Sender: TObject); procedure AppEventsKitActiveFormChange(Sender: TObject); procedure AbrirEmpreClick(Sender: TObject); procedure AbrirSucuClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure JfCFormKiPrincipalActivate(Sender: TObject); procedure JfMenuItemDeshacerClick(Sender: TObject); procedure VerNovedadesClick(Sender: TObject); procedure VerInformesClick(Sender: TObject); procedure ActivaDiagrama(vModulo: Short); procedure JfSpeedButtonCerrarPageDiagramasClick(Sender: TObject); procedure JfCApplicationKitBeforeLoaded(Sender: TObject; var Terminate: Boolean); procedure JfCApplicationKitInitLoaded(Sender: TObject; var Terminate: Boolean); procedure ParametrosClick(Sender: TObject); procedure JfMenuItemControladorFiscalClick(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure JfMenuItemContenidoClick(Sender: TObject); procedure JfMenuItemIndiceClick(Sender: TObject); procedure JfMenuItemUsoDeLaAyudaClick(Sender: TObject); procedure JfMenuItemSopEnvBaseDatoClick(Sender: TObject); procedure JfMenuItemNSCargaOfertaClick(Sender: TObject); procedure JfMenuItemCSep2Click(Sender: TObject); procedure JfMenuItemANTTipoOfertClick(Sender: TObject); procedure JfMenuItemIIIRepartoMercClick(Sender: TObject); procedure JfSpeedButton1Click(Sender: TObject); procedure JfSpeedButton2Click(Sender: TObject); procedure JfSpeedButton3Click(Sender: TObject); procedure JfSpeedButton4Click(Sender: TObject); procedure JfSpeedButton5Click(Sender: TObject); procedure JfSpeedButtonSueldosClick(Sender: TObject); procedure JfCApplicationKitAfterLoaded(Sender: TObject; var Terminate: Boolean); procedure JfMenuItemEmpreClick(Sender: TObject); procedure JfMenuItemSucurClick(Sender: TObject); procedure JfMenuItemUsuarAccesClick(Sender: TObject); procedure JfMenuItemCiudaClick(Sender: TObject); procedure JfMenuItemProviClick(Sender: TObject); procedure JfMenuItemPaiseClick(Sender: TObject); procedure JfMenuItemTiposdeDocumClick(Sender: TObject); procedure JfMenuItemActivClick(Sender: TObject); procedure JfMenuItemBancoClick(Sender: TObject); procedure JfMenuItemCentrdeCostoClick(Sender: TObject); procedure JfMenuItemTiposdeComprClick(Sender: TObject); procedure JfMenuItemFormuClick(Sender: TObject); procedure JfMenuItemZonasGeogrClick(Sender: TObject); procedure JfMenuItemSituadeRevisClick(Sender: TObject); procedure JfMenuItemCódigdeCondiClick(Sender: TObject); procedure JfMenuItemObrasSociaClick(Sender: TObject); procedure JfMenuItemSinieClick(Sender: TObject); procedure JfMenuItemDistribucionANSSAObraSociaClick(Sender: TObject); procedure JfMenuItemMontoAsignFamilClick(Sender: TObject); procedure JfMenuItemDeducAnualArt23Click(Sender: TObject); procedure JfMenuItemOtrasDeducClick(Sender: TObject); procedure JfMenuItemEscalArt90RG2027Click(Sender: TObject); procedure JfMenuItemARTClick(Sender: TObject); procedure JfMenuItemVacacClick(Sender: TObject); procedure JfMenuItemValorPorAntigClick(Sender: TObject); procedure JfMenuItemValorPorImporClick(Sender: TObject); procedure JfMenuItemFeriaClick(Sender: TObject); procedure JfMenuItemSubEmpleClick(Sender: TObject); procedure JfMenuItemHoraryDescaClick(Sender: TObject); procedure JfMenuItemCambiDeObraSociaClick(Sender: TObject); procedure JfMenuItemContrClick(Sender: TObject); procedure JfMenuItemPerioNoLaborClick(Sender: TObject); procedure JfMenuItemCambiDeSituaDeRevisClick(Sender: TObject); procedure JfMenuItemEmbarClick(Sender: TObject); procedure JfMenuItemCalcuVacacClick(Sender: TObject); procedure JfMenuItemCargaFechaDeSalidDeVacacClick(Sender: TObject); procedure JfMenuItemHabarIniciPorSACClick(Sender: TObject); procedure JfMenuItemHaberPagadPorOtraEmpreClick(Sender: TObject); procedure JfMenuItemGananClick(Sender: TObject); procedure JfMenuItemDatosIniciParaLiquiGananClick(Sender: TObject); procedure JfMenuItemFamiliaresClick(Sender: TObject); procedure JfMenuItemConceClick(Sender: TObject); procedure JfMenuItemFormulasClick(Sender: TObject); procedure JfMenuItemModeloDeLiquiClick(Sender: TObject); procedure JfMenuItemSindiClick(Sender: TObject); procedure JfMenuItemCategClick(Sender: TObject); procedure JfMenuItemCargoClick(Sender: TObject); procedure JfMenuItemSecciClick(Sender: TObject); procedure JfMenuItemModelDeAsienClick(Sender: TObject); procedure JfMenuItemAFIPSICOSDeclaClick(Sender: TObject); procedure JfMenuItemUOCRAClick(Sender: TObject); procedure JfMenuItemUOMClick(Sender: TObject); procedure JfMenuItemRENATClick(Sender: TObject); procedure JfMenuItemSindicDeComerClick(Sender: TObject); procedure JfMenuItemAsignConcePorEmpleClick(Sender: TObject); procedure JfMenuItemAsignEmplePorConceClick(Sender: TObject); procedure JfMenuItemCalcuLiquiSueldJornaClick(Sender: TObject); procedure JfMenuItemActuaMasivDatosDeLosEmpleClick(Sender: TObject); procedure JfMenuItemEmisiDeRecibClick(Sender: TObject); procedure JfMenuItemActuaDeImporClick(Sender: TObject); procedure JfMenuItemAvisoAutomClick(Sender: TObject); procedure JfMenuItemBorraDeLiquiClick(Sender: TObject); procedure JfMenuItemLibroDeSueldyJornaClick(Sender: TObject); procedure JfMenuItemSueldyJornaAPagarClick(Sender: TObject); procedure JfMenuItemPlaniDeSueldyJornaClick(Sender: TObject); procedure JfMenuItemInforObrasSociaClick(Sender: TObject); procedure JfMenuItemSegurSociaClick(Sender: TObject); procedure JfMenuItemInforSindiClick(Sender: TObject); procedure JfMenuItemInforArtClick(Sender: TObject); procedure JfMenuItemInforParaGananPersoFísicClick(Sender: TObject); procedure JfMenuItemOSPREDeclaJuradClick(Sender: TObject); procedure JfMenuItemLaEstreClick(Sender: TObject); procedure JfMenuItemSindiPetroClick(Sender: TObject); procedure JfMenuItemCertiArt80Click(Sender: TObject); procedure JfMenuItemFondoDeDesemClick(Sender: TObject); procedure JfMenuItemBoletDeFondoDeDesemClick(Sender: TObject); procedure JfMenuItemComundeVacacClick(Sender: TObject); procedure JfMenuItemGráfiDeVacacClick(Sender: TObject); procedure JfMenuItemDiasDeVacacClick(Sender: TObject); procedure JfMenuItemConceLiquiClick(Sender: TObject); procedure JfMenuItemAcumuPorConceClick(Sender: TObject); procedure JfMenuItemEmplePorPerioClick(Sender: TObject); procedure JfMenuItemCostoDeCadaEmpleParaLaEmpreClick(Sender: TObject); procedure JfMenuItemAcumuParaAguinClick(Sender: TObject); procedure JfMenuItemComunEntreDeRopaClick(Sender: TObject); procedure JfMenuItemNotaEmbarClick(Sender: TObject); procedure JfMenuItemAsienDeSueldClick(Sender: TObject); procedure JfMenuItemModaldeContrClick(Sender: TObject); procedure JfMenuItemInhibRetenGananClick(Sender: TObject); procedure JfMenuItemDeducEmpleClick(Sender: TObject); procedure JfMenuItemCalcuRetenDeGananClick(Sender: TObject); procedure JfMenuItemLiquiFinalDeGananClick(Sender: TObject); procedure ToolButton2Click(Sender: TObject); procedure JvSpeedBarArchiClick(Sender: TObject); procedure JfMenuItemPersonalizarClick(Sender: TObject); procedure JvAppEvents1ActiveFormChange(Sender: TObject); procedure JfMenuItemVBarraDeEstadoClick(Sender: TObject); procedure JfMenuItemVFondoDeSPKitAdministracionClick(Sender: TObject); private public FechaOpera: TDate; vVersionEmpresa: string; vDiasFiltro: Integer; vSimboloMoneda: string; vCodigoMoneda: string; aGruposCuentas: array of Integer; aGruposProve: array of Integer; aGruposItems: array of Integer; aGruposClien: array of Integer; vHelpFile: String; FOldHelpEvent: THelpEvent; procedure Excepciones(Sender: TObject; E: Exception); function HelpCambio(Command : Word; Data : Longint; Var CallHelp : Boolean) : Boolean; function ControlVersion: boolean; end; var fKiPrincipal: TfKiPrincipal; vHabCompras: boolean; vHabStock: boolean; vHabVentas: boolean; vHabFondos: boolean; vHabContabilidad: boolean; vHabCtrlFiscal: boolean; vHabImportarListas: boolean; vHabCITIVentas: boolean; vHabFacAut: boolean; vHabImporTel: boolean; vHabExporDat: boolean; vHabEstSer: boolean; vHabCITICompras: boolean; vHabSucursales: boolean; vHabFacEle: boolean; vHabSueldos: boolean; vNomUsuSel: string; vSuper: string; vPathReg: string; vNombreServidor: string; vPathServidor: string; vPathEmpresas: string; vPathAccesos: string; vPathFormularios: string; vCodEmpreSel: string; vEmpre: TEmpresa; vCodEjerSel: Integer; vFecIniEje: TDate; vFecFinEje: TDate; vFecIniPer: TDate; vFecFinPer: TDate; vCodSucuSel: string; vDenSucuSel: string; vCodTurnoSel: string; vDesTurnoSel: string; vFondoBar: TBitmap; vOptionsBar: TSpeedBarOptions; vEstadoDiagramas: Boolean; oStream: TMemoryStream; Restricciones: TStrings; procedure ModuloComponent(vVentana: TForm); implementation uses PFPersonalizar, JUtiles, PLPlantillas, PLVenPrin, PLDataModule, PLForm, JVacia, MUtiles, MDBUtiles, IBExternals, KiSplash, KiAcercaDe, PFUsuFechaOper, KiPaiseF, KiSucurF, KiAbmF, KiTiposComprF,KiFormuF, KiParamIniciF, SJDistrANSSAObraSociaF, SJMontoAsignFamilF, SJDeducAnualArt23F, SJEscalArt90F, SJVacacF, SJValorAntigF, SJValorImporF, SJFeriaF, SJEmpleF, SJHorarDescaF, SJCambiObraSociaF, SJContrF, SJCambiSituaRevisF, SJPerioNoLaborF, SJEmbarF, SJFechaSalidF, SJCalcuVacacF, SJHaberIniciSacF, SJHaberPagadOtraEmpreF, SJInhibRetenGananF, SJDatosIniciLiquiGananF, SJDeducEmpleF, SJFamilF, SJConceF, SJModelLiquiF, SJCategF, SJModelAsienF, SJExporSicosDeclaF, SJExporUocraF, SJExporUomF, SJExporRenatF, SJExporSindiComerF, KiUsuarF, KiEmpreF, SJAsignConceEmpleF, SJAsignGlobaF, SJAsignEmpleConceF, SJCalcuLiquiSueldJornaF, SJCalcuLiquiSueldJornaBotonF, SJCalcuRetenGananF, SJActuaMasivDatosEmpleF, SJActuaImporF, SJAvisoAutomF, SJFormuF, SJElimiRecibF, KiCiudaF, KiProviF, KiTiposDocumF, KiActivF, KiBancoF, KiCentrCostoF, SJZonasGeogrF, SJModalContraF, SJCodigCondiF, SJSituaRevisF, SJSinieF, SJObrasSociaF, SJOtrasDeducF, SJArtF, SJSindiF, SJSecciF; // Crear y activar ventana Principal ----------------------------------------------------- procedure TfKiPrincipal.JfCApplicationKitInitLoaded(Sender: TObject; var Terminate: Boolean); begin JvFormStoragePrincipal.RestoreFormPlacement; JfCApp.Path := Dirs(DoAplica) + '..\Paquetes\'; JfCApp.PathPkgVars := Dirs(DoAplica) + '..\Paquetes\'; end; procedure TfKiPrincipal.JfCApplicationKitBeforeLoaded(Sender: TObject; var Terminate: Boolean); var oDatCliente: TStringList; vLlave, vClave1, vClave2: String; begin // Obtiene del archivo DatCliente.txt, si el ejecutable está protegido con llave oDatCliente := TStringList.Create; oDatCliente.Clear; oDatCliente.LoadFromFile(Dirs(DoAplica) + 'DatCliente.txt'); vLlave := Trim(oDatCliente.Strings[0]); vClave1 := Trim(oDatCliente.Strings[1]); vClave2 := Trim(oDatCliente.Strings[2]); oDatCliente.Free; if vLlave = 'S' then begin // Habilitación de Módulos con HardKey // IniciarConexionHardKey(vClave1, vClave2); // FinalizarConexionHardKey(vClave1, vClave2); end else begin // Recordar desconectar bases de datos antes de mandar a los clientes // Habilitación de Módulos con HardKey vHabCompras := False; // 101 vHabStock := False; // 102 vHabVentas := False; // 103 vHabFondos := False; // 104 vHabContabilidad := False; // 105 vHabCtrlFiscal := False; // 106 vHabImportarListas := False; // 107 vHabCITIVentas := False; // 108 vHabFacAut := False; // 109 vHabImporTel := False; // 110 vHabExporDat := False; // 111 vHabEstSer := False; // 112 vHabCITICompras := False; // 113 vHabSucursales := False; // 114 vHabFacEle := False; // 115 vHabSueldos := False; // 116 // Habilitación de Módulos sin HardKey vHabCompras := True; vHabStock := True; vHabVentas := True; vHabFondos := True; vHabContabilidad := True; vHabCtrlFiscal := True; vHabImportarListas := True; vHabCITIVentas := True; vHabFacAut := True; vHabImporTel := True; vHabExporDat := True; vHabEstSer := True; vHabCITICompras := True; vHabSucursales := True; vHabFacEle := True; vHabSueldos := True; end; // Path de Claves del Registro de Windows vPathReg := 'Software\Picaso\Administracion\'; { if not FileExists(GetWindowsDirectory+'HOSTS') then begin if JfWndShowModal(Self, nil fKiHosts, TfKiHosts, ceoScreen) = mrCancel then Application.Terminate; end;} // Disco del Servidor de Base de Datos para conexión vNombreServidor := Trim(LeerInfoReg(vPathReg, 'NombreServidor', '')) + ':'; // Path del Servidor de Base de Datos para carpetas de empresas vPathServidor := Trim(LeerInfoReg(vPathReg, 'PathServidor', '')); // Path de instalación de Bases de Datos vPathEmpresas := vPathServidor + '..\Empresas\'; vPathEmpresas := '200.43.69.119:C:\Archivos de Programa\Picaso\Administracion\Servidor\Empresas\'; // Path de Paquetes de Accesos de Usuarios vPathAccesos := vPathServidor + '..\Accesos\'; // Path de Formularios vPathFormularios := vPathServidor + '..\Formularios\'; SeteaApli(fKiPrincipal, fKiPrincipal.CoolBarPrin, fkiprincipal.SpeedBarArchivo, fKiPrincipal.SpeedBarNovedades, fKiPrincipal.SpeedBarInformes, fKiPrincipal.SpeedBarConfiguracion, fKiPrincipal.SpeedBarUtilidades, Nil, vPathReg, vNombreServidor, vPathAccesos); // JvFormStoragePrincipal.RestoreFormPlacement; // JfWndShow(Self, fKiSplash, TfKiSplash, ceoScreen); end; procedure TfKiPrincipal.FormCreate(Sender: TObject); begin // JvFormStoragePrincipal.RestoreFormPlacement; //JvAppRegistryStorage1.Path := vPathReg; //JvAppRegistryStorage1.Root := vPathReg; //FormStoragePrincipal.IniFileName := vPathReg; //FormStoragePrincipal.UseRegistry := True; vNomUsuSel := ''; vSuper := 'F'; vEmpre := TEmpresa.Create; oStream := TMemoryStream.Create; //JfFocusImageAyuda.Picture.SaveToStream(oStream); oStream.Position := 0; //JfFocusImageAyuda.Free; Restricciones:= TStringList.Create; CargarDiccionario(Dirs(DoAplica)+NombreDiccio); Application.OnException := Excepciones; end; procedure TfKiPrincipal.JfCApplicationKitAfterLoaded(Sender: TObject; var Terminate: Boolean); var Year, Month, Day: Word; oDataSet: TIBDataSet; oTransaction: TIBTransaction; vVersionKit: string; begin // Se asigna el evento a ejecutar cuando se presiona F1 FOldHelpEvent := Application.OnHelp; Application.OnHelp := HelpCambio; // Path del archivo de help chm vHelpFile := Dirs(DoAplica) + '..\Ayuda\PicasoAdministracionAyuda.chm'; if not FileExists(vHelpFile) then Mensa('No existe el archivo de ayuda '#13+vHelpFile); // Llama el HTML Help // LoadHtmlHelp; //if HHCtrlHandle = 0 then // Mensa('HTML Help no está instalado en esta PC'); if UsuarioyFecha(vNomUsuSel, FechaOpera, 'I') then SetStatusBar; // Si es el primer acceso graba el directorio de la empresa ejemplo {CrearDataModule(TdKiDMEmpresas, dKiDMEmpresas); AbrirDS([dKiDMEmpresas.IBDataSetEmpresas]); with dKiDMEmpresas.IBDataSetEmpresas do begin First; if Trim(FieldByName('DirEmpresa').AsString) = '' then begin Try dKiDMEmpresas.Tag := 1; Edit; FieldByName('DirEmpresa').AsString := vPathEmpresas + '1\'; Post; FinalTrans(dKiDMEmpresas.IBTransactionEmpresas, [dKiDMEmpresas.IBDataSetEmpresas]); except on E:exception do if not ErrorDB(E, True) then begin if dKiDMEmpresas.IBTransactionEmpresas.InTransaction then dKiDMEmpresas.IBTransactionEmpresas.RollBack; end; end; end; end; CerrarDS([dKiDMEmpresas.IBDataSetEmpresas]); dKiDMEmpresas.Free; } vCodEmpreSel := LeerInfoReg(vPathReg, 'CodigoEmpresaSele', '1' ); vCodEjerSel := LeerInfoReg(vPathReg, 'CodigoEjercicioSele', '2004' ); { // Asignar Empresa AsignaEmpre(vCodEmpreSel); // Asignar Ejercicio Contable if vHabContabilidad then AsignaEje(vCodEjerSel); // Asignar Sucursal AsignaSucu; // Asigna composición de los Códigos de Agrupaciones SetLength(aGruposCuentas, 6); SetLength(aGruposItems, 3); SetLength(aGruposProve, 3); SetLength(aGruposClien, 3); CrearDataModule(TdKiDMParametros, dKiDMParametros); with dKiDMParametros.IBDataSetCGParametros do begin if not isEmpty then begin aGruposCuentas[0] := FieldByName('Nivel1').AsInteger; aGruposCuentas[1] := FieldByName('Nivel2').AsInteger; aGruposCuentas[2] := FieldByName('Nivel3').AsInteger; aGruposCuentas[3] := FieldByName('Nivel4').AsInteger; aGruposCuentas[4] := FieldByName('Nivel5').AsInteger; aGruposCuentas[5] := FieldByName('Nivel6').AsInteger; end else begin aGruposCuentas[0] := 12; aGruposCuentas[1] := 0; aGruposCuentas[2] := 0; aGruposCuentas[3] := 0; aGruposCuentas[4] := 0; aGruposCuentas[5] := 0; end; end; with dKiDMParametros.IBDataSetParametros do begin if not isEmpty then begin First; if FieldByName('PeriCarga').AsInteger = 0 Then begin vFecIniPer := FechaOpera; vFecFinPer := FechaOpera; end else if FieldByName('PeriCarga').AsInteger = 1 Then begin DecodeDate(FechaOpera, Year, Month, Day); vFecIniPer := EncodeDate(Year, Month, 1); vFecFinPer := EncodeDate(Year, Month, DaysPerMonth(Year, Month)); end else if FieldByName('PeriCarga').AsInteger = 2 Then begin vFecIniPer := FieldByName('FeDesCarga').Value; vFecFinPer := FieldByName('FeHasCarga').Value; end; aGruposItems[0] := FieldByName('GrupoItem1').AsInteger; aGruposItems[1] := FieldByName('GrupoItem2').AsInteger; aGruposItems[2] := FieldByName('GrupoItem3').AsInteger; aGruposProve[0] := FieldByName('GrupoProve1').AsInteger; aGruposProve[1] := FieldByName('GrupoProve2').AsInteger; aGruposProve[2] := FieldByName('GrupoProve3').AsInteger; aGruposClien[0] := FieldByName('GrupoClie1').AsInteger; aGruposClien[1] := FieldByName('GrupoClie2').AsInteger; aGruposClien[2] := FieldByName('GrupoClie3').AsInteger; //vDiasFiltro := FieldByName('DiasFiltroGrilla').AsInteger; vDiasFiltro := LeerInfoReg(vPathReg, 'DiasFiltroGrilla', FieldByName('DiasFiltroGrilla').AsInteger ); if dKiDMParametros.IBDataSetMonedas.Locate('Codigo', FieldByName('MonedaCte').AsString, []) then begin vSimboloMoneda := dKiDMParametros.IBDataSetMonedas['Simbolo']; vCodigoMoneda := dKiDMParametros.IBDataSetMonedas['Codigo']; end; end else begin vFecIniPer := vFecIniEje; vFecFinPer := vFecFinEje; aGruposItems[0] := 12; aGruposItems[1] := 0; aGruposItems[2] := 0; aGruposProve[0] := 12; aGruposProve[1] := 0; aGruposProve[2] := 0; aGruposClien[0] := 12; aGruposClien[1] := 0; aGruposClien[2] := 0; end; end; dKiDMParametros.Free; } fKiPrincipal.WindowState := LeerInfoReg(vPathReg, 'EstadoVentanaPrincipal', wsNormal); vVersionKit := '8.05.151'; { oTransaction := TIBTransaction.Create(nil); oDataSet := TIBDataSet.Create(nil); try oTransaction.DefaultDatabase := IBDatabaseKit; with oDataSet do begin Transaction := oTransaction; SelectSQL.Clear; SelectSQL.Add('SELECT COUNT(*) FROM RDB$RELATION_FIELDS'); SelectSQL.Add('WHERE RDB$RELATION_NAME = ' + QuotedStr('VERSION')); SelectSQL.Add(' AND RDB$FIELD_NAME = ' + QuotedStr('VERSION')); if AbrirDS([oDataSet]) then if Fields[0].AsInteger > 0 then begin SelectSQL.Clear; SelectSQL.Add('SELECT Version FROM Version'); if AbrirDS([oDataSet]) then vVersionKit := FieldByName('Version').AsString; end; end; finally CerrarDS([oDataSet]); oDataSet.Free; oTransaction.Free; end;} if vVersionKit <> VERSION then begin Mensa('Falta ejecutar la aplicación de Actualización de archivos.', 4); //ActualizarYRepararClick(nil); Application.Terminate; end; // JvFormStoragePrincipal.RestoreFormPlacement;// end; // Controla la versión de la base de datos function TfKiPrincipal.ControlVersion: boolean; begin Result := VERSION = vVersionEmpresa; if not Result then Mensa('La empresa seleccionada no está actualizada.'#13'En la opción , del menú'#13'podrá realizar la actualización correspondiente...', 4); end; // Asigna Turno abierto {procedure TfKiPrincipal.AsignaTurno; var oDataSet: TIBDataSet; oTransaction: TIBTransaction; begin vDenSucuSel := ' '; vCodTurnoSel := ' '; vDesTurnoSel := ' '; // Obtiene denominación de Sucursal asignada y Turno abierto en Sucursal asignada if (vCodSucuSel <> ' ') and (vCodSucuSel <> '') then begin oTransaction := TIBTransaction.Create(nil); oDataSet := TIBDataSet.Create(nil); try oTransaction.DefaultDatabase := IBDatabaseEmpre; with oDataSet do begin Transaction := oTransaction; SelectSQL.Clear; SelectSQL.Add('SELECT KiSucu.Codigo, KiSucu.Denominacion, KiSucu.CodTurno, KiTurnos.Descripcion As DesTurno FROM KiSucu'); SelectSQL.Add('LEFT JOIN KiTurnos on KiSucu.CodTurno = KiTurnos.Codigo'); SelectSQL.Add('WHERE KiSucu.Codigo = :CodSucuSel'); ParamByName('CodSucuSel').AsString := vCodSucuSel; if AbrirDS([oDataSet]) then if not oDataSet.IsEmpty then begin First; vDenSucuSel := FieldByName('Denominacion').AsString; vCodTurnoSel := FieldByName('CodTurno').AsString; vDesTurnoSel := FieldByName('DesTurno').AsString; end else begin vCodSucuSel := ' '; Mensa('No se asignó, ni seleccionó sucursal.'#13'Deberá seleccionar sucursal, en la opción Archivo - Abrir Sucursal', 3); end; end; finally CerrarDS([oDataSet]); oDataSet.Free; oTransaction.Free; end; end; SetStatusBar; end; } procedure TfKiPrincipal.JfCFormKiPrincipalActivate(Sender: TObject); begin fKiPrincipal.JfPageDiagramas.Visible := False; if JfMenuItemVFondoDeSPKitAdministracion.Checked then JfCFormKiPrincipal.SetBackGround.Name := 'Fon0VenPri' else JfCFormKiPrincipal.SetBackGround.Name := 'Fon1VenHijas'; ModuloComponent(fKiPrincipal); end; procedure TfKiPrincipal.AppEventsKitActiveFormChange(Sender: TObject); begin end; // Función de uso general para hacer no visibles los componentes que pertenecen a módulos no vendidos procedure ModuloComponent(vVentana: TForm); var vI, vF, vPagina: Integer; vPage: TJfPageControl; vCompo: string; begin for vI := 0 to vVentana.ComponentCount - 1 do begin // No está habilitado el módulo y el componente pertenece a ese módulo if ((not vHabCompras) and (vVentana.Components[vI].Tag = 101)) or ((not vHabStock) and (vVentana.Components[vI].Tag = 102)) or ((not vHabVentas) and (vVentana.Components[vI].Tag = 103)) or ((not vHabFondos) and (vVentana.Components[vI].Tag = 104)) or ((not vHabContabilidad) and (vVentana.Components[vI].Tag = 105)) or ((not vHabCtrlFiscal) and (vVentana.Components[vI].Tag = 106)) or ((not vHabImportarListas) and (vVentana.Components[vI].Tag = 107)) or ((not vHabCITIVentas) and (vVentana.Components[vI].Tag = 108)) or ((not vHabFacAut) and (vVentana.Components[vI].Tag = 109)) or ((not vHabImporTel) and (vVentana.Components[vI].Tag = 110)) or ((not vHabExporDat) and (vVentana.Components[vI].Tag = 111)) or ((not vHabEstSer) and (vVentana.Components[vI].Tag = 112)) or ((not vHabCITICompras) and (vVentana.Components[vI].Tag = 113)) or ((not vHabSucursales) and (vVentana.Components[vI].Tag = 114)) or ((not vHabFacEle) and (vVentana.Components[vI].Tag = 115)) or ((not vHabSueldos) and (vVentana.Components[vI].Tag = 116)) then begin vCompo := vVentana.Components[vI].Name; if vVentana.Components[vI] is TJFTabSheet then begin vPage := TJfPageControl(TJFTabSheet(vVentana.Components[vI]).PageControl); vPagina := TJFTabSheet(vVentana.Components[vI]).Id; for vF := 0 to vPage.Tabs.Count - 1 do if vPage.Tabs[vF].PageId = vPagina then vPage.Tabs.Items[vF].Visible := false; end; if vVentana.Components[vI] is TSpeedItem then TSpeedItem(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFMenuItem then TJFMenuItem(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFSpeedButton then TJFSpeedButton(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFEdit then TJFEdit(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFDbEdit then TJFDbEdit(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFRichEdit then TJFRichEdit(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFDbRichEdit then TJFDbRichEdit(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFMemo then TJFMemo(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFDbMemo then TJFDbMemo(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFComboBox then TJFComboBox(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFDbComboBox then TJFDbComboBox(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFSinglePanel then TJFSinglePanel(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFCheckBox then TJFCheckBox(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFDbCheckBox then TJFDbCheckBox(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFRadioButton then TJFRadioButton(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFRadioGroup then TJFRadioGroup(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFDbRadioGroup then TJFDbRadioGroup(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFDbLookUpComboBox then TJFDbLookUpComboBox(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFImage then TJFImage(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFDbImage then TJFDbImage(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFUpDown then TJFUpDown(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFListBox then TJFListBox(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TJFDbListBox then TJFDbListBox(vVentana.Components[vI]).Visible := false; if vVentana.Components[vI] is TControl then TControl(vVentana.Components[vI]).Visible := false; end; end; end; // Módulos ------------------------------------------------------------------------------- // Activa JfPageControl de Diagrama de Ejecución de Módulos procedure TfKiPrincipal.ActivaDiagrama(vModulo: Short); var vId: Short; begin JfPageDiagramas.BeginLoading; JfPageDiagramas.Visible := False; JfPageDiagramas.EndLoading; for vId := 0 to 5 do if vId = vModulo then JfPageDiagramas.Tabs[vId].Visible := True else JfPageDiagramas.Tabs[vId].Visible := False; next; JfPageDiagramas.Tabs[vModulo].Active := True; JfPageDiagramas.BeginLoading; JfPageDiagramas.Visible := True; JfPageDiagramas.EndLoading; vEstadoDiagramas := True; end; // Desactiva JfPageControl de Diagrama de Ejecución de Módulos procedure TfKiPrincipal.JfSpeedButton1Click(Sender: TObject); begin if vHabCompras then ActivaDiagrama(0) else Mensa('El módulo Compras no se encuentra instalado'); end; procedure TfKiPrincipal.JfSpeedButton2Click(Sender: TObject); begin if vHabStock then ActivaDiagrama(1) else Mensa('El módulo Stock no se encuentra instalado'); end; procedure TfKiPrincipal.JfSpeedButton3Click(Sender: TObject); begin if vHabVentas then ActivaDiagrama(2) else Mensa('El módulo Ventas no se encuentra instalado'); end; procedure TfKiPrincipal.JfSpeedButton4Click(Sender: TObject); begin if vHabFondos then ActivaDiagrama(3) else Mensa('El módulo Fondos no se encuentra instalado'); end; procedure TfKiPrincipal.JfSpeedButtonSueldosClick(Sender: TObject); begin if vHabSueldos then ActivaDiagrama(4) else Mensa('El módulo Sueldos no se encuentra instalado'); end; procedure TfKiPrincipal.JfSpeedButton5Click(Sender: TObject); begin if vHabContabilidad then ActivaDiagrama(5) else Mensa('El módulo Contabilidad no se encuentra instalado'); end; procedure TfKiPrincipal.JfSpeedButtonCerrarPageDiagramasClick(Sender: TObject); begin JfPageDiagramas.BeginLoading; JfPageDiagramas.Visible := False; JfPageDiagramas.EndLoading; vEstadoDiagramas := False; end; // Archivo ------------------------------------------------------------------------------- procedure TfKiPrincipal.AbrirEmpreClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.AbrirSucuClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.SalirClick(Sender: TObject); begin CerrarVentana(Self); end; // Achivo - Exportar - Sueldos ---------------------------------------------------------- procedure TfKiPrincipal.JfMenuItemAFIPSICOSDeclaClick( Sender: TObject); begin Crearventana(TvfSJExporSICOSDecla, vfSJExporSICOSDecla); Abrirventana(TvfSJExporSICOSDecla, vfSJExporSICOSDecla); end; procedure TfKiPrincipal.JfMenuItemUOCRAClick(Sender: TObject); begin Crearventana(TvfSJExporUocra, vfSJExporUocra); Abrirventana(TvfSJExporUocra, vfSJExporUocra); end; procedure TfKiPrincipal.JfMenuItemUOMClick(Sender: TObject); begin Crearventana(TvfSJExporUom, vfSJExporUom); Abrirventana(TvfSJExporUom, vfSJExporUom); end; procedure TfKiPrincipal.JfMenuItemRENATClick(Sender: TObject); begin Crearventana(TvfSJExporRenat, vfSJExporRenat); Abrirventana(TvfSJExporRenat, vfSJExporRenat); end; procedure TfKiPrincipal.JfMenuItemSindicDeComerClick(Sender: TObject); begin CrearVentana(TvfSJExporSindiComer, vfSJExporSindiComer); AbrirVentana(TvfSJExporSindiComer, vfSJExporSindiComer); end; // Archivo - Nuevo - Tablas Generales --------------------------------------------------- procedure TfKiPrincipal.JfMenuItemEmpreClick(Sender: TObject); begin CrearVentana(TvfKiEmpre, vfKiEmpre); AbrirVentana(TvfKiEmpre, vfKiEmpre); end; procedure TfKiPrincipal.JfMenuItemSucurClick(Sender: TObject); begin CrearVentana(TvfKiSucur, vfKiSucur); AbrirVentana(TvfKiSucur, vfKiSucur); end; procedure TfKiPrincipal.JfMenuItemUsuarAccesClick(Sender: TObject); begin CrearVentana(TvfKiUsuar, vfKiUsuar); Abrirventana(TvfKiUsuar, vfKiUsuar); end; procedure TfKiPrincipal.JfMenuItemCiudaClick(Sender: TObject); begin CrearVentana(TvfKiCiuda, vfKiCiuda); AbrirVentana(TvfKiCiuda, vfKiCiuda); end; procedure TfKiPrincipal.JfMenuItemProviClick(Sender: TObject); begin CrearVentana(TvfKiProvi, vfKiProvi); AbrirVentana(TvfKiProvi, vfKiProvi); end; procedure TfKiPrincipal.JfMenuItemPaiseClick(Sender: TObject); begin CrearVentana(TvfKiPaise, vfKiPaise); AbrirVentana(TvfKiPaise, vfKiPaise); end; procedure TfKiPrincipal.JfMenuItemTiposdeDocumClick(Sender: TObject); begin CrearVentana(TvfKiTiposDocum, vfKiTiposDocum); AbrirVentana(TvfKiTiposDocum, vfKiTiposDocum); end; procedure TfKiPrincipal.JfMenuItemActivClick(Sender: TObject); begin CrearVentana(TvfKiActiv, vfKiActiv); AbrirVentana(TvfKiActiv, vfKiActiv); end; procedure TfKiPrincipal.JfMenuItemBancoClick(Sender: TObject); begin CrearVentana(TvfKiBanco, vfKiBanco); AbrirVentana(TvfKiBanco, vfKiBanco); end; procedure TfKiPrincipal.JfMenuItemCentrdeCostoClick(Sender: TObject); begin CrearVentana(TvfKiCentrCosto, vfKiCentrCosto); AbrirVentana(TvfKiCentrCosto, vfKiCentrCosto); end; procedure TfKiPrincipal.JfMenuItemTiposdeComprClick(Sender: TObject); begin CrearVentana(TvfKiTiposCompr, vfKiTiposCompr); AbrirVentana(TvfKiTiposCompr, vfKiTiposCompr); end; procedure TfKiPrincipal.JfMenuItemFormuClick(Sender: TObject); begin Crearventana(TvfKIFormu, vfKiFormu); AbrirVentana(TvfKiFormu, vfKiFormu); end; // Archivo - Nuevo - Tablas Sueldos ----------------------------------------------------- procedure TfKiPrincipal.JfMenuItemARTClick(Sender: TObject); begin Crearventana(TvfSJArt, vfSJArt); AbrirVentana(TvfSJArt, vfSJArt); end; procedure TfKiPrincipal.JfMenuItemVacacClick(Sender: TObject); begin Crearventana(TvfSJVacac, vfSJVacac); AbrirVentana(TvfSJVacac, vfSJVacac); end; procedure TfKiPrincipal.JfMenuItemValorPorAntigClick(Sender: TObject); begin Crearventana(TvfSJValorAntig, vfSJValorAntig); AbrirVentana(TvfSJValorAntig, vfSJValorAntig); end; procedure TfKiPrincipal.JfMenuItemValorPorImporClick(Sender: TObject); begin CrearVentana(TvfSJValorImpor, vfSJValorImpor); AbrirVentana(TvfSJValorImpor, vfSJValorImpor); end; procedure TfKiPrincipal.JfMenuItemFeriaClick(Sender: TObject); begin Crearventana(TvfSJFeria, vfSJFeria); AbrirVentana(TvfSJFeria, vfSJFeria); end; procedure TfKiPrincipal.JfMenuItemFamiliaresClick(Sender: TObject); begin Crearventana(TvfSJFamil, vfSJFamil); AbrirVentana(TvfSJFamil, vfSJFamil); end; procedure TfKiPrincipal.JfMenuItemConceClick(Sender: TObject); begin Crearventana(TvfSJConce, vfSJConce); AbrirVentana(TvfSJConce, vfSJConce); end; procedure TfKiPrincipal.JfMenuItemFormulasClick(Sender: TObject); begin Crearventana(TvfSJFormu, vfSJFormu); AbrirVentana(TvfSJFormu, vfSJFormu); end; procedure TfKiPrincipal.JfMenuItemModeloDeLiquiClick(Sender: TObject); begin Crearventana(TvfSJModelLiqui, vfSJModelLiqui); AbrirVentana(TvfSJModelLiqui, vfSJModelLiqui); end; procedure TfKiPrincipal.JfMenuItemSindiClick(Sender: TObject); begin Crearventana(TvfSJSindi, vfSJSindi); AbrirVentana(TvfSJSindi, vfSJSindi); end; procedure TfKiPrincipal.JfMenuItemCategClick(Sender: TObject); begin Crearventana(TvfSJCateg, vfSJCateg); AbrirVentana(TvfSJCateg, vfSJCateg); end; procedure TfKiPrincipal.JfMenuItemCargoClick(Sender: TObject); begin Crearventana(TvfAbm, vfAbm); AbrirVentana(TvfAbm, vfAbm); end; procedure TfKiPrincipal.JfMenuItemSecciClick(Sender: TObject); begin Crearventana(TvfSJSecci, vfSJSecci); AbrirVentana(TvfSJSecci, vfSJSecci); end; procedure TfKiPrincipal.JfMenuItemModelDeAsienClick(Sender: TObject); begin Crearventana(TvfSJModelAsien, vfSJModelAsien); AbrirVentana(TvfSJModelAsien, vfSJModelAsien); end; // Archivo - Nuevo - Tablas Sueldos - Tablas AFIP --------------------------------------- procedure TfKiPrincipal.JfMenuItemZonasGeogrClick(Sender: TObject); begin CrearVentana(TvfSJZonasGeogr, vfSJZonasGeogr); AbrirVentana(TvfSJZonasGeogr, vfSJZonasGeogr); end; procedure TfKiPrincipal.JfMenuItemModaldeContrClick( Sender: TObject); begin CrearVentana(TvfSJModalContra, vfSJModalContra); AbrirVentana(TvfSJModalContra, vfSJModalContra); end; procedure TfKiPrincipal.JfMenuItemSituadeRevisClick(Sender: TObject); begin CrearVentana(TvfSJSituaRevis, vfSJSituaRevis); AbrirVentana(TvfSJSituaRevis, vfSJSituaRevis); end; procedure TfKiPrincipal.JfMenuItemCódigdeCondiClick(Sender: TObject); begin CrearVentana(TvfSJCodigCondi, vfSJCodigCondi); AbrirVentana(TvfSJCodigCondi, vfSJCodigCondi); end; procedure TfKiPrincipal.JfMenuItemObrasSociaClick(Sender: TObject); begin Crearventana(TvfSJObrasSocia, vfSJObrasSocia); AbrirVentana(TvfSJObrasSocia, vfSJObrasSocia); end; procedure TfKiPrincipal.JfMenuItemSinieClick(Sender: TObject); begin Crearventana(TvfSJSinie, vfSJSinie); AbrirVentana(TvfSJSinie, vfSJSinie); end; procedure TfKiPrincipal.JfMenuItemDistribucionANSSAObraSociaClick( Sender: TObject); begin Crearventana(TvfSJDistrAnssaObraSocia, vfSJDistrAnssaObraSocia); AbrirVentana(TvfSJDistrAnssaObraSocia, vfSJDistrAnssaObraSocia); end; procedure TfKiPrincipal.JfMenuItemMontoAsignFamilClick( Sender: TObject); begin Crearventana(TvfSJMontoAsignFamil, vfSJMontoAsignFamil); AbrirVentana(TvfSJMontoAsignFamil, vfSJMontoAsignFamil); end; // Archivo - Nuevo - Tablas Sueldos - Tablas Ganancias ---------------------------------- procedure TfKiPrincipal.JfMenuItemDeducAnualArt23Click( Sender: TObject); begin Crearventana(TvfSJDeducAnualArt23, vfSJDeducAnualArt23); AbrirVentana(TvfSJDeducAnualArt23, vfSJDeducAnualArt23); end; procedure TfKiPrincipal.JfMenuItemOtrasDeducClick(Sender: TObject); begin Crearventana(TvfSJOtrasDeduc, vfSJOtrasDeduc); AbrirVentana(TvfSJOtrasDeduc, vfSJOtrasDeduc); end; procedure TfKiPrincipal.JfMenuItemEscalArt90RG2027Click(Sender: TObject); begin Crearventana(TvfSJEscalArt90, vfSJEscalArt90); AbrirVentana(TvfSJEscalArt90, vfSJEscalArt90); end; // Archivo - Nuevo - Tablas Sueldos - Tablas Empleados ---------------------------------- procedure TfKiPrincipal.JfMenuItemSubEmpleClick(Sender: TObject); begin Crearventana(TvfSJEmple, vfSJEmple); AbrirVentana(TvfSJEmple, vfSJEmple); end; procedure TfKiPrincipal.JfMenuItemHoraryDescaClick(Sender: TObject); begin Crearventana(TvfSJHorarDesca, vfSJHorarDesca); AbrirVentana(TvfSJHorarDesca, vfSJHorarDesca); end; procedure TfKiPrincipal.JfMenuItemCambiDeObraSociaClick(Sender: TObject); begin Crearventana(TvfSJCambiObraSocia, vfSJCambiObraSocia); AbrirVentana(TvfSJCambiObraSocia, vfSJCambiObraSocia); end; procedure TfKiPrincipal.JfMenuItemContrClick(Sender: TObject); begin Crearventana(TvfSJContr, vfSJContr); AbrirVentana(TvfSJContr, vfSJContr); end; procedure TfKiPrincipal.JfMenuItemCambiDeSituaDeRevisClick( Sender: TObject); begin Crearventana(TvfSJCambiSituaRevis, vfSJCambiSituaRevis); AbrirVentana(TvfSJCambiSituaRevis, vfSJCambiSituaRevis); end; procedure TfKiPrincipal.JfMenuItemPerioNoLaborClick(Sender: TObject); begin Crearventana(TvfSJPerioNoLabor, vfSJPerioNoLabor); AbrirVentana(TvfSJPerioNoLabor, vfSJPerioNoLabor); end; procedure TfKiPrincipal.JfMenuItemPersonalizarClick(Sender: TObject); begin Personaliza(fKiPrincipal.CoolBarPrin, fKiPrincipal.SpeedBarArchivo, fKiPrincipal.SpeedBarNovedades, fKiPrincipal.SpeedBarInformes, fKiPrincipal.SpeedBarConfiguracion, fKiPrincipal.SpeedBarUtilidades, Nil, fKiPrincipal.JvSpeedBarSectionArchi, fKiPrincipal.JvSpeedBarSectionNoved, fKiPrincipal.JvSpeedBarSectionInfor, fKiPrincipal.JvSpeedBarSectionConfi, fKiPrincipal.JvSpeedBarSectionUtili, Nil); end; procedure TfKiPrincipal.JfMenuItemEmbarClick(Sender: TObject); begin Crearventana(TvfSJEmbar, vfSJEmbar); AbrirVentana(TvfSJEmbar, vfSJEmbar); end; procedure TfKiPrincipal.JfMenuItemCalcuVacacClick(Sender: TObject); begin Crearventana(TvfSJCalcuVacac, vfSJCalcuVacac); AbrirVentana(TvfSJCalcuVacac, vfSJCalcuVacac); end; procedure TfKiPrincipal.JfMenuItemCargaFechaDeSalidDeVacacClick( Sender: TObject); begin Crearventana(TvfSJFechaSalid, vfSJFechaSalid); AbrirVentana(TvfSJFechaSalid, vfSJFechaSalid); end; procedure TfKiPrincipal.JfMenuItemHabarIniciPorSACClick(Sender: TObject); begin Crearventana(TvfSJHaberIniciSac, vfSJHaberIniciSac); AbrirVentana(TvfSJHaberIniciSac, vfSJHaberIniciSac); end; procedure TfKiPrincipal.JfMenuItemHaberPagadPorOtraEmpreClick( Sender: TObject); begin Crearventana(TvfSJHaberPagadOtraEmpre, vfSJHaberPagadOtraEmpre); AbrirVentana(TvfSJHaberPagadOtraEmpre, vfSJHaberPagadOtraEmpre); end; procedure TfKiPrincipal.JfMenuItemGananClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemInhibRetenGananClick(Sender: TObject); begin CrearVentana(TvfSJInhibRetenGanan, vfSJInhibRetenGanan); AbrirVentana(TvfSJInhibRetenGanan, vfSJInhibRetenGanan); end; procedure TfKiPrincipal.JfMenuItemDatosIniciParaLiquiGananClick( Sender: TObject); begin CrearVentana(TvfSJDatosIniciLiquiGanan, vfSJDatosIniciLiquiGanan); AbrirVentana(TvfSJDatosIniciLiquiGanan, vfSJDatosIniciLiquiGanan); end; procedure TfKiPrincipal.JfMenuItemDeducEmpleClick(Sender: TObject); begin Crearventana(TvfSJDeducEmple, vfSJDeducEmple); AbrirVentana(TvfSJDeducEmple, vfSJDeducEmple); end; // Edición ------------------------------------------------------------------------------- procedure TfKiPrincipal.JfMenuItemEdicionClick(Sender: TObject); begin ActualizarMenuItems(JfMenuItemDeshacer, JfMenuItemCortar, JfMenuItemCopiar, JfMenuItemPegar, JfMenuItemEliminar, JfMenuItemSeleccionarTodo); end; procedure TfKiPrincipal.JfMenuItemDeshacerClick(Sender: TObject); begin EjecutarEdicion(WM_UNDO); end; procedure TfKiPrincipal.JfMenuItemCortarClick(Sender: TObject); begin EjecutarEdicion(WM_CUT); end; procedure TfKiPrincipal.JfMenuItemCopiarClick(Sender: TObject); begin EjecutarEdicion(WM_COPY); end; procedure TfKiPrincipal.JfMenuItemPegarClick(Sender: TObject); begin EjecutarEdicion(WM_PASTE); end; procedure TfKiPrincipal.JfMenuItemEliminarClick(Sender: TObject); begin EjecutarEdicion(WM_CLEAR); end; procedure TfKiPrincipal.JfMenuItemSeleccionarTodoClick(Sender: TObject); begin SeleccionarTodo; end; // Ver ----------------------------------------------------------------------------------- procedure TfKiPrincipal.VerArchivoClick(Sender: TObject); begin VerBarraHerra(JfMenuItemVBArchivo, JfMenuItemPopupArchivo, SpeedBarArchivo); end; procedure TfKiPrincipal.VerNovedadesClick(Sender: TObject); begin VerBarraHerra(JfMenuItemVBNovedades, JfMenuItemPopupNovedades, SpeedBarNovedades); end; procedure TfKiPrincipal.VerInformesClick(Sender: TObject); begin VerBarraHerra(JfMenuItemVBInformes, JfMenuItemPopupInformes, SpeedBarInformes); end; procedure TfKiPrincipal.VerConfiguracionClick(Sender: TObject); begin VerBarraHerra(JfMenuItemVBConfiguracion, JfMenuItemPopupConfiguracion, SpeedBarConfiguracion); end; procedure TfKiPrincipal.VerUtilidadesClick(Sender: TObject); begin VerBarraHerra(JfMenuItemVBUtilidades, JfMenuItemPopupUtilidades, SpeedBarUtilidades); end; procedure TfKiPrincipal.JfMenuItemVBarraDeEstadoClick(Sender: TObject); begin VerBarraEstado(JfMenuItemVBarraDeEstado, JfStatusBar); end; procedure TfKiPrincipal.JfMenuItemVFondoDeSPKitAdministracionClick( Sender: TObject); begin VerImagenPrincipal(JfMenuItemVFondoDeSPKitAdministracion, JfMenuItemPopupFondoDeSPKitAdministracion, JfCFormKiPrincipal, fKiPrincipal); end; // Novedades - Sueldos ------------------------------------------------------------------ procedure TfKiPrincipal.JfMenuItemAsignConcePorEmpleClick( Sender: TObject); begin Crearventana(TvfSJAsignConceEmple, vfSJAsignConceEmple); AbrirVentana(TvfSJAsignConceEmple, vfSJAsignConceEmple); Crearventana(TvfSJAsignGloba, vfSJAsignGloba); AbrirVentana(TvfSJAsignGloba, vfSJAsignGloba); end; procedure TfKiPrincipal.JfMenuItemAsignEmplePorConceClick( Sender: TObject); begin Crearventana(TvfSJAsignEmpleConce, vfSJAsignEmpleConce); AbrirVentana(TvfSJAsignEmpleConce, vfSJAsignEmpleConce); end; procedure TfKiPrincipal.JfMenuItemCalcuLiquiSueldJornaClick(Sender: TObject); begin Crearventana(TvfSJCalcuLiquiSueldJorna, vfSJCalcuLiquiSueldJorna); AbrirVentana(TvfSJCalcuLiquiSueldJorna, vfSJCalcuLiquiSueldJorna); Crearventana(TvfSJCalcuLiquiSueldJornaBoton, vfSJCalcuLiquiSueldJornaBoton); AbrirVentana(TvfSJCalcuLiquiSueldJornaBoton, vfSJCalcuLiquiSueldJornaBoton); Crearventana(TvfSJElimiRecib, vfSJElimiRecib); AbrirVentana(TvfSJElimiRecib, vfSJElimiRecib); end; procedure TfKiPrincipal.JfMenuItemCalcuRetenDeGananClick(Sender: TObject); begin Crearventana(TvfSJCalcuRetenGanan, vfSJCalcuRetenGanan); AbrirVentana(TvfSJCalcuRetenGanan, vfSJCalcuRetenGanan); end; procedure TfKiPrincipal.JfMenuItemEmisiDeRecibClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemActuaMasivDatosDeLosEmpleClick( Sender: TObject); begin Crearventana(TvfSJActuaMasivDatosEmple, vfSJActuaMasivDatosEmple); AbrirVentana(TvfSJActuaMasivDatosEmple, vfSJActuaMasivDatosEmple); end; procedure TfKiPrincipal.JfMenuItemActuaDeImporClick( Sender: TObject); begin Crearventana(TvfSJActuaImpor, vfSJActuaImpor); AbrirVentana(TvfSJActuaImpor, vfSJActuaImpor); end; procedure TfKiPrincipal.JfMenuItemAvisoAutomClick(Sender: TObject); begin Crearventana(TvfSJAvisoAutom, vfSJAvisoAutom); AbrirVentana(TvfSJAvisoAutom, vfSJAvisoAutom); end; // Configuración ------------------------------------------------------------------------- procedure TfKiPrincipal.ParametrosClick(Sender: TObject); begin Crearventana(TvfKiParamInici, vfKiParamInici); AbrirVentana(TvfKiParamInici, vfKiParamInici); end; procedure TfKiPrincipal.FechaOperaClick(Sender: TObject); begin // if not ControlVersion then Exit; if MDIChildCount < 1 then begin UsuarioyFecha(vNomUsuSel, FechaOpera, 'F'); SetStatusBar; end else Mensa('Deberá cerrar las ventanas en uso, para cambiar fecha de operatividad', 3); end; procedure TfKiPrincipal.CambiaUsuarioClick(Sender: TObject); begin // if not ControlVersion then Exit; if MDIChildCount < 1 then begin //Asignar Usuario; UsuarioyFecha(vNomUsuSel, FechaOpera, 'U'); //Asignar Sucursal; //AsignaSucu; end else Mensa('Deberá cerrar las ventanas en uso, para cambiar usuario', 3); end; procedure TfKiPrincipal.JfMenuItemControladorFiscalClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.PersonalizarClick(Sender: TObject); begin Personaliza(fKiPrincipal.CoolBarPrin, fKiPrincipal.SpeedBarArchivo, fKiPrincipal.SpeedBarNovedades, fKiPrincipal.SpeedBarInformes, fKiPrincipal.SpeedBarConfiguracion, fKiPrincipal.SpeedBarUtilidades, Nil, fKiPrincipal.JvSpeedBarSectionArchi, fKiPrincipal.JvSpeedBarSectionNoved, fKiPrincipal.JvSpeedBarSectionInfor, fKiPrincipal.JvSpeedBarSectionConfi, fKiPrincipal.JvSpeedBarSectionUtili, Nil); end; // Informes - Sueldos ------------------------------------------------------------------- procedure TfKiPrincipal.JfMenuItemBorraDeLiquiClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemLibroDeSueldyJornaClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemLiquiFinalDeGananClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemSueldyJornaAPagarClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemPlaniDeSueldyJornaClick( Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemFondoDeDesemClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemBoletDeFondoDeDesemClick( Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemComundeVacacClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemGráfiDeVacacClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemDiasDeVacacClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemConceLiquiClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemAcumuPorConceClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemAcumuParaAguinClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemEmplePorPerioClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemCostoDeCadaEmpleParaLaEmpreClick( Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemComunEntreDeRopaClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemNotaEmbarClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemAsienDeSueldClick(Sender: TObject); begin //.. end; // Informes - Sueldos - Cargas Sociales ------------------------------------------------- procedure TfKiPrincipal.JfMenuItemInforObrasSociaClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemSegurSociaClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemInforSindiClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemInforArtClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemInforParaGananPersoFísicClick( Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemOSPREDeclaJuradClick( Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemLaEstreClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemSindiPetroClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemCertiArt80Click(Sender: TObject); begin //.. end; // Ventana ------------------------------------------------------------------------------- procedure TfKiPrincipal.JfMenuItemCascadaClick(Sender: TObject); begin Self.Cascade; end; procedure TfKiPrincipal.JfMenuItemMosaicoHorizontalClick(Sender: TObject); begin Self.TileMode := tbHorizontal; Self.Tile; end; procedure TfKiPrincipal.JfMenuItemMosaicoVerticalClick(Sender: TObject); begin Self.TileMode := tbVertical; Self.Tile; end; procedure TfKiPrincipal.JfMenuItemSiguienteClick(Sender: TObject); begin Self.Next; end; procedure TfKiPrincipal.JfMenuItemAnteriorClick(Sender: TObject); begin Self.Previous; end; procedure TfKiPrincipal.JfMenuItemOrganizarIconosClick(Sender: TObject); begin Self.ArrangeIcons; end; procedure TfKiPrincipal.JfMenuItemMinimizarTodasClick(Sender: TObject); begin MinimizarTodas; end; procedure TfKiPrincipal.JfMenuItemCerrarTodasClick(Sender: TObject); begin CerrarTodas; end; // Ayuda --------------------------------------------------------------------------------- procedure TfKiPrincipal.JfMenuItemContenidoClick(Sender: TObject); begin HtmlHelp(0, PChar(vHelpFile), HH_DISPLAY_TOC, 0); end; procedure TfKiPrincipal.JfMenuItemIndiceClick(Sender: TObject); begin HtmlHelp(0, PChar(vHelpFile), HH_DISPLAY_INDEX, 0); end; procedure TfKiPrincipal.JfMenuItemUsoDeLaAyudaClick(Sender: TObject); begin HtmlHelp(0, PChar(vHelpFile), HH_DISPLAY_TOC, 0); end; procedure TfKiPrincipal.JfMenuItemSopEnvBaseDatoClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemAcercadeClick(Sender: TObject); begin JfWndShowModal(Self, fKiAcercaDe, TfKiAcercaDe, ceoScreen); end; // Utilidades ---------------------------------------------------------------------------- procedure TfKiPrincipal.SpeedItemCalculadoraClick(Sender: TObject); var vValorCalcu: Extended; begin vValorCalcu := 0; JfCApp.Calculator(3, vValorCalcu); end; procedure TfKiPrincipal.SpeedItemCalendarioClick(Sender: TObject); var vFechaCalenda: TDateTime; begin vFechaCalenda := Date; JfCApp.Calendar(vFechaCalenda); end; procedure TfKiPrincipal.ToolButton2Click(Sender: TObject); begin end; // Barra de Estado ----------------------------------------------------------------------- procedure TfKiPrincipal.JfStatusBarClickPanel(Sender: TObject; APanel: TJfStatusBarPanel); begin try case APanel.Index of 1: AbrirEmpreClick(Sender); 2: ; //if vHabContabilidad then AbrirEjerClick(Sender); 3: AbrirSucuClick(Sender); 4: ; //AbrirTurnoClick(Sender); 5: CambiaUsuarioClick(Sender); 7: FechaOperaClick(Sender); end; SetStatusBar; except // Contener error al clikear sobre borde de la barra end; end; procedure TfKiPrincipal.JvAppEvents1ActiveFormChange(Sender: TObject); begin try if MDIChildCount < 1 then begin fKiPrincipal.JfPanelPrincipal.Visible := True; JfPageDiagramas.Visible := vEstadoDiagramas; end else fKiPrincipal.JfPanelPrincipal.Visible := False; except end; end; procedure TfKiPrincipal.JvSpeedBarArchiClick(Sender: TObject); begin end; // Mostrar datos en barra de estado procedure TfKiPrincipal.SetStatusBar; begin if vEmpre.Valor('Denominacion') <> Null then begin JfStatusBar.Panels[1].Value := vEmpre.Valor('Denominacion'); JfStatusBar.Panels[1].Hint := 'Empresa: ' + vCodEmpreSel + ' - ' + vEmpre.Valor('Denominacion'); end; if (vHabContabilidad) and (vFecIniEje <> Null) then begin JfStatusBar.Panels[2].Value := DateToStr(vFecIniEje) + ' - ' + DateToStr(vFecFinEje); JfStatusBar.Panels[2].Hint := 'Ejercicio Contable: ' + IntToStr(vCodEjerSel) + ' - ' + DateToStr(vFecIniEje) + ' - ' + DateToStr(vFecFinEje); end; if vCodSucuSel <> Null then begin JfStatusBar.Panels[3].Value := vDenSucuSel; JfStatusBar.Panels[3].Hint := 'Sucursal: ' + vCodSucuSel + ' - ' + vDenSucuSel; end; if vCodTurnoSel <> Null then begin JfStatusBar.Panels[4].Value := vDesTurnoSel; JfStatusBar.Panels[4].Hint := 'Turno: ' + vCodTurnoSel + ' - ' + vDesTurnoSel; end; JfStatusBar.Panels[5].AsValue := vNomUsuSel; JfStatusBar.Panels[5].Hint := 'Usuario: ' + vNomUsuSel; JfStatusBar.Panels[7].AsValue := FechaOpera; JfStatusBar.Panels[7].Hint := 'Fecha de Operatividad: ' + DateToStr(FechaOpera); end; // Salir --------------------------------------------------------------------------------- procedure TfKiPrincipal.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin EscCerrar(Sender, Key); end; procedure TfKiPrincipal.FormClose(Sender: TObject; var Action: TCloseAction); begin GuardarInfoReg(vPathReg, 'EstadoVentanaPrincipal', fKiPrincipal.WindowState); GuardarInfoReg(vPathReg, 'DiasFiltroGrilla', fKiPrincipal.vDiasFiltro); JvFormStoragePrincipal.SaveFormPlacement; // Cierra la ayuda HtmlHelp(0, nil, HH_CLOSE_ALL, 0); end; procedure TfKiPrincipal.FormDestroy(Sender: TObject); begin // Libera la variable que contiene las restricciones if Assigned(Restricciones) then Restricciones.Free; // Vuelve evento a la normalidad Application.OnHelp := FOldHelpEvent; //UnloadHtmlHelp; end; // Llamada al Help function TfKiPrincipal.HelpCambio(Command : Word; Data : Longint; Var CallHelp : Boolean) : Boolean; begin if (Command in [Help_Context, Help_ContextPopup]) then if Data <> 0 then HtmlHelp(0, PChar(vHelpFile), HH_HELP_CONTEXT, Data) else HtmlHelp(0, PChar(vHelpFile), HH_DISPLAY_TOC, 0); // VCL no debería llamar a WinHelp CallHelp := false; result := TRUE; end; // Llamado por evento OnException de la aplicación procedure TfKiPrincipal.Excepciones(Sender: TObject; E:Exception); begin //.. end; procedure TfKiPrincipal.JfMenuItemNSCargaOfertaClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemCSep2Click(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemANTTipoOfertClick(Sender: TObject); begin //.. end; procedure TfKiPrincipal.JfMenuItemIIIRepartoMercClick(Sender: TObject); begin //.. end; end.