AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source
This commit is contained in:
rrene
2023-02-01 00:03:53 -07:00
parent 78e8f1637c 021e50c4b7
commit ad8f61d2ab
87 changed files with 17807 additions and 2157 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Compras/Compras.aspx.vb
View File

@@ -2777,6 +2777,11 @@ Partial Class Compras_Compras
LBContabilizarAC.Visible = True
End If
End If
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
trContabilizada.Visible = False
End If
UPPDescontablizar.Update()
TxtFechaPago.Text = dr("FechaVencimiento").ToString.ToDate.ToShortDateString
@@ -6645,7 +6650,16 @@ Partial Class Compras_Compras
Else
If Not CveCompraRefacturacion > 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
Dim CveSubProyecto240 As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
If CveSubProyecto240 <= 0 Then
Alert("Debe de asignar un sub proyecto o centro de costos", TipoMensaje.MsgAdvertencia)
ErrorPrepoliza = True
Exit For
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto240) Then
ErrorPrepoliza = True
End If
End If

18
Compras/Proveedores.aspx.vb
View File

@@ -2394,7 +2394,7 @@ Partial Class Compras_Proveedores
End If
UPPSucursales.Update()
Me.RegistraScript("$('#divAgregarSucursal').modal('hide');")
RegistraScript("$('#divAgregarSucursal').modal('hide');")
LimpiaModalAgregarSucursal()
End Sub
Private Sub OcultaDiv()
@@ -2528,7 +2528,7 @@ Partial Class Compras_Proveedores
DivPContactosSucursal.Visible = True
UpAgregarSucursal.Update()
Me.RegistraScript("$('#divAgregarSucursal').modal('show');")
RegistraScript("$('#divAgregarSucursal').modal('show');")
End Sub
Protected Sub LnkAgregarSucursal_Click(sender As Object, e As EventArgs)
@@ -2540,7 +2540,7 @@ Partial Class Compras_Proveedores
End If
DivPContactosSucursal.Visible = False
LimpiaModalAgregarSucursal()
Me.RegistraScript("$('#divAgregarSucursal').modal('show');")
RegistraScript("$('#divAgregarSucursal').modal('show');")
End Sub
Protected Sub LimpiaModalAgregarSucursal()
@@ -3876,7 +3876,7 @@ Partial Class Compras_Proveedores
lista.Add(New CrystalParametro("SaldoDisponible", (TxtLimiteCredito.Text.ToDouble - dr("Saldo").ToString.ToDouble).ToString.FormatoNumero))
lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre))
lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
'Dim params As New List(Of ReportParameter)
Dim dtnc As New DataTable
Dim ObjCompra As New ClsCompras()
@@ -4908,7 +4908,7 @@ Partial Class Compras_Proveedores
EsEditar = 0
limpiarCamposModalAgregarContacto()
Me.RegistraScript("$('#DivAgregarContactoProveedor').modal();")
RegistraScript("$('#DivAgregarContactoProveedor').modal();")
End Sub
Protected Sub imgEditarContactoProv_Click(sender As Object, e As EventArgs)
@@ -4931,7 +4931,7 @@ Partial Class Compras_Proveedores
UpAgregarContatoProveedor.Update()
Me.RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
End Sub
@@ -4977,7 +4977,7 @@ Partial Class Compras_Proveedores
EsContactoSucursal = 1
EsEditar = 0
limpiarCamposModalAgregarContacto()
Me.RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
End Sub
Protected Sub imgEditarContactoProvSuc_Click(sender As Object, e As EventArgs)
@@ -5001,7 +5001,7 @@ Partial Class Compras_Proveedores
UpAgregarContatoProveedor.Update()
Me.RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
End Sub
Protected Sub GVContactosProveedorSucursal_RowDeleting(sender As Object, e As GridViewDeleteEventArgs)
@@ -5130,7 +5130,7 @@ Partial Class Compras_Proveedores
End If
Me.RegistraScript("$('#DivAgregarContactoProveedor').modal('hide');")
RegistraScript("$('#DivAgregarContactoProveedor').modal('hide');")
limpiarCamposModalAgregarContacto()
End Sub

8
Compras/RepGastosFijos.aspx.cs
View File

