Actualziar Compra con cambio de tipo de compra

App_Code/ClsCompras.vb

@@ -1931,7 +1931,7 @@ Public Class ClsCompras
 
 #Region "   REFACTURACION   "
 
-    Public Function GetRefacturacion(CveProveedor As Integer, SubTotal As Double, IVA As Double, Total As Double, Opcion As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetRefacturacion(CveProveedor As Integer, SubTotal As Double, IVA As Double, Total As Double, Opcion As Integer, CveEmpresa As Integer, Optional Top As Integer = 100000) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_RefacturacionGet")
 
@@ -1942,6 +1942,7 @@ Public Class ClsCompras
             .Add("@Total", SqlDbType.Float).Value = Total
             .Add("@Opcion", SqlDbType.Int).Value = Opcion ' 1. Exácta, 2. Con diferencia
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Top", SqlDbType.Int).Value = Top
         End With
 
         Try

Compras/Compras.aspx.vb

@@ -1199,6 +1199,22 @@ Partial Class Compras_Compras
         End Set
     End Property
 
+    Private Property TipoCompraOriginal As Integer
+        Get
+
+            If ViewState("TipoCompraOriginal") Is Nothing Then
+                ViewState("TipoCompraOriginal") = -1
+            End If
+
+            Return ViewState("TipoCompraOriginal").ToString.ToEntero
+
+        End Get
+        Set(value As Integer)
+            ViewState("TipoCompraOriginal") = value
+        End Set
+    End Property
+
+
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
@@ -2616,6 +2632,7 @@ Partial Class Compras_Compras
                 CvePrePoliza = dr("CvePrePoliza").ToString.ToEntero
                 EstatusAlmacen = dr("EstatusAlmacen").ToString.ToEntero
                 DdlTipoCompra.SelectedValueExist(dr("CveTipoCompra"))
+                TipoCompraOriginal = dr("CveTipoCompra").ToString.ToEntero
                 CveTipoConcepto = dr("CveTipoConcepto").ToString.ToEntero
 
                 ChkEsNoDeducible.Checked = Boolean.Parse(dr("NoDeducible").ToString)
@@ -6391,6 +6408,7 @@ Partial Class Compras_Compras
                                                                     'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN
                                                                     'SI LA COMPRA ES DE TIPO GASTO CON ALMACEN DEBE REGISTRAR MOVIMIENTO
                                                                     Dim AlmacenSoloExistencia As Boolean = False
+
                                                                     If DdlTipoCompra.SelectedValue <> "10" Then
                                                                         For Each Dr As DataRow In DT.Rows
                                                                             If DtAlmacenes.FiltroPrimeroValor("Modalidad", $"CveAlmacen =  {Dr("CveAlmacen").ToString.ToEntero}").ToString = "Solo Existencia" Then
@@ -6400,6 +6418,7 @@ Partial Class Compras_Compras
                                                                             Dr.AcceptChanges()
                                                                         Next
                                                                     End If
+
                                                                     DT.AcceptChanges()
                                                                     DT = DT.FiltraParametros("ISNULL(CveAlmacen,0) > 0")
                                                                     If DT.Rows.Count > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
@@ -9433,6 +9452,8 @@ Partial Class Compras_Compras
                 Msg.Append("La Compra se actualizó correctamente")
 
                 Alert(Msg.ToString())
+                TipoCompraOriginal = DdlTipoCompra.SelectedValue.ToEntero
+
             Else
                 ObjCompra.RollBack()
                 If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
@@ -9468,7 +9489,8 @@ Partial Class Compras_Compras
                     (row1("CveActivoFijo").ToString.ToEntero <> row2("CveActivoFijo").ToString.ToEntero) Or
                     (row1("AFMedida").ToString.ToEntero <> row2("AFMedida").ToString.ToEntero) Or
                     (row1("TipoAF").ToString.ToEntero <> row2("TipoAF").ToString.ToEntero) Or
-                    (row1("CvePS").ToString.ToEntero <> row2("CvePS").ToString.ToEntero) Then
+                    (row1("CvePS").ToString.ToEntero <> row2("CvePS").ToString.ToEntero Or
+                    DdlTipoCompra.SelectedValue.ToEntero <> TipoCompraOriginal) Then
                         Return False
                     End If
                 End If
@@ -9582,6 +9604,7 @@ Partial Class Compras_Compras
                                 'Removemos los conceptos de la prepoliza
                                 If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 6, CveCompra, 1) Then ErrorPrepoliza = True   'GASTO 
                                 If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 68, CveCompra, 1) Then ErrorPrepoliza = True 'ALMACEN
