Correción update DefinicionEmpresa.aspx
This commit is contained in:
rakcsle
@@ -488,7 +488,7 @@ Partial Class Sistemas_DefinicionEmpresa
|
||||
TxtExtension.Text = .Extension
|
||||
TxtLocalidad.Text = .Localidad
|
||||
DdlMetodoInventario.SelectedValue = .CveMetodoInventario.ToString
|
||||
AsientoContable = .AsientoContableComprasContado
|
||||
AsientoContable = False
|
||||
TxtPeriodoActual.Text = .PeriodoActual.ToString
|
||||
TxtEjercicioActual.Text = .EjercicioActual.ToString
|
||||
ChkDefaultAsistencias.Checked = .DefaultAsistencias
|
||||
@@ -750,21 +750,35 @@ Partial Class Sistemas_DefinicionEmpresa
|
||||
|
||||
|
||||
Else
|
||||
'If ObjEmpresas.UpdateEmpresa(TxtEmpresa.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim,
|
||||
' TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, "CFDi", "-1",
|
||||
' "-1", TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", Estatus,
|
||||
' FacturaProduccion, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "-1", EstatusFacturacion, TxtSendMail.Text.Trim,
|
||||
' TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, UsaContabilidad, UsaBancos,
|
||||
' UsaVentas, UsaCxC, UsaCompras, UsaInventarios, UsaRH, UsaNomina, UsaOS, "-1",
|
||||
' "-1", "-1", "-1", TxtBuzon_Mail.Text.Trim, TxtBuzon_Server.Text.Trim, TxtBuzon_Puerto.Text.Trim.ToEntero,
|
||||
' ChkBuzon_SSL.Checked, TxtBuzon_USR.Text.Trim, TxtBuzon_PWD.Text.Trim, UsuarioActual.CveEmpresa, DdlProtocolo.SelectedValue,
|
||||
' "-1", "-1", -1, SSLSoporte, "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, "", TxtAreaGeografica.Text.Trim,
|
||||
' -1, -1, TxtNombreCorto.Text, TxtCURP.Text.Trim, DdlRegimen.SelectedValue.ToEntero, -1,
|
||||
' -1, TxtCIEC.Text, 1, UsaAC,
|
||||
' TxtPorDepreciacion.Text.ToDecimal, TxtExtension.Text, TxtLocalidad.Text, DdlMetodoInventario.SelectedValue.ToEntero, AsientoContable, TxtPeriodoActual.Text.ToEntero,
|
||||
' TxtEjercicioActual.Text.ToEntero, ChkDefaultAsistencias.Checked, TxtDiasPermitidos.Text.ToEntero, DdlTipoCentroDeCostos.SelectedValue.ToEntero, ChkReqCentroCostos.Checked,
|
||||
' DdlTerminalTipo.SelectedValue.ToEntero, IdCuentaDSV:=-1, IdCuentaImpuestosLocales:=-1, IdCuentaIEPSxAcreditar:=-1, IdCuentaIEPSAcreditable:=-1,
|
||||
' IdCuentaIEPSxTrasladar:=-1, IdCuentaIEPSTrasladado:=-1) Then
|
||||
If ObjEmpresas.UpdateEmpresa(TxtEmpresa.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim,
|
||||
TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, "CFDi", "-1",
|
||||
"-1", TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", Estatus,
|
||||
FacturaProduccion, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "-1", EstatusFacturacion, TxtSendMail.Text.Trim,
|
||||
FacturaProduccion, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "", EstatusFacturacion, TxtSendMail.Text.Trim,
|
||||
TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, UsaContabilidad, UsaBancos,
|
||||
UsaVentas, UsaCxC, UsaCompras, UsaInventarios, UsaRH, UsaNomina, UsaOS, "-1",
|
||||
UsaVentas, UsaCxC, UsaCompras, UsaInventarios, UsaRH, UsaNomina, UsaOS, "-1",
|
||||
"-1", "-1", "-1", TxtBuzon_Mail.Text.Trim, TxtBuzon_Server.Text.Trim, TxtBuzon_Puerto.Text.Trim.ToEntero,
|
||||
ChkBuzon_SSL.Checked, TxtBuzon_USR.Text.Trim, TxtBuzon_PWD.Text.Trim, UsuarioActual.CveEmpresa, DdlProtocolo.SelectedValue,
|
||||
"-1", "-1", -1, SSLSoporte, "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, "", TxtAreaGeografica.Text.Trim,
|
||||
-1, -1, TxtNombreCorto.Text, TxtCURP.Text.Trim, DdlRegimen.SelectedValue.ToEntero, -1,
|
||||
"-1", "-1", -1, SSLSoporte,
|
||||
"-1", "-1", "-1", "", TxtAreaGeografica.Text.Trim,
|
||||
TxtNombreCorto.Text, TxtCURP.Text.Trim, DdlRegimen.SelectedValue.ToEntero, -1,
|
||||
-1, TxtCIEC.Text, 1, UsaAC,
|
||||
TxtPorDepreciacion.Text.ToDecimal, TxtExtension.Text, TxtLocalidad.Text, DdlMetodoInventario.SelectedValue.ToEntero, AsientoContable, TxtPeriodoActual.Text.ToEntero,
|
||||
TxtEjercicioActual.Text.ToEntero, ChkDefaultAsistencias.Checked, TxtDiasPermitidos.Text.ToEntero, DdlTipoCentroDeCostos.SelectedValue.ToEntero, ChkReqCentroCostos.Checked,
|
||||
DdlTerminalTipo.SelectedValue.ToEntero, IdCuentaDSV:=-1, IdCuentaImpuestosLocales:=-1, IdCuentaIEPSxAcreditar:=-1, IdCuentaIEPSAcreditable:=-1,
|
||||
IdCuentaIEPSxTrasladar:=-1, IdCuentaIEPSTrasladado:=-1) Then
|
||||
TxtPorDepreciacion.Text.ToDecimal, TxtExtension.Text, TxtLocalidad.Text, DdlMetodoInventario.SelectedValue.ToEntero, TxtPeriodoActual.Text.ToEntero,
|
||||
TxtEjercicioActual.Text.ToEntero, ChkDefaultAsistencias.Checked, TxtDiasPermitidos.Text.ToEntero, DdlTipoCentroDeCostos.SelectedValue.ToEntero, ChkReqCentroCostos.Checked, DdlTerminalTipo.SelectedValue.ToEntero) Then
|
||||
|
||||
'Movemos el Archivo Fisicamente
|
||||
If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(Request.PhysicalApplicationPath + "Banners\Temp\" & Session("FileUpload").ToString) Then
|
||||
@@ -782,6 +796,23 @@ Partial Class Sistemas_DefinicionEmpresa
|
||||
TextoError = "Ocurrió un error al guardar los cambios de la empresa"
|
||||
End If
|
||||
|
||||
'If ObjEmpresas.UpdateEmpresa(TxtEmpresa.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim,
|
||||
' TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, "CFDi", "-1",
|
||||
' "-1", TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", Estatus,
|
||||
' FacturaProduccion, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "", EstatusFacturacion, TxtSendMail.Text.Trim,
|
||||
' TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, UsaContabilidad, UsaBancos,
|
||||
' UsaVentas, UsaCxC, UsaCompras, UsaInventarios, UsaRH, UsaNomina, UsaOS, "-1",
|
||||
' "-1", "-1", "-1", TxtBuzon_Mail.Text.Trim, TxtBuzon_Server.Text.Trim, TxtBuzon_Puerto.Text.Trim.ToEntero,
|
||||
' ChkBuzon_SSL.Checked, TxtBuzon_USR.Text.Trim, TxtBuzon_PWD.Text.Trim, UsuarioActual.CveEmpresa, DdlProtocolo.SelectedValue,
|
||||
' "-1", "-1", -1, SSLSoporte,
|
||||
' "-1", "-1", "-1", "", TxtAreaGeografica.Text.Trim,
|
||||
' TxtNombreCorto.Text, TxtCURP.Text.Trim, DdlRegimen.SelectedValue.ToEntero, -1,
|
||||
' -1, TxtCIEC.Text, 1, UsaAC,
|
||||
' TxtPorDepreciacion.Text.ToDecimal, TxtExtension.Text, TxtLocalidad.Text, DdlMetodoInventario.SelectedValue.ToEntero, TxtPeriodoActual.Text.ToEntero,
|
||||
' TxtEjercicioActual.Text.ToEntero, ChkDefaultAsistencias.Checked, TxtDiasPermitidos.Text.ToEntero, DdlTipoCentroDeCostos.SelectedValue.ToEntero, ChkReqCentroCostos.Checked, DdlTerminalTipo.SelectedValue.ToEntero) Then
|
||||
|
||||
'End If
|
||||
|
||||
'Agregar Indicadores
|
||||
'For Each Row As GridViewRow In GvIndicadores.Rows
|
||||
' If Row.DataKey("CveIndicador") <> "" AndAlso Row.DataKey("CveEmpresa") <> "" And Row.FCCheckBox("chkIndicador").Checked = False Then
|
||||
@@ -802,8 +833,8 @@ Partial Class Sistemas_DefinicionEmpresa
|
||||
End If
|
||||
|
||||
|
||||
'RECARGA EMPRESA
|
||||
If TextoError = "" Then
|
||||
'RECARGA EMPRESA
|
||||
If TextoError = "" Then
|
||||
If ObjEmpresas.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
|
||||
GlobalDTEmpresas(UsuarioActual.CveEmpresa) = Nothing
|
||||
|
||||
|
||||
Reference in New Issue
Block a user