- timbrado, liga alterno

- compras. ajuste de centavo en registro almacen
- ventas, promociones

App_Code/Timbrado.vb

@@ -1608,7 +1608,8 @@ 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
+                UrlServicio = "http://alterno.gofac.com.mx/cfdi/timbrado.asmx?WSDL" ' alterno
             Case 4
                 UrlServicio = "http://juancalderon-001-site1.ftempurl.com/timbrado.asmx?WSDL"
         End Select

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/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))
-            If dr IsNot 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
+            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 Is Nothing Then
+
                 '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