-

Contabilidad/RegPrePoliza.aspx

@@ -373,6 +373,9 @@
                         <asp:TemplateField ItemStyle-HorizontalAlign="Center">
                             <ItemTemplate>
                                 <asp:LinkButton ID="ImgBancos" runat="server" CausesValidation="False" CssClass="btn btn-circle btn-sm btn-warning" OnClick="Bancos_Click" Text="<i class='fa fa-money'></i>" Visible="false" />
+                                  <asp:DropDownList ID="DdlProveedores" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true" OnSelectedIndexChanged="DdlProveedores_SelectedIndexChanged1"></asp:DropDownList><br />
+                                                    <asp:DropDownList ID="DdlCompras" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList><br />
+
                             </ItemTemplate>
                         </asp:TemplateField>
 

Contabilidad/RegPrePoliza.aspx.vb

@@ -794,6 +794,18 @@ Partial Class ContabilidadC_RegPrePoliza
                     e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green"
                 End If
             End If
+
+            If e.Row.DataKey("CveConcepto").ToEntero.Contiene(17) Then
+                e.Row.FCDropDownList("DdlProveedores").Visible = True
+                e.Row.FCDropDownList("DdlProveedores").DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+                e.Row.FCDropDownList("DdlProveedores").DataBind()
+                e.Row.FCDropDownList("DdlProveedores").Items.Insert(0, New ListItem("  -  ", "-1"))
+
+                'If CveTipoTransaccion > 0 And CveCuenta > 0 And Folio.Length > 0 And ImporteDocumento > 0 And Beneficiario.Length > 0 Then
+                '    e.Row.FCLinkButton("ImgPagoCompra").CssClass = "btn btn-circle btn-sm green"
+                'End If
+            End If
+
         End If
     End Sub
 
