Public Class Principal
#Region "Declaraciones"
Private WithEvents objInformesRN As InformesRN.InformesRN
Private TotalizacionInterv As TotalizacionInterv
Private PlanComercial As PlanComercial
Private FiltroClientesxArtColor As FiltroClientesxArtColor
Private FiltroComexClientesxArtColor As FiltroComexClientesxArtColor
Private VentanaMsj As ComInformes.MensajesSistema
Private EMails As String
Private ppVarSelParametros As Integer
Private PendientexCliyRubro As PendientexCliyRubro
Private Pendiente As Pendiente
Private PendienteNETO As PendienteNETO
Private ppVarColeccion As Integer
Private DescColecSel As String
Private SeleccionaColeccion As SeleccionaColeccion
Private imprimirpedido As ImprimirPedido
Private imprimirpedidoDet As ImprimirPedidoDet
Private seltipototalizacion As SeleccionaTipoTotalizacion
Private ppVarSelTipo As Integer
Private ppVarDescSelTipo As String
Private TotalizacionIntervCOMEX As TotalizacionInterv_COMEX
Private DistribCOMEX As DistribucionCOMEX
Private ReportePlanillas As ReportePlanillas
Private PedidosFacturacion As PedidosFacturación
Private TotalizacionPLAN As TotalizacionPLAN
Private PlanComercialComex As PlanComercialComex
Private FiltroStockDPT As StockDPT
Private PlanillaxRubro As PlanillaxRubro
Private PlanillaxEstadoyRubro As PlanillaxEstadoyRubro
Private PlanillaxFecha As PlanillaxFecha
Private PatronesxRubro As PatronesxRubro
Private MapavsPlanillas As MapavsPlanillas
Private TotalPlanillasPorEstado As TotalPlanillasPorEstado
Private AsignacionMayorARTCOLOR As AsignacionMayorARTCOLOR
Private ListadoDePlanillas As ListadoDePlanillas
Private ComparativoASIGNADO As ComparativoASIGNADO
Private ArticulosAsignados As ArticulosAsignados
Private VolumenesDistribuidosLOCALMAYOR As VolumenesDistribuidosLOCALMAYOR
Private StockSALON_CANUTO_PEROLES As StockSALONCANUTOPEROLES
Private Consulta_ASIGNADOS_Planilla As ConsultaDeASIGNADOSPorPlanilla
Private AsignacionxCliente As AsignacionxCliente
Private PlanillaRemitida As PlanillaRemitida
Private AticulosDistribuidosxCLIENTE As AticulosDistribuidosxCLIENTE
Private StockDPTDispon As StockDispon
Private DetallePlanillayVolumen As DetallePlanillayVolumen
Private DistribuidoPendienteCOMEX As DistribuidoPendienteCOMEX
Private ListadoSobrantesCOMEX As ListadoSobrantesDistribucion
Private DistribucionTotalCliente As DistribucionTotalCliente
Private DistribucionTotalClienteVM As DistribucionTotalClienteVM
Private ListadoDePlanillasCOMEX As ListadoDePlanillasCOMEX
Private DistribPendCOMEX As DistribucionPendienteCOMEX
Private ArtColorSinAdicCOMEX As ArtColorSinAdicCOMEX
Private STockxUbicacion As STockxUbicacion
Private PendientePLAN As PendientePLAN
Private FrmAuditoriaLocales As AuditoriaLocales
Private FrmAuditoriaEntreLocales As AuditoriaEntreLocales
Private CDMporUbicyFecha As CDMporUbicyFecha
Private CDMporArtColorTalle As CDMporArtColorTalle
Private PedidosCOMEXxArtColor As PedidosCOMEXxArtColor
Private ADUArtColorFecha As ADUArtColorFecha
Private RequerimientosControlLog As RequerimientosControlLog
Private ListadoDeRequerimiento As ListadoDeRequerimientos
Private Requerimientos_Fact_Diferencias As Requerimientos_Fact_Diferencias
Private AsignacionLocalRUBROTALLE As AsignacionLocalRUBROTALLE
Private InformeValorizadoPorCliente As InformeValorizadoPorCliente
Private InformeArticulosHabilitados As InformeArticulosHabilitados
Private Planillas_STOCK_PEROLES As PlanillasSTOCK_PEROLES
Private IngresosalDPT As IngresosalDPT
Private SALONArtColorFecha As SALONArtColorFecha
Private IngresosaCOMEX As IngresosaCOMEX
Private CUBO_PC As CUBO_PC
Private AnalisisStock As RedControlStock
Private InformePlanComercial As InformePlanComercial
Private ExplosionInsumos As ExplosionInsumos
Private PlanComercialTODOSArticulos As PlanComercialTODOSArticulos
Private PlanillasAsignadas_Autorizadas As PlanillasAsignadas_Autorizadas
Private PlanillasRechazadas As PlanillasRechazadas
Private FRM_RemisionComexPorLinea As RemisionComexPorLinea
Private FRM_InformeRemision As InformeRemision
Private FRM_InformePickReqRemporDia As InformePickReqRemporDia
Private mmPlanComercialPorFamilia As PlanComercialPorFamilia
Private InformeAjustesCalzados As InformeAjustesCalzados
Private StockPickingPorArticulo As StockPickingPorArticulo
Private STK_PICKING_PEROLES As STK_PICKING_PEROLES
Private ArticulosDeshabilitados As ArticulosDeshabilitados
Private ListadoDePRECIOS As ListadoDePRECIOS
Private frmInfCEMoREM As Desp_Inf_CEMoREM_xFecha
Private frmPendExpxFecha As Informe_PendExpxFecha
Private frmPendFCxFecha As Informe_PendFacturacionxFecha
Private frmPendLocalesxFecha As Informe_PendLocalesxFecha
Private frmCerradosxFecha As Informe_CerradosxFecha
Private frmAnuladosxFecha As Informe_AnuladosxFecha
Private frmInformeDeDespachos As Informe_Despachos
Private frmInformeDeDespachosCLIENTE As Informe_DespachosCLIENTE
Private FRM_InformeRemitidor As InformeRemitidor
Private InformeArticulosPEROLES As InformeArticulosPEROLES
Private StockEnUBICACIONESDEPICKING As StockEnUBICACIONESDEPICKING
Private CartelesDeUbicaciones As CartelesDeUbicaciones
Private InformeXArticulo As InformeXArticulo
Private FrmControlStockDiarioxFecha As ControlStockDiarioxFecha
Private ConsultaPreciosInsumos As ConsultaPreciosInsumos
Private AdmControlCaja As AdmControlCaja
Private FrmPedidosCOMEX_Totales As PedidosCOMEX_Totales
Private FrmControlStockDETALLADO As ControlStockDEPOSITO
Private ReporteItemsSalon As ReporteItemsSalon
Private frmArticulosPEDIDOSSINPLANCOMERCIAL As ArticulosPEDIDOSSINPLANCOMERCIAL
Private frmContratempIngresos As ContratemporadaIngresos
Private ReporteInterfaceBlock_Diferencias As InterfaceBlock_Diferencias
Private frmInformeArticulosLOCALES As InformeArticulosLOCALES
Private frmInformeStock As InformeStock
Private frmInfDinamico As InformeDINAMICO
Private frmInfDinamicoAduana As InformeDINAMICOAduana
Private frmInfRequDinamico As InformeRequerimientosDINAMICO
Private frmIngresosDeCALZADOS As Ingresos_CALZADOS
Private AnalisisStockTemporada As RedControlStockXColeccion
Private AnalisisStockDetTempo As RedControlStockDetalleXTemporada
Private frmDespachoEnRemision As Informe_DespachoEnRemision
Private frmInformeDinamicoControlStock As InformeDinamicoControlStock
Private frmInfRequARemiDinamico As InformeRequerimientosARemiDINAMICO
Private frmInforme_DespachoEnRemision As Informe_DespachoEnRemision
Private FrmDevContratemp As Contratemp_mer
Private myOlApp As Microsoft.Office.Interop.Outlook.Application
Private FrmVolumenDistribuidoPorFechaYCliente As DistribuidoPorFechaYCliente
Private FrmImpreEti As ImpresionEtiquetas
Private FrmPlanVsPed As PlanComVSPedidos
Private FrmInformeDINAMICOComex As InformeDINAMICOComex
Private Distri_IngresosAlDPT As New Distri_IngresosAlDPT
Private frmInforme_TotalesxRemitoxFecha As Informe_TotalesxRemitoxFecha
Private fReporteInformesAdmVentas As InformeAdmVentasArtColCumplidas
Private InformeSimple As InformeSimple
Private mDtListadoControles = New DataTable
Private mDtListadoControlesUSu = New DataTable
#End Region
#Region "Eventos Principal"
Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Close()
End Sub
Private Sub Principal_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
objInformesRN = New InformesRN.InformesRN
objInformesRN.InicializarBase()
Dim LABASE As String
If UCase(objInformesRN.BASE) <> "SIGMA" Then
LABASE = " | Base " & objInformesRN.BASE
Else
LABASE = ""
End If
'------------------
' EjecutarPermisos()
'------------------
SeleccionaColeccion = New SeleccionaColeccion
Dim rtdo As DialogResult
rtdo = SeleccionaColeccion.ShowDialog()
If rtdo = Windows.Forms.DialogResult.Cancel Then
Me.Close()
End If
Me.Text = " Módulo de Informes " & LABASE & " | " & DescColecc & " | Versión " & My.Application.Info.Version.ToString
I_Version.Text = "Versión " & My.Application.Info.Version.ToString
ValidarMenues()
ValidarMenuesParametro()
'GDN 16/09/2013
ValidarVersiones(My.Application.IDAPLICACION)
End Sub
'********************26/02/2020******Home***jgm********************
Private Sub RegistroItems()
Dim Menu As System.Windows.Forms.ToolStripMenuItem
Dim SubMenu As System.Windows.Forms.ToolStripDropDownItem
Dim submenu_ As System.Windows.Forms.ToolStripItem
Dim I, H As Integer
Dim NombreControl, DescripcionControl As String
Try
objInformesRN = New InformesRN.InformesRN
objInformesRN.InicializarBase()
For Each Menu In Me.MenuStrip1.Items
NombreControl = Menu.Name
DescripcionControl = Menu.Tag
If DescripcionControl = "" Then
DescripcionControl = "Menu , Sin Definir"
End If
objInformesRN.ControlesMenuInsertar(My.Application.IDAPLICACION, NombreControl, DescripcionControl)
For I = 0 To Menu.DropDownItems.Count - 1
If Menu.DropDownItems.Item(I).GetType().FullName = "System.Windows.Forms.ToolStripMenuItem" Then '---->Menu
SubMenu = Menu.DropDownItems.Item(I) '--->opciones del menu
NombreControl = SubMenu.Name
DescripcionControl = SubMenu.Tag
If DescripcionControl = "" Then
DescripcionControl = Menu.Name + "/" + SubMenu.Name '+"/""SubMenu,Sin Definir"
End If
objInformesRN.ControlesMenuInsertar(My.Application.IDAPLICACION, NombreControl, DescripcionControl)
For H = 0 To SubMenu.DropDownItems.Count - 1
If SubMenu.DropDownItems.Item(H).GetType().FullName = "System.Windows.Forms.ToolStripMenuItem" Then '---->Menu
submenu_ = SubMenu.DropDownItems.Item(H) '--->opciones del menu
NombreControl = submenu_.Name
DescripcionControl = submenu_.Tag
If DescripcionControl = "" Then
DescripcionControl = Menu.Name + "/" + SubMenu.Name + "/" + submenu_.Name '"OpcMenu,Sin Definir"
End If
objInformesRN.ControlesMenuInsertar(My.Application.IDAPLICACION, NombreControl, DescripcionControl)
End If
Next
End If
Next
Next
Catch ex As Exception
MessageBox.Show("#ERROR RC002, No se pudo realizar el registro de los controles: " + ex.ToString)
End Try
End Sub
Private Sub EjecutarPermisos()
AgregarControlesAplicacion() ' registra los controles
DesactivarControlesAplicacion() 'desactiva todos los controles al inicio de la aplicacion
'Usuarios_Perfiles() ' habilita por el usuario y por el perfil cada uno de los controles.
ActivarControlesPorPerfil() ' lista los controles y verifica si estan dado de alta
ActivarControlesPorUsuario() ' habilita o deshabilita los controles tomando en cuenta los criterios de perfil y usuario
' My.Application.DoEvents()
End Sub
Private Function AgregarControlesAplicacion()
Try
RegistroItems()
Catch ex As Exception
End Try
End Function
Private Sub DesactivarControlesAplicacion() 'se desactivan incialmente los controles para poder controlarlos
Dim Menu As System.Windows.Forms.ToolStripMenuItem
Dim SubMenu As System.Windows.Forms.ToolStripDropDownItem
Dim submenu_ As System.Windows.Forms.ToolStripItem
Dim I, H As Integer
Dim NombreControl As String
Try
objInformesRN = New InformesRN.InformesRN
objInformesRN.InicializarBase()
For Each Menu In Me.MenuStrip1.Items
NombreControl = Menu.Name
Menu.Enabled = False
For I = 0 To Menu.DropDownItems.Count - 1
If Menu.DropDownItems.Item(I).GetType().FullName = "System.Windows.Forms.ToolStripMenuItem" Then '---->Menu
SubMenu = Menu.DropDownItems.Item(I) '--->opciones del menu
NombreControl = SubMenu.Name
SubMenu.Enabled = False
For H = 0 To SubMenu.DropDownItems.Count - 1
If SubMenu.DropDownItems.Item(H).GetType().FullName = "System.Windows.Forms.ToolStripMenuItem" Then '---->Menu
submenu_ = SubMenu.DropDownItems.Item(H) '--->opciones del menu
NombreControl = submenu_.Name
submenu_.Enabled = False
End If
Next
End If
Next
Next
Catch ex As Exception
MessageBox.Show("#ERROR DC1002, No se pudieron desactivar los controles: " + ex.ToString)
End Try
End Sub
Private Sub ActivarControlesPorPerfil() '(ByVal Lista As DataTable)
'Dim Menu As System.Windows.Forms.ToolStripMenuItem
'Dim SubMenu As System.Windows.Forms.ToolStripDropDownItem
'Dim submenu_ As System.Windows.Forms.ToolStripItem
'' Dim I, H As Integer
'Dim NombreControl As String
Try
objInformesRN = New InformesRN.InformesRN
objInformesRN.InicializarBase()
''2) Obtengo el listado de los controles habilitados POR PERFIL desde el sistema de seguridad
mDtListadoControles = New DataTable
objInformesRN.SP_HERRAMIENTAS_SIGMA_SEGURIDAD_LISTADO_CONTROLES_POR_PERFIL(My.Application.IDAPLICACION, My.Application.IDPERFIL)
mDtListadoControles = objInformesRN.Tabla
If Not IsNothing(mDtListadoControles) Then
CambiarControlPorSeguridad(mDtListadoControles)
End If
'Dim Ncontrol As String = 0
'Dim Cactivo As Boolean
'Dim Cvisible As Boolean
'For i As Integer = 0 To mDtListadoControles.Rows.Count - 1
' If Ncontrol = mDtListadoControles.Rows(i).Item("NOMBRECONTROL") Then
' Cactivo = mDtListadoControles.Rows(i).Item("VISIBLE")
' Cvisible = mDtListadoControles.Rows(i).Item("ACTIVO")
' objInformesRN.SP_HERRAMIENTAS_SIGMA_SEGURIDAD_MODIFICAR_ESTADO_CONTROLES_POR_USUARIO(Ncontrol, Cactivo, Cvisible, My.Application.IDUSUARIO)
' Exit For
' End If
'Next
'-------------------------------------------------
' If Not IsNothing(mDtListadoControles) Then
' For Each Menu In Me.MenuStrip1.Items
' NombreControl = Menu.Name
' 'Menu.Enabled = False
' ActivarControlPorSeguridad(Menu, mDtListadoControles)
' For I = 0 To Menu.DropDownItems.Count - 1
' If Menu.DropDownItems.Item(I).GetType().FullName = "System.Windows.Forms.ToolStripMenuItem" Then '---->Menu
' SubMenu = Menu.DropDownItems.Item(I) '--->opciones del menu
' NombreControl = SubMenu.Name
' 'SubMenu.Enabled = False
' ActivarControlPorSeguridad(SubMenu, mDtListadoControles)
' For H = 0 To SubMenu.DropDownItems.Count - 1
' If SubMenu.DropDownItems.Item(H).GetType().FullName = "System.Windows.Forms.ToolStripMenuItem" Then '---->Menu
' submenu_ = SubMenu.DropDownItems.Item(H) '--->opciones del menu
' NombreControl = submenu_.Name
' ActivarControlPorSeguridad(submenu_, mDtListadoControles)
' End If
' Next
' End If
' Next
' Next
' End If
Catch ex As Exception
MessageBox.Show("#ERROR RC002, No se pudo realizar el activación de los controles: " + ex.ToString)
End Try
End Sub
Private Sub ActivarControlesPorUsuario()
Dim Menu As System.Windows.Forms.ToolStripMenuItem
Dim SubMenu As System.Windows.Forms.ToolStripDropDownItem
Dim submenu_ As System.Windows.Forms.ToolStripItem
Dim I, H As Integer
Dim NombreControl As String
Try
objInformesRN = New InformesRN.InformesRN
objInformesRN.InicializarBase()
''2) Obtengo el listado de los controles habilitados POR USUARIO desde el sistema de seguridad
mDtListadoControlesUSu = New DataTable
objInformesRN.SP_HERRAMIENTAS_SIGMA_SEGURIDAD_LISTADO_CONTROLES_POR_USUARIO(My.Application.IDAPLICACION, My.Application.IDUSUARIO)
mDtListadoControlesUSu = objInformesRN.Tabla
If Not IsNothing(mDtListadoControlesUSu) Then
For Each Menu In Me.MenuStrip1.Items
NombreControl = Menu.Name
'Menu.Enabled = False
ActivarControlPorSeguridad(Menu, mDtListadoControlesUSu)
For I = 0 To Menu.DropDownItems.Count - 1
If Menu.DropDownItems.Item(I).GetType().FullName = "System.Windows.Forms.ToolStripMenuItem" Then '---->Menu
SubMenu = Menu.DropDownItems.Item(I) '--->opciones del menu
NombreControl = SubMenu.Name
' SubMenu.Enabled = False
ActivarControlPorSeguridad(SubMenu, mDtListadoControlesUSu)
For H = 0 To SubMenu.DropDownItems.Count - 1
If SubMenu.DropDownItems.Item(H).GetType().FullName = "System.Windows.Forms.ToolStripMenuItem" Then '---->Menu
submenu_ = SubMenu.DropDownItems.Item(H) '--->opciones del menu
NombreControl = submenu_.Name
ActivarControlPorSeguridad(submenu_, mDtListadoControlesUSu)
End If
Next
End If
Next
Next
End If
Catch ex As Exception
MessageBox.Show("#ERROR AC0034, No se pudo realizar la activación de los controles por usuario: " + ex.ToString)
End Try
End Sub
Public Sub CambiarControlPorSeguridad(ByRef mdtListadocontroles1 As DataTable)
Try
Dim Ncontrol As String
Dim Cactivo As Boolean
Dim Cvisible As Boolean
For i As Integer = 0 To mdtListadocontroles1.Rows.Count - 1
Ncontrol = mdtListadocontroles1.Rows(i).Item("NOMBRECONTROL")
Cvisible = mdtListadocontroles1.Rows(i).Item("VISIBLE")
Cactivo = mdtListadocontroles1.Rows(i).Item("ACTIVO")
If Cactivo = False Or Cvisible = False Then
objInformesRN.SP_HERRAMIENTAS_SIGMA_SEGURIDAD_MODIFICAR_ESTADO_CONTROLES_POR_USUARIO(My.Application.IDAPLICACION, Ncontrol, Cactivo, Cvisible, My.Application.IDUSUARIO)
End If
Next
Catch ex As Exception
MessageBox.Show("#ERROR. Al intentar modificar el estado de los controles, Verifique que esten dado de alta: " + ex.ToString)
End Try
End Sub
Public Shared Sub ActivarControlPorSeguridad(ByVal NControl As ToolStripMenuItem, ByRef mdtListadocontroles1 As DataTable)
For i As Integer = 0 To mdtListadocontroles1.Rows.Count - 1
If NControl.Name = mdtListadocontroles1.Rows(i).Item("NOMBRECONTROL") Then
NControl.Visible = mdtListadocontroles1.Rows(i).Item("VISIBLE")
NControl.Enabled = mdtListadocontroles1.Rows(i).Item("ACTIVO")
Exit For
End If
Next
End Sub
Public Shared Sub ActivarControlPorSeguridad(ByVal NControl As ToolStripDropDownItem, ByRef mdtListadocontroles1 As DataTable)
For i As Integer = 0 To mdtListadocontroles1.Rows.Count - 1
If NControl.Name = mdtListadocontroles1.Rows(i).Item("NOMBRECONTROL") Then
NControl.Visible = mdtListadocontroles1.Rows(i).Item("VISIBLE")
NControl.Enabled = mdtListadocontroles1.Rows(i).Item("ACTIVO")
Exit For
End If
Next
End Sub
Public Shared Sub ActivarControlPorSeguridad(ByVal NControl As ToolStripItem, ByRef mdtListadocontroles1 As DataTable)
For i As Integer = 0 To mdtListadocontroles1.Rows.Count - 1
If NControl.Name = mdtListadocontroles1.Rows(i).Item("NOMBRECONTROL") Then
NControl.Visible = mdtListadocontroles1.Rows(i).Item("VISIBLE")
NControl.Enabled = mdtListadocontroles1.Rows(i).Item("ACTIVO")
Exit For
End If
Next
End Sub
'***********end jgm********************************************
Private Sub ValidarVersiones(VVidaplic As Integer)
objInformesRN = New InformesRN.InformesRN
objInformesRN.SP_MAESTRO_VERSIONES_LEER(VVidaplic)
If objInformesRN.Tabla IsNot Nothing Then
If objInformesRN.Tabla.Rows(0).Item(1) = My.Application.Info.Version.ToString Then
'Ok tiene la version actual
Else
If objInformesRN.Tabla.Rows(0).Item(0) = My.Application.Info.Version.ToString Then
'Tiene la versión anterior
If objInformesRN.Tabla.Rows(0).Item(2) = 0 Then
'No es urgente
Else
'La actualización debe ser inmediatamente
Me.MensajeSistema(1, "Verificación de Versiones", "Su versión está desactualizada, por favor salga del Sigma y vuelva a ingresar.")
Me.Close()
End If
Else
'Tiene una versión no registrada - mail a sistemas
Me.MensajeSistema(2, "Verificación de Versiones", "Su versión no está registrada. Envío de email automático a Sistemas.")
EnviarMail("desarrollo@mimo.com.ar", "Sigma - Versión no registrada", "URGENTE. La computadora " & My.Computer.Name & " (usuario " & My.Application.IDUSUARIO & ") posee una versión no registrada de la aplicación: " & My.Application.Info.AssemblyName & " (" & VVidaplic & "). version: " & My.Application.Info.Version.ToString)
Me.Close()
End If
End If
End If
End Sub
Private Sub EnviarMail(ByVal EMails As String, ByVal TextoAsunto As String, ByVal TextoCuerpo As String)
myOlApp = New Microsoft.Office.Interop.Outlook.Application
Dim myOlItem As Microsoft.Office.Interop.Outlook.MailItem
Try
myOlItem = myOlApp.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
With myOlItem
.To = EMails
.Subject = TextoAsunto
.Body = TextoCuerpo
.Importance = Microsoft.Office.Interop.Outlook.OlImportance.olImportanceHigh
End With
myOlItem.Send()
Catch ex As System.Exception
End Try
End Sub
Private Sub ValidarMenues()
Dim Menu As System.Windows.Forms.ToolStripMenuItem
Dim SubMenu As System.Windows.Forms.ToolStripDropDownItem
Dim I As Integer
Try
objInformesRN = New InformesRN.InformesRN
objInformesRN.InicializarBase()
For Each Menu In Me.MenuStrip1.Items
objInformesRN.SP_VALIDA_MENU_APLICACIONES(My.Application.IDAPLICACION, My.Application.IDPERFIL, Menu.Name)
If objInformesRN.Tabla IsNot Nothing Then
If objInformesRN.Tabla.Rows(0).Item(0) = True Then
Menu.Visible = True
Else
Menu.Visible = False
End If
For I = 0 To Menu.DropDownItems.Count - 1
If Menu.DropDownItems.Item(I).GetType().FullName = "System.Windows.Forms.ToolStripMenuItem" Then
SubMenu = Menu.DropDownItems.Item(I)
objInformesRN.SP_VALIDA_MENU_APLICACIONES(My.Application.IDAPLICACION, My.Application.IDPERFIL, SubMenu.Name)
'Se Agrega al usuario SGONZALEZ y SLASPENAS la opcion de Informes de remision solicitado por Marcelo Pujadas 20190318 JM
If (My.Application.IDUSUARIO = 41 Or My.Application.IDUSUARIO = 27) And (SubMenu.Name = "InformeRemision") Then
InformeRemision.Visible = True
Else
If objInformesRN.Tabla IsNot Nothing Then
If objInformesRN.Tabla.Rows(0).Item(0) = True Then
SubMenu.Visible = True
Else
SubMenu.Visible = False
End If
Else
SubMenu.Visible = False
End If
End If
End If
Next
Else
Menu.Visible = False
End If
Next
tsmi_AdministracionArtColor_Cumplidos.Visible = True
Catch ex As Exception
Me.MensajeSistema(10109, "Mensaje del Sistema", "(10109): " & ex.Message)
End Try
End Sub
Private Sub ValidarMenuesParametro()
Try
Dim dt As DataTable
objInformesRN = New InformesRN.InformesRN
objInformesRN.InicializarBase()
dt = objInformesRN.SP_SISTEMA_PARAMETROS_VALOR_LEER("INFO_RECLAMO_CLIENTE")
If Array.IndexOf(dt.Rows(0).Item(0).ToString.Split(","), My.Application.IDUSUARIO.ToString) >= 0 Then
ReclamosClientesMenuItem.Visible = True
Else
ReclamosClientesMenuItem.Visible = False
End If
Catch ex As Exception
Me.MensajeSistema(10109, "Mensaje del Sistema", "(10109): " & ex.Message)
End Try
End Sub
Public Sub MensajeSistema(ByVal ID As Integer, ByVal Titulo As String, ByVal Mensaje As String) _
Handles objInformesRN.MensajeSistema
Dim DirMails = "EMails"
objInformesRN = New InformesRN.InformesRN
objInformesRN.BuscarEmail(DirMails)
If objInformesRN.Tabla() IsNot Nothing Then
DirMails = objInformesRN.Tabla.Rows(0).Item(1)
End If
VentanaMsj = New ComInformes.MensajesSistema
VentanaMsj.IDMsj = ID
VentanaMsj.TitMsj = Titulo
VentanaMsj.DetMsj = Mensaje
VentanaMsj.DirMsj = DirMails
VentanaMsj.ShowDialog()
objInformesRN = New InformesRN.InformesRN
objInformesRN.InsertarLogMensaje(ID, Mensaje, My.Application.IDUSUARIO, My.Application.IDAPLICACION)
End Sub
#End Region
#Region "Ventas Mayoristas"
#Region " Pendientes "
Private Sub TodasLineas_Click(sender As System.Object, e As System.EventArgs) Handles TodasLineas.Click
Pendiente = New Pendiente
Pendiente.Text = "Ventas Mayorista | Pendientes de Todas las lineas por Cliente"
Pendiente.Reporte = "Pendiente Todas las Lineas"
Pendiente.Canal = 3
Pendiente.ppColeccion = Me.ppColeccion
Pendiente.MdiParent = Me
'Pendiente.ppidColeccion = Me.ppColeccion
Pendiente.Show()
End Sub
Private Sub PendAccesorios_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PendAccesorios.Click
Pendiente = New Pendiente
Pendiente.Text = "Ventas Mayorista | Pendientes de Accesorios por Cliente"
Pendiente.Reporte = "Pendiente Accesorios"
Pendiente.Canal = 3
Pendiente.ppColeccion = Me.ppColeccion
Pendiente.MdiParent = Me
'Pendiente.ppidColeccion = Me.ppColeccion
Pendiente.Show()
End Sub
Private Sub PendBebe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PendBebe.Click
Pendiente = New Pendiente
Pendiente.Text = "Ventas Mayorista | Pendientes de Bebé por Cliente"
Pendiente.Reporte = "Pendiente Bebe"
Pendiente.Canal = 3
Pendiente.MdiParent = Me
Pendiente.ppColeccion = Me.ppColeccion
'Pendiente.ppidColeccion = Me.ppColeccion
Pendiente.Show()
End Sub
Private Sub PendJunior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PendJunior.Click
Pendiente = New Pendiente
Pendiente.Text = "Ventas Mayorista | Pendientes de Junior por Cliente"
Pendiente.Reporte = "Pendiente Junior"
Pendiente.Canal = 3
Pendiente.MdiParent = Me
Pendiente.ppColeccion = Me.ppColeccion
Pendiente.Show()
End Sub
Private Sub PendMinimimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PendMinimimo.Click
Pendiente = New Pendiente
Pendiente.Text = "Ventas Mayorista | Pendientes de Minimimo por Cliente"
Pendiente.Reporte = "Pendiente Minimimo"
Pendiente.Canal = 3
Pendiente.MdiParent = Me
Pendiente.ppColeccion = Me.ppColeccion
'Pendiente.ppidColeccion = Me.ppColeccion
Pendiente.Show()
End Sub
Private Sub CurvaUnificada_Click(sender As Object, e As EventArgs) Handles CurvaUnificada.Click
Pendiente = New Pendiente
Pendiente.Text = "Ventas Mayorista | Pendientes de Curva Unificada"
Pendiente.Reporte = "Pendiente Curva Unificada"
Pendiente.Canal = 3
Pendiente.MdiParent = Me
Pendiente.ppColeccion = Me.ppColeccion
Pendiente.Show()
End Sub
Private Sub PendCalzados_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PendCalzados.Click
Pendiente = New Pendiente
Pendiente.Text = "Ventas Mayorista | Pendientes de Calzado por Cliente"
Pendiente.Reporte = "Pendiente Calzado"
Pendiente.Canal = 3
Pendiente.MdiParent = Me
Pendiente.ppColeccion = Me.ppColeccion
'Pendiente.ppidColeccion = Me.ppColeccion
Pendiente.Show()
End Sub
Private Sub PendContinuos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PendContinuos.Click
Pendiente = New Pendiente
Pendiente.Text = "Ventas Mayorista | Pendientes de Continuos por Cliente"
Pendiente.Reporte = "Pendiente Continuos"
Pendiente.Canal = 3
Pendiente.MdiParent = Me
Pendiente.ppColeccion = Me.ppColeccion
'Pendiente.ppidColeccion = Me.ppColeccion
Pendiente.Show()
End Sub
Private Sub PendTotalesxCliente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PendTotalesxCliente.Click
Pendiente = New Pendiente
Pendiente.Text = "Ventas Mayorista | Totales de Pendientes por Cliente"
Pendiente.Reporte = "Pendiente Totales por Cliente"
Pendiente.Canal = 3
Pendiente.ppColeccion = Me.ppColeccion
Pendiente.MdiParent = Me
'Pendiente.ppidColeccion = Me.ppColeccion
Pendiente.Show()
End Sub
Private Sub PendientePorClienteYRubro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PendientePorClienteYRubro.Click
PendientexCliyRubro = New PendientexCliyRubro
PendientexCliyRubro.Text = "Administración de Ventas | Reporte de Pendiente por Cliente y Rubro"
'PendientexCliyRubro.Reporte = "Pendiente x Cliente y Rubro"
PendientexCliyRubro.ppIdColec = Me.ppColeccion
PendientexCliyRubro.Canal = 3
PendientexCliyRubro.MdiParent = Me
PendientexCliyRubro.Show()
End Sub
Private Sub AsignacionLocal_Completo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AsignacionLocal_Completo.Click
AsignacionMayorARTCOLOR = New AsignacionMayorARTCOLOR
AsignacionMayorARTCOLOR.Text = "Administración de Ventas | Asignación LOCAL por Artículo/Color"
'AsignacionMayorARTCOLOR.Reporte = "Asignación LOCAL por Artículo/Color"
AsignacionMayorARTCOLOR.Canal = 2
AsignacionMayorARTCOLOR.MdiParent = Me
AsignacionMayorARTCOLOR.ppColeccion = ppVarColeccion
AsignacionMayorARTCOLOR.Show()
End Sub
#End Region
#Region " Pendientes NETO "
Private Sub PNTodos_Click(sender As System.Object, e As System.EventArgs) Handles PNTodos.Click
PendienteNETO = New PendienteNETO
PendienteNETO.Text = "Ventas Mayorista | Pendiente NETO de Todas las lineas por Cliente"
PendienteNETO.Reporte = "Pendiente NETO Todas las Lineas"
PendienteNETO.Canal = 3
PendienteNETO.ppColeccion = Me.ppColeccion
PendienteNETO.MdiParent = Me
PendienteNETO.Show()
End Sub
Private Sub PNAccesorios_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PNAccesorios.Click
PendienteNETO = New PendienteNETO
PendienteNETO.Text = "Ventas Mayorista | Pendiente NETO de Accesorios por Cliente"
PendienteNETO.Reporte = "Pendiente NETO Accesorios"
PendienteNETO.Canal = 3
PendienteNETO.ppColeccion = Me.ppColeccion
PendienteNETO.MdiParent = Me
PendienteNETO.Show()
End Sub
Private Sub PNBebe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PNBebe.Click
PendienteNETO = New PendienteNETO
PendienteNETO.Text = "Ventas Mayorista | Pendiente NETO de Bebé por Cliente"
PendienteNETO.Reporte = "Pendiente NETO Bebe"
PendienteNETO.Canal = 3
PendienteNETO.ppColeccion = Me.ppColeccion
PendienteNETO.MdiParent = Me
PendienteNETO.Show()
End Sub
Private Sub PNJunior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PNJunior.Click
PendienteNETO = New PendienteNETO
PendienteNETO.Text = "Ventas Mayorista | Pendiente NETO de Junior por Cliente"
PendienteNETO.Reporte = "Pendiente NETO Junior"
PendienteNETO.Canal = 3
PendienteNETO.ppColeccion = Me.ppColeccion
PendienteNETO.MdiParent = Me
PendienteNETO.Show()
End Sub
Private Sub PNMinimimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PNMinimimo.Click
PendienteNETO = New PendienteNETO
PendienteNETO.Text = "Ventas Mayorista | Pendiente NETO de Minimimo por Cliente"
PendienteNETO.Reporte = "Pendiente NETO Minimimo"
PendienteNETO.ppColeccion = Me.ppColeccion
PendienteNETO.Canal = 3
PendienteNETO.MdiParent = Me
PendienteNETO.Show()
End Sub
Private Sub PNCalzado_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PNCalzado.Click
PendienteNETO = New PendienteNETO
PendienteNETO.Text = "Ventas Mayorista | Pendiente NETO de Calzado por Cliente"
PendienteNETO.Reporte = "Pendiente NETO Calzado"
PendienteNETO.ppColeccion = Me.ppColeccion
PendienteNETO.Canal = 3
PendienteNETO.MdiParent = Me
PendienteNETO.Show()
End Sub
Private Sub PNContinuos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PNContinuos.Click
PendienteNETO = New PendienteNETO
PendienteNETO.Text = "Ventas Mayorista | Pendiente NETO de Continuos por Cliente"
PendienteNETO.Reporte = "Pendiente NETO Continuos"
PendienteNETO.ppColeccion = Me.ppColeccion
PendienteNETO.Canal = 3
PendienteNETO.MdiParent = Me
PendienteNETO.Show()
End Sub
Private Sub PNTotalesPorCliente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PNTotalesPorCliente.Click
PendienteNETO = New PendienteNETO
PendienteNETO.Text = "Ventas Mayorista | Totales de Pendientes NETO por Cliente"
PendienteNETO.Reporte = "Pendiente NETO Totales por Cliente"
PendienteNETO.Canal = 3
PendienteNETO.ppColeccion = Me.ppColeccion
PendienteNETO.MdiParent = Me
PendienteNETO.Show()
End Sub
Private Sub PNTotalesPorClienteYRubro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PNTotalesPorClienteYRubro.Click
PendienteNETO = New PendienteNETO
PendienteNETO.Text = "Ventas Mayorista | Totales de Pendientes NETO por Cliente y Rubro"
PendienteNETO.Reporte = "Pendiente NETO Totales por Cliente y Rubro"
PendienteNETO.ppColeccion = Me.ppColeccion
PendienteNETO.Canal = 3
PendienteNETO.ppCHKDetallado = True ' True = no visible
PendienteNETO.MdiParent = Me
PendienteNETO.Show()
End Sub
Private Sub PNListadosPorArtículoColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PNListadosPorArtículoColor.Click
' Pendientes
FiltroClientesxArtColor = New FiltroClientesxArtColor
FiltroClientesxArtColor.MdiParent = Me
FiltroClientesxArtColor.ppReporte = "Pendiente NETO Listado Por Artículo Color"
FiltroClientesxArtColor.ppColeccion = Me.ppColeccion
FiltroClientesxArtColor.Show()
End Sub
#End Region
'Private Sub PermisosEnPedidosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PermisosEnPedidos.Click
' LogPermisosDeMayor = New LogPermisosDeMayor
' LogPermisosDeMayor.Text = "Ventas Mayorista | Listado de Permisos Otorgados por Fecha"
' LogPermisosDeMayor.Reporte = "Log de Permisos de Mayor"
' LogPermisosDeMayor.ppColeccion = Me.DescColecc
' LogPermisosDeMayor.MdiParent = Me
' LogPermisosDeMayor.Show()
'End Sub
Private Sub MinimimoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalMinimimoMayor.Click
TotalizacionInterv = New TotalizacionInterv
TotalizacionInterv.Text = "Ventas Mayorista | Totalización Minimimo"
TotalizacionInterv.Reporte = "Totalizacion Minimimo"
TotalizacionInterv.Canal = 3
TotalizacionInterv.MdiParent = Me
TotalizacionInterv.Show()
End Sub
Private Sub AccesoriosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalAccesoriosMayor.Click
TotalizacionInterv = New TotalizacionInterv
TotalizacionInterv.Text = "Ventas Mayorista | Totalización Accesorios"
TotalizacionInterv.Reporte = "Totalizacion Accesorios"
TotalizacionInterv.Canal = 3
TotalizacionInterv.MdiParent = Me
TotalizacionInterv.Show()
End Sub
Private Sub BebeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalBebeMayor.Click
TotalizacionInterv = New TotalizacionInterv
TotalizacionInterv.Text = "Ventas Mayorista | Totalización Bebé"
TotalizacionInterv.Reporte = "Totalizacion Bebe"
TotalizacionInterv.Canal = 3
TotalizacionInterv.MdiParent = Me
TotalizacionInterv.Show()
End Sub
Private Sub JuniorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalJuniorMayor.Click
TotalizacionInterv = New TotalizacionInterv
TotalizacionInterv.Text = "Ventas Mayorista | Totalización Júnior"
TotalizacionInterv.Reporte = "Totalizacion Junior"
'TotalizacionInterv.CHKTodos.Checked = False
'TotalizacionInterv.CHKTodos.Visible = False
TotalizacionInterv.Canal = 3
TotalizacionInterv.MdiParent = Me
TotalizacionInterv.Show()
End Sub
Private Sub CalzadosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalCalzadosMayor.Click
TotalizacionInterv = New TotalizacionInterv
TotalizacionInterv.Text = "Ventas Mayorista | Totalización Calzados"
TotalizacionInterv.Reporte = "Totalizacion Calzado"
'TotalizacionInterv.CHKTodos.Checked = False
'TotalizacionInterv.CHKTodos.Visible = False
TotalizacionInterv.Canal = 3
TotalizacionInterv.MdiParent = Me
TotalizacionInterv.Show()
End Sub
Private Sub TotalContinuos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalContinuos.Click
TotalizacionInterv = New TotalizacionInterv
TotalizacionInterv.Text = "Ventas Mayorista | Totalización Continuos"
TotalizacionInterv.Reporte = "Totalizacion Continuos"
TotalizacionInterv.CHKTodos.Checked = False
TotalizacionInterv.CHKTodos.Visible = False
TotalizacionInterv.Canal = 3
TotalizacionInterv.MdiParent = Me
TotalizacionInterv.Show()
End Sub
Private Sub TotalSinTalles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalSinTalles.Click
TotalizacionInterv = New TotalizacionInterv
TotalizacionInterv.Text = "Ventas Mayorista | Totalización por % de Ventas"
TotalizacionInterv.Reporte = "Control de Stock por Intervalos"
TotalizacionInterv.CHKTodos.Checked = False
TotalizacionInterv.CHKTodos.Visible = False
TotalizacionInterv.Canal = 3
TotalizacionInterv.MdiParent = Me
TotalizacionInterv.Show()
End Sub
Private Sub TotalesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotTotales.Click
TotalizacionInterv = New TotalizacionInterv
TotalizacionInterv.Text = "Ventas Mayorista | Totalización por % de Ventas | Totales"
TotalizacionInterv.Reporte = "Totalizacion Totales"
'TotalizacionInterv.CHKTodos.Checked = False
'TotalizacionInterv.CHKTodos.Visible = False
TotalizacionInterv.Canal = 3
TotalizacionInterv.MdiParent = Me
TotalizacionInterv.Show()
End Sub
Private Sub ListadoDeClientesXArtColorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientesXArtColorMayor.Click
FiltroClientesxArtColor = New FiltroClientesxArtColor
FiltroClientesxArtColor.MdiParent = Me
FiltroClientesxArtColor.ppColeccion = Me.ppColeccion
FiltroClientesxArtColor.ppReporte = "Pedidos ClientesxArtColor"
FiltroClientesxArtColor.Show()
End Sub
Private Sub PlanAccesoriosMayor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanAccesoriosMayor.Click
PlanComercial = New PlanComercial
PlanComercial.Text = "Ventas Mayorista | Plan Comercial Accesorios"
PlanComercial.Reporte = "Plan Comercial Accesorios"
PlanComercial.Canal = 3
PlanComercial.inicial = "A"
PlanComercial.MdiParent = Me
PlanComercial.Show()
End Sub
Private Sub PlanBebeMayor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanBebeMayor.Click
PlanComercial = New PlanComercial
PlanComercial.Text = "Ventas Mayorista | Plan Comercial Bebé"
PlanComercial.Reporte = "Plan Comercial Bebe"
PlanComercial.Canal = 3
PlanComercial.inicial = "PB"
PlanComercial.MdiParent = Me
PlanComercial.Show()
End Sub
Private Sub PlanJuniorMayor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanJuniorMayor.Click
PlanComercial = New PlanComercial
PlanComercial.Text = "Ventas Mayorista | Plan Comercial Júnior"
PlanComercial.Reporte = "Plan Comercial Junior"
PlanComercial.Canal = 3
PlanComercial.inicial = "PJ"
PlanComercial.MdiParent = Me
PlanComercial.Show()
End Sub
Private Sub PlanMinimimoMayor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanMinimimoMayor.Click
PlanComercial = New PlanComercial
PlanComercial.Text = "Ventas Mayorista | Plan Comercial Minimimo"
PlanComercial.Reporte = "Plan Comercial Minimimo"
PlanComercial.Canal = 3
PlanComercial.inicial = "PM"
PlanComercial.MdiParent = Me
PlanComercial.Show()
End Sub
Private Sub PlanCalzadosMayor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanCalzadosMayor.Click
PlanComercial = New PlanComercial
PlanComercial.Text = "Ventas Mayorista | Plan Comercial Calzados"
PlanComercial.Reporte = "Plan Comercial Calzados"
PlanComercial.Canal = 3
PlanComercial.inicial = "C"
PlanComercial.MdiParent = Me
PlanComercial.Show()
End Sub
Private Sub TotalesPorClienteYRubro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalesPorClienteYRubro.Click
Pendiente = New Pendiente
Pendiente.Text = "Ventas Mayorista | Totales de Pendientes por Cliente y Rubro"
Pendiente.Reporte = "Pendiente Totales por Cliente y Rubro"
Pendiente.Canal = 3
Pendiente.ppColeccion = Me.ppColeccion
Pendiente.ppCHKDetallado = True ' True = no visible
Pendiente.MdiParent = Me
Pendiente.Show()
End Sub
Private Sub TotalesPorClienteYRubroConPC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalesPorClienteYRubroConPC.Click
PendientePLAN = New PendientePLAN
PendientePLAN.Text = "Ventas Mayorista | Totales de Pendientes por Cliente y Rubro con PLAN COMERCIAL"
PendientePLAN.Reporte = "Pendiente Totales por Cliente y Rubro"
PendientePLAN.Canal = 3
PendientePLAN.ppCHKDetallado = True ' True = no visible
PendientePLAN.MdiParent = Me
PendientePLAN.ppColec = Me.ppColeccion
PendientePLAN.Show()
End Sub
Private Sub ReporteDePlanillas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReporteDePlanillas.Click
ReportePlanillas = New ReportePlanillas
ReportePlanillas.Reporte = "Reporte de Planillas"
ReportePlanillas.Canal = 3 ' MAYOR
ReportePlanillas.ppColeccion = Me.ppColeccion
ReportePlanillas.MdiParent = Me
ReportePlanillas.Show()
End Sub
Private Sub ListadoPorArtículoColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListadoPorArtículoColor.Click
' Pendientes
FiltroClientesxArtColor = New FiltroClientesxArtColor
FiltroClientesxArtColor.MdiParent = Me
FiltroClientesxArtColor.ppReporte = "Pendiente Listado Por Artículo Color"
FiltroClientesxArtColor.ppColeccion = Me.ppColeccion
FiltroClientesxArtColor.Show()
End Sub
Private Sub Accesorios_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Accesorios.Click
PedidosFacturacion = New PedidosFacturación
PedidosFacturacion.Text = "Ventas Mayorista | Pedidos de Facturación"
PedidosFacturacion.ppCanal = 3
PedidosFacturacion.ppTipoReport = "Accesorios"
PedidosFacturacion.ppColeccion = Me.ppColeccion
PedidosFacturacion.MdiParent = Me
PedidosFacturacion.Show()
End Sub
Private Sub Bebe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bebe.Click
PedidosFacturacion = New PedidosFacturación
PedidosFacturacion.Text = "Ventas Mayorista | Pedidos de Facturación"
PedidosFacturacion.ppCanal = 3
PedidosFacturacion.ppTipoReport = "Bebe"
PedidosFacturacion.ppColeccion = Me.ppColeccion
PedidosFacturacion.MdiParent = Me
PedidosFacturacion.Show()
End Sub
Private Sub Junior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Junior.Click
PedidosFacturacion = New PedidosFacturación
PedidosFacturacion.Text = "Ventas Mayorista | Pedidos de Facturación"
PedidosFacturacion.ppCanal = 3
PedidosFacturacion.ppTipoReport = "Junior"
PedidosFacturacion.ppColeccion = Me.ppColeccion
PedidosFacturacion.MdiParent = Me
PedidosFacturacion.Show()
End Sub
Private Sub Minimimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Minimimo.Click
PedidosFacturacion = New PedidosFacturación
PedidosFacturacion.Text = "Ventas Mayorista | Pedidos de Facturación"
PedidosFacturacion.ppCanal = 3
PedidosFacturacion.ppTipoReport = "Minimimo"
PedidosFacturacion.ppColeccion = Me.ppColeccion
PedidosFacturacion.MdiParent = Me
PedidosFacturacion.Show()
End Sub
Private Sub Calzados_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calzados.Click
PedidosFacturacion = New PedidosFacturación
PedidosFacturacion.Text = "Ventas Mayorista | Pedidos de Facturación"
PedidosFacturacion.ppCanal = 3
PedidosFacturacion.ppTipoReport = "Calzados"
PedidosFacturacion.ppColeccion = Me.ppColeccion
PedidosFacturacion.MdiParent = Me
PedidosFacturacion.Show()
End Sub
Private Sub Continuos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Continuos.Click
PedidosFacturacion = New PedidosFacturación
PedidosFacturacion.Text = "Ventas Mayorista | Pedidos de Facturación"
PedidosFacturacion.ppCanal = 3
PedidosFacturacion.ppTipoReport = "Continuos"
PedidosFacturacion.ppColeccion = Me.ppColeccion
PedidosFacturacion.MdiParent = Me
PedidosFacturacion.Show()
End Sub
Private Sub AccesoriosPLAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AccesoriosPLAN.Click
TotalizacionPLAN = New TotalizacionPLAN
TotalizacionPLAN.Text = "Ventas Mayorista | Totalización Accesorios PLAN COMERCIAL"
TotalizacionPLAN.Reporte = "Totalizacion Accesorios PLAN"
TotalizacionPLAN.Canal = 3
'TotalizacionPLAN.CBSexo.Visible = False
'TotalizacionPLAN.Label2.Visible = False
TotalizacionPLAN.MdiParent = Me
TotalizacionPLAN.Show()
End Sub
Private Sub BebePLAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BebePLAN.Click
TotalizacionPLAN = New TotalizacionPLAN
TotalizacionPLAN.Text = "Ventas Mayorista | Totalización Bebé PLAN COMERCIAL"
TotalizacionPLAN.Reporte = "Totalizacion Bebe PLAN"
TotalizacionPLAN.Canal = 3
TotalizacionPLAN.MdiParent = Me
TotalizacionPLAN.Show()
End Sub
Private Sub JuniorPLAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JuniorPLAN.Click
TotalizacionPLAN = New TotalizacionPLAN
TotalizacionPLAN.Text = "Ventas Mayorista | Totalización Junior PLAN COMERCIAL"
TotalizacionPLAN.Reporte = "Totalizacion Junior PLAN"
TotalizacionPLAN.Canal = 3
TotalizacionPLAN.MdiParent = Me
TotalizacionPLAN.Show()
End Sub
Private Sub MinimimoPLAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MinimimoPLAN.Click
TotalizacionPLAN = New TotalizacionPLAN
TotalizacionPLAN.Text = "Ventas Mayorista | Totalización Minimimo PLAN COMERCIAL"
TotalizacionPLAN.Reporte = "Totalizacion Minimimo PLAN"
TotalizacionPLAN.Canal = 3
TotalizacionPLAN.MdiParent = Me
TotalizacionPLAN.Show()
End Sub
Private Sub CalzadosPLAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalzadosPLAN.Click
TotalizacionPLAN = New TotalizacionPLAN
TotalizacionPLAN.Text = "Ventas Mayorista | Totalización Calzados PLAN COMERCIAL"
TotalizacionPLAN.Reporte = "Totalizacion Calzados PLAN"
TotalizacionPLAN.Canal = 3
TotalizacionPLAN.MdiParent = Me
TotalizacionPLAN.Show()
End Sub
Private Sub ContinuosPLAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContinuosPLAN.Click
TotalizacionPLAN = New TotalizacionPLAN
TotalizacionPLAN.Text = "Ventas Mayorista | Totalización Continuos PLAN COMERCIAL"
TotalizacionPLAN.Reporte = "Totalizacion Continuos PLAN"
TotalizacionPLAN.Canal = 3
TotalizacionPLAN.CHKTodos.Checked = False
TotalizacionPLAN.CHKTodos.Visible = False
TotalizacionPLAN.MdiParent = Me
TotalizacionPLAN.Show()
End Sub
Private Sub TotalesPorLinea_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalesPorLinea.Click
TotalizacionPLAN = New TotalizacionPLAN
TotalizacionPLAN.Text = "Ventas Mayorista | Totalización PLAN COMERCIAL"
TotalizacionPLAN.Reporte = "Totalizacion Totales PLAN"
TotalizacionPLAN.Canal = 3
TotalizacionPLAN.MdiParent = Me
TotalizacionPLAN.Show()
End Sub
Private Sub TotalesPorCliente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalesPorCliente.Click
DistribucionTotalCliente = New DistribucionTotalCliente
DistribucionTotalCliente.Text = "Distribución | Totales por Cliente - Vendedores - Rubros"
DistribucionTotalCliente.Reporte = "Totales por CLIENTE"
'DistribucionTotalCliente.Canal = 3
DistribucionTotalCliente.MdiParent = Me
DistribucionTotalCliente.ppColeccion = Me.ppColeccion
DistribucionTotalCliente.Show()
End Sub
#End Region
#Region "Comercio Exterior"
Private Sub TotalAccesoriosComex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalAccesoriosComex.Click
TotalizacionIntervCOMEX = New TotalizacionInterv_COMEX
TotalizacionIntervCOMEX.Text = "Comercio Exterior | Totalización Accesorios POR TOTAL"
TotalizacionIntervCOMEX.Reporte = "Totalizacion COMEX Accesorios"
TotalizacionIntervCOMEX.ppTipoReporte = "SIN TALLES"
TotalizacionIntervCOMEX.ppColeccion = Me.ppColeccion
TotalizacionIntervCOMEX.MdiParent = Me
TotalizacionIntervCOMEX.Show()
End Sub
Private Sub TotalBebeComex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalBebeComex.Click
TotalizacionIntervCOMEX = New TotalizacionInterv_COMEX
TotalizacionIntervCOMEX.Text = "Comercio Exterior | Totalización Bebé POR TOTAL"
TotalizacionIntervCOMEX.Reporte = "Totalizacion COMEX Bebe"
TotalizacionIntervCOMEX.ppTipoReporte = "SIN TALLES"
TotalizacionIntervCOMEX.ppColeccion = Me.ppColeccion
TotalizacionIntervCOMEX.MdiParent = Me
TotalizacionIntervCOMEX.Show()
End Sub
Private Sub TotalJuniorComex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalJuniorComex.Click
TotalizacionIntervCOMEX = New TotalizacionInterv_COMEX
TotalizacionIntervCOMEX.Text = "Comercio Exterior | Totalización Júnior POR TOTAL"
TotalizacionIntervCOMEX.Reporte = "Totalizacion COMEX Junior"
TotalizacionIntervCOMEX.ppTipoReporte = "SIN TALLES"
TotalizacionIntervCOMEX.ppColeccion = Me.ppColeccion
TotalizacionIntervCOMEX.MdiParent = Me
TotalizacionIntervCOMEX.Show()
End Sub
Private Sub TotalMinimimoComex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalMinimimoComex.Click
TotalizacionIntervCOMEX = New TotalizacionInterv_COMEX
TotalizacionIntervCOMEX.Text = "Comercio Exterior | Totalización Minimimo POR TOTAL"
TotalizacionIntervCOMEX.Reporte = "Totalizacion COMEX Minimimo"
TotalizacionIntervCOMEX.ppTipoReporte = "SIN TALLES"
TotalizacionIntervCOMEX.ppColeccion = Me.ppColeccion
TotalizacionIntervCOMEX.MdiParent = Me
TotalizacionIntervCOMEX.Show()
End Sub
Private Sub TotalCalzadosComex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalCalzadosComex.Click
TotalizacionIntervCOMEX = New TotalizacionInterv_COMEX
TotalizacionIntervCOMEX.Text = "Comercio Exterior | Totalización Calzados POR TOTAL"
TotalizacionIntervCOMEX.Reporte = "Totalizacion COMEX Calzado"
TotalizacionIntervCOMEX.ppTipoReporte = "SIN TALLES"
TotalizacionIntervCOMEX.ppColeccion = Me.ppColeccion
TotalizacionIntervCOMEX.MdiParent = Me
TotalizacionIntervCOMEX.Show()
End Sub
Private Sub TotalContinuosComex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalContinuosComex.Click
TotalizacionIntervCOMEX = New TotalizacionInterv_COMEX
TotalizacionIntervCOMEX.Text = "Comercio Exterior | Totalización Continuos POR TOTAL"
TotalizacionIntervCOMEX.Reporte = "Totalizacion COMEX Continuos"
TotalizacionIntervCOMEX.ppTipoReporte = "SIN TALLES"
TotalizacionIntervCOMEX.ppColeccion = Me.ppColeccion
TotalizacionIntervCOMEX.MdiParent = Me
TotalizacionIntervCOMEX.Show()
End Sub
Private Sub TotalAccesoriosCOMEX_Talles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalAccesoriosCOMEX_Talles.Click
TotalizacionIntervCOMEX = New TotalizacionInterv_COMEX
TotalizacionIntervCOMEX.Text = "Comercio Exterior | Totalización Accesorios POR TALLES"
TotalizacionIntervCOMEX.Reporte = "Totalizacion COMEX Accesorios CON TALLES"
TotalizacionIntervCOMEX.ppTipoReporte = "CON TALLES"
TotalizacionIntervCOMEX.ppColeccion = Me.ppColeccion
TotalizacionIntervCOMEX.MdiParent = Me
TotalizacionIntervCOMEX.Show()
End Sub
Private Sub TotalBebeCOMEX_Talles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalBebeCOMEX_Talles.Click
TotalizacionIntervCOMEX = New TotalizacionInterv_COMEX
TotalizacionIntervCOMEX.Text = "Comercio Exterior | Totalización Bebé POR TALLES"
TotalizacionIntervCOMEX.Reporte = "Totalizacion COMEX Bebe CON TALLES"
TotalizacionIntervCOMEX.ppTipoReporte = "CON TALLES"
TotalizacionIntervCOMEX.ppColeccion = Me.ppColeccion
TotalizacionIntervCOMEX.MdiParent = Me
TotalizacionIntervCOMEX.Show()
End Sub
Private Sub TotalJuniorCOMEX_Talles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalJuniorCOMEX_Talles.Click
TotalizacionIntervCOMEX = New TotalizacionInterv_COMEX
TotalizacionIntervCOMEX.Text = "Comercio Exterior | Totalización Júnior POR TALLES"
TotalizacionIntervCOMEX.Reporte = "Totalizacion COMEX Junior CON TALLES"
TotalizacionIntervCOMEX.ppTipoReporte = "CON TALLES"
TotalizacionIntervCOMEX.ppColeccion = Me.ppColeccion
TotalizacionIntervCOMEX.MdiParent = Me
TotalizacionIntervCOMEX.Show()
End Sub
Private Sub TotalMinimimoCOMEX_Talles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalMinimimoCOMEX_Talles.Click
TotalizacionIntervCOMEX = New TotalizacionInterv_COMEX
TotalizacionIntervCOMEX.Text = "Comercio Exterior | Totalización Minimimo POR TALLES"
TotalizacionIntervCOMEX.Reporte = "Totalizacion COMEX Minimimo CON TALLES"
TotalizacionIntervCOMEX.ppTipoReporte = "CON TALLES"
TotalizacionIntervCOMEX.ppColeccion = Me.ppColeccion
TotalizacionIntervCOMEX.MdiParent = Me
TotalizacionIntervCOMEX.Show()
End Sub
Private Sub TotalCalzadosCOMEX_Talles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalCalzadosCOMEX_Talles.Click
TotalizacionIntervCOMEX = New TotalizacionInterv_COMEX
TotalizacionIntervCOMEX.Text = "Comercio Exterior | Totalización Calzados POR TALLES"
TotalizacionIntervCOMEX.Reporte = "Totalizacion COMEX Calzado CON TALLES"
TotalizacionIntervCOMEX.ppTipoReporte = "CON TALLES"
TotalizacionIntervCOMEX.ppColeccion = Me.ppColeccion
TotalizacionIntervCOMEX.MdiParent = Me
TotalizacionIntervCOMEX.Show()
End Sub
Private Sub TotalContinuosCOMEX_Talles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalContinuosCOMEX_Talles.Click
TotalizacionIntervCOMEX = New TotalizacionInterv_COMEX
TotalizacionIntervCOMEX.Text = "Comercio Exterior | Totalización Continuos POR TALLES"
TotalizacionIntervCOMEX.Reporte = "Totalizacion COMEX Continuos CON TALLES"
TotalizacionIntervCOMEX.ppTipoReporte = "CON TALLES"
TotalizacionIntervCOMEX.ppColeccion = Me.ppColeccion
TotalizacionIntervCOMEX.MdiParent = Me
TotalizacionIntervCOMEX.Show()
End Sub
Private Sub PlanAccesoriosComex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanAccesoriosComex.Click
PlanComercialComex = New PlanComercialComex
PlanComercialComex.Text = "Comercio Exterior | Plan Comercial Accesorios"
PlanComercialComex.Reporte = "Plan Comercial Comex Accesorios"
PlanComercialComex.ppColeccion = Me.ppColeccion
PlanComercialComex.MdiParent = Me
PlanComercialComex.Show()
End Sub
Private Sub PlanBebeComex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanBebeComex.Click
PlanComercialComex = New PlanComercialComex
PlanComercialComex.Text = "Comercio Exterior | Plan Comercial Bebé"
PlanComercialComex.Reporte = "Plan Comercial Comex Bebe"
PlanComercialComex.ppColeccion = Me.ppColeccion
PlanComercialComex.MdiParent = Me
PlanComercialComex.Show()
End Sub
Private Sub PlanJuniorComex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanJuniorComex.Click
PlanComercialComex = New PlanComercialComex
PlanComercialComex.Text = "Comercio Exterior | Plan Comercial Júnior"
PlanComercialComex.Reporte = "Plan Comercial Comex Junior"
PlanComercialComex.ppColeccion = Me.ppColeccion
PlanComercialComex.MdiParent = Me
PlanComercialComex.Show()
End Sub
Private Sub PlanMinimimoComex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanMinimimoComex.Click
PlanComercialComex = New PlanComercialComex
PlanComercialComex.Text = "Comercio Exterior | Plan Comercial Minimimo"
PlanComercialComex.Reporte = "Plan Comercial Comex Minimimo"
PlanComercialComex.ppColeccion = Me.ppColeccion
PlanComercialComex.MdiParent = Me
PlanComercialComex.Show()
End Sub
Private Sub PlanContinuosComexToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanContinuosComexToolStripMenuItem.Click
PlanComercialComex = New PlanComercialComex
PlanComercialComex.Text = "Comercio Exterior | Plan Comercial Continuos"
PlanComercialComex.Reporte = "Plan Comercial Comex Continuos"
PlanComercialComex.ppColeccion = Me.ppColeccion
PlanComercialComex.MdiParent = Me
PlanComercialComex.Show()
End Sub
Private Sub PlanCalzadosComex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanCalzadosComex.Click
PlanComercialComex = New PlanComercialComex
PlanComercialComex.Text = "Comercio Exterior | Plan Comercial Calzado"
PlanComercialComex.Reporte = "Plan Comercial Comex Calzado"
PlanComercialComex.ppColeccion = Me.ppColeccion
PlanComercialComex.MdiParent = Me
PlanComercialComex.Show()
End Sub
Private Sub ListadoDeClientesPorArtículoColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListadoDeClientesPorArtículoColor.Click
FiltroComexClientesxArtColor = New FiltroComexClientesxArtColor
FiltroComexClientesxArtColor.MdiParent = Me
FiltroComexClientesxArtColor.Show()
End Sub
'Private Sub PedidosPorRubros_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PedidosPorRubros.Click
' imprimirpedido = New ImprimirPedido
' imprimirpedido.Reporte = "Total de Pedidos por Rubros"
' imprimirpedido.MdiParent = Me
' imprimirpedido.Show()
'End Sub
'Private Sub TotPedxRubrosYPaíses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotPedxRubrosYPaíses.Click
' imprimirpedido = New ImprimirPedido
' imprimirpedido.Reporte = "Total de Pedidos por Rubros y Paises"
' imprimirpedido.MdiParent = Me
' imprimirpedido.Show()
'End Sub
Private Sub ListadoDeDistribuciónDePlanillas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListadoDeDistribuciónDePlanillas.Click
DistribCOMEX = New DistribucionCOMEX
DistribCOMEX.Text = "Listado de Planillas de Distribucion COMEX"
DistribCOMEX.Reporte = "Listado de Distribucion COMEX"
DistribCOMEX.ppColeccion = Me.ppColeccion
DistribCOMEX.MdiParent = Me
DistribCOMEX.Show()
End Sub
Private Sub ListadoDeVolumenPorClienteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListadoDeVolumenPorClienteToolStripMenuItem.Click
imprimirpedido = New ImprimirPedido
'imprimirpedido.Reporte = "Listado de Volumen por Cliente"
imprimirpedido.MdiParent = Me
imprimirpedido.ppColeccion = Me.ppColeccion
imprimirpedido.Show()
End Sub
Private Sub PendAccesoriosComex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PendAccesoriosComex.Click
Pendiente = New Pendiente
Pendiente.Text = "Ventas COMEX | Pendientes de Accesorios por Cliente"
Pendiente.Reporte = "Pendiente Accesorios"
Pendiente.Canal = 1
Pendiente.ppColeccion = Me.ppColeccion
Pendiente.MdiParent = Me
Pendiente.Show()
End Sub
Private Sub PendBebeComex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PendBebeComex.Click
Pendiente = New Pendiente
Pendiente.Text = "Ventas COMEX | Pendientes de Junior por Cliente"
Pendiente.Reporte = "Pendiente Bebe"
Pendiente.Canal = 1
Pendiente.ppColeccion = Me.ppColeccion
Pendiente.MdiParent = Me
Pendiente.Show()
End Sub
Private Sub PendJuniorComex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PendJuniorComex.Click
Pendiente = New Pendiente
Pendiente.Text = "Ventas COMEX | Pendientes de Junior por Cliente"
Pendiente.Reporte = "Pendiente Junior"
Pendiente.Canal = 1
Pendiente.ppColeccion = Me.ppColeccion
Pendiente.MdiParent = Me
Pendiente.Show()
End Sub
Private Sub PendMinimimoComex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PendMinimimoComex.Click
Pendiente = New Pendiente
Pendiente.Text = "Ventas COMEX | Pendientes de Minimimo por Cliente"
Pendiente.Reporte = "Pendiente Minimimo"
Pendiente.Canal = 1
Pendiente.ppColeccion = Me.ppColeccion
Pendiente.MdiParent = Me
Pendiente.Show()
End Sub
Private Sub PendCalzadosComex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PendCalzadosComex.Click
Pendiente = New Pendiente
Pendiente.Text = "Ventas COMEX | Pendientes de Calzado por Cliente"
Pendiente.Reporte = "Pendiente Calzado"
Pendiente.Canal = 1
Pendiente.ppColeccion = Me.ppColeccion
Pendiente.MdiParent = Me
Pendiente.Show()
End Sub
Private Sub PendContinuosComex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PendContinuosComex.Click
Pendiente = New Pendiente
Pendiente.Text = "Ventas COMEX | Pendientes de Continuos por Cliente"
Pendiente.Reporte = "Pendiente Continuos"
Pendiente.Canal = 1
Pendiente.ppColeccion = Me.ppColeccion
Pendiente.MdiParent = Me
Pendiente.Show()
End Sub
Private Sub DistribuidoVsPendienteCOMEX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DistribuidoVsPendienteCOMEX.Click
DistribuidoPendienteCOMEX = New DistribuidoPendienteCOMEX
DistribuidoPendienteCOMEX.Text = "Ventas COMEX | Distribuído y Pendiente por Artículo Color"
DistribuidoPendienteCOMEX.Reporte = "Distribuido_Pendiente"
DistribuidoPendienteCOMEX.Canal = 1
DistribuidoPendienteCOMEX.ppColeccion = Me.ppColeccion
DistribuidoPendienteCOMEX.MdiParent = Me
DistribuidoPendienteCOMEX.Show()
End Sub
Private Sub CX_SM_SobrantesxAC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CX_SM_SobrantesxAC.Click
ListadoSobrantesCOMEX = New ListadoSobrantesDistribucion
ListadoSobrantesCOMEX.Text = "Ventas COMEX | Listado de Sobrantes por Artículo Color"
ListadoSobrantesCOMEX.Reporte = "Listado de Sobrantes por Artículo Color"
ListadoSobrantesCOMEX.ppColeccion = Me.ppColeccion
ListadoSobrantesCOMEX.MdiParent = Me
ListadoSobrantesCOMEX.Show()
End Sub
Private Sub StockCOMEX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StockCOMEX.Click
FiltroStockDPT = New StockDPT
FiltroStockDPT.ppColeccion = ppVarColeccion
FiltroStockDPT.ppidCANAL = 1 'COMEX
FiltroStockDPT.ppubicacion = 5
FiltroStockDPT.Text = " Distribución | Reporte de Stock de COMEX "
FiltroStockDPT.MdiParent = Me
FiltroStockDPT.Show()
End Sub
Private Sub ListadoDePlanillasCOMEX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListadoDePlanillas_COMEX.Click
ListadoDePlanillasCOMEX = New ListadoDePlanillasCOMEX
ListadoDePlanillasCOMEX.Text = "Administración de Ventas | Listado de Planillas de CCOMEX"
ListadoDePlanillasCOMEX.Canal = 1
ListadoDePlanillasCOMEX.MdiParent = Me
ListadoDePlanillasCOMEX.ppColeccion = ppVarColeccion
ListadoDePlanillasCOMEX.Show()
End Sub
Private Sub PlanillasRemitidas_comex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanillasRemitidas_comex.Click
PlanillaRemitida = New PlanillaRemitida
PlanillaRemitida.Reporte = "Planillas Remitidas Comex"
PlanillaRemitida.ppColeccion = Me.ppColeccion
PlanillaRemitida.ppCanal = 1
PlanillaRemitida.MdiParent = Me
PlanillaRemitida.Show()
End Sub
Private Sub CantidadesPedidasPorCliente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CantidadesPedidasPorCliente.Click
PedidosCOMEXxArtColor = New PedidosCOMEXxArtColor
PedidosCOMEXxArtColor.ppColeccion = Me.ppColeccion
PedidosCOMEXxArtColor.Canal = 1
PedidosCOMEXxArtColor.MdiParent = Me
PedidosCOMEXxArtColor.Show()
End Sub
#End Region
#Region " Propiedades "
Public Property ppColeccion() As Integer
Get
Return ppVarColeccion
End Get
Set(ByVal value As Integer)
ppVarColeccion = value
End Set
End Property
Public Property DescColecc() As String
Get
Return DescColecSel
End Get
Set(ByVal value As String)
DescColecSel = value
End Set
End Property
Public Property ppSelTipo() As Integer
Get
Return ppVarSelTipo
End Get
Set(ByVal value As Integer)
ppVarSelTipo = value
End Set
End Property
Public Property ppDescSelTipo() As String
Get
Return ppVarDescSelTipo
End Get
Set(ByVal value As String)
ppVarDescSelTipo = value
End Set
End Property
#End Region
#Region " Varios "
Private Sub CambioDeColeccion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CambioDeColeccion.Click
Dim labase As String
SeleccionaColeccion = New SeleccionaColeccion
Dim rtdo As DialogResult
rtdo = SeleccionaColeccion.ShowDialog()
If rtdo = Windows.Forms.DialogResult.Cancel Then
Me.Close()
End If
If UCase(objInformesRN.BASE) <> "SIGMA" Then
labase = " | Base " & objInformesRN.BASE
Else
labase = ""
End If
Me.Text = " Módulo de Informes " & labase & " | " & DescColecc & " | Versión " & My.Application.Info.Version.ToString
End Sub
Private Sub PorArtículoColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PorArtículoColor.Click
'FiltroStockxArtColor = New StockDPT
'FiltroStockxArtColor.MdiParent = Me
'FiltroStockxArtColor.ppReporte = "Listado Stock DPT por Articulo Color"
'FiltroStockxArtColor.Show()
End Sub
Private Sub PorRubroSubrubro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PorRubroSubrubro.Click
'FiltroStockxArtColor = New StockDPT
'FiltroStockxArtColor.MdiParent = Me
'FiltroStockxArtColor.ppReporte = "Listado Stock DPT por Rubro Subrubro"
'FiltroStockxArtColor.Show()
End Sub
Private Sub PorArtículoColorD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'FiltroStockxArtColor = New StockDPT
'FiltroStockxArtColor.MdiParent = Me
'FiltroStockxArtColor.ppReporte = "Listado Stock DPT por Articulo Color"
'FiltroStockxArtColor.Show()
End Sub
Private Sub PorRubroSubRubroD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'FiltroStockxArtColor = New StockDPT
'FiltroStockxArtColor.MdiParent = Me
'FiltroStockxArtColor.ppReporte = "Listado Stock DPT por Rubro Subrubro"
'FiltroStockxArtColor.Show()
End Sub
Private Sub TotalesD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'FiltroStockxArtColor = New StockDPT
'FiltroStockxArtColor.MdiParent = Me
'FiltroStockxArtColor.ppReporte = "Listado Stock DPT por Aticulo TODOS"
'FiltroStockxArtColor.Show()
End Sub
Private Sub Totales_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalesxArt.Click
'FiltroStockxArtColor = New StockDPT
'FiltroStockxArtColor.MdiParent = Me
'FiltroStockxArtColor.ppReporte = "Listado Stock DPT por Aticulo TODOS"
'FiltroStockxArtColor.Show()
End Sub
Private Sub TotalesxRubrosD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'FiltroStockxArtColor = New StockDPT
'FiltroStockxArtColor.MdiParent = Me
'FiltroStockxArtColor.ppReporte = "Listado Stock DPT por Rubro TODOS"
'FiltroStockxArtColor.Show()
End Sub
Private Sub TotalesxRubros_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalesxRubros.Click
'FiltroStockxArtColor = New StockDPT
'FiltroStockxArtColor.MdiParent = Me
'FiltroStockxArtColor.ppReporte = "Listado Stock DPT por Rubro TODOS"
'FiltroStockxArtColor.Show()
End Sub
Private Sub PlanillaPorRubro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanillasDistribuidasPorRubro.Click
frmInfDinamico = New InformeDINAMICO
frmInfDinamico.ppIdColec = ppColeccion
frmInfDinamico.MdiParent = Me
frmInfDinamico.Show()
End Sub
Private Sub TotalesPorClientesVM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalesPorClientesVM.Click
DistribucionTotalCliente = New DistribucionTotalCliente
DistribucionTotalCliente.Text = "Ventas Mayorista | Totales por Cliente"
DistribucionTotalCliente.Reporte = "Totales por CLIENTE / RUBROS / VENDEDOR"
DistribucionTotalCliente.MdiParent = Me
DistribucionTotalCliente.ppColeccion = Me.ppColeccion
DistribucionTotalCliente.Show()
End Sub
Private Sub PlanillasPorEstado_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanillasPorEstadoyRubro.Click
PlanillaxEstadoyRubro = New PlanillaxEstadoyRubro
PlanillaxEstadoyRubro.Text = "Administración de Ventas | Planillas distribuidas por Estado y Rubro"
PlanillaxEstadoyRubro.Reporte = "Planillas distribuidas por Estado y Rubro"
PlanillaxEstadoyRubro.Canal = 3
PlanillaxEstadoyRubro.MdiParent = Me
PlanillaxEstadoyRubro.Show()
End Sub
Private Sub PlanillasConfeccionadasPorFecha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HistoriaPlanillasxFecha.Click
PlanillaxFecha = New PlanillaxFecha
PlanillaxFecha.Text = "Administración de Ventas | Historia Planillas por Fecha"
'PlanillaxFecha.Reporte = "Historia Planillas por Fecha"
PlanillaxFecha.idColec = ppVarColeccion
PlanillaxFecha.MdiParent = Me
PlanillaxFecha.Show()
End Sub
Private Sub ListadoDePatrones_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListadoDePatrones.Click
PatronesxRubro = New PatronesxRubro
PatronesxRubro.Text = "Administración de Ventas | Listado de Patrones por Rubros"
PatronesxRubro.Reporte = "Listado de Patrones por Rubros"
PatronesxRubro.Canal = 3
PatronesxRubro.MdiParent = Me
PatronesxRubro.Show()
End Sub
Private Sub ListadoDeMapaContraPlanillas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListadoDeMapaContraPlanillas.Click
MapavsPlanillas = New MapavsPlanillas
MapavsPlanillas.Text = "Administración de Ventas | Listado de Mapa contra Planillas"
MapavsPlanillas.Reporte = "Listado Mapa vs Pedidos"
MapavsPlanillas.idColec = ppVarColeccion
MapavsPlanillas.MdiParent = Me
MapavsPlanillas.Show()
End Sub
Private Sub StockDPTToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StockDPTToolStripMenuItem.Click
FiltroStockDPT = New StockDPT
FiltroStockDPT.ppColeccion = ppVarColeccion
FiltroStockDPT.ppidCANAL = 3 'MAYOR
FiltroStockDPT.ppubicacion = 2
FiltroStockDPT.Text = " Distribución | Reporte de Stock del DPT "
FiltroStockDPT.MdiParent = Me
FiltroStockDPT.Show()
End Sub
Private Sub TotalPlanillasxEstado_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalPlanillaxEstado.Click
TotalPlanillasPorEstado = New TotalPlanillasPorEstado
TotalPlanillasPorEstado.Text = "Administración de Ventas | Total de Planillas por Estado"
TotalPlanillasPorEstado.Reporte = "Totalizacion de planillas por estado"
TotalPlanillasPorEstado.Canal = 3
TotalPlanillasPorEstado.MdiParent = Me
TotalPlanillasPorEstado.ppColeccion = ppVarColeccion
TotalPlanillasPorEstado.Show()
End Sub
Private Sub AsignacionARTCOLOR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AsignacionARTCOLOR.Click
AsignacionMayorARTCOLOR = New AsignacionMayorARTCOLOR
AsignacionMayorARTCOLOR.Text = "Administración de Ventas | Asignación MAYOR por Artículo/Color"
'AsignacionMayorARTCOLOR.Reporte = "Asignación MAYOR por Artículo/Color"
AsignacionMayorARTCOLOR.Canal = 3
AsignacionMayorARTCOLOR.MdiParent = Me
AsignacionMayorARTCOLOR.ppColeccion = ppVarColeccion
AsignacionMayorARTCOLOR.Show()
End Sub
Private Sub ListadoDePlanillas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListadoPlanillasxNro_Fecha.Click
ListadoDePlanillas = New ListadoDePlanillas
ListadoDePlanillas.Text = "Distribución | Listado de Planillas"
'ListadoDePlanillas.Reporte = "Listado de Planillas por Fecha"
ListadoDePlanillas.Canal = 3
ListadoDePlanillas.MdiParent = Me
ListadoDePlanillas.ppColeccion = ppVarColeccion
ListadoDePlanillas.Show()
End Sub
Private Sub ComparativoASIGNADO_FACTURADO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComparativoASIGNADO_FACTURADO.Click
ComparativoASIGNADO = New ComparativoASIGNADO
ComparativoASIGNADO.Text = "Distribución | Comparativo entre ASIGNADO/FACTURADO"
ComparativoASIGNADO.Reporte = "Comparativo entre ASIGNADO/FACTURADO"
ComparativoASIGNADO.Canal = 3
ComparativoASIGNADO.MdiParent = Me
ComparativoASIGNADO.ppColeccion = ppVarColeccion
ComparativoASIGNADO.Show()
End Sub
Private Sub ArtículosAsignados_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArtículosAsignados.Click
ArticulosAsignados = New ArticulosAsignados
ArticulosAsignados.ppColeccion = ppVarColeccion
ArticulosAsignados.Canal = 3
'FiltroStockDPT.MdiParent = Me
ArticulosAsignados.Show()
End Sub
Private Sub VolumenesDistribuidosLOCMAYOR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VolumenesDistribudosLOCMAYOR.Click
VolumenesDistribuidosLOCALMAYOR = New VolumenesDistribuidosLOCALMAYOR
VolumenesDistribuidosLOCALMAYOR.Reporte = "Total volumen distribuido"
VolumenesDistribuidosLOCALMAYOR.Text = "Total volumen distribuido"
VolumenesDistribuidosLOCALMAYOR.ppColeccion = ppVarColeccion
VolumenesDistribuidosLOCALMAYOR.MdiParent = Me
VolumenesDistribuidosLOCALMAYOR.Show()
End Sub
Private Sub StockSALONCANUTOPEROLES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StockSALONCANUTOPEROLES.Click
StockSALON_CANUTO_PEROLES = New StockSALONCANUTOPEROLES
StockSALON_CANUTO_PEROLES.Reporte = "Stock Salon Canuto LocalesxRubro"
StockSALON_CANUTO_PEROLES.ppColeccion = ppVarColeccion
StockSALON_CANUTO_PEROLES.MdiParent = Me
StockSALON_CANUTO_PEROLES.Show()
End Sub
Private Sub ConsultaDeASIGNADOSPorPlanilla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConsultaDeASIGNADOSPorPlanilla.Click
Consulta_ASIGNADOS_Planilla = New ConsultaDeASIGNADOSPorPlanilla
Consulta_ASIGNADOS_Planilla.Reporte = "Planillas Distribucion Asignados"
Consulta_ASIGNADOS_Planilla.ppColeccion = ppVarColeccion
Consulta_ASIGNADOS_Planilla.MdiParent = Me
Consulta_ASIGNADOS_Planilla.Show()
End Sub
Private Sub AsignacionPorCliente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AsignacionPorCliente.Click, AsignacionLocal_Cliente.Click
AsignacionxCliente = New AsignacionxCliente
If sender.name = "AsignacionPorCliente" Then
AsignacionxCliente.BuscarCliente.idCANAL = 3
'AsignacionxCliente.Reporte = "Asignacion MAYOR por Cliente"
Else
AsignacionxCliente.BuscarCliente.idCANAL = 2
'AsignacionxCliente.Reporte = "Asignacion LOCAL por Cliente"
End If
AsignacionxCliente.ppColeccion = Me.ppVarColeccion
AsignacionxCliente.MdiParent = Me
AsignacionxCliente.Show()
End Sub
Private Sub PlanillasRemitidas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanillasRemitidas.Click
PlanillaRemitida = New PlanillaRemitida
PlanillaRemitida.Reporte = "Planillas Remitidas"
PlanillaRemitida.ppColeccion = Me.ppColeccion
PlanillaRemitida.MdiParent = Me
PlanillaRemitida.Show()
End Sub
Private Sub ComparativoDISTRI_ADISTRI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComparativoDISTRI_ADISTRI.Click
VolumenesDistribuidosLOCALMAYOR = New VolumenesDistribuidosLOCALMAYOR
VolumenesDistribuidosLOCALMAYOR.Reporte = "Comparativo DISTRIBUIDO/A DISTRIBUIR"
VolumenesDistribuidosLOCALMAYOR.Text = "Comparativo DISTRIBUIDO/A DISTRIBUIR"
VolumenesDistribuidosLOCALMAYOR.ppColeccion = ppVarColeccion
VolumenesDistribuidosLOCALMAYOR.MdiParent = Me
VolumenesDistribuidosLOCALMAYOR.Show()
End Sub
Private Sub AticulosDistribuidosPorCLIENTE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AticulosDistribuidosPorCLIENTE.Click
AticulosDistribuidosxCLIENTE = New AticulosDistribuidosxCLIENTE
AticulosDistribuidosxCLIENTE.Reporte = "Articulos distribuidos por CLIENTE"
AticulosDistribuidosxCLIENTE.ppColeccion = ppVarColeccion
AticulosDistribuidosxCLIENTE.ppCANAL = 3
AticulosDistribuidosxCLIENTE.MdiParent = Me
AticulosDistribuidosxCLIENTE.Show()
End Sub
Private Sub StockDPTDisponible_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StockDPTDisponible.Click
StockDPTDispon = New StockDispon
StockDPTDispon.ppColeccion = ppVarColeccion
StockDPTDispon.MdiParent = Me
StockDPTDispon.Show()
End Sub
Private Sub PlanillasyVolumen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanillasyVolumen.Click
DetallePlanillayVolumen = New DetallePlanillayVolumen
'DetallePlanillayVolumen.ppIdColec = ppVarColeccion
DetallePlanillayVolumen.MdiParent = Me
DetallePlanillayVolumen.Show()
End Sub
#End Region
Private Sub PD_Accesorios_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PD_Accesorios.Click
DistribPendCOMEX = New DistribucionPendienteCOMEX
DistribPendCOMEX.Text = "Comercio Exterior | Pendientes de Distribución de Accesorios"
DistribPendCOMEX.Reporte = "Pendiente Distribucion COMEX Accesorios"
DistribPendCOMEX.ppColeccion = Me.ppColeccion
DistribPendCOMEX.MdiParent = Me
DistribPendCOMEX.Show()
End Sub
Private Sub PD_Bebe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PD_Bebe.Click
DistribPendCOMEX = New DistribucionPendienteCOMEX
DistribPendCOMEX.Text = "Comercio Exterior | Pendientes de Distribución de Bebé"
DistribPendCOMEX.Reporte = "Pendiente Distribucion COMEX Bebe"
DistribPendCOMEX.ppColeccion = Me.ppColeccion
DistribPendCOMEX.MdiParent = Me
DistribPendCOMEX.Show()
End Sub
Private Sub PD_Junior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PD_Junior.Click
DistribPendCOMEX = New DistribucionPendienteCOMEX
DistribPendCOMEX.Text = "Comercio Exterior | Pendientes de Distribución de Junior"
DistribPendCOMEX.Reporte = "Pendiente Distribucion COMEX Junior"
DistribPendCOMEX.ppColeccion = Me.ppColeccion
DistribPendCOMEX.MdiParent = Me
DistribPendCOMEX.Show()
End Sub
Private Sub PD_Minimimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PD_Minimimo.Click
DistribPendCOMEX = New DistribucionPendienteCOMEX
DistribPendCOMEX.Text = "Comercio Exterior | Pendientes de Distribución de Minimimo"
DistribPendCOMEX.Reporte = "Pendiente Distribucion COMEX Minimimo"
DistribPendCOMEX.ppColeccion = Me.ppColeccion
DistribPendCOMEX.MdiParent = Me
DistribPendCOMEX.Show()
End Sub
Private Sub PD_Calzados_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PD_Calzados.Click
DistribPendCOMEX = New DistribucionPendienteCOMEX
DistribPendCOMEX.Text = "Comercio Exterior | Pendientes de Distribución de Calzados"
DistribPendCOMEX.Reporte = "Pendiente Distribucion COMEX Calzados"
DistribPendCOMEX.ppColeccion = Me.ppColeccion
DistribPendCOMEX.MdiParent = Me
DistribPendCOMEX.Show()
End Sub
Private Sub PD_Continuos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PD_Continuos.Click
DistribPendCOMEX = New DistribucionPendienteCOMEX
DistribPendCOMEX.Text = "Comercio Exterior | Pendientes de Distribución de Continuos"
DistribPendCOMEX.Reporte = "Pendiente Distribucion COMEX Continuos"
DistribPendCOMEX.ppColeccion = Me.ppColeccion
DistribPendCOMEX.MdiParent = Me
DistribPendCOMEX.Show()
End Sub
Private Sub ArtColorNOxAdic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArtColorNOxAdic.Click
ArtColorSinAdicCOMEX = New ArtColorSinAdicCOMEX
ArtColorSinAdicCOMEX.Text = "Pedidos COMEX | Informes de Artículos Color No Solicitados Por Adicionales"
ArtColorSinAdicCOMEX.Reporte = "Artículos Color No Pedidos Por Adicionales COMEX"
ArtColorSinAdicCOMEX.idColec = ppVarColeccion
ArtColorSinAdicCOMEX.MdiParent = Me
ArtColorSinAdicCOMEX.Show()
End Sub
Private Sub InformeDeStock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InformeDeStock.Click
STockxUbicacion = New STockxUbicacion
STockxUbicacion.MdiParent = Me
STockxUbicacion.Show()
End Sub
Private Sub I_MovACDM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles I_MovACDM.Click
FrmAuditoriaLocales = New AuditoriaLocales
FrmAuditoriaLocales.Text = "Auditoría de Locales | Movimientos de Mercadería hacia el Centro de Distribución Munro (Colección:" & Me.DescColecc & ")"
FrmAuditoriaLocales.Reporte = "Movimientos a CDM"
FrmAuditoriaLocales.idColec = ppVarColeccion
FrmAuditoriaLocales.MdiParent = Me
FrmAuditoriaLocales.Show()
End Sub
Private Sub I_MovEntreLocales_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles I_MovEntreLocales.Click
FrmAuditoriaEntreLocales = New AuditoriaEntreLocales
FrmAuditoriaEntreLocales.Text = "Auditoría de Locales | Movimientos de Mercadería entre Locales (Colección:" & Me.DescColecc & ")"
FrmAuditoriaEntreLocales.Reporte = "Movimientos entre Locales"
FrmAuditoriaEntreLocales.idColec = ppVarColeccion
FrmAuditoriaEntreLocales.MdiParent = Me
FrmAuditoriaEntreLocales.Show()
End Sub
Private Sub PorUbicaciónYFecha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PorUbicaciónYFecha.Click
CDMporUbicyFecha = New CDMporUbicyFecha
CDMporUbicyFecha.Reporte = "MovimientoMercaderia_porUbicFecha"
CDMporUbicyFecha.Show()
End Sub
Private Sub PorArtículoColorTalle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PorArtículoColorTalle.Click
CDMporArtColorTalle = New CDMporArtColorTalle
CDMporArtColorTalle.Reporte = "MovimientoMercaderia_porArtColorTalle"
CDMporArtColorTalle.Show()
End Sub
Private Sub InformeGrupalDeStockComex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InformeGrupalDeStockComex.Click
STockxUbicacion = New STockxUbicacion
STockxUbicacion.MdiParent = Me
STockxUbicacion.Show()
End Sub
Private Sub HistorialDeRequerimientos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HistorialDeRequerimientos.Click
RequerimientosControlLog = New RequerimientosControlLog
RequerimientosControlLog.MdiParent = Me
RequerimientosControlLog.Reporte = "Requerimientos Control LOG"
RequerimientosControlLog.idColec = Me.ppColeccion
RequerimientosControlLog.Show()
End Sub
Private Sub ListadoDeRequerimientos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListadoDeRequerimientos.Click
ListadoDeRequerimiento = New ListadoDeRequerimientos
ListadoDeRequerimiento.MdiParent = Me
ListadoDeRequerimiento.ppColeccion = Me.ppColeccion
ListadoDeRequerimiento.Show()
End Sub
Private Sub DiferenciasDeFacturacion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DiferenciasDeFacturacion.Click
Requerimientos_Fact_Diferencias = New Requerimientos_Fact_Diferencias
Requerimientos_Fact_Diferencias.MdiParent = Me
Requerimientos_Fact_Diferencias.Show()
End Sub
Private Sub ListadoDePlanilla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListadoDePlanilla.Click
ListadoDePlanillas = New ListadoDePlanillas
ListadoDePlanillas.Text = "Administración de Ventas | Listado de Planillas"
ListadoDePlanillas.Canal = 3
ListadoDePlanillas.MdiParent = Me
ListadoDePlanillas.ppColeccion = ppVarColeccion
ListadoDePlanillas.Show()
End Sub
Private Sub PorRubroYTalleLOCAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PorRubroYTalleLOCAL.Click
AsignacionLocalRUBROTALLE = New AsignacionLocalRUBROTALLE
AsignacionLocalRUBROTALLE.Canal = 2
AsignacionLocalRUBROTALLE.Text = "Asignacion de LOCALES por Rubro y Talles"
AsignacionLocalRUBROTALLE.MdiParent = Me
AsignacionLocalRUBROTALLE.ppColeccion = ppVarColeccion
AsignacionLocalRUBROTALLE.Show()
End Sub
Private Sub PorRubroYTalleMAYOR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PorRubroYTalleMAYOR.Click
AsignacionLocalRUBROTALLE = New AsignacionLocalRUBROTALLE
AsignacionLocalRUBROTALLE.Canal = 3
AsignacionLocalRUBROTALLE.Text = "Asignacion de MAYOR por Rubro y Talles"
AsignacionLocalRUBROTALLE.MdiParent = Me
AsignacionLocalRUBROTALLE.ppColeccion = ppVarColeccion
AsignacionLocalRUBROTALLE.Show()
End Sub
Private Sub ConsolidaciónDePlanillasPorARTICULOCOLOR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConsolidaciónDePlanillas.Click
ReportePlanillas = New ReportePlanillas
ReportePlanillas.Reporte = "Consolidado de Planillas por ART/COLOR"
ReportePlanillas.ppColeccion = Me.ppColeccion
ReportePlanillas.MdiParent = Me
ReportePlanillas.Show()
End Sub
Private Sub StockValorizadoPorCliente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StockValorizadoPorCliente.Click
InformeValorizadoPorCliente = New InformeValorizadoPorCliente
InformeValorizadoPorCliente.Reporte = "Informe Stock valorizado por Cliente"
InformeValorizadoPorCliente.ppColeccion = Me.ppColeccion
InformeValorizadoPorCliente.MdiParent = Me
InformeValorizadoPorCliente.Show()
End Sub
Private Sub ArticulosHabilitados_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArticulosHabilitados.Click
InformeArticulosHabilitados = New InformeArticulosHabilitados
InformeArticulosHabilitados.ppIdColec = Me.ppColeccion
InformeArticulosHabilitados.MdiParent = Me
InformeArticulosHabilitados.Show()
End Sub
Private Sub PlanillasSTOCK_PEROLES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanillasSTOCK_PEROLES.Click
Planillas_STOCK_PEROLES = New PlanillasSTOCK_PEROLES
Planillas_STOCK_PEROLES.Text = "Informe de Stock en PEROLES por Rubro"
Planillas_STOCK_PEROLES.ppColeccion = ppVarColeccion
Planillas_STOCK_PEROLES.Canal = 3
Planillas_STOCK_PEROLES.MdiParent = Me
Planillas_STOCK_PEROLES.Show()
End Sub
Private Sub IngresosDPT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IngresosDPT.Click
IngresosalDPT = New IngresosalDPT
IngresosalDPT.ppColeccion = ppVarColeccion
IngresosalDPT.Canal = 3
IngresosalDPT.MdiParent = Me
IngresosalDPT.Show()
End Sub
Private Sub IngresosAlSALON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IngresosAlSALON.Click
SALONArtColorFecha = New SALONArtColorFecha
SALONArtColorFecha.Reporte = "Ingresos a SALON_porArtColorFecha"
SALONArtColorFecha.MdiParent = Me
SALONArtColorFecha.idColec = Me.ppColeccion
SALONArtColorFecha.Show()
End Sub
Private Sub IngresosaADUANA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IngresosaADUANA.Click
ADUArtColorFecha = New ADUArtColorFecha
ADUArtColorFecha.idColec = Me.ppColeccion
ADUArtColorFecha.MdiParent = Me
ADUArtColorFecha.Show()
End Sub
Private Sub MovimientosIngresoACMX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MovimientosIngresoACMX.Click
IngresosaCOMEX = New IngresosaCOMEX
IngresosaCOMEX.Reporte = "Ingresos a COMEX_porArtColorFecha"
IngresosaCOMEX.idColec = Me.ppColeccion
IngresosaCOMEX.MdiParent = Me
IngresosaCOMEX.Show()
End Sub
Private Sub MMAccesorios_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MMAccesorios.Click
CUBO_PC = New CUBO_PC
CUBO_PC.Reporte = "CUBO Plan Comercial ACCESORIOS"
CUBO_PC.ppColeccion = Me.ppColeccion
CUBO_PC.Canal = 3
CUBO_PC.idLinea = 3
CUBO_PC.MdiParent = Me
CUBO_PC.Show()
End Sub
Private Sub MMBebe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MMBebe.Click
CUBO_PC = New CUBO_PC
CUBO_PC.Reporte = "CUBO Plan Comercial BEBE"
CUBO_PC.ppColeccion = Me.ppColeccion
CUBO_PC.Canal = 3
CUBO_PC.idLinea = 1
CUBO_PC.MdiParent = Me
CUBO_PC.Show()
End Sub
Private Sub MMJunior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MMJunior.Click
CUBO_PC = New CUBO_PC
CUBO_PC.Reporte = "CUBO Plan Comercial JUNIOR"
CUBO_PC.ppColeccion = Me.ppColeccion
CUBO_PC.Canal = 3
CUBO_PC.idLinea = 1
CUBO_PC.MdiParent = Me
CUBO_PC.Show()
End Sub
Private Sub MMMinimimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MMMinimimo.Click
CUBO_PC = New CUBO_PC
CUBO_PC.Reporte = "CUBO Plan Comercial MINIMIMO"
CUBO_PC.ppColeccion = Me.ppColeccion
CUBO_PC.Canal = 3
CUBO_PC.idLinea = 1
CUBO_PC.MdiParent = Me
CUBO_PC.Show()
End Sub
Private Sub MMCalzados_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
CUBO_PC = New CUBO_PC
CUBO_PC.Reporte = "CUBO Plan Comercial CALZADO"
CUBO_PC.ppColeccion = Me.ppColeccion
CUBO_PC.Canal = 3
CUBO_PC.idLinea = 2
CUBO_PC.MdiParent = Me
CUBO_PC.Show()
End Sub
Private Sub AccesoriosCMX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AccesoriosCMX.Click
CUBO_PC = New CUBO_PC
CUBO_PC.Reporte = "CUBO Plan Comercial ACCESORIOS"
CUBO_PC.ppColeccion = Me.ppColeccion
CUBO_PC.Canal = 1 'COMEX
CUBO_PC.idLinea = 3
CUBO_PC.MdiParent = Me
CUBO_PC.Show()
End Sub
Private Sub BebeCMX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BebeCMX.Click
CUBO_PC = New CUBO_PC
CUBO_PC.Reporte = "CUBO Plan Comercial BEBE"
CUBO_PC.ppColeccion = Me.ppColeccion
CUBO_PC.Canal = 1 'COMEX
CUBO_PC.idLinea = 1
CUBO_PC.MdiParent = Me
CUBO_PC.Show()
End Sub
Private Sub JuniorCMX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JuniorCMX.Click
CUBO_PC = New CUBO_PC
CUBO_PC.Reporte = "CUBO Plan Comercial JUNIOR"
CUBO_PC.ppColeccion = Me.ppColeccion
CUBO_PC.Canal = 1 'COMEX
CUBO_PC.idLinea = 1
CUBO_PC.MdiParent = Me
CUBO_PC.Show()
End Sub
Private Sub MinimimoCMX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MinimimoCMX.Click
CUBO_PC = New CUBO_PC
CUBO_PC.Reporte = "CUBO Plan Comercial MINIMIMO"
CUBO_PC.ppColeccion = Me.ppColeccion
CUBO_PC.Canal = 1 'COMEX
CUBO_PC.idLinea = 1
CUBO_PC.MdiParent = Me
CUBO_PC.Show()
End Sub
Private Sub CalzadosCMX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalzadosCMX.Click
CUBO_PC = New CUBO_PC
CUBO_PC.Reporte = "CUBO Plan Comercial CALZADO"
CUBO_PC.ppColeccion = Me.ppColeccion
CUBO_PC.Canal = 1 'COMEX
CUBO_PC.idLinea = 2
CUBO_PC.MdiParent = Me
CUBO_PC.Show()
End Sub
Private Sub PlanComercialPorRubroCanal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanComercialPorRubroCanal.Click
InformePlanComercial = New InformePlanComercial
InformePlanComercial.MdiParent = Me
InformePlanComercial.ppColeccion = Me.ppColeccion
InformePlanComercial.Show()
End Sub
Private Sub ExplosionDeInsumos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExplosionDeInsumos.Click
ExplosionInsumos = New ExplosionInsumos
ExplosionInsumos.idColec = ppColeccion
ExplosionInsumos.MdiParent = Me
ExplosionInsumos.Show()
End Sub
Private Sub PlanComercialDeArticulos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanComercialDeArticulos.Click
PlanComercialTODOSArticulos = New PlanComercialTODOSArticulos
PlanComercialTODOSArticulos.ppColeccion = Me.ppColeccion
PlanComercialTODOSArticulos.Show()
End Sub
Private Sub PlanillasAsignadasYAutorizadas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanillasAsignadasYAutorizadas.Click
PlanillasAsignadas_Autorizadas = New PlanillasAsignadas_Autorizadas
PlanillasAsignadas_Autorizadas.ppColeccion = Me.ppColeccion
PlanillasAsignadas_Autorizadas.Show()
End Sub
Private Sub PlanillasRechazadas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanillasRechazadasPorAdm.Click
PlanillasRechazadas = New PlanillasRechazadas
PlanillasRechazadas.Show()
End Sub
Private Sub ListadoDetalladoDeRemitos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SM_ListadoDetalladoDeRemitos.Click
FRM_RemisionComexPorLinea = New RemisionComexPorLinea
FRM_RemisionComexPorLinea.Show()
End Sub
Private Sub PlanillasDistribuidasCStockDePerolesVM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanillasDistribuidasCStockDePerolesVM.Click
Planillas_STOCK_PEROLES = New PlanillasSTOCK_PEROLES
Planillas_STOCK_PEROLES.Text = "Informe de Stock en PEROLES por Rubro"
Planillas_STOCK_PEROLES.ppColeccion = ppVarColeccion
Planillas_STOCK_PEROLES.Canal = 3
Planillas_STOCK_PEROLES.MdiParent = Me
Planillas_STOCK_PEROLES.Show()
End Sub
Private Sub PlanComercialPorFamilia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanComercialPorFamilia.Click
mmPlanComercialPorFamilia = New PlanComercialPorFamilia
mmPlanComercialPorFamilia.ppColeccion = ppVarColeccion
mmPlanComercialPorFamilia.Canal = 3
mmPlanComercialPorFamilia.Show()
End Sub
Private Sub MovAjustesCALZADOS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MovAjustesCALZADOS.Click
InformeAjustesCalzados = New InformeAjustesCalzados
InformeAjustesCalzados.ppColeccion = ppVarColeccion
InformeAjustesCalzados.Show()
End Sub
Private Sub mmStockPickingPorArticulo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmStockPickingPorArticulo.Click
StockPickingPorArticulo = New StockPickingPorArticulo
StockPickingPorArticulo.ppColeccion = ppVarColeccion
StockPickingPorArticulo.Show()
End Sub
Private Sub mmSTK_PICKING_PEROLES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmSTK_PICKING_PEROLES.Click
STK_PICKING_PEROLES = New STK_PICKING_PEROLES
STK_PICKING_PEROLES.ppColec = ppVarColeccion
STK_PICKING_PEROLES.Show()
End Sub
Private Sub mmArtDesh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmArtDesh.Click
ArticulosDeshabilitados = New ArticulosDeshabilitados
ArticulosDeshabilitados.Show()
End Sub
Private Sub mmListadoDePRECIOS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmListadoDePRECIOS.Click
ListadoDePRECIOS = New ListadoDePRECIOS
ListadoDePRECIOS.ppColeccion = ppVarColeccion
ListadoDePRECIOS.Show()
End Sub
Private Sub SM_InfCEMORemxFecha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SM_InfCEMORemxFecha.Click
frmInfCEMoREM = New Desp_Inf_CEMoREM_xFecha
frmInfCEMoREM.ShowDialog()
End Sub
Private Sub PendDeExpxFecha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SM_PendDeExpxFecha.Click
frmPendExpxFecha = New Informe_PendExpxFecha
frmPendExpxFecha.ShowDialog()
End Sub
Private Sub PendDeFCxFecha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SM_PendDeFCxFecha.Click
frmPendFCxFecha = New Informe_PendFacturacionxFecha
frmPendFCxFecha.ShowDialog()
End Sub
Private Sub PendDeLocalesxFecha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SM_PendDeLocalesxFecha.Click
frmPendLocalesxFecha = New Informe_PendLocalesxFecha
frmPendLocalesxFecha.ShowDialog()
End Sub
Private Sub SM_CerradosxFecha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SM_CerradosxFecha.Click
frmCerradosxFecha = New Informe_CerradosxFecha
frmCerradosxFecha.ShowDialog()
End Sub
Private Sub SM_AnuladosxFecha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SM_AnuladosxFecha.Click
frmAnuladosxFecha = New Informe_AnuladosxFecha
frmAnuladosxFecha.ShowDialog()
End Sub
Private Sub mmDespachoNr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmDespachoNr.Click
frmInformeDeDespachos = New Informe_Despachos
frmInformeDeDespachos.ShowDialog()
End Sub
Private Sub mmDespachoCLIENTE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmDespachoCLIENTE.Click
frmInformeDeDespachosCLIENTE = New Informe_DespachosCLIENTE
frmInformeDeDespachosCLIENTE.Show()
End Sub
Private Sub PorFecha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PorFecha.Click
FRM_InformeRemision = New InformeRemision
FRM_InformeRemision.ppColeccion = Me.ppColeccion
FRM_InformeRemision.Show()
End Sub
Private Sub UnidadesRequeridasPickeadasYRemitidasPorDiaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UnidadesRequeridasPickeadasYRemitidasPorDiaToolStripMenuItem.Click
FRM_InformePickReqRemporDia = New InformePickReqRemporDia
FRM_InformePickReqRemporDia.ppColeccion = Me.ppColeccion
FRM_InformePickReqRemporDia.Show()
End Sub
Private Sub PorREMITIDOR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PorREMITIDOR.Click
FRM_InformeRemitidor = New InformeRemitidor
'FRM_InformeRemitidor.ppColeccion = Me.ppColeccion
FRM_InformeRemitidor.Show()
End Sub
Private Sub mmArticulos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmArticulosPEROLES.Click
InformeArticulosPEROLES = New InformeArticulosPEROLES
InformeArticulosPEROLES.ppColeccion = Me.ppColeccion
InformeArticulosPEROLES.Show()
End Sub
Private Sub mmStockEnUBICACIONESDEPICKING_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmStockEnUBICACIONESDEPICKING.Click
StockEnUBICACIONESDEPICKING = New StockEnUBICACIONESDEPICKING
StockEnUBICACIONESDEPICKING.Show()
End Sub
Private Sub mmCartelesDeUbicaciones_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmCartelesDeUbicaciones.Click
CartelesDeUbicaciones = New CartelesDeUbicaciones
CartelesDeUbicaciones.ppcoleccion = Me.ppColeccion
CartelesDeUbicaciones.Show()
End Sub
Private Sub mmInformeXArticulo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmInformeXArticulo.Click
InformeXArticulo = New InformeXArticulo
InformeXArticulo.ppcoleccion = Me.ppColeccion
InformeXArticulo.Show()
End Sub
Private Sub ConsultaDePreciosDeInsumos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConsultaDePreciosDeInsumos.Click
ConsultaPreciosInsumos = New ConsultaPreciosInsumos
ConsultaPreciosInsumos.MdiParent = Me
ConsultaPreciosInsumos.Show()
End Sub
Private Sub ControlDeCaja_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ControlDeCaja.Click
AdmControlCaja = New AdmControlCaja
AdmControlCaja.MdiParent = Me
AdmControlCaja.Show()
End Sub
Private Sub SM_ComexCantPedxRubro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SM_ComexCantPedxRubro.Click
FrmPedidosCOMEX_Totales = New PedidosCOMEX_Totales
FrmPedidosCOMEX_Totales.ppColeccion = Me.ppColeccion
FrmPedidosCOMEX_Totales.Canal = 1
FrmPedidosCOMEX_Totales.MdiParent = Me
FrmPedidosCOMEX_Totales.Show()
End Sub
Private Sub InformeStockClientesPIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InformeStockClientesPIC.Click
InformeArticulosPEROLES = New InformeArticulosPEROLES
InformeArticulosPEROLES.ppColeccion = Me.ppColeccion
InformeArticulosPEROLES.Show()
End Sub
Private Sub SM_ControlDeStockDiario_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SM_ControlDeStockDiario.Click
FrmControlStockDiarioxFecha = New ControlStockDiarioxFecha
FrmControlStockDiarioxFecha.Show()
End Sub
Private Sub SM_ControlDetallado_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SM_ControlDetallado.Click
FrmControlStockDETALLADO = New ControlStockDEPOSITO
FrmControlStockDETALLADO.Show()
End Sub
Private Sub ImportaciónArtículosEnStockSalón_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImportaciónArtículosStockSalon.Click
ReporteItemsSalon = New ReporteItemsSalon
ReporteItemsSalon.MdiParent = Me
ReporteItemsSalon.Show()
End Sub
Private Sub ArticulosPEDIDOSSINPLANCOMERCIAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArticulosPEDIDOSSINPC.Click
frmArticulosPEDIDOSSINPLANCOMERCIAL = New ArticulosPEDIDOSSINPLANCOMERCIAL
frmArticulosPEDIDOSSINPLANCOMERCIAL.MdiParent = Me
frmArticulosPEDIDOSSINPLANCOMERCIAL.ppColeccion = Me.ppColeccion
frmArticulosPEDIDOSSINPLANCOMERCIAL.Show()
End Sub
Private Sub SM_AContratemporada_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SM_AContratemporada.Click
frmContratempIngresos = New ContratemporadaIngresos
frmContratempIngresos.MdiParent = Me
frmContratempIngresos.Show()
End Sub
Private Sub InterfaceBockDiferencias_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InterfaceBockDiferencias.Click
ReporteInterfaceBlock_Diferencias = New InterfaceBlock_Diferencias
ReporteInterfaceBlock_Diferencias.MdiParent = Me
ReporteInterfaceBlock_Diferencias.ppColeccion = Me.ppColeccion
ReporteInterfaceBlock_Diferencias.Show()
End Sub
Private Sub InformeStockLocalesPIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InformeStockLocalesPIC.Click
frmInformeArticulosLOCALES = New InformeArticulosLOCALES
frmInformeArticulosLOCALES.ppColeccion = Me.ppColeccion
frmInformeArticulosLOCALES.Show()
End Sub
Private Sub InformeDeStockDeclientes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InformeDeStockDeclientes.Click
frmInformeStock = New InformeStock
frmInformeStock.ppColeccion = Me.ppColeccion
frmInformeStock.Show()
End Sub
Private Sub InfDinamicoDistribPlanillas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InfDinamicoDistribPlanillas.Click
frmInfDinamicoAduana = New InformeDINAMICOAduana
frmInfDinamicoAduana.ppIdColec = ppColeccion
frmInfDinamicoAduana.MdiParent = Me
frmInfDinamicoAduana.Show()
End Sub
Private Sub IngresosDeCALZADOS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IngresosDeCALZADOS.Click
frmIngresosDeCALZADOS = New Ingresos_CALZADOS
frmIngresosDeCALZADOS.ppColeccion = ppColeccion
frmIngresosDeCALZADOS.MdiParent = Me
frmIngresosDeCALZADOS.Show()
End Sub
Private Sub SM_Requerimientos_InfDeReqASalonDinamico_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SM_Requerimientos_InfDeReqASalonDinamico.Click
frmInfRequDinamico = New InformeRequerimientosDINAMICO
frmInfRequDinamico.MdiParent = Me
frmInfRequDinamico.ppIdColec = ppColeccion
frmInfRequDinamico.Show()
End Sub
Private Sub AnalisisDeStock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnalisisDeStock.Click
'# GDN 05/07/2013 - Original con filtros de art/color/talle
AnalisisStock = New RedControlStock
AnalisisStock.Show()
End Sub
Private Sub AnalisisDeStockGlobal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnalisisDeStockGlobal.Click
'# GDN 05/07/2013 - Global por depósito con filtro por colección
AnalisisStockTemporada = New RedControlStockXColeccion
AnalisisStockTemporada.Show()
End Sub
Private Sub AnalisisDeStockDetallado_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnalisisDeStockDetallado.Click
'# GDN 05/07/2013 - Global pero detallado por depósigo/colección
AnalisisStockDetTempo = New RedControlStockDetalleXTemporada
AnalisisStockDetTempo.Show()
End Sub
Private Sub SM_InformeDinamicoCS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SM_InformeDinamicoCS.Click
'# GDN 31/07/2013 - control de stock contra base de datos diario
frmInformeDinamicoControlStock = New InformeDinamicoControlStock
frmInformeDinamicoControlStock.ppIdColec = ppColeccion
frmInformeDinamicoControlStock.ppConsolidado = True
frmInformeDinamicoControlStock.Show()
End Sub
Private Sub SM_InformeDinamicoCS_Abierto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SM_InformeDinamicoCS_Abierto.Click
'# GDN 31/07/2013 - control de stock contra base de datos diario abierto por movimientos
frmInformeDinamicoControlStock = New InformeDinamicoControlStock
frmInformeDinamicoControlStock.ppIdColec = ppColeccion
frmInformeDinamicoControlStock.ppConsolidado = False
frmInformeDinamicoControlStock.Show()
End Sub
Private Sub SM_InfDeReqARemiDinamico_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SM_InfDeReqARemiDinamico.Click
'# GDN 06/08/2013
frmInfRequARemiDinamico = New InformeRequerimientosARemiDINAMICO
frmInfRequARemiDinamico.MdiParent = Me
frmInfRequARemiDinamico.ppIdColec = ppColeccion
frmInfRequARemiDinamico.Show()
End Sub
Private Sub DespachosEnRemision_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DespachosEnRemision.Click
'# GDN 07/08/2013
frmInforme_DespachoEnRemision = New Informe_DespachoEnRemision
frmInforme_DespachoEnRemision.MdiParent = Me
frmInforme_DespachoEnRemision.Show()
End Sub
Private Sub SM_DevAContrat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SM_DevAContrat.Click
'# GDN 13/09/2013
FrmDevContratemp = New Contratemp_mer
FrmDevContratemp.MdiParent = Me
FrmDevContratemp.Show()
End Sub
Private Sub VolumenDistribuidoPorFechaYCliente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VolumenDistribuidoPorFechaYCli.Click
' GM 16/10/2913
FrmVolumenDistribuidoPorFechaYCliente = New DistribuidoPorFechaYCliente
FrmVolumenDistribuidoPorFechaYCliente.MdiParent = Me
FrmVolumenDistribuidoPorFechaYCliente.Show()
End Sub
Private Sub ImpreEti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImpreEti.Click
' GM 29/11/2013
FrmImpreEti = New ImpresionEtiquetas
FrmImpreEti.MdiParent = Me
FrmImpreEti.Show()
End Sub
Private Sub PlanComVsPedidos_Click(sender As System.Object, e As System.EventArgs) Handles PlanComVsPedidos.Click
'# GDN 28/03/2014
FrmPlanVsPed = New PlanComVSPedidos
FrmPlanVsPed.ppColeccion = ppColeccion
FrmPlanVsPed.ppCanal = 1
FrmPlanVsPed.MdiParent = Me
FrmPlanVsPed.Show()
End Sub
Private Sub InformeDinamicoComex_Click(sender As System.Object, e As System.EventArgs) Handles InformeDinamicoComex.Click
FrmInformeDINAMICOComex = New InformeDINAMICOComex
FrmInformeDINAMICOComex.ppIdColec = ppColeccion
FrmInformeDINAMICOComex.MdiParent = Me
FrmInformeDINAMICOComex.Show()
End Sub
Private Sub InfDeRemiPorCliente_Click(sender As System.Object, e As System.EventArgs) Handles InfDeRemiPorCliente.Click
frmInforme_TotalesxRemitoxFecha = New Informe_TotalesxRemitoxFecha
frmInforme_TotalesxRemitoxFecha.ShowDialog()
End Sub
Private Sub IngresosAlDPTToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles IngresosAlDPTToolStripMenuItem.Click
Distri_IngresosAlDPT = New Distri_IngresosAlDPT
Distri_IngresosAlDPT.Reporte = "Ingresos a SALON_porArtColorFecha_DPT"
Distri_IngresosAlDPT.MdiParent = Me
Distri_IngresosAlDPT.idColec = Me.ppColeccion
Distri_IngresosAlDPT.Show()
End Sub
Private Sub STOCKDpt_Click(sender As System.Object, e As System.EventArgs) Handles STOCKDpt.Click
End Sub
Private Sub Trabajo1RBToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles tsmi_AdministracionArtColor_Cumplidos.Click
fReporteInformesAdmVentas = New InformeAdmVentasArtColCumplidas
fReporteInformesAdmVentas.MdiParent = Me
fReporteInformesAdmVentas.Show()
End Sub
Private Sub FallasMenuItem_Click(sender As Object, e As EventArgs) Handles FallasMenuItem.Click
InformeSimple = New InformeSimple
InformeSimple.MdiParent = Me
InformeSimple.Tipo = Informes.InformeSimple.TipoReporte.Fallas
InformeSimple.Show()
End Sub
Private Sub ReclamosClientesMenuItem_Click(sender As Object, e As EventArgs) Handles ReclamosClientesMenuItem.Click
InformeSimple = New InformeSimple
InformeSimple.MdiParent = Me
InformeSimple.Tipo = Informes.InformeSimple.TipoReporte.ReclamoClientes
InformeSimple.Show()
End Sub
Private Sub SeguDonaMuesMenuItem_Click(sender As Object, e As EventArgs) Handles SeguDonaMuesMenuItem.Click
InformeSimple = New InformeSimple
InformeSimple.MdiParent = Me
InformeSimple.Tipo = Informes.InformeSimple.TipoReporte.Segunda
InformeSimple.Show()
End Sub
Private Sub DevolucionLocalesMenuItem_Click(sender As Object, e As EventArgs) Handles DevolucionLocalesMenuItem.Click
InformeSimple = New InformeSimple
InformeSimple.MdiParent = Me
InformeSimple.Tipo = Informes.InformeSimple.TipoReporte.DevolucionLocales
InformeSimple.Show()
End Sub
Private Sub ProduccionMenuItem_Click(sender As Object, e As EventArgs) Handles ProduccionMenuItem.Click
InformeSimple = New InformeSimple
InformeSimple.MdiParent = Me
InformeSimple.Tipo = Informes.InformeSimple.TipoReporte.Produccion
InformeSimple.Show()
End Sub
Private Sub ListadoDeClientesPorVolumenDetalladoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ListadoDeClientesPorVolumenDetalladoToolStripMenuItem.Click
imprimirpedidoDet = New ImprimirPedidoDet
'imprimirpedidoDet.Reporte = "Listado de Volumen por Cliente"
imprimirpedidoDet.MdiParent = Me
imprimirpedidoDet.ppColeccion = Me.ppColeccion
imprimirpedidoDet.Show()
End Sub
Private Sub FallasReclamosDevolucionesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FallasReclamosDevolucionesMenuItem.Click
InformeSimple = New InformeSimple
InformeSimple.MdiParent = Me
InformeSimple.Tipo = Informes.InformeSimple.TipoReporte.FallasRecDev
InformeSimple.Show()
End Sub
Private Sub Salir_Click(sender As Object, e As EventArgs) Handles Salir.Click
Me.Close()
End Sub
End Class
Suscribirse a:
Enviar comentarios (Atom)
-
https://msdn.microsoft.com/en-us/library/office/ff192694.aspx filtros DoCmd.SetFilter Method (Access) Office 2013 and later Ot...
-
Tabla de operadores Access para Office 365 Access 2019 Access 2016 Access 2013 Access 2010 Access 2007 Un operador es...
No hay comentarios:
Publicar un comentario