-- cambios en recepcion de traspaso

Inventarios/TraspasoAlmacen.aspx

@@ -650,7 +650,7 @@
                     <div class="col-md-12">
                         <asp:UpdatePanel runat="server" ID="UpDatosRecepcion" UpdateMode="Conditional">
                             <ContentTemplate>
-                                <asp:GridView ID="GvDatosRecepcion" DataKeyNames="CveMovimiento,CveUM,CvePS,PS,CveAF,CodigoBarras,CveAlmacen,CveAlmacenDestino,AplicaSerie,CveMovimientoDetalle,PU,CveAlmacenSalida,CveMovimientoSalida,Serie,Lote,FechaCaducidad,Cantidad, GastoIndirectoSalida, Importe,Codigo" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" ToolTip="Listado de Movimientos" CssClass="table table-hover Widthall" GridLines="None">
+                                <asp:GridView ID="GvDatosRecepcion" DataKeyNames="CveMovimiento,CveUM,CvePS,PS,CveAF,CodigoBarras,CveAlmacen,CveAlmacenDestino,AplicaSerie,CveMovimientoDetalle,CveMovimientoDetalleTransitorio,PU,CveAlmacenSalida,CveMovimientoSalida,Serie,Lote,FechaCaducidad,Cantidad, GastoIndirectoSalida, Importe,Codigo" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" ToolTip="Listado de Movimientos" CssClass="table table-hover Widthall" GridLines="None">
                                     <Columns>
                                         <asp:TemplateField ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
                                             <%--<HeaderTemplate>

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1532,7 +1532,7 @@ Partial Class Inventarios_TraspasoAlmacen
         If Dtt IsNot Nothing Then
 
             If TxtFolioRecepcion.Text.Trim <> "" Then
-                CveMovimientoSalida = ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimiento", "").ToEntero
+                CveMovimientoSalida = Dtt.FiltroPrimeroValor("CveMovimiento", "").ToEntero
 
             End If
             CveAlmacenDestino = DdlAlmacenRecepcion.SelectedValue.ToEntero
@@ -1810,6 +1810,7 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim ObjInventario As New ClsInventarios
             Dim Dtt As DataTable = Nothing
             Dim CveMovimientoEntrada As Integer = 0
+            Dim CveMovimientoSalidaTransitorio As Integer = 0
             Dim Folio = 0
             Dim ErrorMovInv As Boolean = False
             Dim TextoError = ""
@@ -1845,15 +1846,15 @@ Partial Class Inventarios_TraspasoAlmacen
 
 
             'AGREGAMOS LA SALIDA
-            'CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenSalida, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
-            '                                                  Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveAlmacenDestino:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero, Modulo:="TA/G11")
+            CveMovimientoSalidaTransitorio = ObjInventario.AddMovimiento(CveAlmacenSalida, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
+                                                              Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveAlmacenDestino:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero, Modulo:="TA/G11")
 
             'AGREGAMOS LA ENTRADA
             CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenEntrada, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
                                                               Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveAlmacenDestino:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero, CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G1")
             Folio = ObjInventario.Folio
 
-            If CveMovimientoSalida <= 0 Then
+            If CveMovimientoSalidaTransitorio <= 0 Then
                 TextoError = "No se pudo generar el movimiento de salida correctamente"
                 ErrorMovInv = True
             Else
@@ -1887,12 +1888,12 @@ Partial Class Inventarios_TraspasoAlmacen
                             TextoError = "Ocurrió un error al guardar los movimientos de salida"
                             Exit For
                         End If
-                        ''MOV, Alm, Transito
-                        'If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, PrecioEntrada, CveAF:=gvr.DataKey("CveAF").ToString.ToEntero, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, Serie:=gvr.DataKey("Serie").ToString, Lote:=gvr.DataKey("Lote").ToString, FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada) Then
-                        '    ErrorMovInv = True
-                        '    TextoError = "Ocurrió un error al guardar los movimientos de salida"
-                        '    Exit For
-                        'End If
+                        'MOV, Alm, Transito
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTransitorio, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, PrecioEntrada, CveAF:=gvr.DataKey("CveAF").ToString.ToEntero, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, Serie:=gvr.DataKey("Serie").ToString, Lote:=gvr.DataKey("Lote").ToString, FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=gvr.DataKey("CveMovimientoDetalleTransitorio").ToString.ToEntero) Then
+                            ErrorMovInv = True
+                            TextoError = "Ocurrió un error al guardar los movimientos de salida"
+                            Exit For
+                        End If
 
                     ElseIf cantidadDisponibleValidacion < 0 Then
                         TextoError = String.Format("Se exceden la cantidad disponibles para {0}", gvr.DataKey("PS").ToString)
@@ -1903,21 +1904,21 @@ Partial Class Inventarios_TraspasoAlmacen
                 If Not ErrorMovInv Then
                     Dim Concepto As String = TxtObservacionesRecepcion.Text
                     If Concepto = "" Then Concepto = "Recepción Traspaso"
-                    'Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                    'If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
+                    Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                    If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
 
-                    '    Dim resultado As DataTable = ObjInventario.DtResultados
-                    '    Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
-                    '    Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero)).ToEntero
+                        Dim resultado As DataTable = ObjInventario.DtResultados
+                        Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
+                        Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero)).ToEntero
 
-                    '    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=importe, Contabilizable:=False) Then
-                    '        ErrorMovInv = True
-                    '    End If
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalidaTransitorio, ImporteMX:=importe, Contabilizable:=False) Then
+                            ErrorMovInv = True
+                        End If
 
-                    '    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=importe, Contabilizable:=False) Then
-                    '        ErrorMovInv = True
-                    '    End If
-                    'End If
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=importe, Contabilizable:=False) Then
+                            ErrorMovInv = True
+                        End If
+                    End If
                 End If
             End If