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

Tamaños reset global, pv cobranza modal estado ocultar transacciones bancarias, promociones mostrar usuario y fecha registro

Browse Source
This commit is contained in:
rakcsle
2025-01-04 12:57:47 -07:00
parent 8e3c8f8e31
commit 33d20ad272
5 changed files with 38 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Acumuladores/Tamaños.aspx.vb
View File

@@ -137,6 +137,7 @@ Partial Class Acumuladores_Tamaños
UpGral.Update()
Alert("Tamaño Agregado Correctamente", TipoMensaje.MsgInformacion)
GlobalDTAcumTamaños(UsuarioActual.CveEmpresa) = Nothing
Else
Alert("Ocurrio un error al guardar el Tamaño", TipoMensaje.MsgError)
End If
@@ -156,6 +157,7 @@ Partial Class Acumuladores_Tamaños
UpGral.Update()
Alert("Tamaño Actualizado Correctamente", TipoMensaje.MsgInformacion)
GlobalDTAcumTamaños(UsuarioActual.CveEmpresa) = Nothing
Else
Alert("Ocurrio un error al Actualizar el Tamaño", TipoMensaje.MsgError)
End If

29
General/SaldosIniciales.aspx.vb
View File

@@ -347,27 +347,36 @@ Partial Class General_SaldosIniciales
End If
If RblFormato.SelectedValue = "17" Then
If Not dt.Columns(17).ColumnName = "Cantidad" Then
Alert("El nombre de la Decimoctava columna debe ser 'Cantidad'. Favor de corregirlo", TipoMensaje.MsgError)
If Not dt.Columns(17).ColumnName = "Vendedor" Then
Alert("El nombre de la Decimoctava columna debe ser 'Vendedor'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(18).ColumnName = "Codigo" Then
Alert("El nombre de la Decimonovena columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
If Not dt.Columns(18).ColumnName = "Cantidad" Then
Alert("El nombre de la Decimonovena columna debe ser 'Cantidad'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(19).ColumnName = "PU" Then
Alert("El nombre de la Vigésima columna debe ser 'PU'. Favor de corregirlo", TipoMensaje.MsgError)
If Not dt.Columns(19).ColumnName = "Codigo" Then
Alert("El nombre de la Vigésima columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(20).ColumnName = "IVADetalle" Then
Alert("El nombre de la Vigésimo primera columna debe ser 'IVADetalle'. Favor de corregirlo", TipoMensaje.MsgError)
If Not dt.Columns(20).ColumnName = "PU" Then
Alert("El nombre de la Vigésimo primera columna debe ser 'PU'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(21).ColumnName = "IEPS" Then
Alert("El nombre de la Vigésimo segunda columna debe ser 'IEPS'. Favor de corregirlo", TipoMensaje.MsgError)
If Not dt.Columns(21).ColumnName = "IVADetalle" Then
Alert("El nombre de la Vigésimo segunda columna debe ser 'IVADetalle'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(22).ColumnName = "IEPS" Then
Alert("El nombre de la Vigésimo tercera columna debe ser 'IEPS'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
End If
End If

2
Ventas/PVCobranza.aspx.vb
View File

@@ -1319,7 +1319,7 @@ Partial Class Ventas_PVCobranza
If ObjPVenta.GetVta_MetodosPago(CveCorte) Then
If ObjPVenta.DtResultados.Rows.Count > 0 Then
GvMetodosPago.DataSource = ObjPVenta.DtResultados
GvMetodosPago.DataSource = ObjPVenta.DtResultados.FiltraParametros(" CveTipoTransaccion <> 2")
GvMetodosPago.DataBind()
UpMetodosPago.Update()
End If

15
Ventas/Promociones.aspx
View File

@@ -165,10 +165,23 @@
<div class="row">
<label class="col-md-2 truncate">Estatus:</label>
<div class="col-md-4">
<div class="col-md-2">
<asp:CheckBox ID="ChkEstatus" runat="server" />
</div>
<div class="col-md-1">
Usuario:
</div>
<div class="col-md-4">
<asp:Label runat="server" ID="LblUsuario"></asp:Label>
</div>
<div class="col-md-1">
Fecha:
</div>
<div class="col-md-2">
<asp:Label runat="server" ID="LblFechaIng"></asp:Label>
</div>
</div>
</div>
</div>

2
Ventas/Promociones.aspx.vb
View File

@@ -431,6 +431,8 @@ Partial Class Ventas_Promociones
TxtFechaF.Text = Dr("FechaFin").ToString.ToDate.ToShortDateString
DdlSubProyecto.SelectedValue = Dr("CveSubProyecto").ToString
DdlMarca.SelectedValue = Dr("CveMarca").ToString
LblUsuario.Text = Dr("Usuario").ToString
LblFechaIng.Text = Dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
If Dr("CveVendedor").ToString.ToEntero > 0 Then DdlVendedor.SelectedValue = Dr("CveVendedor").ToString
If Dr("CveCliente").ToString.ToEntero > 0 Then