Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
187
Planeacion/Sucursal.aspx.vb
Normal file
187
Planeacion/Sucursal.aspx.vb
Normal file
@@ -0,0 +1,187 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
|
||||
Partial Class Sucursal
|
||||
Inherits ClsPaginas
|
||||
|
||||
Private ReadOnly Property CveSucursal As Integer
|
||||
Get
|
||||
Return ViewState("CveSucursal").ToString.ToEntero
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
|
||||
CType(Me.Master, BaseMasterPage).EsPopup = True
|
||||
CType(Me.Master, BaseMasterPage).PopupWidth = 700
|
||||
RegistraScript("$get('tdContenido').style.height='400px'")
|
||||
|
||||
If Request("CveSucursal") IsNot Nothing AndAlso IsNumeric(Request("CveSucursal")) AndAlso Request("CveSucursal").ToEntero > 0 Then
|
||||
ViewState("CveSucursal") = Request("CveSucursal")
|
||||
CargaDatos()
|
||||
'Configuración de Modalidad Update
|
||||
BtnGuardar.Text = "Guardar Cambios"
|
||||
Else
|
||||
'Configuración de Modalidad Insert
|
||||
ViewState("CveSucursal") = -1
|
||||
ChkEstado.Enabled = False
|
||||
ChkEstado.Checked = True
|
||||
LblFechaCaptura.Text = Now.ToShortDateString()
|
||||
LblUsuarioCapturo.Text = UsuarioActual.Usuario
|
||||
BtnEliminar.Visible = False
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim DT As New DataTable
|
||||
'GlobalDTSucursales.FiltraParametros("CveSucursal = " & CveSucursal)
|
||||
If DT.Rows.Count > 0 Then
|
||||
|
||||
TxtSucursal.Text = DT.Rows(0)("Sucursal").ToString
|
||||
TxtSerie.Text = DT.Rows(0)("Serie").ToString
|
||||
TxtIVA.Text = DT.Rows(0)("IVA").ToString
|
||||
TxtCalle.Text = DT.Rows(0)("Calle").ToString
|
||||
TxtNoExt.Text = DT.Rows(0)("NoExt").ToString
|
||||
TxtNoInt.Text = DT.Rows(0)("NoInt").ToString
|
||||
TxtColonia.Text = DT.Rows(0)("Colonia").ToString
|
||||
TxtLocalidad.Text = DT.Rows(0)("Localidad").ToString
|
||||
TxtMunicipio.Text = DT.Rows(0)("Municipio").ToString
|
||||
TxtEstado.Text = DT.Rows(0)("Estado").ToString
|
||||
TxtPais.Text = DT.Rows(0)("Pais").ToString
|
||||
TxtCP.Text = DT.Rows(0)("CP").ToString
|
||||
'TxtCP.Text = DT.Rows(0)("CP").ToString
|
||||
Session("FileUpload") = DT.Rows(0)("TipoSucursal").ToString
|
||||
|
||||
If DT.Rows(0)("TipoSucursal").ToString.ToEntero = 1 Then
|
||||
Matriz.Checked = True
|
||||
Else
|
||||
Matriz.Checked = False
|
||||
End If
|
||||
If System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\" & DT.Rows(0)("FormatoFactura").ToString) Then
|
||||
'DirectCast("HLVer", HtmlLink). = "<a class=""Texto"" href=""/Empresas/" & UsuarioActual.CveEmpresa & "/Formatos/" & e.Row.DBCampo("FormatoFactura") & """>Ver</a>"
|
||||
End If
|
||||
|
||||
ChkEstado.Checked = If(DT.Rows(0)("Estatus").ToString = "Activo", True, False)
|
||||
LblFechaCaptura.Text = DT.Rows(0)("Fecha").ToString
|
||||
LblUsuarioCapturo.Text = DT.Rows(0)("Usuario").ToString
|
||||
Else
|
||||
Alert("La Sucursal solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
|
||||
BtnGuardar.Enabled = False
|
||||
End If
|
||||
If DT IsNot Nothing Then DT.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
|
||||
|
||||
If CveSucursal = -1 Then
|
||||
If UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
|
||||
CreaProyectoSubProyectoSucursal()
|
||||
Else
|
||||
CreaSucursal()
|
||||
End If
|
||||
Else
|
||||
Dim ObjSucursales As New ClsSucursales()
|
||||
|
||||
If ObjSucursales.UpdateSucursal(TxtSucursal.Text.Trim, TxtSerie.Text.Trim, TxtIVA.Text.Trim.ToDouble, Session("FileUpload").ToString, ChkEstado.Checked, UsuarioActual.CveUsuario, CveSucursal, TxtCalle.Text.Trim,
|
||||
TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtMunicipio.Text.Trim, TxtEstado.Text.Trim, TxtPais.Text.Trim, TxtCP.Text.Trim, IIf(Matriz.Checked, 1, 0).ToString.ToEntero) Then
|
||||
CargaDatos()
|
||||
UpDatos.Update()
|
||||
|
||||
updateGlobaldt()
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion, "CerrarVentana(); window.parent.location.reload();")
|
||||
Else
|
||||
Alert("Ocurrió un error al guardar la Sucursal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
ObjSucursales.Dispose()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Sub updateGlobaldt()
|
||||
Dim ObjSucursales As New ClsSucursales()
|
||||
If ObjSucursales.GetSucursales() Then Application("GlobalDTSucursales") = ObjSucursales.DtResultados Else Application("GlobalDTSucursales") = Nothing
|
||||
ObjSucursales.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub CreaSucursal()
|
||||
Dim ObjSucursales As New ClsSucursales()
|
||||
|
||||
If ObjSucursales.AddSucursal(TxtSucursal.Text.Trim, TxtSerie.Text.Trim, TxtIVA.Text.Trim.ToDouble, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtCalle.Text.Trim,
|
||||
TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtMunicipio.Text.Trim, TxtEstado.Text.Trim, TxtPais.Text.Trim, TxtCP.Text.Trim, IIf(Matriz.Checked, 1, 0).ToString.ToEntero) > 0 Then
|
||||
updateGlobaldt()
|
||||
Alert("La Sucursal se guardó correctamente.", TipoMensaje.MsgInformacion, "CerrarVentana(); window.parent.location.reload();")
|
||||
Else
|
||||
Alert("Ocurrió un error al guardar la Sucursal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
ObjSucursales.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub CreaProyectoSubProyectoSucursal()
|
||||
Dim ObjProyectos As New ClsProyectos
|
||||
Dim ObjSubproyectos As New ClsSubProyectos(ObjProyectos.IniciaTransacSQL())
|
||||
Dim ObjSucursales As New ClsSucursales(ObjProyectos.IniciaTransacSQL())
|
||||
|
||||
Dim TieneError = False
|
||||
|
||||
'CREA PROYECTO
|
||||
Dim CveProyecto = ObjProyectos.AddProyecto(TxtSucursal.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveSucursal.ToEntero)
|
||||
|
||||
If CInt(CveProyecto) > 0 Then
|
||||
GlobalDTProyectos(-1) = ObjProyectos.DtResultados
|
||||
|
||||
Dim CveSucursal = ObjSucursales.AddSucursal(TxtSucursal.Text.Trim, TxtSerie.Text.Trim, TxtIVA.Text.Trim.ToDouble, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtCalle.Text.Trim,
|
||||
TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtMunicipio.Text.Trim, TxtEstado.Text.Trim, TxtPais.Text.Trim, TxtCP.Text.Trim, IIf(Matriz.Checked, 1, 0).ToString.ToEntero)
|
||||
|
||||
'CREA SUCURSAL
|
||||
If CveSucursal > 0 Then
|
||||
'CREA SUBPROYECTO
|
||||
If Not ObjSubproyectos.AddSubProyecto(CInt(CveProyecto), TxtSucursal.Text.Trim, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveSucursal) Then
|
||||
TieneError = True
|
||||
End If
|
||||
Else
|
||||
TieneError = True
|
||||
End If
|
||||
|
||||
Else
|
||||
TieneError = True
|
||||
End If
|
||||
|
||||
|
||||
'se regeneran los subproyectos
|
||||
If Not TieneError Then
|
||||
If UsuarioActual.Empresa.GralSoloProyecto Then
|
||||
If ObjSubproyectos.GetSubProyectos() Then
|
||||
GlobalDTSubProyectos(-1) = ObjSubproyectos.DtResultados
|
||||
Else
|
||||
TieneError = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If Not TieneError Then
|
||||
ObjProyectos.Commit()
|
||||
Alert("La nueva Sucursal se guardó correctamente.", TipoMensaje.MsgInformacion, "opener.location.reload();window.close();")
|
||||
Else
|
||||
ObjProyectos.RollBack()
|
||||
Alert("Ocurrió un error al registrar la Sucursal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
ObjProyectos.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
|
||||
Dim ObjSucursal As New ClsSucursales()
|
||||
If ObjSucursal.RemoveSucursal(CveSucursal) Then
|
||||
Alert("La Sucursal se eliminó correctamente.", TipoMensaje.MsgInformacion, "opener.location.reload();window.close();")
|
||||
End If
|
||||
ObjSucursal.Dispose()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user