Merge branch 'master' of http://jperez@adsistemasof.sytes.net:8383/SIG.git

App_Code/ClsVentas.vb

@@ -2086,7 +2086,7 @@ Public Class ClsVentas
     Public Function AddPromocionesDetalle(CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double,
                                           AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean,
                                           AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime, Optional CantidadMinima As Integer = 1,
-                                          Optional CveClasificacion As Integer = -1, Optional CveRinTamaño As Integer = -1) As Boolean
+                                          Optional CveClasificacion As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional IncluyeImpuestos As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PromocionesDetalleAdd")
 
@@ -2111,6 +2111,7 @@ Public Class ClsVentas
             .Add("@CantidadMinima", SqlDbType.Int).Value = CantidadMinima
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveRinTamaño", SqlDbType.Int).Value = CveRinTamaño
+            .Add("@IncluyeImpuestos", SqlDbType.Bit).Value = IncluyeImpuestos
         End With
 
         Try
@@ -2125,7 +2126,7 @@ Public Class ClsVentas
     Public Function UpdatePromocionesDetalle(CvePromocionDetalle As Integer, CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double,
                                              PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean,
                                              AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime,
-                                             Optional CantidadMinima As Integer = 1, Optional CveClasificacion As Integer = -1, Optional CveRinTamaño As Integer = -1) As Boolean
+                                             Optional CantidadMinima As Integer = 1, Optional CveClasificacion As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional IncluyeImpuestos As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PromocionesDetalleUpdate")
 
@@ -2151,6 +2152,7 @@ Public Class ClsVentas
             .Add("@CantidadMinima", SqlDbType.Int).Value = CantidadMinima
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveRinTamaño", SqlDbType.Int).Value = CveRinTamaño
+            .Add("@IncluyeImpuestos", SqlDbType.Bit).Value = IncluyeImpuestos
         End With
 
         Try

App_Code/Timbrado.vb

@@ -402,7 +402,8 @@ Public Class Timbrado
                 Dim Clave As String = Empresa.ContraseñaKey
                 Dim UrlServicio As String = "" ' Produccion
 
-                UrlServicio = "http://juancalderon-001-site1.ftempurl.com/timbrado.asmx?WSDL"
+                'UrlServicio = "http://juancalderon-001-site1.ftempurl.com/timbrado.asmx?WSDL"
+                UrlServicio = "http://alterno.gofac.com.mx/cfdi/timbrado.asmx?WSDL" ' alterno
 
                 If Not Empresa.FacturaProduccion Then
                     ArchivoLLave = $"{Empresa.Ruta}Certificados\CSD01_AAA010101AAA.key"
@@ -1608,9 +1609,10 @@ Public Class Timbrado
         If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo)
         Select Case CvePACEspecial
             Case 2
-                UrlServicio = "http://generacfdi.com.mx/rvltimbrado/service1.asmx?WSDL"
+                UrlServicio = "http://generacfdi.com.mx/rvltimbrado/service1.asmx?WSDL" 'productivo
             Case 4
-                UrlServicio = "http://juancalderon-001-site1.ftempurl.com/timbrado.asmx?WSDL"
+                'UrlServicio = "http://juancalderon-001-site1.ftempurl.com/timbrado.asmx?WSDL"
+                UrlServicio = "http://alterno.gofac.com.mx/cfdi/timbrado.asmx?WSDL" ' alterno
         End Select
 
         If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then

Compras/Compras.aspx.vb

@@ -6376,11 +6376,7 @@ Partial Class Compras_Compras
                                                                                     CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
                                                                                     idCuentaContabilizacion = 0
                                                                                 End If
-                                                                                'Conta SIG
+
-                                                                                If CveCuenta = 0 Then
-                                                                                    CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
-                                                                                    CveCuentaContabilizacion = 0
-                                                                                End If
                                                                                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
                                                                                     ErrorPrepoliza = True
                                                                                 End If
@@ -6548,11 +6544,6 @@ Partial Class Compras_Compras
                                                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
                                                                             idCuentaContabilizacion = 0
                                                                         End If
-                                                                        'Conta SIG
-                                                                        If CveCuenta = 0 Then
-                                                                            CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
-                                                                            CveCuentaContabilizacion = 0
-                                                                        End If
 
                                                                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
                                                                             ErrorPrepoliza = True
@@ -15188,7 +15179,8 @@ Partial Class Compras_Compras
                 Dim Proyecto As String = dr("Proyecto").ToString
                 Dim Obs As String = dr("Obs").ToString
                 Dim PU As Decimal = gvr.FCTextBox("TxtPU").Text.ToDecimal
