- auxiliar

App_Code/ClsContabilidad.vb

@@ -388,7 +388,7 @@ Public Class ClsContabilidad
 
 
     Public Function GetProveedoresAuxiliar(CveProveedor As Integer, CveConceptoContable As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer,
-                                           Optional Opcion As Integer = 1) As Boolean
+                                           Optional Opcion As Integer = 1, Optional CveTipoProveedor As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_ProveedoresAuxiliar")
@@ -401,6 +401,7 @@ Public Class ClsContabilidad
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor
         End With
 
         Try

Compras/ProveedoresAuxiliar.aspx

@@ -123,6 +123,14 @@
                                 <asp:ListItem Selected="True" Text="Agrupado por Compra" Value="2"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+                        <label class="col-md-1 truncate">Tipo Proveedor:</label>
+                        <div class="col-md-3">
+                            <asp:DropDownList ID="DdlTipoProveedor" CssClass="form-control input-sm select2me" Width="260px" runat="server">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Proveedor" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Acreedor" Value="2"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
                     </div>
                 </div>
             </div>

Compras/ProveedoresAuxiliar.aspx.vb

@@ -81,7 +81,7 @@ Partial Class Compras_ProveedoresAuxiliar
 
         'Falta PA
         If ObjConta.GetProveedoresAuxiliar(DdlProveeedores.SelectedValue.ToEntero, -1, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa,
-                                           DdlOpcion.SelectedValue.ToEntero) Then
+                                           DdlOpcion.SelectedValue.ToEntero, DdlTipoProveedor.SelectedValue.ToEntero) Then
             If DdlOpcion.SelectedValue.ToEntero = 2 Then
                 GvP.DataSource = ObjConta.DtResultados.FiltraParametros($" IIF(ISNULL(CveConceptoContable,0) = 5 AND Importe >= 0,0,1) = 1 ")
             Else

Inventarios/TraspasoAlmacen.aspx.vb

@@ -779,7 +779,7 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim ErrorMovInv As Boolean = False
         Dim ErrorAC As Boolean = False
         Dim TextoError = ""
-        Dim TipoMovimientoSalida = If(ChkTransitorio.Checked, 26, If(TipoAlmacenOrigen = 24, 26, 8))
+        Dim TipoMovimientoSalida As Integer = 26 'If(ChkTransitorio.Checked, 26, If(TipoAlmacenOrigen = 24, 26, 26))
 
 
         'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN
@@ -849,11 +849,11 @@ Partial Class Inventarios_TraspasoAlmacen
         'AGREGAMOS LA ENTRADA
         If Not ChkTransitorio.Checked Then 'SI NO ES TRANSITORIO SE HACE LA RECEPCION DE INMEDIATO
             If Not ErrorMovInv Then
-                Dim TipoMovimientoEntrada = 36
+                Dim TipoMovimientoEntrada = 27
                 AlmacenEntrada = If(ChkTransitorio.Checked, DdlAlmacenTransitorio.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero)
                 CveMovimientoEntrada = ObjInventario.AddMovimiento(AlmacenEntrada, TipoMovimientoEntrada, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1,
                                                                    Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"),
-                                                                   CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/G")
+                                                                   CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G")
                 FolioEntrada = ObjInventario.Folio
                 If CveMovimientoEntrada <= 0 Then
                     TextoError = "Ocurrió un error al generar el movimiento de entrada"
@@ -887,7 +887,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
                     Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
 
-                    CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 2, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/S")
+                    CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/S3")
                     FolioVirtualEntrada = ObjInventario.Folio
                     Dim dtvirtual As DataTable = Nothing