From 18599253a292e1a1cc71e6d3d3a790fb0da86fdb Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 23 Sep 2021 12:28:47 -0700 Subject: [PATCH 01/21] -- que no se cargue la totalidad del Cliente --- OC/OC.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 8f5277347..a81669097 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -5129,8 +5129,8 @@ Partial Class OC option72.Visible = True DivFolioAdicional.Visible = True generarAnticipo.Visible = True - Ddlcliente.DataSource = GlobalDTCliente(CveEmpresaActual) - Ddlcliente.DataBind() + 'Ddlcliente.DataSource = GlobalDTCliente(CveEmpresaActual) + 'Ddlcliente.DataBind() 'Ddlcliente.Items.Insert(0, New ListItem(" - ", "-1")) From 9ab167e8e90aa44a581936d8246569435000efad Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 23 Sep 2021 17:18:13 -0700 Subject: [PATCH 02/21] complemento carta porte --- App_Code/Timbrado.vb | 154 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 154 insertions(+) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 625017e87..eb7963a0e 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -3658,6 +3658,7 @@ Public Class Timbrado + End If #Region "Complemento Pago" @@ -3780,6 +3781,159 @@ Public Class Timbrado End If #End Region + +#Region "C O M P L E M E N T O C A R T A P O R T E" + + If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then + If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then + + Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte + + + + ''DATOS GENERALES + Dim ComCartaPorte = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorte() + Dim Transp As Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteTranspInternac + ComCartaPorte.TranspInternac = If(Carta.TranspInternac = "No", Transp.No, Transp.Sí) + ComCartaPorte.EntradaSalidaMercSpecified = False + ComCartaPorte.ViaEntradaSalidaSpecified = False + ComCartaPorte.TotalDistRecSpecified = False + + 'UBICACIONES + If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then + Dim i As Integer = 0 + ComCartaPorte.Ubicaciones = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacion(Carta.Ubicaciones.Count - 1) {} + For Each ubica As CFDICartaPorteUbicaciones In Carta.Ubicaciones + 'origen + ComCartaPorte.Ubicaciones(i) = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacion + ComCartaPorte.Ubicaciones(i).TipoEstacionSpecified = False + ComCartaPorte.Ubicaciones(i).DistanciaRecorrida = ubica.DistanciaRecorrida + ComCartaPorte.Ubicaciones(i).Origen = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacionOrigen With {.IDOrigen = ubica.Origen.IDOrigen, + .RFCRemitente = ubica.Origen.RFCRemitente, + .NombreRemitente = ubica.Origen.NombreRemitente, + .FechaHoraSalida = ubica.Origen.FechaHoraSalida.ToDate} + ComCartaPorte.Ubicaciones(i).Domicilio = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacionDomicilio With {.Calle = ubica.Origen.Domicilio.Calle, + .NumeroExterior = ubica.Origen.Domicilio.NumeroExterior, + .NumeroInterior = ubica.Origen.Domicilio.NumeroInterior, + .Colonia = ubica.Origen.Domicilio.Colonia, + .Localidad = ubica.Origen.Domicilio.Localidad, + .Referencia = ubica.Origen.Domicilio.Referencia, + .Municipio = ubica.Origen.Domicilio.Municipio, + .Estado = ubica.Origen.Domicilio.Estado, + .CodigoPostal = ubica.Origen.Domicilio.CP} + 'falta pais + + + + ComCartaPorte.Ubicaciones(i).Destino = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacionDestino With {.IDDestino = ubica.Destino.IDDestino, + .RFCDestinatario = ubica.Destino.RFCDestinatario, + .NombreDestinatario = ubica.Destino.NombreDestinatario, + .FechaHoraProgLlegada = ubica.Destino.FechaHoraProgLlegada.ToDate} + + ComCartaPorte.Ubicaciones(i).Domicilio = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacionDomicilio With {.Calle = ubica.Destino.Domicilio.Calle, + .NumeroExterior = ubica.Destino.Domicilio.NumeroExterior, + .NumeroInterior = ubica.Destino.Domicilio.NumeroInterior, + .Colonia = ubica.Destino.Domicilio.Colonia, + .Localidad = ubica.Destino.Domicilio.Localidad, + .Referencia = ubica.Destino.Domicilio.Referencia, + .Municipio = ubica.Destino.Domicilio.Municipio, + .Estado = ubica.Destino.Domicilio.Estado, + .CodigoPostal = ubica.Destino.Domicilio.CP} + + + 'cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorrida) + 'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.Origen.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida) + 'cfdi.CartaPorteDomicilio(ubica.Origen.Domicilio.Calle, ubica.Origen.Domicilio.NumeroExterior, ubica.Origen.Domicilio.NumeroInterior, ubica.Origen.Domicilio.Colonia, ubica.Origen.Domicilio.Localidad, ubica.Origen.Domicilio.Referencia, ubica.Origen.Domicilio.Municipio, ubica.Origen.Domicilio.Estado, ubica.Origen.Domicilio.Pais, ubica.Origen.Domicilio.CP) + 'destino + 'cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorrida) + 'cfdi.CartaPorteDestino(ubica.Destino.IDDestino, ubica.Destino.RFCDestinatario, ubica.Destino.NombreDestinatario, ubica.Destino.NumRegIdTrib, ubica.Destino.ResidenciaFiscal, ubica.Destino.NumEstacion, ubica.Destino.NombreEstacion, ubica.Destino.NavegacionTrafico, ubica.Destino.FechaHoraProgLlegada) + 'cfdi.CartaPorteDomicilio(ubica.Destino.Domicilio.Calle, ubica.Destino.Domicilio.NumeroExterior, ubica.Destino.Domicilio.NumeroInterior, ubica.Destino.Domicilio.Colonia, ubica.Destino.Domicilio.Localidad, ubica.Destino.Domicilio.Referencia, ubica.Destino.Domicilio.Municipio, ubica.Destino.Domicilio.Estado, ubica.Destino.Domicilio.Pais, ubica.Destino.Domicilio.CP) + Next + + End If + + 'MERCANCIAS + If Carta.Mercancias IsNot Nothing Then + ComCartaPorte.Mercancias = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteMercancias + ComCartaPorte.Mercancias.PesoBrutoTotal = Carta.Mercancias.PesoBrutoTotal.ToDecimal + ComCartaPorte.Mercancias.PesoNetoTotal = Carta.Mercancias.PesoNetoTotal.ToDecimal + ComCartaPorte.Mercancias.NumTotalMercancias = Carta.Mercancias.NumTotalMercancias + ComCartaPorte.Mercancias.CargoPorTasacion = Carta.Mercancias.CargoporTasacion.ToDecimal + ' ComCartaPorte.Mercancias.UnidadPeso = Carta.Mercancias.UnidadPeso + + If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then + Dim i As Integer = 0 + ComCartaPorte.Mercancias.Mercancia = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteMercanciasMercancia(Carta.Mercancias.Mercancias.Count - 1) {} + For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias + ComCartaPorte.Mercancias.Mercancia(i) = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteMercanciasMercancia + ComCartaPorte.Mercancias.Mercancia(i).BienesTranspSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).ClaveSTCCSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).Descripcion = concep.Descripción + ComCartaPorte.Mercancias.Mercancia(i).Cantidad = concep.Cantidad + ComCartaPorte.Mercancias.Mercancia(i).ClaveUnidadSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).Unidad = concep.Unidad + ComCartaPorte.Mercancias.Mercancia(i).Dimensiones = concep.Dimensiones + ComCartaPorte.Mercancias.Mercancia(i).MaterialPeligrosoSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligrosoSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).EmbalajeSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).DescripEmbalaje = concep.DescripEmbalaje + ComCartaPorte.Mercancias.Mercancia(i).PesoEnKg = concep.PesoenKg + ComCartaPorte.Mercancias.Mercancia(i).ValorMercanciaSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).MonedaSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).FraccionArancelariaSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).UUIDComercioExt = concep.UUIDComercioExt + + 'cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, concep.Embalaje, concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) + Next + End If + End If + + ' + If Carta.FiguraTransporte IsNot Nothing Then + + If Carta.FiguraTransporte.AutoTransporteFederal IsNot Nothing Then + ComCartaPorte.FiguraTransporte = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteFiguraTransporte + + ComCartaPorte.FiguraTransporte.CveTransporte = Profact.TimbraCFDI33.Complementos.CartaPorte10.c_CveTransporte.Item02 + 'ComCartaPorte.FiguraTransporte.CveTransporte. + + 'cfdi.CartaPorteAutotransporteFederal(Carta.FiguraTransporte.AutoTransporteFederal.PermSCT, Carta.FiguraTransporte.AutoTransporteFederal.NumPermisoSCT, Carta.FiguraTransporte.AutoTransporteFederal.NombreAseg, Carta.FiguraTransporte.AutoTransporteFederal.NumPolizaSeguro) + + 'cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.AnioModeloVM) + + 'If Carta.FiguraTransporte.AutoTransporteFederal.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporteFederal.Remolques.Count > 0 Then + 'For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporteFederal.Remolques + 'cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa) + ' Next + ' + 'End If + End If + + + 'If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then + ' Dim i As Integer = 0 + ' ComCartaPorte.FiguraTransporte.Operadores = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteFiguraTransporteOperadoresOperador(Carta.FiguraTransporte.Operadores.Count - 1)() {} + ' For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores + ' Dim Oper = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteFiguraTransporteOperadoresOperador() + ' Oper.RFCOperador = concep.RFCOperador + ' Oper.NumLicencia = concep.NumLicencia + ' Oper.NombreOperador = concep.NombreOperador + ' Oper.NumRegIdTribOperador = concep.NumRegidTribOperador + ' 'Oper.ResidenciaFiscalOperador = concep.ResidenciaFiscalOperador + ' ComCartaPorte.FiguraTransporte.Operadores + ' 'cfdi.CartaPorteOperador(concep.RFCOperador, concep.NumLicencia, concep.NombreOperador, concep.NumRegidTribOperador, concep.ResidenciaFiscalOperador) + ' Next + 'End If + + End If + + End If + + End If + +#End Region + + #Region "Nomina12" If ObjCFDITimbre.Comprobante.TipoComprobante = "N" Then Dim Nom = New Profact.TimbraCFDI33.Complementos.Nomina12.Nomina() From 8244438fb784bc35ff5d270bbdeeca23334cd3f5 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 24 Sep 2021 12:08:51 -0700 Subject: [PATCH 03/21] mejora --- AF/AF.aspx | 4 ++-- AF/AF.aspx.vb | 10 +++++----- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/AF/AF.aspx b/AF/AF.aspx index ecf2bb86b..c14f4ae7a 100644 --- a/AF/AF.aspx +++ b/AF/AF.aspx @@ -2555,8 +2555,8 @@
- - + + <%----%>
diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index a9d79c531..dce43d4f1 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -971,10 +971,10 @@ Partial Class AF_AF UpDatos.Update() End Sub Private Sub CargaProveedor() - DdlProveedor.Items.Clear() - DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DdlProveedor.DataBind() + 'DdlProveedor.Items.Clear() + 'DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + 'DdlProveedor.DataBind() UpAddPolizas.Update() End Sub @@ -1009,7 +1009,7 @@ Partial Class AF_AF UpDatos.Update() BtnAgregarPoliza.Text = "Agregar" LabelPolizas.InnerText = "Agregar Póliza de seguro" - DdlProveedor.SelectedIndex = 0 + 'DdlProveedor.SelectedIndex = 0 TxtPolizaSeguro.Text = "" TxtFechaExpPoliza.Text = "" TxtFechaVenPoliza.Text = "" From ee85ca907b4cec92fec4c2480c273427083811d6 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 24 Sep 2021 12:16:52 -0700 Subject: [PATCH 04/21] -mejoras --- Contabilidad2/CatCuentasAsignaciones.aspx | 2 +- Contabilidad2/CatCuentasAsignaciones.aspx.vb | 63 +++++++------------- Inventarios/TraspasoAlmacen.aspx | 14 +++++ Inventarios/TraspasoAlmacen.aspx.vb | 4 ++ 4 files changed, 40 insertions(+), 43 deletions(-) diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx index cd4a6e804..419a93c51 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx +++ b/Contabilidad2/CatCuentasAsignaciones.aspx @@ -143,7 +143,7 @@
- +
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb index cc089bec4..e281fdbab 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb @@ -26,14 +26,14 @@ Partial Class Contabilidad2_CatCuentasAsignaciones End Sub - Private Sub CargaDatos() - Dim ObjConta As New ClsContabilidad - If ObjConta.GetCuentasAsignaciones(UsuarioActual.CveEmpresa) Then - GvDatos.DataSource = ObjConta.DtResultados - End If - ObjConta.Dispose() - GvDatos.DataBind() - End Sub + 'Private Sub CargaDatos() + ' Dim ObjConta As New ClsContabilidad + ' If ObjConta.GetCuentasAsignaciones(UsuarioActual.CveEmpresa) Then + ' GvDatos.DataSource = ObjConta.DtResultados + ' End If + ' ObjConta.Dispose() + ' GvDatos.DataBind() + 'End Sub Private Sub CargaDatosSistema() Dim ObjConta As New ClsContabilidad @@ -67,8 +67,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlCuentaGlobal.DataSource = ObjConta.DtResultados End If ObjConta.Dispose() - DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - + DdlProveedor.setEsWebService(True) 'GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + DdlClientes.setEsWebService(True) DdlPersonal.setEsWebService(True) @@ -102,7 +102,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlConceptoNomina.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCconceptosContables.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub @@ -123,7 +123,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlCconceptosContables.SelectedValueExist(GvRow.DataKey("CveConceptoContable")) DdlCuenta.SelectedValueExist(GvRow.DataKey("CveCuenta")) DdlConceptoNomina.SelectedValueExist(GvRow.DataKey("CveConceptoNomina").ToEntero) - DdlProveedor.SelectedValueExist(GvRow.DataKey("CveProveedor")) + DdlProveedor.ddl.SelectedValueExist(GvRow.DataKey("CveProveedor")) DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion")) DdlAlmacen.SelectedValueExist(GvRow.DataKey("CveAlmacen")) TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta") @@ -151,41 +151,22 @@ Partial Class Contabilidad2_CatCuentasAsignaciones If Dr IsNot Nothing Then - If Dr("AplicaCliente").ToString = "True" Then - divCliente.Visible = True - DdlClientes.setEsWebService(True) - End If - If Dr("AplicaProveedor").ToString = "True" Then - divProveedor.Visible = True - End If + divCliente.Visible = Dr("AplicaCliente").ToString = "True" - If Dr("AplicaPersonal").ToString = "True" Then - divPersonal.Visible = True - DdlPersonal.setEsWebService(True) + divProveedor.Visible = Dr("AplicaProveedor").ToString = "True" - End If + divPersonal.Visible = Dr("AplicaPersonal").ToString = "True" - If Dr("AplicaImpuesto").ToString = "True" Then - divPorcentajeIVA.Visible = True - End If + divPorcentajeIVA.Visible = Dr("AplicaImpuesto").ToString = "True" + divClasificacion.Visible = Dr("AplicaClasificacion").ToString = "True" - If Dr("AplicaClasificacion").ToString = "True" Then - divClasificacion.Visible = True - End If + divBancos.Visible = Dr("AplicaBancos").ToString = "True" - If Dr("AplicaBancos").ToString = "True" Then - divBancos.Visible = True - End If + divAlmacen.Visible = Dr("AplicaAlmacen").ToString = "True" - If Dr("AplicaAlmacen").ToString = "True" Then - divAlmacen.Visible = True - End If - - If Dr("AplicaSubProyecto").ToString = "True" Then - divSubProyectos.Visible = True - End If + divSubProyectos.Visible = Dr("AplicaSubProyecto").ToString = "True" If Dr("AplicaActivoFijo").ToString = "True" Then divActivoFijo.Visible = True @@ -194,9 +175,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones ' DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo")) End If - If Dr("AplicaNomina").ToString = "True" Then - divConceptoNomina.Visible = True - End If + divConceptoNomina.Visible = Dr("AplicaNomina").ToString = "True" End If End Sub diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index 320609c34..8b665338f 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -190,6 +190,20 @@
+ +
+ +
+ + + + + + + + +
+
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index eeb0e8011..4936a13dc 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -189,6 +189,10 @@ Partial Class Inventarios_TraspasoAlmacen LblResponsable.Visible = False End If + If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then + divFechaEnvio.Visible = True + End If + CargaCombos() CreaDT() From 25dd8a65159aa7d3cf05df4a4d61ef71f5c277b0 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 24 Sep 2021 12:17:02 -0700 Subject: [PATCH 05/21] carta porte --- Ventas/ProductosServicios.aspx | 8 +++++++- Ventas/ProductosServicios.aspx.vb | 12 ++++++------ 2 files changed, 13 insertions(+), 7 deletions(-) diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 3d4835b4c..1dd2de17a 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -1018,7 +1018,13 @@
- + +
+
+
+ +
+
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 7118644ca..5d9f6071c 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -812,6 +812,7 @@ Partial Class ProductosyServicios If ObjProductosServicios.PesoKg > 0 Then TxtPesoKg.Text = ObjProductosServicios.PesoKg.ToString End If + TxtDimensiones.Text = ObjProductosServicios.Dimensiones DdlTipoPSDes.SelectedValueExist(ObjProductosServicios.CveClasificacionDetalle.ToString) DdlUnidadMedida.SelectedValue = ObjProductosServicios.CveUnidadMedida.ToString @@ -939,10 +940,9 @@ Partial Class ProductosyServicios ChkLote.Checked = ObjProductosServicios.AplicaLote ChkCaducidad.Checked = ObjProductosServicios.AplicaCaducidad ChkSeccion.Checked = ObjProductosServicios.AplicaSeccion - If ObjProductosServicios.DtResultados.Rows(0)("TiempoCaducidad") IsNot Nothing Then - TxtTiempoCaducidad.Text = ObjProductosServicios.DtResultados.Rows(0)("TiempoCaducidad").ToString() - DivTiempoCaducidad.Visible = ChkCaducidad.Checked - End If + + TxtTiempoCaducidad.Text = ObjProductosServicios.DtResultados.Rows(0)("TiempoCaducidad").ToString() + DivTiempoCaducidad.Visible = ChkCaducidad.Checked If ObjProductosServicios.AplicaSeccion Then CargaGvSeccionAlmacen() @@ -1330,7 +1330,7 @@ Partial Class ProductosyServicios CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(), ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString, ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked, - CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal) > 0 Then + CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim) > 0 Then ViewState("CvePS") = ObjProductosServicios.CvePS For Each GVR As GridViewRow In GvImpuestosLocales.Rows If GVR.FCCheckBox("ChkDeduccion").Checked Then @@ -1380,7 +1380,7 @@ Partial Class ProductosyServicios ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString, ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked, - CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal) Then + CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim) Then If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then TieneError = True From cf0f9b5ebe9ebd5d61449a082a2675eedce5548c Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 24 Sep 2021 12:18:02 -0700 Subject: [PATCH 06/21] cambio de lugar de dispose --- App_Code/ClsContabilidad.vb | 54 +++++++++++++++++++------------------ 1 file changed, 28 insertions(+), 26 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 728d1d200..5615d03b2 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -6229,30 +6229,6 @@ Public Class ClsContabilidad #End Region -#Region "IDisposable Support" - ' IDisposable - Protected Overridable Sub Dispose(disposing As Boolean) - If Not Me.disposedValue Then - If disposing Then - - If Not Data Is Nothing Then Data.Dispose() : Data = Nothing - If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing - If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing - If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing - If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing - If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() - If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing - - End If - End If - Me.disposedValue = True - End Sub - Public Sub Dispose() Implements IDisposable.Dispose - ConexionClose() - Dispose(True) - GC.SuppressFinalize(Me) - End Sub -#End Region #Region "Periodos Bloqueo Meses" Public Function GetPeriodosBloqueo(CveEmpresa As Integer) As Boolean Dim Retorno = False @@ -6376,8 +6352,6 @@ Public Class ClsContabilidad End Function #End Region - - #Region "ESTADO RESULTADOS HORIZONTAL" @@ -6567,4 +6541,32 @@ Public Class ClsContabilidad Return Retorno End Function + + +#Region "IDisposable Support" + ' IDisposable + Protected Overridable Sub Dispose(disposing As Boolean) + If Not Me.disposedValue Then + If disposing Then + + If Not Data Is Nothing Then Data.Dispose() : Data = Nothing + If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing + If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing + If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing + If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing + If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() + If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing + + End If + End If + Me.disposedValue = True + End Sub + Public Sub Dispose() Implements IDisposable.Dispose + ConexionClose() + Dispose(True) + GC.SuppressFinalize(Me) + End Sub +#End Region + + End Class \ No newline at end of file From 485990ed869f56598a194ac380cf063597d9eba8 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 24 Sep 2021 12:18:21 -0700 Subject: [PATCH 07/21] GetSubProyectosUsuarios filtrado por empresa para cache --- App_Code/ClsPaginas.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 49aab559a..f772f0635 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1157,7 +1157,7 @@ Public Class ClsPaginas Dim AppNombre As String = String.Format("GlobalDTProyectosUsuarios-{0}", CveEmpresa) If Application(AppNombre) Is Nothing Then Dim ObjSubProyectos As New ClsSubProyectos() - If ObjSubProyectos.GetSubProyectosUsuarios Then Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError) + If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError) ObjSubProyectos.Dispose() GuardaLog("Se Cargo GlobalDTProyectosUsuarios") End If @@ -5706,6 +5706,7 @@ Public Class ClsPaginas Bytes = wsreport.StreamPDFBytes(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario) wsreport = Nothing params = Nothing + ds.Dispose() : ds = Nothing Else If IsNothing(MR) Then MR = New ReportViewer Try @@ -5735,6 +5736,7 @@ Public Class ClsPaginas 'GuardaLog($"Error {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}") End Try MR.Dispose() + MR = Nothing 'Dim ruta = wsreport.StreamPDF(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario) 'If File.Exists(ruta) Then ' Bytes = File.ReadAllBytes(ruta) From c8f9433c8b399398b0fdcef921541ca9a3d348d4 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 24 Sep 2021 12:18:40 -0700 Subject: [PATCH 08/21] validacion de que tenga rows --- General/PopUpPaqueteriasGuias.aspx.cs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/General/PopUpPaqueteriasGuias.aspx.cs b/General/PopUpPaqueteriasGuias.aspx.cs index 09f056b8a..8b76b39b9 100644 --- a/General/PopUpPaqueteriasGuias.aspx.cs +++ b/General/PopUpPaqueteriasGuias.aspx.cs @@ -814,7 +814,7 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas private string getCorreoString() { ClsVentas ObjVentas = new ClsVentas(); - if (ObjVentas.GetVenta(CveVenta,UsuarioActual.CveEmpresa)) + if (ObjVentas.GetVenta(CveVenta,UsuarioActual.CveEmpresa) && ObjVentas.DtResultados.Rows.Count > 0 ) { int CveVendedor = ObjVentas.DtResultados.Rows[0]["CveVendedor"].ToEntero(); int CveCliente = ObjVentas.DtResultados.Rows[0]["CveCliente"].ToEntero(); From 5f09b0a2a99c824690d5b25f65a4596770355dbb Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 24 Sep 2021 12:19:35 -0700 Subject: [PATCH 09/21] validacion doc electronica --- Inventarios/EntregaAlmacen.aspx.vb | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 66f0a2f72..5f5646989 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -1036,13 +1036,16 @@ Partial Class Inventarios_EntregaAlmacen End Sub Private Sub CargaDocumentos(tCveVenta As Integer) - Dim objInv As New ClsEdocumentacion - - If objInv.DocumentacionElectronicaGet(-1, -1, -1, UsuarioActual.CveEmpresa, -1, tCveVenta) Then - GvDocs.DataSource = objInv.DtResultados.FiltraParametros("Adjunto <> ''") - End If - objInv.Dispose() - GvDocs.DataBind() + If tCveVenta > 0 Then + Dim objInv As New ClsEdocumentacion + + If objInv.DocumentacionElectronicaGet(-1, -1, -1, UsuarioActual.CveEmpresa, -1, tCveVenta) Then + GvDocs.DataSource = objInv.DtResultados.FiltraParametros("Adjunto <> ''") + End If + objInv.Dispose() + GvDocs.DataBind() + End If + End Sub From 2a4135d4614ae94115bfeba805d5cb0794d46d0e Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 24 Sep 2021 14:40:56 -0700 Subject: [PATCH 10/21] limpieza de getclientes --- Ashx/SIGWeb.ashx | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 57248f917..5f30eea0e 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -600,6 +600,15 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then + Dim i As Integer = 0 'limpieza de columnas + While i < DtRetorno.Columns.Count + If Not DtRetorno.Columns(i).ColumnName.Contiene("CveCliente", ColumnaNombre) Then + DtRetorno.Columns.RemoveAt(i) + Else + i = i + 1 + End If + End While + DtRetorno.Columns("CveCliente").ColumnName = "id" DtRetorno.Columns(ColumnaNombre).ColumnName = "text" retorno = JsonConvert.SerializeObject(DtRetorno).ToString @@ -913,7 +922,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState DtPSRetorno = DTTmp.Copy Else - 'no regresar datos herror al consultar + 'no regresar datos error al consultar DtPSRetorno.Clear() End If DTTmp.Dispose() From b5093f8dc85e884b3d4b8731d7c05b3a923709e5 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 24 Sep 2021 16:08:46 -0700 Subject: [PATCH 11/21] Validacion de limite de credito, en CrearAPartirDe y facturacion de cotizaciones --- Ventas/Ventas.aspx.vb | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 4ec3cd682..9e33a2d45 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6216,7 +6216,7 @@ Partial Class Ventas Dim ValorAutorizacion As String = UsuarioActual.Empresa.Funcionalidad(595) 'OBLIGAR PAGO DE CONTADO SI EL CLIENTE NO PERMITE CREDITO - If UsuarioActual.Empresa.Funcionalidad(570) = "1" AndAlso Me.PermiteCredito = False AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso CveVenta <= 0 Then + If UsuarioActual.Empresa.Funcionalidad(570) = "1" AndAlso Me.PermiteCredito = False AndAlso ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso CveVenta < 1) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot") AndAlso EsCreaApartirDe)) Then RBLPago.SelectedValue = "2" RBLPago.Items(0).Enabled = False RBLPago_SelectedIndexChanged(Nothing, Nothing) @@ -6234,6 +6234,7 @@ Partial Class Ventas DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem")) LnkPedido2SinFacturar.Visible = False LnkCotizaciones.Visible = False + BtnsFacturar.Visible = False End If UPCondicionesPago.Update() 'CARGAR CREDITO DISPONIBLE AL GENERAR UNA FACTURA @@ -6311,6 +6312,7 @@ Partial Class Ventas If Opcion > 0 Then If Opcion = 1 Then BtnEmitirImprimir.Visible = False + BtnsFacturar.Visible = False End If If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia) Else @@ -6387,7 +6389,7 @@ Partial Class Ventas End If 'Puede hacer pedido - If Me.CveVenta <= 0 Then + If CveVenta <= 0 Then If Not UsuarioActual.TienePermisoProceso(177) Then If DdlTipoComprobante.Items.FindByValue("Pd2") IsNot Nothing Then DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Pd2")) @@ -18142,7 +18144,7 @@ Partial Class Ventas End Sub Private Sub SetPermisos() - If CveVenta < 1 Then + If CveVenta < 1 OrElse EsCreaApartirDe Then 'Puede cotizar If Not UsuarioActual.TienePermisoProceso(59) Then DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Cot")) @@ -23101,7 +23103,7 @@ Partial Class Ventas RequiereAlmacenDestino = True DdlAlmacenAsignado.Items.Clear() DdlAlmacenAsignado.Items.Insert(0, New ListItem(" Seleccione ", "-1")) - DdlAlmacenAsignado.SelectedValue = "-1" + DdlAlmacenAsignado.SelectedValueExist("-1") DdlAlmacenAsignado.DataBind() DdlAlmacenAsignado.Items.Insert(0, New ListItem("Almacen", DbRowVenta("CveAlmacenTraspasoOrigen").ToString())) DdlAlmacenAsignado.SelectedValueExist(DbRowVenta("CveAlmacenTraspasoOrigen").ToString()) @@ -29831,6 +29833,8 @@ Partial Class Ventas GvPS.Columns(17).Visible = True GvPS.Columns(18).Visible = True + SetPermisos() + CambiaTipoDocto() CambiaSucursalGeneral(RecargarPartidas:=False) CargaAnticipos(CveCliente) From 16100d1e18604e4bf7b6c8f63f03e425c01340c4 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 24 Sep 2021 17:54:34 -0700 Subject: [PATCH 12/21] =?UTF-8?q?grid=20compras,=20que=20no=20se=20vea=20o?= =?UTF-8?q?cultar=20ps,=20en=20el=20rengl=C3=B3n=20padre?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/RepNotasSinAlmacen.aspx | 2 +- Inventarios/RepNotasSinAlmacen.aspx.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Inventarios/RepNotasSinAlmacen.aspx b/Inventarios/RepNotasSinAlmacen.aspx index bb3456d36..8d2148f99 100644 --- a/Inventarios/RepNotasSinAlmacen.aspx +++ b/Inventarios/RepNotasSinAlmacen.aspx @@ -195,7 +195,7 @@ - + diff --git a/Inventarios/RepNotasSinAlmacen.aspx.vb b/Inventarios/RepNotasSinAlmacen.aspx.vb index a259a52b6..5fccd46e7 100644 --- a/Inventarios/RepNotasSinAlmacen.aspx.vb +++ b/Inventarios/RepNotasSinAlmacen.aspx.vb @@ -279,7 +279,7 @@ Partial Class RepNotasSinAlmacen e.Row.Cells(1).Text = e.Row.DBCampo("Fecha").ToDate.ToShortDateString e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(2).Text = "" & e.Row.DBCampo("RazonSocial") & "" - + e.Row.FCLinkButton("lnkAccion").Visible = False If GvCompras.Columns(4).Visible Then e.Row.Cells(4).Text = "" End If From 6a897c536ecc2e4c2986d2daac7b06e9a48d76d6 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 24 Sep 2021 18:07:35 -0700 Subject: [PATCH 13/21] cambio a dropdownlost de clientes --- AF/AF.aspx | 10 ++++------ AF/AF.aspx.vb | 17 ++++++++++------- 2 files changed, 14 insertions(+), 13 deletions(-) diff --git a/AF/AF.aspx b/AF/AF.aspx index c14f4ae7a..45bef88cd 100644 --- a/AF/AF.aspx +++ b/AF/AF.aspx @@ -428,12 +428,10 @@ -
-
- - - -
+
+
+ +
diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index dce43d4f1..8dad34b1f 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -381,7 +381,7 @@ Partial Class AF_AF CargaEstatusActivoFijo() CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, lblProyecto, LblSubProyecto) RowProyecto.Visible = DdlProyecto.Visible - CargaCliente() + 'CargaCliente() CargaGrupos() CargaMarcas() CargaTiposAgenda() @@ -471,10 +471,10 @@ Partial Class AF_AF DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo DdlEstadoActivoFijo.DataBind() End Sub - Private Sub CargaCliente() - DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) - DdlClientes.DataBind() - End Sub + 'Private Sub CargaCliente() + ' DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) + ' DdlClientes.DataBind() + 'End Sub Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged CargaSubProyecto() @@ -667,8 +667,11 @@ Partial Class AF_AF DdlResponsable.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CvePersonaResponsable").ToString DdlProyecto.SelectedValue = ObjActivoFijo.CveProyecto.ToString CargaSubProyecto() - DdlSubProyecto.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CveSubProyecto").ToString - DdlClientes.SelectedValueExist(ObjActivoFijo.CveCliente) + DdlSubProyecto.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CveSubProyecto").ToString + Ddlclientes.SelectedValue = ObjActivoFijo.CveCliente.ToString + If ObjActivoFijo.CveCliente > 0 Then + Ddlclientes.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=ObjActivoFijo.CveCliente).FiltroPrimeroValor("NombreComercial") + End If DdlMarcas.SelectedValueExist(ObjActivoFijo.CveMarcaActivoFijo) CargaModelos(DdlMarcas.SelectedValue.ToEntero) DdlModelos.SelectedValueExist(ObjActivoFijo.CveModeloActivoFijo) From d7a96dfd3b8d6c2cd5b773854f14c7a13ac9bb03 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 25 Sep 2021 10:07:39 -0700 Subject: [PATCH 14/21] No marcar factura al facturar remision a nivel general, CveVentaDetallePadre al facturar remision --- Ventas/Ventas.aspx.vb | 28 +++++++++++++++++++--------- 1 file changed, 19 insertions(+), 9 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 9e33a2d45..984edaf7c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -18935,13 +18935,6 @@ Partial Class Ventas End If End If - If Not OcurrioError AndAlso ConSalida Then - 'Esquema viejo, evitamos que aparezca por surtir - If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 2) Then - OcurrioError = True - End If - End If - End If End If @@ -19109,7 +19102,24 @@ Partial Class Ventas 'COMIENZA: VENTADETALLE 'CUANDO SEA SALIDA VA POR LA VENTA DETALLE DE LA FACTURA DE LA REMISION - OJO!! SOLO FUNCIONA HASTA ORITA QUE SE HACE SALIDA SOLO CUANDO SE FACTURA LA REMISION - Dim CveVentaDetalle = If(ConceptoEntrada.Contiene(3, 40), TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero(), MovDet("CveVentaDetalle").ToString().ToEntero()) + Dim CveVentaDetalle As Integer = -1 + Dim CveVentaDetallePadre As Integer = -1 + + If ConceptoEntrada = 3 Then + CveVentaDetalle = TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero() + ElseIf ConceptoEntrada = 40 Then + CveVentaDetalle = MovDet("CveVentaDetalle").ToString().ToEntero() + CveVentaDetallePadre = TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero() + 'CUANDO LA VENTADETALLE NO TENGA VALOR DEBE MARCAR ERROR, NUEVA RESTRICCION DE ALMACEN + If CveVentaDetallePadre < 0 Then + Alert("no se encontro la venta detalle nueva. Por favor comuniquese con atención SIG.", TipoMensaje.ToastError) + OcurrioError = True + Exit For + End If + Else + CveVentaDetalle = MovDet("CveVentaDetalle").ToString().ToEntero() + End If + 'CUANDO LA VENTADETALLE NO TENGA VALOR DEBE MARCAR ERROR, NUEVA RESTRICCION DE ALMACEN If CveVentaDetalle < 0 Then Alert("no se encontro la venta detalle. Por favor comuniquese con atención SIG.", TipoMensaje.ToastError) @@ -19130,7 +19140,7 @@ Partial Class Ventas CveMovimientoDetalleEntrada = MovDet("CveMovimientoDetalle").ToString().ToEntero() End If - If ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveVentaDetalle:=CveVentaDetalle, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada) Then + If ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveVentaDetalle:=CveVentaDetalle, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada, CveVentaDetallePadre:=CveVentaDetallePadre) Then ContadorMovtosDetalles += 1 Else OcurrioError = True From e99551f730606bed67257954f29d662021388062 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 25 Sep 2021 10:08:03 -0700 Subject: [PATCH 15/21] Campo CveVentaDetallePadre al agregar movimiento detalle --- App_Code/ClsInventarios.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index c256e98fe..03880cf97 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1279,7 +1279,7 @@ Public Class ClsInventarios Optional CveSeccionAlmacen As Integer = -1, Optional Serie As String = "", Optional Lote As String = "", Optional FechaCaducidad As Date = MinFecha, Optional Observaciones As String = "", Optional CveMovimientoDetalleEntrada As Integer = -1, Optional PUTC As Decimal = -1, Optional CostoIndirecto As Decimal = 0, Optional CveCompraDetalle As Integer = -1, Optional CveOrdenCompraDetalle As Integer = -1, Optional CveVentaDetalle As Integer = -1, - Optional CveContratoDetalle As Integer = -1, Optional CveUsuarioModifico As Integer = -1, Optional EsInterno As Integer = -1) As Boolean + Optional CveContratoDetalle As Integer = -1, Optional CveUsuarioModifico As Integer = -1, Optional EsInterno As Integer = -1, Optional CveVentaDetallePadre As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_MovimientosDetalleAdd") @@ -1305,6 +1305,7 @@ Public Class ClsInventarios .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico .Add("@EsInterno", SqlDbType.Int).Value = EsInterno + .Add("@CveVentaDetallePadre", SqlDbType.Int).Value = CveVentaDetallePadre .Add("@CveMovimientoDetalle", SqlDbType.Int).Direction = ParameterDirection.Output End With From a97dc803ab9098929bfa97273c941b3144931943 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 25 Sep 2021 10:46:31 -0700 Subject: [PATCH 16/21] No verificar limite de credito al facturar , funcionalidad 702 --- Ventas/Ventas.aspx.vb | 40 ++++++++++++++++++++++------------------ 1 file changed, 22 insertions(+), 18 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 984edaf7c..583e7247d 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -7647,36 +7647,40 @@ Partial Class Ventas 'No exceder el limite de credito, Si no tiene contrato limita el credito, si tiene no hace nada. Si no tiene remisiones tampoco hace nada. If (Not CveContrato > 0 Or CveContratoTipo.Contiene(28)) AndAlso (Not NuevaFactura = 1) AndAlso RBLPago.SelectedValue = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") AndAlso RemisionesLista.Count <= 0 AndAlso TxtTotal.Text.ToDecimal > 0 AndAlso Not CvePedidoA > 0 Then 'If UsuarioActual.Empresa.Funcionalidad(518) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(185) Then - Dim ObjVentas As New ClsVentas - If ObjVentas.ObtenerCreditoRestante(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero()) Then - If ObjVentas.DtResultados.Rows.Count > 0 Then + If Not UsuarioActual.Empresa.Funcionalidad(702) = "1" Then + Dim ObjVentas As New ClsVentas - If DdlSucursalCliente.SelectedValue.ToEntero() > 0 Then - If ObjVentas.DtResultados(0)("LimiteRestanteSucursal").ToString().ToDecimal - If(TxtTipoCambio.Visible, TxtTotal.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal, TxtTotal.Text.ToDecimal) < 0 Then - ObjVentas.Dispose() - Alert("Se está excediendo el límite de credito permitido de la Sucursal del Cliente.", TipoMensaje.MsgInformacion) - Exit Sub + If ObjVentas.ObtenerCreditoRestante(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero()) Then + If ObjVentas.DtResultados.Rows.Count > 0 Then + + If DdlSucursalCliente.SelectedValue.ToEntero() > 0 Then + If ObjVentas.DtResultados(0)("LimiteRestanteSucursal").ToString().ToDecimal - If(TxtTipoCambio.Visible, TxtTotal.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal, TxtTotal.Text.ToDecimal) < 0 Then + ObjVentas.Dispose() + Alert("Se está excediendo el límite de credito permitido de la Sucursal del Cliente.", TipoMensaje.MsgInformacion) + Exit Sub + End If + Else + If ObjVentas.DtResultados(0)("LimiteRestanteCliente").ToString().ToDecimal - If(TxtTipoCambio.Visible, TxtTotal.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal, TxtTotal.Text.ToDecimal) < 0 Then + ObjVentas.Dispose() + Alert("Se está excediendo el límite de credito permitido del Cliente.", TipoMensaje.MsgInformacion) + Exit Sub + End If End If + Else - If ObjVentas.DtResultados(0)("LimiteRestanteCliente").ToString().ToDecimal - If(TxtTipoCambio.Visible, TxtTotal.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal, TxtTotal.Text.ToDecimal) < 0 Then - ObjVentas.Dispose() - Alert("Se está excediendo el límite de credito permitido del Cliente.", TipoMensaje.MsgInformacion) - Exit Sub - End If + ObjVentas.Dispose() + Alert("Ocurrio un error al obtener el limite de credito del cliente", TipoMensaje.MsgError) + Exit Sub End If - Else ObjVentas.Dispose() Alert("Ocurrio un error al obtener el limite de credito del cliente", TipoMensaje.MsgError) Exit Sub End If - Else ObjVentas.Dispose() - Alert("Ocurrio un error al obtener el limite de credito del cliente", TipoMensaje.MsgError) - Exit Sub End If - ObjVentas.Dispose() + 'End If End If From 8caf1f249f85d0ddc0afb89d45c46543fc859389 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 25 Sep 2021 15:13:43 -0700 Subject: [PATCH 17/21] Comentar CveVentaDetallePadre en Ventas.aspx --- Ventas/Ventas.aspx.vb | 33 +++++++++++++++++---------------- 1 file changed, 17 insertions(+), 16 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 583e7247d..1cb7988c1 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6289,8 +6289,9 @@ Partial Class Ventas ' el cliente tiene crédito disponible, no tiene bloqueo DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("PA")) - If UsuarioActual.TienePermisoProceso(60) Then DdlTipoComprobante.SelectedValueExistInsert("Ing", "Ingresos") 'puede facturar If UsuarioActual.TienePermisoProceso(199) Then DdlTipoComprobante.SelectedValueExistInsert("Rem", "Remisión") ' puede remisionar + If UsuarioActual.TienePermisoProceso(60) Then DdlTipoComprobante.SelectedValueExistInsert("Ing", "Ingresos") 'puede facturar + DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento) TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString @@ -19106,23 +19107,23 @@ Partial Class Ventas 'COMIENZA: VENTADETALLE 'CUANDO SEA SALIDA VA POR LA VENTA DETALLE DE LA FACTURA DE LA REMISION - OJO!! SOLO FUNCIONA HASTA ORITA QUE SE HACE SALIDA SOLO CUANDO SE FACTURA LA REMISION - Dim CveVentaDetalle As Integer = -1 + Dim CveVentaDetalle = If(ConceptoEntrada.Contiene(3, 40), TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero(), MovDet("CveVentaDetalle").ToString().ToEntero()) Dim CveVentaDetallePadre As Integer = -1 - If ConceptoEntrada = 3 Then - CveVentaDetalle = TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero() - ElseIf ConceptoEntrada = 40 Then - CveVentaDetalle = MovDet("CveVentaDetalle").ToString().ToEntero() - CveVentaDetallePadre = TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero() - 'CUANDO LA VENTADETALLE NO TENGA VALOR DEBE MARCAR ERROR, NUEVA RESTRICCION DE ALMACEN - If CveVentaDetallePadre < 0 Then - Alert("no se encontro la venta detalle nueva. Por favor comuniquese con atención SIG.", TipoMensaje.ToastError) - OcurrioError = True - Exit For - End If - Else - CveVentaDetalle = MovDet("CveVentaDetalle").ToString().ToEntero() - End If + 'If ConceptoEntrada = 3 Then + ' CveVentaDetalle = TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero() + 'ElseIf ConceptoEntrada = 40 Then + ' CveVentaDetalle = MovDet("CveVentaDetalle").ToString().ToEntero() + ' CveVentaDetallePadre = TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero() + ' 'CUANDO LA VENTADETALLE NO TENGA VALOR DEBE MARCAR ERROR, NUEVA RESTRICCION DE ALMACEN + ' If CveVentaDetallePadre < 0 Then + ' Alert("no se encontro la venta detalle nueva. Por favor comuniquese con atención SIG.", TipoMensaje.ToastError) + ' OcurrioError = True + ' Exit For + ' End If + 'Else + ' CveVentaDetalle = MovDet("CveVentaDetalle").ToString().ToEntero() + 'End If 'CUANDO LA VENTADETALLE NO TENGA VALOR DEBE MARCAR ERROR, NUEVA RESTRICCION DE ALMACEN If CveVentaDetalle < 0 Then From a6bae70c6663839c4066c0452401f13c405b07fe Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 25 Sep 2021 18:46:34 -0700 Subject: [PATCH 18/21] Valor 2 para funcionalidad 702, CveVentaAnticipoPadre relacionada en factura --- Compras/PopUpVerFactura.aspx.vb | 12 ++++++++++++ Ventas/Ventas.aspx.vb | 20 +++++++++++++++----- 2 files changed, 27 insertions(+), 5 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 9b63a00ee..2ce35856c 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1810,6 +1810,18 @@ Partial Class PopUpVerFactura End If End If + 'SI ES TIPO RELACION 07- APLICACION DE ANTICIPOS + If dtVentas(0)("CveTipoRelacion").ToString.ToEntero = 7 Then + Dim RowTipoRelacion As DataRow = GlobalDTVtaTiposRelacion().FiltroPrimero($"CveTipoRelacion = {dtVentas(0)("CveTipoRelacion").ToString.ToEntero}") + + Vta.Timbre.CFDIRelacionados.TipoRelacion = RowTipoRelacion("SATClaveTipoRelacion").ToString() + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = RowTipoRelacion("SATTipoRelacion").ToString() + + If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + End If + End If + 'End If 'If Vta.TipoDocto.Contiene("Egs", "Dev", "Ant") Then diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 1cb7988c1..0a069fb11 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6241,6 +6241,7 @@ Partial Class Ventas End If If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta <= 0 AndAlso RBLPago.SelectedValue = "1" AndAlso PermiteCredito Then + 'FUNCIONALIDAD 702 - NO VERIFICAR LIMITE DE CRÉDITO Y CANDADOS DE VENTA If Not UsuarioActual.Empresa.Funcionalidad(702) = "1" Then RBLPago.SelectedValue = "1" RBLPago_SelectedIndexChanged(Nothing, Nothing) @@ -6253,7 +6254,7 @@ Partial Class Ventas LblCreditoDisponible.Text = CreditoDispo.FormatoNumero If PorcentajeCredito > 80 Then TrPorcentajeCredito.Visible = True : LblPorcentajeCredito.Text = $"{PorcentajeCredito.FormatoNumero}%" - If Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "PA") Then + If Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "PA") AndAlso (Not UsuarioActual.Empresa.Funcionalidad(702).Contiene("2")) Then Dim Vta As New ClsVentas Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa) Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón:

