This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
@@ -76,112 +76,112 @@ Partial Class Sucursal
|
||||
If DT IsNot Nothing Then DT.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
|
||||
'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 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()
|
||||
' 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
|
||||
' 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
|
||||
' 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
|
||||
'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()
|
||||
'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
|
||||
' 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
|
||||
' 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())
|
||||
'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
|
||||
' Dim TieneError = False
|
||||
|
||||
'CREA PROYECTO
|
||||
Dim CveProyecto = ObjProyectos.AddProyecto(TxtSucursal.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveSucursal.ToEntero)
|
||||
' 'CREA PROYECTO
|
||||
' Dim CveProyecto = ObjProyectos.AddProyecto(TxtSucursal.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveSucursal.ToEntero)
|
||||
|
||||
If CInt(CveProyecto) > 0 Then
|
||||
GlobalDTProyectos(-1) = ObjProyectos.DtResultados
|
||||
' 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)
|
||||
' 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
|
||||
' '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
|
||||
' 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
|
||||
' '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
|
||||
' 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
|
||||
' 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
|
||||
'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