@@ -854,15 +866,20 @@ Partial Class ContabilidadC_RegPrePoliza
                         If ObjIE.GetBancosIE(CveIE, -1, -1, "-1", -1, "-1", "-1", -1, -1, -1, -1, -1, MinFecha, MaxFecha, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then
                             FolioIE = ObjIE.Folio
                         End If
-                    End If
+                    End If
-
+
-
+
+                    Dim CveProveedor As Integer = -1
+                    Dim CveCompra As Integer = -1
 
                     'inserto las compras que voy a pagarDdlSaldos
                     For Each gvr As GridViewRow In GvMov.Rows
                         If gvr.DataKey("IDCuenta").ToEntero > 0 Then
                             IdCtaContable = gvr.DataKey("IDCuenta")
                         End If
+                        CveProveedor = gvr.DataKey("CveProveedor").ToEntero
+                        CveCompra = gvr.DataKey("CveCompra").ToEntero
+                        CveConcepto = gvr.DataKey("CveConcepto").ToEntero
 
                         If gvr.DataKey("TipoMovto").ToDouble <> 0 Then
                             Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
@@ -870,6 +887,11 @@ Partial Class ContabilidadC_RegPrePoliza
                         Else
                             Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble
                             TipoMovto = False
+                        End If
+                        'Registra pago de compra
+                        If CveConcepto = 17 Then
+                            CveProveedor = gvr.FCDropDownList("DdlProveedores").SelectedValue.ToEntero
+                            CveCompra = gvr.FCDropDownList("DdlCompras").SelectedValue.ToEntero
                         End If
 
                         If CveConcepto = 41 Then
@@ -890,7 +912,7 @@ Partial Class ContabilidadC_RegPrePoliza
                         If Importe <> 0 Then
                             If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text,
                                                            TxtFecha.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=CveIE,
-                                                           CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero,
+                                                           CveProveedor:=CveProveedor, CveCompra:=CveCompra,
                                                            CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
                                                             ImporteMX:=Importe, CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero,
                                                             CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=If(gvr.DataKey("TC").ToString.ToDouble > 0, gvr.DataKey("TC").ToString.ToDouble, 1),
@@ -1560,10 +1582,34 @@ Partial Class ContabilidadC_RegPrePoliza
 
     Protected Sub LnkComplementoPago_Click(sender As Object, e As EventArgs)
         GeneraTimbre(CvePrePoliza)
-    End Sub
+    End Sub
 #End Region
-
+
-
+
-
+
+    Protected Sub DdlProveedores_SelectedIndexChanged1(sender As Object, e As EventArgs)
+        Dim ddl As DropDownList = CType(sender, DropDownList)
+        Dim ddl2 As DropDownList = DirectCast(ddl.BindingContainer, GridViewRow).FCDropDownList("DdlCompras")
+        CargaCompras2(ddl.SelectedValue.ToEntero, ddl2)
+    End Sub
+
+    Private Sub CargaCompras2(CveProveedor As Integer, ddl As DropDownList)
+
+        Dim ObjCompras As New ClsCompras
+
+        ddl.ClearSelection()
+        If ObjCompras.GetCompras(-1, "-1", "-1", CveProveedor, -1, UsuarioActual.CveEmpresa) Then
+            ddl.DataSource = ObjCompras.DtResultados.FiltraParametros("Saldo > 0")
+            ddl.DataBind()
+            ddl.Items.Insert(0, New ListItem("  -  ", "-1"))
+            ddl.Visible = True
+        Else
+            ddl.DataSource = Nothing
+            ddl.DataBind()
+            ddl.Items.Insert(0, New ListItem("  -  ", "-1"))
+
+        End If
+        ObjCompras.Dispose()
+    End Sub
 End Class
 

Inventarios/RecepcionEntrega.aspx.vb

@@ -1868,112 +1868,7 @@ Partial Class Inventarios_RecepcionEntrega
             End If
             ' TERMINA: GARANTIAS
 
-            ' COMIENZA: VIRTUAL
-            If TipoDocto.Contiene("Ing") AndAlso UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
 
-                Dim DtPSVirtual As New DataTable("DtTamanios")
-                DtPSVirtual.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
-                DtPSVirtual.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
-                DtPSVirtual.Columns.Add(New DataColumn("PU", GetType(Decimal)))
-                DtPSVirtual.Columns.Add(New DataColumn("CveUM", GetType(Integer)))
-
-                Dim DtTamanios As DataTable = Nothing
-
-                If ObjAcumuladores.TamañoGet(-1, UsuarioActual.CveEmpresa) Then
-                    DtTamanios = ObjAcumuladores.DtResultados.Copy()
-                End If
-
-                Dim CveConceptoMovimientoVirtual As Integer = -1
-                Dim CveAlmacenVirtual As Integer = -1
-                Dim CveMovimientoRelacionadoVirtual As Integer = -1
-                Dim ValidaVirtual As Boolean = False
-
-                If TipoMovimiento = 1 Then
-                    For Each GvRow As GridViewRow In GvDatos.Rows
-                        If GvRow.RowType = DataControlRowType.DataRow Then
-
-                            If GvRow.datakey("CveTamaño").tostring.toentero > 0 Then
-                                ValidaVirtual = True ' si tiene tamaño, debe de tener virtual
-                                Dim drr As DataRow = DtTamanios.FiltroPrimero(String.Format("CveTamaño={0}", GvRow.DataKey("CveTamaño")))
-                                If drr IsNot Nothing Then
-
-                                    Dim CvePSCargo = drr("CvePSCargo").ToString().ToEntero()
-                                    Dim Row As DataRow = DtPSVirtual.NewRow()
-                                    Row("CvePS") = CvePSCargo
-                                    Row("Cantidad") = GvRow.FCTextBox("TbCantidadF").Text.ToDecimal()
-                                    Row("PU") = 0
-                                    Row("CveUM") = GvRow.DataKey("CveUM").ToEntero()
-
-                                    DtPSVirtual.Rows.Add(Row)
-                                End If
-
-                            End If
-
-                        End If
-                    Next
-                    CveConceptoMovimientoVirtual = 3
-                    CveAlmacenVirtual = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
-
-                ElseIf TipoMovimiento = 2 Then
-                    ValidaVirtual = True
-                    Dim CveMovimientoSalidaDev As Integer = -1
-                    If ObjInventario.GetInv_Mov(CveVentaSurtir, UsuarioActual.CveEmpresa) Then
-                        Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND CveTipoAlmacen = 24 AND CveConcepto = 3 AND CveVenta > 0")
-                        CveMovimientoSalidaDev = RowMovimiento("CveMovimiento").ToString().ToEntero()
-                        CveAlmacenVirtual = RowMovimiento("CveAlmacen").ToString().ToEntero()
-                        CveMovimientoRelacionadoVirtual = CveMovimientoSalidaDev
-                    Else
-                        ErrorMovInv = True
-                        TextoError = "Ocurrió un error al procesar el movimiento. Por favor vuelva a intentar."
-                    End If
-
-                    'CARGA CONCEPTOS DEVUELTOS EN LA VENTA
-                    If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaDev, UsuarioActual.CveEmpresa) Then
-                        DtPSVirtual = ObjInventario.DtResultados.Copy()
-                    Else
-                        ErrorMovInv = True
-                        TextoError = "Ocurrió un error al procesar los movimientos de devolución. Por favor vuelva a intentar."
-                    End If
-                    CveConceptoMovimientoVirtual = 18
-                End If
-
-                If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then
-                    CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
-                                                                       Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="RE/G6")
-                    FolioVirtual = ObjInventario.Folio
-
-                    If CveMovimientoVirtual > 0 Then
-                        For Each RowUsado As DataRow In DtPSVirtual.Rows
-                            Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
-                            Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble()
-                            Dim PU As Double = RowUsado("PU").ToString().ToDouble()
-                            Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
-
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1) Then
-                                ErrorMovInv = True
-                                TextoError = "Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar."
-                                Exit For
-                            End If
-                        Next
-                    Else
-                        ErrorMovInv = True
-                    End If
-
-                Else
-                    If ValidaVirtual Then
-                        ErrorMovInv = True
-                        TextoError = "Ocurrió un error al procesar el movimiento en almacen virtual. Por favor vuelva a intentar."
-
-                    End If
-                End If
-
-                If DtPSVirtual.Rows.Count = 0 AndAlso ValidaVirtual = True Then
-                    ErrorMovInv = True
-                    TextoError = "No se tienen productos para el almacen virtual."
-                End If
-            End If
-
-            ' TERMINA: VIRTUAL
 
             If Not ErrorMovInv Then
                 Dim ConceptoMovimiento = 3