+                                If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 95, CveCompra, 1) Then ErrorPrepoliza = True 'GASTO CON ALMACEN RELLENO
                                 If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 49, CveCompra, 1) Then ErrorPrepoliza = True 'AF 
                                 If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 205, CveCompra, 1) Then ErrorPrepoliza = True  'PS YA RECIBIDO 
                                 If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 230, CveCompra, 1) Then ErrorPrepoliza = True  'PS YA RECIBIDO 
@@ -9590,6 +9613,15 @@ Partial Class Compras_Compras
                                 If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 228, CveCompra, 1) Then ErrorPrepoliza = True  'PS NO RECIBIDO
                                 If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 229, CveCompra, 1) Then ErrorPrepoliza = True  'PS NO RECIBIDO
 
+
+                                'SI ES GASTO CON ALMACEN REGISTRA EL CONCEPTO 95
+                                If DdlTipoCompra.SelectedValue = "10" Then
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMN, Referencia, 95, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=False) Then
+                                        ErrorPrepoliza = True
+                                    End If
+                                End If
+
+
                                 'OBTIENE METODO DE CONTABILIZACIÓN AL GUARDAR
                                 Dim ConceptoContabilizacionAlmacen = 0
                                 If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
@@ -9659,8 +9691,11 @@ Partial Class Compras_Compras
                                 importeMovimiento = 0
                                 IdCtaContable = 0
 
+
+
+
                                 'INV [MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA) ]
-                                If UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(176, 205) Then
+                                If DdlTipoCompra.SelectedValue.ToEntero <> 10 AndAlso UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(176, 205) Then
                                     importeMovimiento = TmpDT.SUM("Total", $"ISNULL(TipoAF,0) <> 2 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
                                     importeMN = importeMovimiento * tipoCambioActual * Multiplicador
 
@@ -9713,18 +9748,29 @@ Partial Class Compras_Compras
                                 DT.AcceptChanges()
                                 DtAlmacenes.Dispose()
 
-                                'QUITA 1-[MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA)] 2-[NC CON PRODUCTOS]
+
-                                If UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen > 0 Then
+                                If DdlTipoCompra.SelectedValue.ToEntero <> 10 Then
-                                    DT = DT.FiltraParametros("CveTipoPS <> 2")
+                                    'QUITA 1-[MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA)] 2-[NC CON PRODUCTOS]
+                                    If UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen > 0 Then
+                                        DT = DT.FiltraParametros("CveTipoPS <> 2")
+                                    End If
                                 End If
 
+
                                 Dim DTDistinct = DT.Copy
-                                If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+
-                                    DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
+                                If DdlTipoCompra.SelectedValue.ToEntero = 10 Then
+                                    DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto", "CveAlmacen"})
                                 Else
-                                    DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
+
+                                    If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                                        DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
+                                    Else
+                                        DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
+                                    End If
                                 End If
 
+
                                 If DTDistinct.Rows.Count > 0 Then
                                     For Each Row2 As DataRow In DTDistinct.Rows
 
@@ -9734,6 +9780,12 @@ Partial Class Compras_Compras
                                         Else
                                             importeMovimiento = DT.SUM("Total", String.Format("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveClasificacion = {0} AND CveSubProyecto = {1} AND ISNULL(CveTipoGasto,0) = {2}", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("CveTipoGasto").ToString.ToEntero)).ToString.ToDecimal
                                         End If
+
+                                        If DdlTipoCompra.SelectedValue.ToEntero = 10 Then
+                                            importeMovimiento = DT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"CveAlmacen > 0 ").ToString.ToDecimal + TmpDT.SUM("CostoIndirectoAlmacen", $"CveAlmacen > 0").ToString.ToDecimal
+                                        End If
+
+
                                         importeMN = importeMovimiento * tipoCambioActual * Multiplicador
 
                                         'CLASIFICACION

Inventarios/EntradasSalidas.aspx.vb

@@ -4623,12 +4623,16 @@ Partial Class Inventarios_EntradasSalidas
                         tIdCtaGasto = 1321
                 End Select
 
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorSalida + ValorEntrada, "", 290, tConcepto, Fecha, tIdCtaGasto, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=tCveClasificacion, CveSubProyecto:=tCveSubProyectoSalida, ImporteMX:=ValorSalida + ValorEntrada, Contabilizable:=EsContabilizable) Then
+                If Math.Abs((ValorSalida + ValorEntrada)) <> 0 Then
-                    ErrorMovInv = True
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorSalida + ValorEntrada, "", 290, tConcepto, Fecha, tIdCtaGasto, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=tCveClasificacion, CveSubProyecto:=tCveSubProyectoSalida, ImporteMX:=ValorSalida + ValorEntrada, Contabilizable:=EsContabilizable) Then
-                    Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de salida"
+                        ErrorMovInv = True
+                        Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de salida"
+                    End If
                 End If
             End If
-        End If
+
+
+            End If
 
         If Not ErrorMovInv Then
             If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then