-                Dim Total As Decimal = If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, Math.Round((gvr.FCTextBox("TxtCantidad").Text.ToDecimal * gvr.FCTextBox("TxtPU").Text.ToDecimal) - (TxtDescuento.Text.ToDouble / TotalRows).ToDecimal, 2), gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal)
+                Dim tDescuento As Decimal = dr("Descuento").ToString.ToDecimal
+                Dim Total As Decimal = If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, Math.Round((gvr.FCTextBox("TxtCantidad").Text.ToDecimal * gvr.FCTextBox("TxtPU").Text.ToDecimal) - (TxtDescuento.Text.ToDouble / TotalRows).ToDecimal, 2), Cantidad * PU - tDescuento) 'gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal)
                 'Dim Total As Decimal = gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal
                 'Dim IVA As Decimal = gvr.FCHiddenField("HdnOC1IVA").Value.ToDecimal
                 'Dim RetIVA As Double = gvr.FCHiddenField("HdnOC1RetIVA").Value.ToDecimal

Ventas/Promociones.aspx

@@ -177,7 +177,7 @@
                         </div>
                         <div class="portlet-body form">
 
-                            <asp:GridView ID="GvDatos" DataKeyNames="CvePromocionDetalle, CveClasificacion, CvePS, CodigoPS, HoraInicio, HoraFin, CveTipoPromocion, Promocion, PUAnterior, AplicaRestriccion, AplicaLunes, AplicaMartes, AplicaMiercoles, AplicaJueves, AplicaViernes, AplicaSabado, AplicaDomingo, CantidadMinima, CveRinTamaño" CssClass="table table-striped table-hover Widthall mysmallbtn" AutoGenerateColumns="false" GridLines="None" EmptyDataText="Aun no se registran detalles" runat="server">
+                            <asp:GridView ID="GvDatos" DataKeyNames="CvePromocionDetalle, CveClasificacion, CvePS, CodigoPS, HoraInicio, HoraFin, CveTipoPromocion, Promocion, PUAnterior, AplicaRestriccion, AplicaLunes, AplicaMartes, AplicaMiercoles, AplicaJueves, AplicaViernes, AplicaSabado, AplicaDomingo, CantidadMinima, CveRinTamaño,IncluyeImpuestos" CssClass="table table-striped table-hover Widthall mysmallbtn" AutoGenerateColumns="false" GridLines="None" EmptyDataText="Aun no se registran detalles" runat="server">
                                 <Columns>
                                     <asp:BoundField HeaderText="Producto / Servicio" DataField="CodigoPS" ItemStyle-Width="30%" />
                                     <%--<asp:BoundField HeaderText="Producto / Servicio" DataField="PS" ItemStyle-Width="30%" />--%>
@@ -361,7 +361,12 @@
                                     </div>
                                 </div>
                             </div>
-
+                            <div class="row">
+                                <label class="col-md-3 truncate">Incluye Impuestos:</label>
+                                <div class="col-md-9">
+                                    <asp:CheckBox ID="ChkIncluyeImpuesto" AutoPostBack="false" CssClass="md-check" Text="" runat="server" />
+                                </div>
+                            </div>
                         </div>
                         <div class="modal-footer">
                             <button type="button" data-dismiss="modal" class="btn btn-">Cerrar</button>

Ventas/Promociones.aspx.vb

@@ -382,6 +382,7 @@ Partial Class Ventas_Promociones
             ChkViernes.Checked = CBool(Gvr.DataKey("AplicaViernes"))
             ChkSabado.Checked = CBool(Gvr.DataKey("AplicaSabado"))
             ChkDomingo.Checked = CBool(Gvr.DataKey("AplicaDomingo"))
+            ChkIncluyeImpuesto.Checked = CBool(Gvr.DataKey("IncluyeImpuestos"))
 
             BtnAgregar.Text = "Actualizar"
 
@@ -428,7 +429,7 @@ Partial Class Ventas_Promociones
                 If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,
                                                        CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")),
                                                        Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero,
-                                                       CveClasificacion:=If(Dr("CvePS").ToString = "", 20, Dr("CveClasificacion").ToString.ToEntero), CveRinTamaño:=Dr("CveRinTamaño").ToString.ToEntero) Then
+                                                       CveClasificacion:=If(Dr("CvePS").ToString = "", 20, Dr("CveClasificacion").ToString.ToEntero), CveRinTamaño:=Dr("CveRinTamaño").ToString.ToEntero, IncluyeImpuestos:=ChkIncluyeImpuesto.Checked) Then
                     TieneError = True
                     Exit For
                 End If
@@ -459,7 +460,7 @@ Partial Class Ventas_Promociones
             For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 0").Rows
                 If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,
                                                        CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")),
-                                                       Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1)) Then
+                                                       Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1), IncluyeImpuestos:=ChkIncluyeImpuesto.Checked) Then
                     TieneError = True
                     Exit For
                 End If
