-
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 23437744e..8a945b90a 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -321,14 +321,11 @@ Partial Class Inventarios_EntregaAlmacen
End Set
End Property
-
Private Property CargaBitacora As Boolean
Get
-
If ViewState("CargaBitacora") Is Nothing Then
ViewState("CargaBitacora") = False
End If
-
Return Boolean.Parse(ViewState("CargaBitacora").ToString)
End Get
Set(value As Boolean)
@@ -336,7 +333,6 @@ Partial Class Inventarios_EntregaAlmacen
End Set
End Property
-
Private Property BloqueCantidad As Boolean
Get
If ViewState("BloqueCantidad") Is Nothing Then
@@ -348,9 +344,6 @@ Partial Class Inventarios_EntregaAlmacen
ViewState("BloqueCantidad") = value
End Set
End Property
-
-
-
Private Property Adjunto As String
Get
If ViewState("Adjunto") Is Nothing Then
@@ -364,8 +357,6 @@ Partial Class Inventarios_EntregaAlmacen
End Set
End Property
-
-
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -376,10 +367,8 @@ Partial Class Inventarios_EntregaAlmacen
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 146, 119, 186) Then DdlAlmacen.AutoPostBack = True
If UsuarioActual.Empresa.Funcionalidad(281).ToEntero() = 1 Then
-
TxtFecha.Enabled = False
ImgFecha.Visible = False
-
End If
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
@@ -547,11 +536,9 @@ Partial Class Inventarios_EntregaAlmacen
Alert("No se podrá realizar entrega de mercancía si no se les da salida a los documentos pendientes. Para más información ver el Reporte de notas sin entrada en la sección Ventas.", TipoMensaje.MsgAdvertencia)
Else
BtnGuardar.Enabled = True
-
End If
End If
End If
-
ObjInventarios.Dispose()
If DtPendientes IsNot Nothing Then
@@ -641,7 +628,6 @@ Partial Class Inventarios_EntregaAlmacen
Adjunto = ""
BtnArchivoAdjunto.Visible = False
-
LbSurtida.Visible = False
CveContrato = -1
CveSubProyecto = -1
@@ -651,7 +637,6 @@ Partial Class Inventarios_EntregaAlmacen
BtnGuardar.Visible = True
Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,26)"
-
If UsuarioActual.CveSubProyecto = 8804 Then
StrAlmacenes = "CveTipoAlmacen IN (1,2,12)"
End If
@@ -733,12 +718,9 @@ Partial Class Inventarios_EntregaAlmacen
CveSubProyecto = drE("CveSubProyecto").ToString().ToEntero()
EsInterno = CBool(DtDatos.Rows(0)("EsInterno").ToString())
CveDireccionEnvio = drE("CveDireccionEnvio").ToString.ToEntero
-
-
Adjunto = drE("Adjunto").ToString()
If Adjunto.Trim.Length > 0 Then
-
Dim ruta As String = HttpContext.Current.Request.ApplicationPath
ruta = String.Format("{0}Ventas", UsuarioActual.Empresa.Ruta)
ruta += $"/{Adjunto}"
@@ -747,9 +729,6 @@ Partial Class Inventarios_EntregaAlmacen
BtnArchivoAdjunto.Visible = True
BtnArchivoAdjunto.Text = $"Adjunto: {Adjunto}"
End If
-
-
-
End If
If CveDireccionEnvio > 0 Then
@@ -785,7 +764,6 @@ Partial Class Inventarios_EntregaAlmacen
BtnGuardar.Visible = False
End If
-
If CveAlmacen <= 0 Then
DdlAlmacen.Items.Clear()
If CveAlmacenTraspasoOrigen > 0 Then 'Not (EsDevolucionVenta = 1 And DtDatos.Rows(0)("TipoDocto").ToString() = "Rem" And UsuarioActual.Empresa.Funcionalidad(145) = "1") - ESTO ES PARA CUANDO SEA REMISION DE ENTREGA POR ADELANTADO FUNCIONA LA DEVOLUCION
@@ -816,8 +794,49 @@ Partial Class Inventarios_EntregaAlmacen
If Not DtDatos.Columns.Contains("Seleccionado") Then DtDatos.Columns.Add("Seleccionado", GetType(Boolean))
- If Not DtDatos.Columns.Contains("CantidadSeleccionada") Then DtDatos.Columns.Add("CantidadSeleccionada", GetType(Double))
-
+ If Not DtDatos.Columns.Contains("CantidadSeleccionada") Then DtDatos.Columns.Add("CantidadSeleccionada", GetType(Double))
+
+ If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso TipoMovimiento = 1 Then
+ TrConsola.Visible = False
+ ' valida que estén los productos
+ Dim cargapedales As Boolean = False
+ If DtDatos.COUNT("Codigo", "Codigo like '306%' OR Codigo like '404%' OR Codigo like '405%'") > 0 Then
+ '306, 404, 405, ARS-600
+ DdlConsola.Items.Clear()
+ DdlConsola.Items.Add(New ListItem("A6-2106045-GM", "A6-2106045-GM"))
+ DdlConsola.Items.Add(New ListItem("A6-2101023-GM", "A6-2101023-GM"))
+ DdlConsola.Items.Add(New ListItem("A6-2994026-GM", "A6-2994026-GM"))
+ DdlConsola.Items.Add(New ListItem("A6-2203055-GM", "A6-2203055-GM"))
+ DdlConsola.Items.Add(New ListItem("A6-2304031-GM", "A6-2304031-GM"))
+ DdlConsola.Items.Add(New ListItem("A6-2304030-GM", "A6-2304030-GM"))
+ DdlConsola.Items.Add(New ListItem("RENTA", "RENTA"))
+ cargapedales = True
+ TrConsola.Visible = True
+ Consola = "ARS600"
+ End If
+ If DtDatos.COUNT("Codigo", "Codigo like '106%'") > 0 Then
+ '306, 404, 405, ARS-800,
+ DdlConsola.Items.Clear()
+ DdlConsola.Items.Add(New ListItem("A8-2205011-DM", "A8-2205011-DM"))
+ DdlConsola.Items.Add(New ListItem("RENTA", "RENTA"))
+ cargapedales = True
+ TrConsola.Visible = True
+ Consola = "ARS800"
+ End If
+
+ If cargapedales Then
+ DdlPedales.Items.Clear()
+ DdlPedales.Items.Add(New ListItem("AJ-23040710-S", "AJ-23040710-S"))
+ DdlPedales.Items.Add(New ListItem("AJ-22110355-S", "AJ-22110355-S"))
+ DdlPedales.Items.Add(New ListItem("AJ-23040709-S", "AJ-23040709-S"))
+ DdlPedales.Items.Add(New ListItem("AJ-20050605-S", "AJ-20050605-S"))
+ DdlPedales.Items.Add(New ListItem("AJ-20111710-S", "AJ-20111710-S"))
+ DdlPedales.Items.Add(New ListItem("AJ-2106045-S", "AJ-2106045-S"))
+ DdlPedales.Items.Add(New ListItem("AJ-22980506-S", "AJ-22980506-S"))
+ DdlPedales.Items.Add(New ListItem("RENTA", "RENTA"))
+ End If
+ End If
+
If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then
FormaPaqueteria = DtDatos.Rows(0)("FormaPaqueteria").ToString().ToEntero()
Dim FormaPaq As Integer = FormaPaqueteria
@@ -1977,10 +1996,7 @@ Partial Class Inventarios_EntregaAlmacen
End Sub
- Private Sub GuardaVenta()
-
- ValidaUsaConsola()
-
+ Private Sub GuardaVenta()
Dim CantidadVenta As Decimal = 0
'' INICIA: VALIDACIONES
@@ -2053,9 +2069,7 @@ Partial Class Inventarios_EntregaAlmacen
If Gvr.FCCheckBox("cbInv").Checked AndAlso Gvr.FCTextBox("TbCantidadF").Text.ToDecimal > 0 Then
Cantidad += Gvr.FCTextBox("TbCantidadF").Text.ToDecimal
End If
-
End If
-
End If
Next
@@ -2095,11 +2109,16 @@ Partial Class Inventarios_EntregaAlmacen
Next
End If
End If
-
+ Dim Guia As String = TxtGuia.Text.Trim
+ Dim Recibio As String = ""
If EsDevolucionVenta = 1 Or TipoDocto.Contiene({"Ped"}) Then
Dim ValidaSalidaCompleta As Boolean = Not (EsDevolucionVenta = 1 And TipoDocto.Contiene("Rem", "Ped"))
'LIMITAR EL NUMERO DE PARTIDAS QUE SE PUEDEN ENTREGAR
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+ If TrConsola.Visible Then
+ Guia = DdlConsola.SelectedItem.Text
+ Recibio = DdlPedales.SelectedItem.Text
+ End If
'SoloNumeros entrega
'SI EL CLIENTE ES OPERADORA DE HOSPITALES ANGELES SOLO SE PUEDEN RECIBIR MAXIMO 9
@@ -2116,7 +2135,6 @@ Partial Class Inventarios_EntregaAlmacen
End If
End If
End If
-
ValidaSalidaCompleta = False
End If
@@ -2128,12 +2146,9 @@ Partial Class Inventarios_EntregaAlmacen
Exit Sub
End If
Next
-
End If
-
End If
-
Dim EsInterno As Integer = -1
'If TipoDocto = "Ped" Then
' EsInterno = If(Me.EsInterno, 1, 0)
@@ -2281,10 +2296,7 @@ Partial Class Inventarios_EntregaAlmacen
If Dr("FechaCaducidad").ToString.Trim.Length > 0 AndAlso Dr("FechaCaducidad").ToString.Trim <> "-1" Then
SerieLoteCaducidad = $"{SerieLoteCaducidad} Caducidad: { Dr("FechaCaducidad").ToString.Trim.ToDate.ToString("dd/MM/yyyy")}"
End If
-
TextoError.AppendFormat(" - {0} Existencia: {1:#,##0.##} {2}
", Dr("CodigoPS"), Dr("Existencia"), If(SerieLoteCaducidad <> ",", SerieLoteCaducidad, ""))
-
-
Next
End If
Else
@@ -2303,7 +2315,6 @@ Partial Class Inventarios_EntregaAlmacen
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
Exit Sub
End If
-
End If
'' TERMINA: VALIDACIONES
@@ -2332,7 +2343,7 @@ Partial Class Inventarios_EntregaAlmacen
If Not CveMovimientoSalida > 0 Then
CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString().ToEntero(), CveConceptoSalidaSinCosto, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir,
- Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, Modulo:="RE/GSC1")
+ Observaciones:=TxtObservaciones.Text.Trim, Guia:=Guia, CveContrato:=CveContrato, Modulo:="RE/GSC1")
FolioSalida = ObjInventario.Folio
If Not CveMovimientoSalida > 0 Then
@@ -2382,7 +2393,7 @@ Partial Class Inventarios_EntregaAlmacen
If Not CveMovimientoSalida > 0 Then
CveMovimientoSalida = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString().ToEntero(), CveConceptoSalidaSinCosto, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir,
- Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, Modulo:="RE/GSC3")
+ Observaciones:=TxtObservaciones.Text.Trim, Guia:=Guia, CveContrato:=CveContrato, Modulo:="RE/GSC3")
FolioSalida = ObjInventario.Folio
If Not CveMovimientoSalida > 0 Then
@@ -2401,7 +2412,6 @@ Partial Class Inventarios_EntregaAlmacen
DtTraspasos.Rows.Add(DrMovto)
End If
-
CantidadPendienteSinCosto = If(Dr1("ExistenciaFinal").ToString().ToDecimal > CantidadSaldoSinCosto, CantidadSaldoSinCosto, Dr1("ExistenciaFinal").ToString().ToDecimal)
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadPendienteSinCosto.ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0,
@@ -2414,7 +2424,6 @@ Partial Class Inventarios_EntregaAlmacen
TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
Exit For
End If
-
CantidadSaldoSinCosto -= CantidadPendienteSinCosto
Dr("CantidadTraspaso") = Dr("CantidadTraspaso").ToString().ToDecimal + CantidadPendienteSinCosto
If CantidadSaldoSinCosto <= 0 Then Exit For
@@ -2424,14 +2433,10 @@ Partial Class Inventarios_EntregaAlmacen
Else
ErrorMovInv = True
End If
-
End If
-
CantidadSalidaSinCosto += Dr("CantidadTraspaso").ToString().ToDecimal()
If ErrorMovInv Then Exit For
-
End If
-
Next
'ENTRADA POR TRASPASO A ENTREGA POR ADELANTADO
@@ -2443,7 +2448,7 @@ Partial Class Inventarios_EntregaAlmacen
CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(CveAlmacenExA, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir,
Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), CveMovimientoRelacionado:=CveMovimientoSalida,
- Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4")
+ Guia:=Guia, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4")
FolioEntrada = ObjInventario.Folio
If Not CveMovimientoEntradaApartado > 0 Then
@@ -2524,7 +2529,7 @@ Partial Class Inventarios_EntregaAlmacen
If Not CveMovimientoSalida > 0 Then
CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString().ToEntero(), 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir,
- Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente),
+ Observaciones:=TxtObservaciones.Text.Trim, Guia:=Guia, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente),
CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), Modulo:="RE/G1")
FolioSalida = ObjInventario.Folio
@@ -2578,7 +2583,7 @@ Partial Class Inventarios_EntregaAlmacen
If Not CveMovimientoSalida > 0 Then
CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString().ToEntero(), 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim,
- Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente),
+ Guia:=Guia, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente),
CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), Modulo:="RE/G2")
FolioSalida = ObjInventario.Folio
@@ -2631,7 +2636,7 @@ Partial Class Inventarios_EntregaAlmacen
CveMovimientoSalida = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString().ToEntero(), 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir,
- Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor,
+ Observaciones:=TxtObservaciones.Text.Trim, Guia:=Guia, CveContrato:=CveContrato, CveVendedor:=CveVendedor,
CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), Modulo:="RE/G3")
FolioSalida = ObjInventario.Folio
@@ -2690,7 +2695,7 @@ Partial Class Inventarios_EntregaAlmacen
CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero(), 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir,
Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), CveMovimientoRelacionado:=CveMovimientoSalida,
- Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4")
+ Guia:=Guia, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4")
FolioEntrada = ObjInventario.Folio
If Not CveMovimientoEntradaApartado > 0 Then
@@ -2732,7 +2737,7 @@ Partial Class Inventarios_EntregaAlmacen
End If
If DtGarantias IsNot Nothing AndAlso DtGarantias.Rows.Count > 0 AndAlso CveAlmacenGarantia > 0 Then
- CveMovimientoGarantia = ObjInventario.AddMovimiento(CveAlmacenGarantia, 14, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, Modulo:="EA/G5")
+ CveMovimientoGarantia = ObjInventario.AddMovimiento(CveAlmacenGarantia, 14, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, Guia:=Guia, Modulo:="EA/G5")
FolioGarantia = ObjInventario.Folio
For Each RowGarantia As DataRow In DtGarantias.Rows
@@ -2786,7 +2791,7 @@ Partial Class Inventarios_EntregaAlmacen
Dim CveMovimientoDevolucionSinCosto As Integer = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero(), 41, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir,
Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), CveMovimientoRelacionado:=CveMovimientoSalida,
- Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4")
+ Guia:=Guia, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4")
Dim FolioDevSinCosto As Integer = ObjInventario.Folio
If Not CveMovimientoDevolucionSinCosto > 0 Then
@@ -2868,7 +2873,7 @@ Partial Class Inventarios_EntregaAlmacen
ConceptoMovimiento = 41
End If
- CveMovimiento = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text,
+ CveMovimiento = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, Guia:=Guia, Recibio:=Recibio,
CveContrato:=CveContrato, CveAlmacenDestino:=tCveAlmacenTraspasoDestino, Modulo:="RE/G7")
Folio = ObjInventario.Folio
@@ -2969,7 +2974,7 @@ Partial Class Inventarios_EntregaAlmacen
'ENTRADA POR TRASPASO CUANDO ES REMISION
If Not ErrorMovInv Then
If tCveAlmacenTraspasoDestino > 0 AndAlso Not (TipoMovimiento = 2 And TipoDocto = "Dev" And EsDevolucionVenta = 1) Then ' TRASPASO CUANDO ES REMISION
- CveMovimientoEntrada = ObjInventario.AddMovimiento(tCveAlmacenTraspasoDestino, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato,
+ CveMovimientoEntrada = ObjInventario.AddMovimiento(tCveAlmacenTraspasoDestino, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, Guia:=Guia, CveContrato:=CveContrato,
CveMovimientoRelacionado:=CveMovimiento, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), Modulo:="RE/G8")
FolioEntrada = ObjInventario.Folio
Dim ImporteAlmacen As Decimal = 0
@@ -3027,7 +3032,7 @@ Partial Class Inventarios_EntregaAlmacen
If CveMovimientoSalidaApartado = -1 Or CveAlmacenApartado <> Dr("CveAlmacen").ToString().ToEntero() Then
CveMovimientoSalidaApartado = ObjInventario.AddMovimiento(CveAlmacenOrigen, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir,
- Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente,
+ Observaciones:=TxtObservaciones.Text.Trim, Guia:=Guia, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente,
CveAlmacenDestino:=Dr("CveAlmacen").ToString().ToEntero(), Modulo:="RE/G9")
FolioSalida = ObjInventario.Folio
CveAlmacenApartado = Dr("CveAlmacen").ToString().ToEntero()
@@ -3074,7 +3079,7 @@ Partial Class Inventarios_EntregaAlmacen
CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString().ToEntero(), 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
-1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(),
- CveMovimientoRelacionado:=CveMovimientoSalida, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor,
+ CveMovimientoRelacionado:=CveMovimientoSalida, Guia:=Guia, CveContrato:=CveContrato, CveVendedor:=CveVendedor,
CveCliente:=CveCliente, Modulo:="RE/G10")
FolioEntrada = ObjInventario.Folio
@@ -3220,7 +3225,7 @@ Partial Class Inventarios_EntregaAlmacen
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, CveOS:=CveOSSurtir,
- Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="RE/G6")
+ Observaciones:=TxtObservaciones.Text.Trim, Guia:=Guia, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="RE/G6")
FolioVirtual = ObjInventario.Folio
If CveMovimientoVirtual > 0 Then
|