{0}", Vta.SerieVenta) @@ -6303,7 +6304,7 @@ Partial Class Ventas 'GENERAR AUTORIZACION SI TIENE EXCEDIO EL LIMITE DE CREDITO Select Case ValorAutorizacion Case "1" 'CREAR DOCUMENTO DE AUTORIZACION PA - If Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "Ant", "PA") Then + If Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "Ant", "PA") AndAlso Not (UsuarioActual.Empresa.Funcionalidad(702).Contiene("2")) Then 'VERIFICAR CANDADOS DE VENTA, REMISIONES SIN FACTURAR, FACTURAS QUE NO TENGAN VENCIDAS Dim Vta As New ClsVentas @@ -8203,7 +8204,7 @@ Partial Class Ventas Dim CveVentaAnterior As Integer = Me.CveVenta GuardarVenta(ObjVentas, ObjConta, ObjInventario, ObjContr, ObjFactura, TmpDT, ObjFactura.CveNCaVincular, ObjContPaq, ObjBancos, ObjOS, - ObjEventos, ObjCGame, ObjClientes, EsNCAmortizacion:=EsNCAmortizacion) + ObjEventos, ObjCGame, ObjClientes, EsNCAmortizacion:=EsNCAmortizacion, CveAnticipoPadre:=CveAnticipoPadre) 'Agregamos las OCs a la tabla If ObjFactura.CveVenta > 0 AndAlso ErrorList.Count = 0 AndAlso DTOrdenesCompraPS IsNot Nothing AndAlso DTOrdenesCompraPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then @@ -11178,7 +11179,7 @@ Partial Class Ventas #Region " GUARDAR - VENTA, PREPOLIZAS, INV, ESTIMACIONES, AC, NOTA DE CRÉDITO " Private Sub GuardarVenta(ByRef ObjVentas As ClsVentas, ByRef ObjConta As ClsContabilidad, ByRef ObjInventario As ClsInventarios, ByRef ObjContr As ClsContratos, factura As Modelos.Factura, ByRef TmpDTDetalle As DataTable, CveNCaVincular As Integer, ByRef objContPaqi As ClsContPAQi, Optional ByRef ObjBancos As ClsBancos = Nothing, Optional ByRef ObjOS As ClsOS = Nothing, ByRef Optional ObjEventos As ClsOIEventos = Nothing, ByRef Optional ObjCGame As ClsCGame = Nothing, - ByRef Optional ObjCliente As ClsClientes = Nothing, Optional EsNCAmortizacion As Boolean = False, Optional NCDescuento As Boolean = False, Optional ListaNCDescuento As List(Of Modelos.Factura) = Nothing) + ByRef Optional ObjCliente As ClsClientes = Nothing, Optional EsNCAmortizacion As Boolean = False, Optional NCDescuento As Boolean = False, Optional ListaNCDescuento As List(Of Modelos.Factura) = Nothing, Optional CveAnticipoPadre As Integer = -1) Dim Msgok As New StringBuilder Dim CveAlmacenTraspasoOrigen As Integer = -1 @@ -11284,7 +11285,7 @@ Partial Class Ventas FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") Else - If factura.TipoDocto.Contiene("Dev", "Egs") OrElse DtVentasNC IsNot Nothing OrElse CveEstatusRefacturacion > 0 Then + If factura.TipoDocto.Contiene("Dev", "Egs") OrElse DtVentasNC IsNot Nothing OrElse CveEstatusRefacturacion > 0 OrElse CveAnticipoPadre > 0 Then If DtVentasNC IsNot Nothing Then For Each row As DataRow In DtVentasNC.Rows If Not row("CveVenta").ToString().ToEntero() = -1 Then @@ -11294,6 +11295,7 @@ Partial Class Ventas End If Next Else + 'SI ES REFACTURACION DEBE AGREGAR LA VENTA ANTERIOR COMO RELACIONADA TAMBIEN If Not CveVenta = -1 Then If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, CveVenta) Then ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico") @@ -11305,6 +11307,14 @@ Partial Class Ventas End If End If End If + + 'SI TIENE UN ANTICIPO TAMBIEN DEBE RELACIONARLO + If CveAnticipoPadre > 0 Then + If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, CveAnticipoPadre) Then + ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico") + End If + End If + End If End If From 0d4dec251499f33f08cc1d39d36b855843b87f3e Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 25 Sep 2021 18:47:03 -0700 Subject: [PATCH 19/21] Carga de Historial de ventas, CxC,anticipos y bancos al hacer click en el TAB --- Ventas/Clientes.aspx | 152 ++++++++++++++++++++++++++-------------- Ventas/Clientes.aspx.vb | 44 +++++++++--- 2 files changed, 133 insertions(+), 63 deletions(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 4362af25c..f2340f58a 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -1231,8 +1231,12 @@ - + + + Historial de Ventas + +
@@ -1343,8 +1347,7 @@ - - + - + + + Cuentas x Cobrar + -
@@ -1582,6 +1587,7 @@
+