@@ -469,7 +470,7 @@ Partial Class Ventas_Promociones
                 For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 1").Rows
                     If Not ObjVentas.UpdatePromocionesDetalle(Dr("CvePromocionDetalle").ToString.ToEntero, CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,
                                                            CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")),
-                                                           Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1)) Then
+                                                           Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1), IncluyeImpuestos:=ChkIncluyeImpuesto.Checked) Then
                         TieneError = True
                         Exit For
                     End If

Ventas/Ventas.aspx.vb

@@ -14315,11 +14315,13 @@ Partial Class Ventas
         Dim TipoPromo As Integer = 0
         Dim TotalPromocion As Decimal = 0
         Dim PromocionPorcentaje As Decimal = 0
+        Dim PUPromocion As Decimal = 0
         Dim CantMinima As Integer = 0
         Dim CveMarcaPS As Integer = 0
         Dim CveClasifPS As Integer = 0
         Dim CveRinTamañoPS As Integer = 0
         Dim CvePromocionDetalle As Integer = 0
+        Dim IncluyeImpuestos As Boolean = False
         Dim ObjDescuento As New Descuentos
 
         Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
@@ -14335,33 +14337,34 @@ Partial Class Ventas
 
         End If
 
-
+        Dim dr As DataRow = Nothing
         If DtPromociones IsNot Nothing AndAlso DtPromociones.Rows.Count > 0 Then
-            Dim dr As DataRow = DtPromociones.FiltroPrimero(String.Format("CvePS = {0} AND (CveSubProyecto = {1} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {2} OR CveRinTamaño IS NULL)", CvePS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS))
+            dr = DtPromociones.FiltroPrimero(String.Format("CvePS = {0} AND (CveSubProyecto = {1} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {2} OR CveRinTamaño IS NULL)", CvePS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS))
-            If dr IsNot Nothing Then
+            If dr Is Nothing Then
-                TipoPromo = dr("TipoPromocion").ToString.ToEntero
+
-                TotalPromocion = dr("PUPromocion").ToString.ToDecimal * TxtCantidad.Text.ToDecimal
-                PromocionPorcentaje = dr("Promocion").ToString.ToDecimal
-                CantMinima = dr("CantidadMinima").ToString.ToEntero
-                CvePromocionDetalle = dr("CvePromocionDetalle").ToString.ToEntero
-            Else
                 'verifica marca, si tiene asignada la promocion
-                Dim drC As DataRow = DtPromociones.FiltroPrimero(String.Format("CveClasificacion = {0} AND (CveMarca = {1} OR CveMarca IS NULL) AND (CveSubProyecto = {2} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {2} OR CveRinTamaño IS NULL)", CveClasifPS, CveMarcaPS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS))
+                dr = DtPromociones.FiltroPrimero(String.Format("CveClasificacion = {0} AND (CveMarca = {1} OR CveMarca IS NULL) AND (CveSubProyecto = {2} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {2} OR CveRinTamaño IS NULL)", CveClasifPS, CveMarcaPS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS))
 
-                If drC IsNot Nothing Then
-                    Dim Cant As Integer = 1
-                    TipoPromo = drC("TipoPromocion").ToString.ToEntero
-                    CantMinima = drC("CantidadMinima").ToString.ToEntero
-                    If CantMinima > 0 Then
-                        Cant = Math.Floor(TxtCantidad.Text.ToDecimal / CantMinima).ToEntero
-
-                    End If
-                    TotalPromocion = Math.Round(drC("PUPromocion").ToString.ToDecimal * Cant / (1 + PorcentajeIVA), 6)
-                    PromocionPorcentaje = drC("Promocion").ToString.ToDecimal
-                    CvePromocionDetalle = drC("CvePromocionDetalle").ToString.ToEntero
-                End If
             End If
         End If
+        Dim Cant As Integer = 1
+        If dr IsNot Nothing Then
+
+            TipoPromo = dr("TipoPromocion").ToString.ToEntero
+            CantMinima = dr("CantidadMinima").ToString.ToEntero
+            IncluyeImpuestos = dr("IncluyeImpuestos").ToString = "True"
+            PromocionPorcentaje = dr("Promocion").ToString.ToDecimal
+            PUPromocion = dr("PUPromocion").ToString.ToDecimal
+            CvePromocionDetalle = dr("CvePromocionDetalle").ToString.ToEntero
+
+            If CantMinima > 0 Then
+                Cant = Math.Floor(TxtCantidad.Text.ToDecimal / CantMinima).ToEntero
+            End If
+
+        End If
+
+        TotalPromocion = Math.Round(PUPromocion * Cant / (1 + If(IncluyeImpuestos, PorcentajeIVA, 1)), 6)
+
 
         If TipoPromo = 1 Then 'Promocion por Importe $
             Descuento = Descuento + TotalPromocion