-

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1529,9 +1529,12 @@ Partial Class Inventarios_TraspasoAlmacen
             End If
 
             Dim CvePrePoliza As Integer = -1
+            Dim Concepto As String = TxtObservacionesRecepcion.Text
+            If Concepto = "" Then Concepto = "Cancelación Traspaso"
+
             If Not ErrorMovInv Then
                 Folio = ObjInventario.Folio
-                CvePrePoliza = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, TxtObservacionesRecepcion.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                CvePrePoliza = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                 If CvePrePoliza <= 0 Then
                     TextoError = "No se pudo generar la Poliza para la cancelación"