From 8a31b35fbcbd072208281e442643bc236d20ea0a Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Mon, 9 Dec 2019 17:14:51 -0700 Subject: [PATCH 1/6] Indice de rotacion de personal, colorear agrupaciones --- RH/CatPersonalRequerido.aspx.vb | 1 + RH/RepIndiceRotacionPersonal.aspx | 3 ++- RH/RepIndiceRotacionPersonal.aspx.vb | 18 +++++++++++------- 3 files changed, 14 insertions(+), 8 deletions(-) diff --git a/RH/CatPersonalRequerido.aspx.vb b/RH/CatPersonalRequerido.aspx.vb index a4caefa1a..f7c42d6bf 100644 --- a/RH/CatPersonalRequerido.aspx.vb +++ b/RH/CatPersonalRequerido.aspx.vb @@ -99,6 +99,7 @@ Partial Class RH_CatPersonalRequerido End Sub Private Sub CargaDepartamento() + DdlDepartamento.Items.Clear() DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlDepartamento.DataBind() End Sub diff --git a/RH/RepIndiceRotacionPersonal.aspx b/RH/RepIndiceRotacionPersonal.aspx index 8a5eb11c5..7427349f3 100644 --- a/RH/RepIndiceRotacionPersonal.aspx +++ b/RH/RepIndiceRotacionPersonal.aspx @@ -105,7 +105,8 @@ - + diff --git a/RH/RepIndiceRotacionPersonal.aspx.vb b/RH/RepIndiceRotacionPersonal.aspx.vb index 569465a6a..080918e61 100644 --- a/RH/RepIndiceRotacionPersonal.aspx.vb +++ b/RH/RepIndiceRotacionPersonal.aspx.vb @@ -108,7 +108,8 @@ Partial Class Ventas_RepIndiceRotacionPersonal Protected Sub GVRegDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVRegDatos.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.RowType = DataControlRowType.DataRow Then + If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then Dim sPorcentaje As String = e.Row.DBCampo("IRP").Trim @@ -124,12 +125,15 @@ Partial Class Ventas_RepIndiceRotacionPersonal e.Row.FCLabel("LblIrp").CssClass = "label label-success" ElseIf (porcentaje > 15.0 And porcentaje <= 30.0) Then e.Row.FCLabel("LblIrp").CssClass = "label label-warning" - End If - - - - - End If + End If + + End If + + If e.Row.DataKey("SubProyecto").ToString.Trim = "" Then + e.Row.CssClass = "SubTotales" + ' e.Row.Attributes.Add("class", "SubTotales") + End If + End If From a7cd01859d74067d185bcc57a1d9b70bdf7cc283 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 11 Dec 2019 17:38:56 -0700 Subject: [PATCH 2/6] Correcion de cancelacion en NC,mostar productos en ajuste PV --- App_Code/ClsVentas.vb | 3 +- App_Code/Modelos.vb | 200 +++++++++++++++++++++++------- Inventarios/RecepcionEntrega.aspx | 2 +- Ventas/PV.aspx.vb | 10 +- 4 files changed, 167 insertions(+), 48 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index fad317df6..55cd012c9 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -2344,13 +2344,14 @@ Public Class ClsVentas #Region " ANTICIPOS/NOTASCREDITO - VENTAS " - Public Function GetVentasAntNC(CveVenta As Integer, CveVentaNC As Integer) As Boolean + Public Function GetVentasAntNC(CveVenta As Integer, CveVentaNC As Integer, Optional AplicaAmortizacion As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasAntNCGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@CveVentaNC", SqlDbType.Int).Value = CveVentaNC + .Add("@AplicaAmortizacion", SqlDbType.Bit).Value = AplicaAmortizacion End With Try diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index a9b95dc41..8397a6619 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -491,6 +491,10 @@ Namespace Modelos If ObjVentas.GetVentasAntNC(-1, CveVenta) Then Me.DtNCVinculadas = ObjVentas.DtResultados.Copy() End If + + If ObjVentas.GetVentasAntNC(-1, CveVenta, AplicaAmortizacion:=EsNCAmortizacion) Then + Me.DtAnticipos = ObjVentas.DtResultados.Copy() + End If End If End If @@ -501,12 +505,6 @@ Namespace Modelos ObjVentas.Dispose() - 'Dim ObjMovtos As New ClsMovimientos() - 'If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveMoneda) Then - ' Me.DtAnticipos = ObjMovtos.DtResultados.FiltraParametros($"Saldo > 0 AND SaldoSubtotal > 0 {If(CveVenta < 0, "AND Tipo = 'Ant'", "")} {If(TipoDocto = "Ant", "AND Tipo = 'NC'", "")}") - 'End If - 'ObjMovtos.Dispose() - If Me.RealizarDevolucionAlmacen Then Me.CveAlmacenDevolucion = Me.CveAlmacenDevolucionVenta End If @@ -2335,12 +2333,12 @@ Namespace Modelos Exit Select End If - If ObjFactura.TipoDocto = "Ing" AndAlso ValorMultiplicador = -1 Then - For Each row2 As DataRow In ObjFactura.DtAntNCVinculadas.Rows + If ObjFactura.TipoDocto.Contiene("Ing", "Egs") AndAlso ValorMultiplicador = -1 Then + For Each row2 As DataRow In ObjFactura.DtAnticipos.Rows If row2("CveConceptoContable").ToString().ToEntero = 11 Then importeMovimiento = row2("Importe").ToString().ToDecimal * ValorMultiplicador '- ((row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / row2.DataKey("TotalAnticipo").ToDecimal) * row2.DataKey("IVAAnticipo").ToDecimal) If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - + CveIEAnticipo = -1 IdCtaContable = ObjFactura.Cliente.IdCtaContAnticipos CveCuenta = ObjFactura.Cliente.CveCuentaAnticipos CveSubProyectoContabilizar = CveSubProyectoVenta @@ -2358,38 +2356,40 @@ Namespace Modelos Next End If - 'cuando es anticipo - ' cuando es amortización de nota de crédito, y es la nc - ' cuando es amortización por descuento, y es el ingreso - ' cuando es amortización en cero - If ObjFactura.CveTipoAmortizacionAnticipo = 2 AndAlso ObjFactura.TipoDocto.Contiene("Egs") OrElse - ObjFactura.CveTipoAmortizacionAnticipo = 1 AndAlso ObjFactura.TipoDocto.Contiene("Ing") OrElse - ObjFactura.CveTipoAmortizacionAnticipo = 3 Then - - For Each row2 As DataRow In ObjFactura.DtAnticipos.Rows - If row2("CveConceptoContable").ToString().ToEntero = 3 Then - CveIEAnticipo = row2("CveIE").ToString.ToEntero - importeMovimiento = row2("Importe").ToString().ToDecimal() '- ((row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / row2.DataKey("TotalAnticipo").ToDecimal) * row2.DataKey("IVAAnticipo").ToDecimal) - If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - - IdCtaContable = ObjFactura.Cliente.IdCtaContAnticipos - CveCuenta = ObjFactura.Cliente.CveCuentaAnticipos - CveSubProyectoContabilizar = CveSubProyectoVenta - - If importeMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2("CveVenta").ToString.ToEntero, - CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, - ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, - CveSubProyecto:=CveSubProyectoContabilizar) Then - ErrorPrepoliza = True - Exit For - Else - ObjFactura.SeGuardoPrePoliza = True - End If - End If - End If - Next + If ValorMultiplicador = 1 Then + 'cuando es anticipo + ' cuando es amortización de nota de crédito, y es la nc + ' cuando es amortización por descuento, y es el ingreso + ' cuando es amortización en cero + If ObjFactura.CveTipoAmortizacionAnticipo = 2 AndAlso ObjFactura.TipoDocto.Contiene("Egs") OrElse + ObjFactura.CveTipoAmortizacionAnticipo = 1 AndAlso ObjFactura.TipoDocto.Contiene("Ing") OrElse + ObjFactura.CveTipoAmortizacionAnticipo = 3 Then + For Each row2 As DataRow In ObjFactura.DtAnticipos.Rows + If row2("CveConceptoContable").ToString().ToEntero = 11 Then + CveIEAnticipo = -1 + importeMovimiento = row2("Importe").ToString().ToDecimal() + If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" + + IdCtaContable = ObjFactura.Cliente.IdCtaContAnticipos + CveCuenta = ObjFactura.Cliente.CveCuentaAnticipos + CveSubProyectoContabilizar = CveSubProyectoVenta + + If importeMovimiento <> 0 Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, + CveVentaAmortizacion:=row2("CveVenta").ToString.ToEntero, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, + ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, + CveSubProyecto:=CveSubProyectoContabilizar) Then + ErrorPrepoliza = True + Exit For + Else + ObjFactura.SeGuardoPrePoliza = True + End If + End If + End If + Next + End If End If + 'Cuando la funcionalidad de amortizacion en PS esta activa If Not ErrorPrepoliza Then DT = TmpDTDetalle.FiltraParametros($"CvePS = {ObjFactura.CvePSAmortizacion}") @@ -2667,7 +2667,7 @@ Namespace Modelos importeMovimiento = 0 Case 150 'Descuento sobre ventas - If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then + If ObjFactura.TipoDocto.Contiene("Egs", "Dev") AndAlso Not EsNCAmortizacion Then Dim ConceptoContableAplicar = 150 Dim CveVentaAplicar = ObjFactura.CveVenta @@ -3859,7 +3859,7 @@ Namespace Modelos End If If ObjFactura.TipoDocto = "Ant" AndAlso ObjFactura.SaldoAmortizado > 0 Then - Retorno.Mensaje = "La factura no se puede cancelar debido a que esta amortizada." + Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene pagos vinculados." Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia Return Retorno @@ -5554,6 +5554,7 @@ Namespace Modelos Public Property CveVentaRelacion As Integer = -1 Public Property ImporteRelacion As Decimal + Public Property EsNCAmortizacion As Boolean #End Region @@ -9746,6 +9747,119 @@ Namespace Modelos Public Property RequierePersonal As Boolean Public Property EsAcumulador As Boolean End Class - #End Region + +#Region "P O L I Z A - V I R T U A L" + Public Class MPolizaVentaLTHWSD + Public Property customer_name As String + Public Property customer_last_name1 As String + Public Property customer_last_name2 As String + Public Property customer_birthday As DateTime + Public Property customer_phone As String + Public Property customer_email As String + Public Property customer_gender As String + Public Property customer_advertising As Boolean + Public Property sale_date As DateTime + Public Property sale_paidby As String + Public Property sale_type As String + Public Property sale_type_service As String + Public Property product_code As String + Public Property product_unique_code As String + Public Property product_sale_type As String + Public Property used_product As Boolean + Public Property used_brand As String + Public Property used_bci As String + Public Property used_month As Integer + Public Property used_year As Integer + Public Property used_sale_date As DateTime + Public Property customer_car_brand As String + Public Property customer_car_model As String + Public Property customer_car_year As Integer + Public Property sale_discount As Decimal + Public Property sale_id As String + End Class + Public Class MPolizaVentaWS + Public Property customer_name As String + Public Property customer_last_name1 As String + Public Property customer_last_name2 As String + Public Property customer_birthday As DateTime + Public Property customer_phone As String + Public Property customer_email As String + Public Property customer_gender As String + Public Property customer_advertising As Boolean + Public Property sale_date As DateTime + Public Property sale_paidby As String + Public Property sale_type As String + Public Property sale_type_service As String + Public Property sale_total As Decimal + Public Property product_code As String + Public Property product_unique_code As String + Public Property product_sale_type As String + Public Property used_product As Boolean + Public Property used_brand As String + Public Property used_bci As String + Public Property used_month As Integer + Public Property used_year As Integer + Public Property used_sale_date As DateTime + Public Property customer_car_brand As String + Public Property customer_car_model As String + Public Property customer_car_year As Integer + Public Property sale_discount As Decimal + Public Property sale_id As String + End Class + Public Class MIndicador + + Sub New(Optional UsaValoresPrueba As Boolean = False) + If UsaValoresPrueba Then + Dim Index As Integer = 0 + For Each p As Reflection.PropertyInfo In Me.GetType().GetProperties() + Index = Index + 1 + p.SetValue(Me, Convert.ChangeType(Index, p.PropertyType), Nothing) + Next + End If + End Sub + + Public Property v_b_optima As Integer + Public Property v_b_fullpower As Integer + Public Property v_b_hitec As Integer + Public Property v_b_agm As Integer + Public Property v_b_suv As Integer + Public Property v_b_taxi As Integer + Public Property v_b_america As Integer + Public Property v_b_lth As Integer + Public Property v_b_cronos As Integer + Public Property v_b_diener As Integer + Public Property v_b_heavyduty As Integer + Public Property v_m_lth As Integer + Public Property v_o_filtros As Integer + Public Property v_o_lub1 As Integer + Public Property v_o_lubgalon As Integer + Public Property v_o_lub5 As Integer + Public Property v_o_aa As Integer + Public Property v_o_aaa As Integer + Public Property g_b_optima As Integer + Public Property g_b_fullpower As Integer + Public Property g_b_hitec As Integer + Public Property g_b_agm As Integer + Public Property g_b_suv As Integer + Public Property g_b_taxi As Integer + Public Property g_b_america As Integer + Public Property g_b_lth As Integer + Public Property g_b_cronos As Integer + Public Property g_b_diener As Integer + Public Property g_b_heavyduty As Integer + Public Property g_m_lth As Integer + Public Property a_b_optima As Integer + Public Property a_b_fullpower As Integer + Public Property a_b_hitec As Integer + Public Property a_b_agm As Integer + Public Property a_b_suv As Integer + Public Property a_b_taxi As Integer + Public Property a_b_america As Integer + Public Property a_b_lth As Integer + Public Property a_b_cronos As Integer + Public Property a_b_diener As Integer + Public Property a_b_heavyduty As Integer + End Class +#End Region End Namespace \ No newline at end of file diff --git a/Inventarios/RecepcionEntrega.aspx b/Inventarios/RecepcionEntrega.aspx index 43992542a..e6bf45a69 100644 --- a/Inventarios/RecepcionEntrega.aspx +++ b/Inventarios/RecepcionEntrega.aspx @@ -336,7 +336,7 @@
Información: - +
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 950ef277f..f2ed1bd58 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -1071,7 +1071,7 @@ Partial Class PV CargaSucursales() CargaClasificaciones() CargaPS(-1, DdlPS) - CargaPS(-1, DdlPSAjuste) + CargaPS(-1, DdlPSAjuste, AplicaAlmacen:=False) CargaEmpresa() CreaDTVentas() CargaMetodosPago() @@ -1866,7 +1866,7 @@ Partial Class PV End If DdlClasificacion.DataBind() End Sub - Private Sub CargaPS(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost) + Private Sub CargaPS(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost, Optional AplicaAlmacen As Boolean = True) Objeto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(141).ToString = "1") If Not UsuarioActual.Empresa.Funcionalidad(141).ToString = "1" Then Objeto.ddl.Items.Clear() @@ -1877,7 +1877,11 @@ Partial Class PV Else Objeto.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue) Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString) - Objeto.ddlWS.Attributes.Add("data-pagina", "ventas/ventas") + If AplicaAlmacen Then + Objeto.ddlWS.Attributes.Add("data-pagina", "ventas/ventas") + Else + Objeto.ddlWS.Attributes.Add("data-pagina", "-1") + End If Objeto.ddlWS.Attributes.Add("data-Estatus", "1") End If End Sub From 1c1b2b0d055ec4df55f21b11eed7b51e2498910a Mon Sep 17 00:00:00 2001 From: rmolina Date: Wed, 11 Dec 2019 17:40:07 -0700 Subject: [PATCH 3/6] =?UTF-8?q?Modelos.=20parametro=20de=20CvePS=20recibid?= =?UTF-8?q?o=20en=20garant=C3=ADa=20Saldosiniciales.=20treceava=20columna?= =?UTF-8?q?=20en=20PS?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsAcumuladores.vb | 3 ++- App_Code/Modelos.vb | 2 +- General/SaldosIniciales.aspx.vb | 20 ++++++++++---------- 3 files changed, 13 insertions(+), 12 deletions(-) diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index 31010ecc8..5b63a3ab7 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -674,7 +674,7 @@ Public Class ClsAcumuladores #Region "GARANTIAS DETALLES" - Public Function AddGarantiasDetalle(CveVentaDetalle As Integer, CveFolioGarantia As Integer, CveTipoUso As Integer, + Public Function AddGarantiasDetalle(CveVentaDetalle As Integer, CvePS As Integer, CveFolioGarantia As Integer, CveTipoUso As Integer, CodigoEnsamble As String, CodigoLinea As String, CodigoInspeccion As String, CveTipoDefecto As Integer, NumPoliza As String, Importe As Double, Consecutivo As String) As Boolean @@ -682,6 +682,7 @@ Public Class ClsAcumuladores SqlDataAdapter("PA_Acum_GarantiasDetalleAdd") With SqlAdapter.SelectCommand.Parameters .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle + .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia .Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso .Add("@CodigoEnsamble", SqlDbType.VarChar).Value = CodigoEnsamble diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index a9b95dc41..5472ba737 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -1349,7 +1349,7 @@ Namespace Modelos 'Ajustes' If DtAjustes IsNot Nothing AndAlso DtAjustes.Rows.Count > 0 Then For Each Dr As DataRow In DtAjustes.Rows - If Not ObjAcum.AddGarantiasDetalle(Dr("CveVentaDetalle").ToString.ToEntero, Dr("CveFolioGarantia").ToString.ToEntero, Dr("CveTipoUso").ToString.ToEntero, + If Not ObjAcum.AddGarantiasDetalle(Dr("CveVentaDetalle").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("CveFolioGarantia").ToString.ToEntero, Dr("CveTipoUso").ToString.ToEntero, Dr("CodigoEnsamble").ToString, Dr("CodigoLinea").ToString, Dr("CodigoInspeccion").ToString, Dr("CveTipoDefecto").ToString.ToEntero, Dr("NumPoliza").ToString, Dr("Importe").ToString.ToDouble, Dr("Consecutivo").ToString) Then ErrorList.Add("Ocurrió un error al agregar la garantia detalle.") diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index bedb6ca26..11221fb2f 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -371,15 +371,15 @@ Partial Class General_SaldosIniciales Exit Sub End If - If Not dt.Columns(12).ColumnName = "Servicio" Then - Alert("El nombre de la treceava columna debe ser 'Servicio'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If + 'If Not dt.Columns(12).ColumnName = "Servicio" Then + ' Alert("El nombre de la treceava columna debe ser 'Servicio'. Favor de corregirlo", TipoMensaje.MsgError) + ' Exit Sub + 'End If - If Not dt.Columns(13).ColumnName = "Conversion Unidad" Then - Alert("El nombre de la catorceava columna debe ser 'Conversion Unidad'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If + 'If Not dt.Columns(13).ColumnName = "Conversion Unidad" Then + ' Alert("El nombre de la catorceava columna debe ser 'Conversion Unidad'. Favor de corregirlo", TipoMensaje.MsgError) + ' Exit Sub + 'End If ElseIf RblFormato.SelectedValue = "6" Then If Not dt.Columns(0).ColumnName = "Código" Then @@ -669,8 +669,8 @@ Partial Class General_SaldosIniciales Dim IEPS As Decimal = Row("IEPS").ToString.ToDecimal Dim Tamaño As String = Row("Tamaño").ToString.Trim Dim SATClavePS As String = Row("Código SAT").ToString.Trim - Dim Clasificacion2 As String = Row("Servicio").ToString.Trim - Dim Litraje As Double = Row("Conversion Unidad").ToString.ToDouble + Dim Clasificacion2 As String = If(dt.Columns.Contains("Servicio"), Row("Servicio").ToString.Trim, "") + Dim Litraje As Double = If(dt.Columns.Contains("Conversion Unidad"), Row("Conversion Unidad").ToString.ToDouble, 0) Dim RinTamaño As String = If(Row.Table.Columns.Contains("Tamaño de Rin"), Row("Tamaño de Rin").ToString.Trim, "") Dim Medida As String = If(Row.Table.Columns.Contains("Medida"), Row("Medida").ToString.Trim, "") Dim SATClaveUnidadMedida As String = If(Row.Table.Columns.Contains("Clave Unidad"), Row("Clave Unidad").ToString.Trim, "") From f7cad3521e08e7316f59c31300b645abba05748a Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 11 Dec 2019 17:40:55 -0700 Subject: [PATCH 4/6] Desarrollo poliza virtual --- Ventas/Ventas.aspx | 59 ++++++++++++---------- Ventas/Ventas.aspx.vb | 114 ++++++++++++++++++++++++++++++++++++++++-- 2 files changed, 141 insertions(+), 32 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 8cfedd04a..ab26b65a5 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1003,8 +1003,8 @@ <%----%> - <%--0--%> @@ -1287,12 +1287,12 @@
- +
- @@ -5873,8 +5873,7 @@
- - +
@@ -6354,7 +6353,7 @@ - + <%--APLICAR REMISIONES DE NC--%>
Descuentos. RNC.:   +