diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index abc5e5d60..1b4b48413 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -5037,6 +5037,7 @@ Public Class Timbrado cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion) If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias + If concep.ValorMercancia <= 0 Then concep.Moneda = "" cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) For Each transp In concep.MercanciasCantidadTransporta cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll index ef9ad67ca..8375b7d16 100644 Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 62feae247..36cbced6f 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -697,7 +697,8 @@ Partial Class PV Get Return New Dictionary(Of Integer, Decimal) From { {20516, 0.21D}, 'Descuento para lubricantes LTH - {20515, 0.25D} 'Descuento para filtros LTH + {20515, 0.25D}, 'Descuento para filtros LTH + {20518, 0.183D} 'Descuento para pilas alcalinas -- segun } End Get End Property @@ -4392,7 +4393,10 @@ Partial Class PV End If End If Else - If DrPS("CveClasificacion").ToString.ToEntero.Contiene(20516, 20515) Then + If CveMarcaPS = 1092 Then ' E140 - alcalinas LTH + Descuento = ((Cantidad * PU) * 0.183D).RoundSQL(2) + End If + If DrPS("CveClasificacion").ToString.ToEntero.Contiene(20516, 20515, 20518) Then Descuento = ((Cantidad * PU) * ClasificacionesDescuentos(DrPS("CveClasificacion").ToString.ToEntero)).RoundSQL(2) End If End If diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 7a8d2f264..135bb8ba9 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -14858,21 +14858,7 @@ Partial Class Ventas Exit Sub End If - If UsuarioActual.Empresa.CvePlataforma = 2 Then - PdfFacturaPyME(ObjFactura, TmpDT, False) - Else - - 'REINICIA VALORES DE CONVERSION DE MONEDA - 'If Not ObjFactura.ConvertirPesos And ChkConvertirDoctoPesos.Checked Then - ' For Each Row As DataRow In TmpDT.Rows - ' Row("PU") = Row("PU").ToString().ToDouble / TxtTipoCambio.Text.Trim.ToDecimal - ' Row("Total") = Row("Cantidad").ToString().ToDouble / Row("PU").ToString().ToDouble - ' Row("Descuento") = Row("Descuento").ToString().ToDouble / TxtTipoCambio.Text.Trim.ToDecimal - ' Row("IEPS") = Row("IEPS").ToString().ToDouble / TxtTipoCambio.Text.Trim.ToDecimal - ' Next - 'End If - - Select Case ConversionRemision + Select Case ConversionRemision Case "*" For Each Row As DataRow In TmpDT.Rows Row("PU") = Math.Round(Row("PU").ToString().ToDouble * TipoCambioRemision, NumeroDecimales) @@ -14954,8 +14940,6 @@ Partial Class Ventas End Select - 'PdfFacturaPyME(ObjFactura, TmpDT) - End If End Sub #End Region @@ -34264,7 +34248,6 @@ Partial Class Ventas DdlUnidadCamion.DataSource = ObjInv.DtResultados End If - If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then DdlRemolque1.DataSource = ObjInv.DtResultados End If @@ -34274,7 +34257,6 @@ Partial Class Ventas DdlUnidadCamion.DataBind() DdlUnidadCamion.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) - DdlRemolque1.DataBind() DdlRemolque1.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) @@ -34312,7 +34294,7 @@ Partial Class Ventas End Sub Protected Sub DdlConfigAuto_SelectedIndexChanged(sender As Object, e As EventArgs) - ValidaConfiguracionVeiculo() + ValidaConfiguracionVehiculo() End Sub Public Sub CargaVentaCortePorte(CveVenta As Integer) TxtFechaEntregaCP.Enabled = False @@ -34341,7 +34323,7 @@ Partial Class Ventas DdlUnidadCamion.Enabled = False End Sub - Private Sub ValidaConfiguracionVeiculo() + Private Sub ValidaConfiguracionVehiculo() DvRemolque1.Visible = False DvRemolque2.Visible = False @@ -34354,7 +34336,6 @@ Partial Class Ventas If ObjGrales.GetCartaPorteConfigAutoTransportes() Then Dim Remolque As String = ObjGrales.DtResultados.FiltroPrimeroValor("Remolque", $" CveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue}'") - If Remolque = "1" Then RequiereRemolque = True MostrarRemolques = True @@ -34377,7 +34358,6 @@ Partial Class Ventas MostrarRemolques = False End If - If RequiereRemolque Or MostrarRemolques Then DvRemolque1.Visible = True End If @@ -34388,7 +34368,6 @@ Partial Class Ventas DvConfiguracionVeiculo.Visible = True End If - UpEmitirTransitorio.Update() End Sub Protected Sub DdlRemolque1_SelectedIndexChanged(sender As Object, e As EventArgs) @@ -34405,14 +34384,11 @@ Partial Class Ventas End Using DdlRemolque2.DataBind() - - Else DvRemolque2.Visible = False End If DdlRemolque2.Items.Insert(0, New ListItem("Seleccione uno", "-1")) - UpEmitirTransitorio.Update() End Sub @@ -34449,7 +34425,7 @@ Partial Class Ventas If CveEntregaAlmacen > 0 Then For Each RowPS As DataRow In ObjFactura.DtMercancias.Rows - If Not ObjGral.AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen, RowPS("CvePS").ToString().ToEntero, RowPS("Cantidad").ToString().ToEntero, RowPS("CveUM").ToString().ToEntero, UsuarioActual.CveUsuario) Then + If Not ObjGral.AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen, RowPS("CvePS").ToString().ToEntero, RowPS("Cantidad").ToString().ToDecimal, RowPS("CveUM").ToString().ToEntero, UsuarioActual.CveUsuario) Then ErrorProceso = True Exit For End If