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

29
General/SaldosIniciales.aspx.vb
View File

@@ -347,27 +347,36 @@ Partial Class General_SaldosIniciales
End If End If
If RblFormato.SelectedValue = "17" Then 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 Exit Sub
End If End If
If Not dt.Columns(18).ColumnName = "Codigo" Then If Not dt.Columns(18).ColumnName = "Cantidad" Then
Alert("El nombre de la Decimonovena columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError) Alert("El nombre de la Decimonovena columna debe ser 'Cantidad'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub Exit Sub
End If 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 Exit Sub
End If End If
If Not dt.Columns(20).ColumnName = "IVADetalle" Then If Not dt.Columns(20).ColumnName = "PU" Then
Alert("El nombre de la Vigésimo primera columna debe ser 'IVADetalle'. Favor de corregirlo", TipoMensaje.MsgError) Alert("El nombre de la Vigésimo primera columna debe ser 'PU'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub Exit Sub
End If End If
If Not dt.Columns(21).ColumnName = "IEPS" Then If Not dt.Columns(21).ColumnName = "IVADetalle" Then
Alert("El nombre de la Vigésimo segunda columna debe ser 'IEPS'. Favor de corregirlo", TipoMensaje.MsgError) Alert("El nombre de la Vigésimo segunda columna debe ser 'IVADetalle'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub Exit Sub
End If 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
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.GetVta_MetodosPago(CveCorte) Then
If ObjPVenta.DtResultados.Rows.Count > 0 Then If ObjPVenta.DtResultados.Rows.Count > 0 Then
GvMetodosPago.DataSource = ObjPVenta.DtResultados GvMetodosPago.DataSource = ObjPVenta.DtResultados.FiltraParametros(" CveTipoTransaccion <> 2")
GvMetodosPago.DataBind() GvMetodosPago.DataBind()
UpMetodosPago.Update() UpMetodosPago.Update()
End If End If

15
Ventas/Promociones.aspx
View File

@@ -165,10 +165,23 @@
<div class="row"> <div class="row">
<label class="col-md-2 truncate">Estatus:</label> <label class="col-md-2 truncate">Estatus:</label>
<div class="col-md-4"> <div class="col-md-2">
<asp:CheckBox ID="ChkEstatus" runat="server" /> <asp:CheckBox ID="ChkEstatus" runat="server" />
</div> </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> </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 TxtFechaF.Text = Dr("FechaFin").ToString.ToDate.ToShortDateString
DdlSubProyecto.SelectedValue = Dr("CveSubProyecto").ToString DdlSubProyecto.SelectedValue = Dr("CveSubProyecto").ToString
DdlMarca.SelectedValue = Dr("CveMarca").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("CveVendedor").ToString.ToEntero > 0 Then DdlVendedor.SelectedValue = Dr("CveVendedor").ToString
If Dr("CveCliente").ToString.ToEntero > 0 Then If Dr("CveCliente").ToString.ToEntero > 0 Then