@@ -2316,8 +2211,81 @@ Partial Class Inventarios_RecepcionEntrega
                 End If
             End If
 
-            'AGREGA BITACORA A VENTA
+            ' COMIENZA: VIRTUAL
-            If Not ErrorMovInv Then
+            If TipoDocto.Contiene("Ing", "Dev") AndAlso UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso CveMovimiento > 0 Then
+                Dim DtPSVirtual As New DataTable("DtTamanios")
+
+                If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then
+                    DtPSVirtual = ObjInventario.DtResultados
+                End If
+
+                '
+                'DtPSVirtual.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
+                'DtPSVirtual.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
+                'DtPSVirtual.Columns.Add(New DataColumn("PU", GetType(Decimal)))
+                'DtPSVirtual.Columns.Add(New DataColumn("CveUM", GetType(Integer)))
+
+                'Dim DtTamanios As DataTable = Nothing
+
+                'If ObjAcumuladores.TamañoGet(-1, UsuarioActual.CveEmpresa) Then
+                '    DtTamanios = ObjAcumuladores.DtResultados.Copy()
+                'End If
+
+                Dim CveConceptoMovimientoVirtual As Integer = -1
+                Dim CveAlmacenVirtual As Integer = -1
+                Dim CveMovimientoRelacionadoVirtual As Integer = CveMovimiento
+                Dim ValidaVirtual As Boolean = False
+
+                If TipoMovimiento = 1 Then
+                    CveConceptoMovimientoVirtual = 36
+                    CveAlmacenVirtual = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
+
+                ElseIf TipoMovimiento = 2 Then
+                    ValidaVirtual = True
+                    CveConceptoMovimientoVirtual = 37
+                End If
+
+                If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then
+                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
+                                                                       Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="RE/G6")
+                        FolioVirtual = ObjInventario.Folio
+
+                        If CveMovimientoVirtual > 0 Then
+                            For Each RowUsado As DataRow In DtPSVirtual.Rows
+                                Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
+                                Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble()
+                                Dim PU As Double = RowUsado("PU").ToString().ToDouble()
+                                Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
+
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1) Then
+                                    ErrorMovInv = True
+                                    TextoError = "Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar."
+                                    Exit For
+                                End If
+                            Next
+                        Else
+                            ErrorMovInv = True
+                        End If
+
+                    Else
+                        If ValidaVirtual Then
+                            ErrorMovInv = True
+                            TextoError = "Ocurrió un error al procesar el movimiento en almacen virtual. Por favor vuelva a intentar."
+
+                        End If
+                    End If
+
+                    If DtPSVirtual.Rows.Count = 0 AndAlso ValidaVirtual = True Then
+                        ErrorMovInv = True
+                        TextoError = "No se tienen productos para el almacen virtual."
+                    End If
+                End If
+
+                ' TERMINA: VIRTUAL
+
+
+                'AGREGA BITACORA A VENTA
+                If Not ErrorMovInv Then
                 Dim MensajeBitacora = If(TipoMovimiento = 1, "Surtida", "Devuelta")
                 If Not ObjEventos.AddEventoBitacora(String.Format("Venta {2} en Folio: <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", CveMovimiento, Folio, MensajeBitacora), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVentaSurtir) Then
                     ErrorMovInv = True

Planeacion/CatSubProyectos.aspx.vb

@@ -119,7 +119,7 @@ Partial Class CatSubProyectos
     Public Sub CargaDatos()
 
         Dim ObjSub As New ClsSubProyectos
-        If ObjSub.GetSubProyectos() Then
+        If ObjSub.GetSubProyectos(UsuarioActual.CveEmpresa) Then
             GvDatos.DataSource = ObjSub.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
             GvDatos.DataBind()
         End If
@@ -204,7 +204,7 @@ Partial Class CatSubProyectos
         If ObjSubProyectos.RemoveSubProyecto(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatos.EditIndex = -1
             ViewState("DTSubProyectos") = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTSubProyectos(-1) = ObjSubProyectos.DtResultados
+            GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados
             Alert("El SubProyecto se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
 
@@ -232,7 +232,7 @@ Partial Class CatSubProyectos
             If ObjSubProyectos.UpdateSubProyectoSegNeg(CveSubProyecto, CveSegmento, UsuarioActual.CveEmpresa) Then
                 GvDatos.EditIndex = -1
                 ViewState("DTSubProyectos") = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-                GlobalDTSubProyectos(-1) = ObjSubProyectos.DtResultados
+                GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados
                 Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
             Else
                 ErrorSubProyecto = True