@@ -145,7 +145,7 @@ public partial class Compras_RepGastosFijos : ClsPaginas
RecurrenciaTipo: RecurrenciaTipo, Frecuencia: Frecuencia, Mes: Mes, RecurrenciaFin: RecurrenciaFin.ToString(), CveTipoEvento: CveTipoEvento, Importe: Importe))
{
LimpiaModal();
this.RegistraScript("$('#DvModalGasto').modal('hide');");
RegistraScript("$('#DvModalGasto').modal('hide');");
Alert("El Evento Gasto Mensual se guardó correctamente", ModExtensiones.TipoMensaje.MsgInformacion);
}
}
@@ -155,7 +155,7 @@ public partial class Compras_RepGastosFijos : ClsPaginas
RecurrenciaTipo: RecurrenciaTipo, Frecuencia: Frecuencia, Mes: Mes, RecurrenciaFin: RecurrenciaFin.ToString(), Importe: Importe))
{
LimpiaModal();
this.RegistraScript("$('#DvModalGasto').modal('hide');");
RegistraScript("$('#DvModalGasto').modal('hide');");
Alert("El Evento Gasto Mensual se ha Actualizado correctamente", ModExtensiones.TipoMensaje.MsgInformacion);
}
}
@@ -179,7 +179,7 @@ public partial class Compras_RepGastosFijos : ClsPaginas
{
LimpiaModal();
UPModalGasto.Update();
this.RegistraScript("$('#DvModalGasto').modal();");
RegistraScript("$('#DvModalGasto').modal();");
}
protected void LnkEditar_Click(object sender, EventArgs e)
@@ -201,7 +201,7 @@ public partial class Compras_RepGastosFijos : ClsPaginas
UPModalGasto.Update();
this.RegistraScript("$('#DvModalGasto').modal();");
RegistraScript("$('#DvModalGasto').modal();");
}
#endregion

12
Compras/eFacturas.aspx.vb
View File

@@ -2528,7 +2528,7 @@ Partial Class Compras_eFacturas
TabPanel.ActiveTabIndex = 0
cargasolicitudes()
Me.RegistraScript("$('#ModalViewSolicitudes').modal();")
RegistraScript("$('#ModalViewSolicitudes').modal();")
End Sub
@@ -2553,9 +2553,9 @@ Partial Class Compras_eFacturas
' 'If Continuar Then
' ' txtFechaIAdd.Text = ""
' ' txtFechaFAdd.Text = ""
' ' Me.RegistraScript("$('#DModalSolicitudesNominas').modal('hide');")
' ' RegistraScript("$('#DModalSolicitudesNominas').modal('hide');")
' ' cargasolicitudes()
' ' Me.Alert("se a envia la solicitud al sat, le enviaremos un correo en cuanto tengamos una respuesta", ModExtensiones.TipoMensaje.ToastInformacion)
' ' Alert("se a envia la solicitud al sat, le enviaremos un correo en cuanto tengamos una respuesta", ModExtensiones.TipoMensaje.ToastInformacion)
' 'End If
' Dim idSolicitudCFDI As Integer = 0
@@ -2640,7 +2640,7 @@ Partial Class Compras_eFacturas
' If Continuar Then
' txtFechaIAdd.Text = ""
' txtFechaFAdd.Text = ""
' Me.RegistraScript("$('#ModalViewSolicitudes').modal('hide');")
' RegistraScript("$('#ModalViewSolicitudes').modal('hide');")
' cargasolicitudes()
' End If
@@ -2705,7 +2705,7 @@ Partial Class Compras_eFacturas
txtFechaIAdd.Text = ""
txtFechaFAdd.Text = ""
ChkMetaDatos.Checked = False
Me.RegistraScript("$('#ModalAgregarSolicitud').modal('hide');")
RegistraScript("$('#ModalAgregarSolicitud').modal('hide');")
cargasolicitudes()
End If
End Sub
@@ -2869,7 +2869,7 @@ Partial Class Compras_eFacturas
txtFechaFAdd.Text = ""
ChkMetaDatos.Checked = False
UPModalViewSolicitudesAgregar.Update()
Me.RegistraScript("$('#ModalAgregarSolicitud').modal('show');")
RegistraScript("$('#ModalAgregarSolicitud').modal('show');")
End Sub
Protected Sub GVSolicitudesNominas_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs)