Merge branch 'master' of http://192.168.10.111:8383/SIG

2020-01-22 18:42:13 -07:00
parent 200e0b2ee1 3de574d1f8
commit a590759f83
10 changed files with 359 additions and 177 deletions
--- a/Ventas/Promociones.aspx
+++ b/Ventas/Promociones.aspx
@@ -128,6 +128,17 @@
                                    <asp:CheckBox ID="ChkEstatus" runat="server" />
                                </div>
                            </div>
+
+                            <div class="row">
+                                <label class="col-md-2 truncate">Tipo Aplicacion:</label>
+                                <div class="col-md-4">
+                                    <asp:DropDownList ID="DdlTipoAplicacion" DataTextField="Moneda" DataValueField="CveMoneda" CssClass="select2me" runat="server" Width="350px">
+                                        <asp:ListItem Value ="-1">Seleccione</asp:ListItem>
+                                        <asp:ListItem Value ="Descuento">Descuento</asp:ListItem>
+                                        <asp:ListItem Value ="PU">PU</asp:ListItem>
+                                    </asp:DropDownList>
+                                </div>
+                            </div>
                        </div>
                    </div>
                </div>
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -380,7 +380,9 @@ Partial Class Ventas_Promociones
        Dim ObjVentas As New ClsVentas
        Dim TieneError = False
        ObjVentas.IniciaTransacSQL()
-        CvePromocion = ObjVentas.AddPromociones(TxtPromocion.Text.Trim, If(IsDate(TxtFechaI.Text), TxtFechaI.Text.ToDate, MinFecha), If(IsDate(TxtFechaF.Text), TxtFechaF.Text.ToDate, MaxFecha), DdlVendedor.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, ChkEstatus.Checked, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero)
+        CvePromocion = ObjVentas.AddPromociones(TxtPromocion.Text.Trim, If(IsDate(TxtFechaI.Text), TxtFechaI.Text.ToDate, MinFecha), If(IsDate(TxtFechaF.Text), TxtFechaF.Text.ToDate, MaxFecha),
+                                                DdlVendedor.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, ChkEstatus.Checked, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveUsuario,
+                                                UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, DdlTipoAplicacion.SelectedValue.ToString)

        If CvePromocion > 0 Then
            For Each Dr As DataRow In TempDT.Rows
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5963,11 +5963,11 @@ Partial Class Ventas
            TmpDT.Rows(e.RowIndex)("TiempoEntrega") = GvPS.Rows(e.RowIndex).FCTextBox("TxtTiempoEntrega").Text.Trim
            TmpDT.Rows(e.RowIndex)("PU") = PU
            TmpDT.Rows(e.RowIndex)("Descuento") = Descuento
-            TmpDT.Rows(e.RowIndex)("TotalImporte") = Math.Round(Cantidad * PU, NumeroDecimales)
-            TmpDT.Rows(e.RowIndex)("ImporteIVA") = Math.Round(TmpDT.Rows(e.RowIndex)("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestosIVA, NumeroDecimales)
-            TmpDT.Rows(e.RowIndex)("ImporteIEPS") = Math.Round(TmpDT.Rows(e.RowIndex)("PorcentajeIEPS").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
-            TmpDT.Rows(e.RowIndex)("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales)
-            TmpDT.Rows(e.RowIndex)("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales)
+            TmpDT.Rows(e.RowIndex)("TotalImporte") = (Cantidad * PU).RoundSQL(NumeroDecimales)
+            TmpDT.Rows(e.RowIndex)("ImporteIVA") = (TmpDT.Rows(e.RowIndex)("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestosIVA).RoundSQL(NumeroDecimales)
+            TmpDT.Rows(e.RowIndex)("ImporteIEPS") = (TmpDT.Rows(e.RowIndex)("PorcentajeIEPS").ToString.ToDecimal * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
+            TmpDT.Rows(e.RowIndex)("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
+            TmpDT.Rows(e.RowIndex)("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
            TmpDT.Rows(e.RowIndex)("PorcentajeRetIVA") = ClienteRetIVA
            TmpDT.Rows(e.RowIndex)("PorcentajeRetISR") = ClienteRetISR
            TmpDT.Rows(e.RowIndex)("CuentaPredial") = CuentaPredial
@@ -6387,8 +6387,7 @@ Partial Class Ventas
                        Continue For
                    End If

-
-                    If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then ' si tiene relacionada una OC,
+                    If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then
                        'VALIDA EXISTENCIA
                        CveProducto = dr("CvePS").ToString.ToEntero
                        CveUnidad = dr("CveUM").ToString.ToEntero
@@ -6499,7 +6498,7 @@ Partial Class Ventas
        'Valida si en caso de que el detalle tenga llantas o polizas se agreguén kilometraje/serie en la parte de observaciones(solo para el caso de empresas llanteras)
        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then

-            If txtkilometraje.text.toentero = 0 Then
+            If TxtKilometraje.Text.ToEntero = 0 Then
                'cuando es la clasificacion de llantas
                Dim FaltaObservacion As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20342").ToEntero
                If FaltaObservacion = 20342 Then
@@ -6918,8 +6917,7 @@ Partial Class Ventas
                        'ENVIAR POLIZA VIRTUAL
                        If ErrorList.Count = 0 Then
                            If UsuarioActual.Empresa.Funcionalidad(576) = "1" Then
-                                Dim TipoPoliza As Integer = 1
-                                GeneraPolizaVentaWS(ObjFactura, TipoPoliza)
+                                GeneraPolizaVentaWS(ObjFactura)
                            End If
                        End If

@@ -9172,7 +9170,7 @@ Partial Class Ventas
                           CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)),
                           CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
                           DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
-                           Kilometraje:=TxtKilometraje.Text.todouble) Then
+                           Kilometraje:=TxtKilometraje.Text.ToDouble) Then

            ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")

@@ -14281,18 +14279,19 @@ Partial Class Ventas
        End If

        Row("IVA") = Row("PorcentajeIVA")
-        Row("ImporteIVA") = Math.Round(Row("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestosIVA, NumeroDecimales)
-        Row("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales)
-        Row("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales)
+        Row("ImporteIVA") = (Row("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestosIVA).RoundSQL(NumeroDecimales)
+        Row("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
+        Row("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
        Row("PorcentajeRetIVA") = ClienteRetIVA
        Row("PorcentajeRetISR") = ClienteRetISR
        Row("PorcentajeIEPS") = DrPS("IEPSPorcentaje")
-        Row("ImporteIEPS") = Math.Round(DrPS("IEPSPorcentaje").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
+        Row("ImporteIEPS") = (DrPS("IEPSPorcentaje").ToString.ToDecimal * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
        Row("IEPS") = Row("ImporteIEPS")
-        Row("Descuento") = Math.Round(Descuento, NumeroDecimales)
+        Row("Descuento") = (Descuento).RoundSQL(NumeroDecimales)
        Row("TipoDescuento") = HdnTipoDescuento.Value
        Row("Total") = (Cantidad * PU)
-        Row("TotalImporte") = Math.Round(Cantidad * PU, NumeroDecimales)
+        Row("TotalImporte") = (Cantidad * PU).RoundSQL(NumeroDecimales)
+
        'Row("AsientoContableVentas") = DrPS("AsientoContableVentas")
        ' Row("IdCtaContVentas") = IdCtaContable
        ' Row("AplicaParaConcepto") = AplicaParaConcepto
@@ -15486,7 +15485,7 @@ Partial Class Ventas
                                            If ConSalida AndAlso Not OcurrioError Then

                                                If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
-                                                    OcurrioError = GenerarMovimientoAlmacenVirtual(CveRemision, ObjInventario, ObjFactura)
+                                                    OcurrioError = Not GenerarMovimientoAlmacenVirtual(CveRemision, ObjInventario, ObjFactura)
                                                End If

                                                If Not OcurrioError Then
@@ -15811,7 +15810,7 @@ Partial Class Ventas
            OcurrioError = True
        End Try

-        Return OcurrioError
+        Return Not OcurrioError

    End Function
    Private Function SalidaAlmacenMateriales(ByRef ObjInventario As ClsInventarios, CveOS As Integer, ByRef ObjConta As ClsContabilidad, ConSalida As Boolean, ConceptoMovimiento As Integer) As Boolean
@@ -23945,23 +23944,22 @@ Partial Class Ventas
            GvCodigosUnicos.DataBind()
        End If
    End Sub
-    Protected Sub GeneraPolizaVentaWS(ObjFactura As Modelos.Factura, TipoPoliza As Integer)
-        'TipoPoliza: 01 Venta, 02 Ajuste, 03 Garantía
+    Protected Sub GeneraPolizaVentaWS(ObjFactura As Modelos.Factura)
        Try
            For Each Row As GridViewRow In GvCodigosUnicos.Rows
                If Row.RowType = DataControlRowType.DataRow Then
                    Dim obj As New Modelos.MPolizaVentaWS
                    'DATOS DEL CLIENTE
                    obj.customer_name = ObjFactura.Cliente.Nombre
-                    obj.customer_last_name1 = "."
+                    obj.customer_last_name1 = ""
                    obj.customer_last_name2 = ""
                    obj.customer_birthday = Nothing
                    obj.customer_phone = ObjFactura.Cliente.Telefono
                    obj.customer_email = ObjFactura.Cliente.Mail
                    obj.customer_gender = "03" 'OTRO GENERO
                    obj.customer_advertising = False
-                    obj.customer_car_brand = "01"
-                    obj.customer_car_model = "01"
+                    obj.customer_car_brand = "00"
+                    obj.customer_car_model = "00"
                    obj.customer_car_year = ObjFactura.Fecha.Year

                    'DATOS DE VENTA
@@ -23971,12 +23969,12 @@ Partial Class Ventas
                    obj.sale_type_service = "02" 'COMERCIAL 
                    obj.sale_total = ObjFactura.Total
                    obj.sale_discount = ObjFactura.Descuento
-                    obj.sale_id = ObjFactura.CveVenta.ToString
+                    obj.sale_id = String.Format("{0}{1}{2}", ObjFactura.Serie, ObjFactura.Folio, ObjFactura.CveVenta)

                    'DATOS DEL PRODUCTO
                    obj.product_code = Row.DataKey("IdProductoPolizaVirtual").ToString()
                    obj.product_unique_code = Row.FCTextBox("TxtCodigoUnico").Text 'se indique el código único de la batería. (SERIE LOTE)
-                    obj.product_sale_type = "0" & TipoPoliza 'VENTA
+                    obj.product_sale_type = "01 " 'VENTA

                    Dim FechaUsado As DateTime = Row.DataKey("FechaAjuste").ToString().ToDateTime()