From f6b3dbb9e0e82763f898d8b6e3a34907e4e65369 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 12 Nov 2019 13:46:28 -0700 Subject: [PATCH 1/9] cuando el estatusinvenario, es 5, solo recibidas por almacen --- App_Code/ClsTSoft.vb | 8 +++++--- Bancos/RepEgresosSinComprobante.aspx.vb | 8 ++++++-- Compras/Compras.aspx.vb | 2 +- 3 files changed, 12 insertions(+), 6 deletions(-) diff --git a/App_Code/ClsTSoft.vb b/App_Code/ClsTSoft.vb index 201d58cd6..02b128961 100644 --- a/App_Code/ClsTSoft.vb +++ b/App_Code/ClsTSoft.vb @@ -30,10 +30,12 @@ Public Class ClsTSoft End With Try - SqlAdapter.Fill(Data) - Retorno = True + SqlAdapter.Fill(Data) + Retorno = True + Catch ex2 As SqlClient.SqlException + GuardaLogAD(String.Format("Ocurrió un Error al agregar la Remision.{0}{1}", ex2.ToString, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()), "LogGPS") Catch ex As Exception - OnError("Ocurrió un Error al agregar la Remision.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un Error al agregar la Remision.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb index 33322b9bd..6f69c7760 100644 --- a/Bancos/RepEgresosSinComprobante.aspx.vb +++ b/Bancos/RepEgresosSinComprobante.aspx.vb @@ -206,6 +206,8 @@ Partial Class Bancos_RepEgresosSinComprobante If gr.FCCheckBox("Chk").Checked Then Dim CveCuenta As Integer = 0 Dim IdCtaContable As Integer = 0 + Dim TipoMovtoOtIngresos As Boolean = True + Dim TipoMovtoConcepto As Boolean = False Dim CveConceptoContable As Integer Select Case gr.DataKey("CveConceptoContable").ToEntero @@ -213,6 +215,8 @@ Partial Class Bancos_RepEgresosSinComprobante CveConceptoContable = 21 Case 28 CveConceptoContable = 29 + TipoMovtoOtIngresos = False + TipoMovtoConcepto = True Case 37 CveConceptoContable = 43 Case 42 @@ -236,14 +240,14 @@ Partial Class Bancos_RepEgresosSinComprobante CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now, "Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1, + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then MsgError = "Ocurrio un error al saldar el movimiento" Exit For End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero, + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero, ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then MsgError = "Ocurrio un error al saldar el movimiento" Exit For diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 4472026cd..fd5cdfd60 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -14369,7 +14369,7 @@ Partial Class Compras_Compras If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 And Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then Select Case DdlOCVinculaInv.SelectedValue.ToEntero Case 176 - DTOCGV = DTOCGV.FiltraParametros("(EstatusInventario = 3 AND CveTipoPS = 2) OR CveTipoPS = 1") + DTOCGV = DTOCGV.FiltraParametros("(EstatusInventario IN (3,5) AND CveTipoPS = 2) OR CveTipoPS = 1") Case 205 DTOCGV = DTOCGV.FiltraParametros("(EstatusInventario IN (1,2) AND CveTipoPS = 2) OR CveTipoPS = 1") End Select From 9a7897a99a024e4f46770a24a1f0966f16ea23c6 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Wed, 13 Nov 2019 13:49:23 -0700 Subject: [PATCH 2/9] Promocion por cantidad --- App_Code/ClsVentas.vb | 6 ++++-- Ventas/Promociones.aspx | 26 ++++++++++++++++++++------ Ventas/Promociones.aspx.vb | 25 ++++++++++++++++++++----- 3 files changed, 44 insertions(+), 13 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index f5d08a7ca..651133fb9 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -1981,7 +1981,7 @@ Public Class ClsVentas Return Retorno End Function - Public Function AddPromocionesDetalle(CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime) As Boolean + Public Function AddPromocionesDetalle(CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime, Optional CantidadMinima As Integer = 1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PromocionesDetalleAdd") @@ -2003,6 +2003,7 @@ Public Class ClsVentas .Add("@AplicaDomingo", SqlDbType.Bit).Value = AplicaDomingo .Add("@HoraInicio", SqlDbType.DateTime).Value = HoraInicio .Add("@HoraFin", SqlDbType.DateTime).Value = HoraFin + .Add("@CantidadMinima", SqlDbType.Int).Value = CantidadMinima End With Try @@ -2014,7 +2015,7 @@ Public Class ClsVentas Return Retorno End Function - Public Function UpdatePromocionesDetalle(CvePromocionDetalle As Integer, CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime) As Boolean + Public Function UpdatePromocionesDetalle(CvePromocionDetalle As Integer, CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime, Optional CantidadMinima As Integer = 1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PromocionesDetalleUpdate") @@ -2037,6 +2038,7 @@ Public Class ClsVentas .Add("@HoraInicio", SqlDbType.DateTime).Value = HoraInicio .Add("@HoraFin", SqlDbType.DateTime).Value = HoraFin .Add("@CvePromocionDetalle", SqlDbType.Int).Value = CvePromocionDetalle + .Add("@CantidadMinima", SqlDbType.Int).Value = CantidadMinima End With Try diff --git a/Ventas/Promociones.aspx b/Ventas/Promociones.aspx index 854e965d3..8981c5be1 100644 --- a/Ventas/Promociones.aspx +++ b/Ventas/Promociones.aspx @@ -81,15 +81,15 @@
- <%-- + <%-- --%> - +
-
+
@@ -153,7 +153,7 @@
- + <%----%> @@ -227,10 +227,11 @@
- + + @@ -243,6 +244,19 @@
+ +
+ +
+ + + + + + +
+
+
@@ -310,8 +324,8 @@
-
+
diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index 77df1e367..0abb602fd 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -109,6 +109,7 @@ Partial Class Ventas_Promociones TempDT.Columns.Add("CveTipoPromocion", GetType(Integer)) TempDT.Columns.Add("TipoPromocion", GetType(String)) TempDT.Columns.Add("Promocion", GetType(String)) + TempDT.Columns.Add("CantidadMinima", GetType(Integer)) TempDT.Columns.Add("AplicaRestriccionTexto", GetType(String)) TempDT.Columns.Add("AplicaRestriccion", GetType(Boolean)) @@ -199,6 +200,7 @@ Partial Class Ventas_Promociones LbPUActual.Text = "" DdlTipoPromocion.SelectedValue = "-1" TxtPromocionConcepto.Text = "" + TxtCantMinima.Text = "" ChkRestricciones.Checked = False 'DivRestricciones.Visible = False @@ -254,6 +256,12 @@ Partial Class Ventas_Promociones Dr("PUPromocion") = LbPUActual.Text.ToDecimal - (LbPUActual.Text.ToDecimal * TxtPromocionConcepto.Text.ToDecimal / 100) End If + If DdlTipoPromocion.SelectedValue.ToEntero = 3 Then + Dr("CantidadMinima") = TxtCantMinima.Text.ToEntero + Else + Dr("CantidadMinima") = 1 + End If + If ChkRestricciones.Checked Then Dr("AplicaRestriccionTexto") = "Si" Dr("AplicaRestriccion") = True @@ -315,7 +323,9 @@ Partial Class Ventas_Promociones LbPUActual.Text = Gvr.DataKey("PUAnterior").FormatoNumero DdlTipoPromocion.SelectedValue = Gvr.DataKey("CveTipoPromocion") + DdlTipoPromocion_SelectedIndexChanged(sender, Nothing) TxtPromocionConcepto.Text = Gvr.DataKey("Promocion").FormatoNumero(4) + TxtCantMinima.Text = Gvr.DataKey("CantidadMinima") TxtHoraInicio.Text = $"{Gvr.DataKey("HoraInicio").ToDate.Hour}:{Gvr.DataKey("HoraInicio").ToDate.Minute}" TxtHoraFin.Text = $"{Gvr.DataKey("HoraFin").ToDate.Hour}:{Gvr.DataKey("HoraFin").ToDate.Minute}" @@ -371,7 +381,7 @@ Partial Class Ventas_Promociones For Each Dr As DataRow In TempDT.Rows If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble, CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")), - Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime) Then + Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero) Then TieneError = True Exit For End If @@ -400,7 +410,7 @@ Partial Class Ventas_Promociones For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 0").Rows If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble, CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")), - Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime) Then + Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero) Then TieneError = True Exit For End If @@ -410,7 +420,7 @@ Partial Class Ventas_Promociones For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 1").Rows If Not ObjVentas.UpdatePromocionesDetalle(Dr("CvePromocionDetalle").ToString.ToEntero, CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble, CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")), - Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime) Then + Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero) Then TieneError = True Exit For End If @@ -468,6 +478,11 @@ Partial Class Ventas_Promociones End Sub #End Region - - + Protected Sub DdlTipoPromocion_SelectedIndexChanged(sender As Object, e As EventArgs) + If DdlTipoPromocion.SelectedValue = "3" Then + DivCantMinima.Visible = True + Else + DivCantMinima.Visible = False + End If + End Sub End Class \ No newline at end of file From 66d1af2c0f39cde3b0ba6e969958435f06f715b7 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 13 Nov 2019 14:03:31 -0700 Subject: [PATCH 3/9] Agregado de dos campos en el catalogo de CatSubProyectos(hay que actualizar clase) --- App_Code/ClsSubProyectos.vb | 4 +- Planeacion/CatSubProyectos.aspx | 172 ++++++++++++++++------------- Planeacion/CatSubProyectos.aspx.vb | 19 +++- 3 files changed, 115 insertions(+), 80 deletions(-) diff --git a/App_Code/ClsSubProyectos.vb b/App_Code/ClsSubProyectos.vb index 729e1c1f4..b93b363dc 100644 --- a/App_Code/ClsSubProyectos.vb +++ b/App_Code/ClsSubProyectos.vb @@ -387,7 +387,7 @@ Public Class ClsSubProyectos Public Function UpdateCentroCosto(CveSubProyecto As Integer, SubProyecto As String, IdSegNeg As Integer, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveProyecto As Integer, Optional Serie As String = "", Optional IVA As Double = 0.0, Optional Calle As String = "", Optional NoExt As String = "", Optional NoInt As String = "", Optional Colonia As String = "", Optional Localidad As String = "", Optional Municipio As String = "", Optional Estado As String = "", Optional Pais As String = "", Optional CP As String = "", Optional TipoSucursal As Integer = 0, Optional EsSucursal As Integer = 0, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1, Optional AplicaComercioExterior As Boolean = False, Optional Correo As String = "", Optional CvePrecioLista As Integer = -1, - Optional Telefono As String = "") As Boolean + Optional Telefono As String = "", Optional HorarioVerano As Integer = Nothing, Optional HorarioInvierno As Integer = Nothing) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_CentroCostoUpdate") @@ -421,6 +421,8 @@ Public Class ClsSubProyectos .Add("@Correo", SqlDbType.VarChar).Value = Correo .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista .Add("@Telefono", SqlDbType.VarChar).Value = Telefono + .Add("@HorarioVerano", SqlDbType.Int).Value = HorarioVerano + .Add("@HorarioInvierno", SqlDbType.Int).Value = HorarioInvierno End With Try diff --git a/Planeacion/CatSubProyectos.aspx b/Planeacion/CatSubProyectos.aspx index 80674a796..839b2b060 100644 --- a/Planeacion/CatSubProyectos.aspx +++ b/Planeacion/CatSubProyectos.aspx @@ -83,7 +83,7 @@
@@ -182,96 +182,120 @@ -
- - - -
+
+ <%--
+
+ + + +
-
- - - -
+
+ + + +
+
--%> +
+ + + +
+
+ + + +
-
- - - -
+
+ + + +
-
-
-
- - - +
+
+
+ + + +
+
+ +
+
+ + <%-- --%> + +
-
-
- - <%-- --%> - -
+
+ + +
-
-
- - - -
+
+ + + +
-
- - - -
+
+ + + +
-
- - - -
+
+ + + +
-
- - - -
+
+ + + +
-
- - - -
+
+ + + +
-
- - - -
+
+ + +
-
- - -
+
+ + +
-
- - -
+
+ + +
-
- - -
+
+ + +
-
- - +
+ + +
+ +
+ + +
diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb index 586249d7d..22121f394 100644 --- a/Planeacion/CatSubProyectos.aspx.vb +++ b/Planeacion/CatSubProyectos.aspx.vb @@ -284,7 +284,8 @@ Partial Class CatSubProyectos DdlPrecioLista.SelectedValueExist(GvRow.DataKey("CvePrecioLista")) TxtCorreo.Text = (GvRow.DataKey("Correo")) TxtTelefono.Text = (GvRow.DataKey("Telefono")) - + TxtHorarioVerano.Text = (GvRow.DataKey("HorarioVerano")) + TxtHorarioInvierno.Text = (GvRow.DataKey("HorarioInvierno")) 'COMERCIO EXTERIOR ChkAplicaComercioExterior.Checked = If(GvRow.DataKey("AplicaComercioExterior").ToString = "True", True, False) DdlPais.SelectedValueExist(GvRow.DataKey("CvePais")) @@ -350,6 +351,8 @@ Partial Class CatSubProyectos Dim TieneError = False Dim TipoSucursal As Integer Dim EsSucursal As Integer + Dim HorarioVerano As Integer = TxtHorarioVerano.Text.ToEntero + Dim HorarioInvierno As Integer = TxtHorarioInvierno.Text.ToEntero If ChkEsMatriz.Checked = True Then TipoSucursal = 1 Else TipoSucursal = 0 If ChkEsSucursal.Checked = True Then EsSucursal = 1 Else EsSucursal = 0 'GlobalDTProyectos(-1) = ObjSubproyectos.DtResultados @@ -368,16 +371,22 @@ Partial Class CatSubProyectos CveSubProyecto = ObjSubproyectos.CveSubProyecto End If Else - If Not ObjSubproyectos.UpdateCentroCosto(CveCentroCosto, TxtCentroCosto.Text.Trim, IdSeg, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero, Serie:=TxtSerie.Text.Trim, IVA:=TxtIVA.Text.ToDecimal, Calle:=TxtCalle.Text.Trim, NoExt:=TxtNoExt.Text.Trim, - NoInt:=TxtNoInt.Text.Trim, Colonia:=TxtColonia.Text.Trim, Localidad:=TxtLocalidad.Text.Trim, Municipio:=TxtMunicipio.Text.Trim, Estado:=TxtEstado.Text.Trim, Pais:=TxtPais.Text.Trim, CP:=TxtCP.Text.Trim, TipoSucursal:=TipoSucursal, EsSucursal:=EsSucursal, - CvePais:=DdlPais.SelectedValue.ToEntero, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero, AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, Correo:=TxtCorreo.Text, CvePrecioLista:=DdlPrecioLista.SelectedValue.ToEntero, - Telefono:=TxtTelefono.Text) Then + If (HorarioVerano > -13 And HorarioVerano < 13) And (HorarioInvierno > -13 And HorarioInvierno < 13) Then + If Not ObjSubproyectos.UpdateCentroCosto(CveCentroCosto, TxtCentroCosto.Text.Trim, IdSeg, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero, Serie:=TxtSerie.Text.Trim, IVA:=TxtIVA.Text.ToDecimal, Calle:=TxtCalle.Text.Trim, NoExt:=TxtNoExt.Text.Trim, + NoInt:=TxtNoInt.Text.Trim, Colonia:=TxtColonia.Text.Trim, Localidad:=TxtLocalidad.Text.Trim, Municipio:=TxtMunicipio.Text.Trim, Estado:=TxtEstado.Text.Trim, Pais:=TxtPais.Text.Trim, CP:=TxtCP.Text.Trim, TipoSucursal:=TipoSucursal, EsSucursal:=EsSucursal, + CvePais:=DdlPais.SelectedValue.ToEntero, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero, AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, Correo:=TxtCorreo.Text, CvePrecioLista:=DdlPrecioLista.SelectedValue.ToEntero, + Telefono:=TxtTelefono.Text, HorarioVerano:=TxtHorarioVerano.Text.ToEntero, HorarioInvierno:=TxtHorarioInvierno.Text.ToEntero) Then + TieneError = True + End If + Else + Alert("Los valores de horario no deben ser superiores a '12' o menor a '-12'", TipoMensaje.MsgAdvertencia) TieneError = True End If End If + If Not TieneError Then ObjSubproyectos.Commit() If HdnModalidad.Value = "I" Then From aef85f7ef543a93bd20ed1f1cc94ad68d50d34b2 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 13 Nov 2019 18:18:33 -0700 Subject: [PATCH 4/9] concepto 69, que sea abonada en negativo --- Inventarios/PrestamosdeProveedor.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/PrestamosdeProveedor.aspx.vb b/Inventarios/PrestamosdeProveedor.aspx.vb index 9cfe144b4..8b04d2dc5 100644 --- a/Inventarios/PrestamosdeProveedor.aspx.vb +++ b/Inventarios/PrestamosdeProveedor.aspx.vb @@ -179,7 +179,7 @@ Partial Class Inventarios_PrestamosdeProveedor If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, tValorInventario, TxtObservacionesEntrega.Text.Trim, 68, TxtObservacionesEntrega.Text.Trim, Fecha, idCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=tValorInventario) Then ErrorMovInv = True Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoAlmacen, tValorInventario, TxtObservacionesEntrega.Text.Trim, CveConceptoContable, TxtObservacionesEntrega.Text.Trim, Fecha, IdCtaContableOtro, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=CveClasifCosto, ImporteMX:=tValorInventario) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, -tValorInventario, TxtObservacionesEntrega.Text.Trim, CveConceptoContable, TxtObservacionesEntrega.Text.Trim, Fecha, IdCtaContableOtro, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=CveClasifCosto, ImporteMX:=tValorInventario) Then ErrorMovInv = True End If End If From fb6cf29298a601f6cfcdfa166ecf7f5a37079a37 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 14 Nov 2019 10:08:50 -0700 Subject: [PATCH 5/9] acomodo de layout en renglones de modal --- Planeacion/CatSubProyectos.aspx | 222 +++++++++++++++++--------------- 1 file changed, 115 insertions(+), 107 deletions(-) diff --git a/Planeacion/CatSubProyectos.aspx b/Planeacion/CatSubProyectos.aspx index 839b2b060..b5c442439 100644 --- a/Planeacion/CatSubProyectos.aspx +++ b/Planeacion/CatSubProyectos.aspx @@ -182,121 +182,129 @@ -
- <%--
-
- + +
+
+
+
- -
- +
+
+
+
-
--%> -
- - - -
-
- - - -
- -
- - - -
- -
-
-
- - - -
-
- -
-
- - <%-- --%> - -
-
-
- -
- - - -
- -
- - - -
- -
- - - -
- -
- - - -
- -
- - - -
- -
- - - -
- -
- - -
- -
- - -
- -
- - -
- -
- - -
- -
- - -
- -
- -
+ +
+ + + +
+ +
+
+
+ + + +
+
+ +
+
+ + <%-- --%> + +
+
+
+ +
+ + + +
+ +
+
+
+ + + +
+
+
+
+ + + +
+
+
+ +
+
+
+ + + +
+
+
+
+ + + +
+
+
+ +
+ + + +
+ +
+ + +
+ +
+ + +
+ +
+ + +
+ +
+ + +
+ +
+
+
+ + +
+
+
+
+ + +
+
+
+ From df1e4f3fa42c2232f4648f6e8e4cd04bc54d95e9 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 14 Nov 2019 11:37:53 -0700 Subject: [PATCH 6/9] --ajuste en pago por ajuste --- Ventas/PV.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index a8ceaff5e..f98ff44c9 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -5328,7 +5328,7 @@ Partial Class PV End If End If - Dr("Descuento") = Math.Round(TxtImporteAjuste.Text.ToDouble, NumeroDecimales) + Dr("Descuento") = Math.Round(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble, NumeroDecimales) 'Dr("Descuento") = Math.Round((TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) + (CargoActual - CargoAnterior), NumeroDecimales) If Dr("Descuento").ToString.ToDouble > TxtPrecio.Text.ToDouble Then Dr("Descuento") = TxtPrecio.Text.ToDouble From ab3644ed5442c139384afcdf4a4954c609a84149 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 14 Nov 2019 12:25:38 -0700 Subject: [PATCH 7/9] ajuste en complementaria, cuando se recibe por OC. por un centvito que lo mande a la complementaria --- Inventarios/RecepcionAlmacen.aspx.vb | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 377a2551a..62d095024 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -2382,22 +2382,24 @@ Partial Class Inventarios_RecepcionAlmacen If CveOCSurtir > 0 Then Dim TotalCostoDetalle As Decimal = 0 Dim TotalCostoAcumulado As Decimal = 0 + Dim TotalCostoExtranjeroComplementario As Decimal = 0 Dim cont As Integer = 1 For Each Dr As DataRow In DtCostos.Rows TotalCostoDetalle = (Dr("Total").ToString.ToDecimal) TotalCostoExtranjero = Dr("TotalExtranjero").ToString.ToDecimal - TotalCostoAcumulado += Math.Round(TotalCostoDetalle, 2) + TotalCostoAcumulado += TotalCostoDetalle.RoundSQL 'si es el último movimiento verifica los importes que sean igual If cont = DtCostos.Rows.Count AndAlso (Math.Round(TotalCosto, 2) <> Math.Round(TotalCostoAcumulado, 2)) Then TotalCostoDetalle = TotalCostoDetalle + (Math.Round(TotalCosto, 2) - Math.Round(TotalCostoAcumulado, 2)) - TotalCostoExtranjero = TotalCostoExtranjero + (Math.Round(TotalCosto, 2) - Math.Round(TotalCostoAcumulado, 2)) + TotalCostoExtranjeroComplementario = (Math.Round(TotalCosto, 2) - Math.Round(TotalCostoAcumulado, 2)) + 'TotalCostoExtranjero = TotalCostoExtranjero End If If CveMoneda <> 1 AndAlso UsaComplementariaFleteImportaciones Then 'COMPLEMENTARIA If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoME, SerieFolio, Fecha, IdCtaContableRecepcionME, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveSubProyecto:=CveSubProyecto, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio.ToDecimal, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoDetalle - TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoComplementaria, SerieFolio, Fecha, IdCtaContableRecepcionComplementaria, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveSubProyecto:=CveSubProyecto, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoDetalle - TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio.ToDecimal, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoDetalle - TotalCostoExtranjero + TotalCostoExtranjeroComplementario, SerieFolio, CveConceptoContableCostoComplementaria, SerieFolio, Fecha, IdCtaContableRecepcionComplementaria, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveSubProyecto:=CveSubProyecto, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoDetalle - TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio.ToDecimal, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then ErrorMovInv = True Exit For End If From 8371c15112f110a5ed8c7d73a28a5f4504988059 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 14 Nov 2019 12:28:34 -0700 Subject: [PATCH 8/9] acomo de layout en el archivo de entrada salida --- Empresas/Grales/Formatos/EntradaSalida.rdlc | 452 +++++--------------- 1 file changed, 100 insertions(+), 352 deletions(-) diff --git a/Empresas/Grales/Formatos/EntradaSalida.rdlc b/Empresas/Grales/Formatos/EntradaSalida.rdlc index ab4023c24..d3afcb72a 100644 --- a/Empresas/Grales/Formatos/EntradaSalida.rdlc +++ b/Empresas/Grales/Formatos/EntradaSalida.rdlc @@ -6,31 +6,22 @@ - 1.3062cm + 1.72112cm - 1.91752cm + 2.33244cm - 6.8596cm + 7.27452cm - 2.28535cm + 2.70027cm - 1.48327cm + 1.89819cm - 1.45899cm - - - 1.42465cm - - - 1.65165cm - - - 1.83539cm + 1.87391cm @@ -307,141 +298,6 @@ - - - - true - true - - - - - Unidad Medida - - - - - - - Textbox13 - - - - Black - - 1pt - - - Black - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Precio - - - - - - - Textbox17 - - - - Black - - 1pt - - - Black - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox19 - - - - Black - - 1pt - - - Black - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - @@ -630,106 +486,6 @@ - - - - true - true - - - - - =Fields!UnidadMedida.Value - - - - - - - UnidadMedida - - - 2pt - 2pt - =IIf(RowNumber(Nothing)=1,"1pt","0pt") - - - - - - - - true - true - - - - - =Fields!PU.Value - - - - - - - PU - - - 2pt - 2pt - =IIf(RowNumber(Nothing)=1,"1pt","0pt") - - - - - - - - true - true - - - - - =Fields!Total.Value - - - - - - - Total - - - 2pt - 2pt - =IIf(RowNumber(Nothing)=1,"1pt","0pt") - - - - @@ -750,9 +506,6 @@ =IIF(String.IsNullOrEmpty(Fields!Batch.Value), True,False) - - - @@ -769,7 +522,7 @@ 0.17639cm 0.12931cm 0.96717cm - 20.22262cm + 17.80043cm @@ -812,7 +565,7 @@ 0.82291in @@ -870,7 +624,7 @@ Textbox34 1.02789cm 3.73711cm - 0.6cm + 0.95277cm 8.10916cm 1 - - true - true - - - - - Fecha Impresion: - - - - - - - Textbox5 - 1.06316cm - 12.13213cm - 0.6cm - 2.90426cm - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaImpresion.Value - - - - - - - Textbox33 - 1.06316cm - 15.03639cm - 0.6cm - 2.89335cm - 8 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -1107,15 +789,9 @@ - Folio - - - - : + Folio: @@ -1126,11 +802,11 @@ Textbox3 - 0.31501cm - 13.20958cm - 0.59999cm - 1.82681cm - 9 + 0.35028cm + 12.99791cm + 0.89103cm + 2.06494cm + 7 @@ -1150,7 +826,7 @@ =Parameters!Folio.Value @@ -1163,10 +839,10 @@ Textbox31 0.31501cm - 15.14222cm - 0.63526cm - 2.13045cm - 10 + 15.06284cm + 0.9263cm + 2.57165cm + 8 @@ -1198,7 +874,7 @@ 12.17799cm 0.59999cm 1.80326cm - 11 + 9 @@ -1230,7 +906,7 @@ 13.98125cm 0.6cm 3.94849cm - 12 + 10 @@ -1264,7 +940,7 @@ 13.98125cm 0.59999cm 3.94849cm - 13 + 11 @@ -1296,7 +972,7 @@ 12.17799cm 0.59999cm 1.80326cm - 14 + 12 @@ -1315,7 +991,7 @@ - 1.21709cm + 2.22251cm true true @@ -1406,6 +1082,78 @@ 2pt + + true + true + + + + + Fecha Impresion: + + + + + + + Textbox5 + 1.49022cm + 11.83688cm + 0.6cm + 2.90426cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + + Textbox33 + 1.49022cm + 14.74114cm + 0.6cm + 2.89335cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + @@ -90,7 +90,7 @@ @@ -135,7 +135,7 @@ @@ -180,7 +180,7 @@ @@ -225,7 +225,7 @@ @@ -270,7 +270,7 @@ @@ -301,7 +301,7 @@ - 0.36717cm + 0.69042cm @@ -314,12 +314,14 @@ =Fields!Cantidad.Value - Cantidad @@ -345,7 +347,7 @@ =Fields!Codigo.Value @@ -377,7 +379,7 @@ =Fields!PS.Value @@ -407,7 +409,7 @@ =Fields!SerieLote.Value @@ -437,7 +439,7 @@ =Fields!Lote.Value @@ -467,7 +469,7 @@ =Fields!Batch.Value @@ -521,7 +523,7 @@ DsInventarios 0.17639cm 0.12931cm - 0.96717cm + 1.11095cm 17.80043cm