diff --git a/Acumuladores/Tamaños.aspx.vb b/Acumuladores/Tamaños.aspx.vb index 87ea660b7..1ad466ef6 100644 --- a/Acumuladores/Tamaños.aspx.vb +++ b/Acumuladores/Tamaños.aspx.vb @@ -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 diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 5f39d193d..09173b61d 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -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 diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index fef53a3d1..66d031f83 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -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 diff --git a/Ventas/Promociones.aspx b/Ventas/Promociones.aspx index 0b342eb9b..b5fd86cbb 100644 --- a/Ventas/Promociones.aspx +++ b/Ventas/Promociones.aspx @@ -165,10 +165,23 @@
-
+
+
+ Usuario: +
+
+ +
+
+ Fecha: +
+
+ +
+
diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index 30f631e3e..e7db582ef 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -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