From 6154a48d70652e6e320844acc804e7d4c73947d5 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 22 May 2024 16:59:14 -0700 Subject: [PATCH] =?UTF-8?q?Cat=20Clientes,=20Columna=20permite=20cr=C3=A9d?= =?UTF-8?q?ito,=20Guardar=20Personalizaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntregaAlmacen.aspx.vb | 8 +- Ventas/CatClientes.aspx | 225 ++++++++-------- Ventas/CatClientes.aspx.vb | 398 ++++++++++++++++++++++++++--- 3 files changed, 485 insertions(+), 146 deletions(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 9a21b71e9..e064ddac8 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -717,6 +717,11 @@ Partial Class Inventarios_EntregaAlmacen LbObservacionesAlmacen.Text = drE("ObservacionesAlmacen").ToString() CveVentaSurtir = CveVenta CveOSSurtir = CveOS + + If TipoDocto = "Ped" And CveOSSurtir <= 0 Then + CveOSSurtir = drE("CveOS").ToString().ToEntero + End If + CveTipoVenta = drE("CveTipoVenta").ToString().ToEntero CveAlmacenTraspasoDestino = drE(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem" And TipoDocto <> "Ped", "CveAlmacenTraspasoOrigen", "CveAlmacenTraspasoDestino")).ToString().ToEntero() CveAlmacenTraspasoOrigen = drE(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem" And TipoDocto <> "Ped", "CveAlmacenTraspasoDestino", "CveAlmacenTraspasoOrigen")).ToString().ToEntero() @@ -1062,7 +1067,8 @@ Partial Class Inventarios_EntregaAlmacen If CargaBitacora Then CargaBitacoraSerie() - End If + End If + Else End If End If diff --git a/Ventas/CatClientes.aspx b/Ventas/CatClientes.aspx index 45d666451..da087eb92 100644 --- a/Ventas/CatClientes.aspx +++ b/Ventas/CatClientes.aspx @@ -374,116 +374,135 @@ - + + + + + + + +
+ +
+
+ +
+
+ <%-- + --%> + + +
+
+ + +
+ + + + + + + +