-- especificar lote/cad, si viene vacío, en las devoluciones
This commit is contained in:
@@ -646,7 +646,8 @@ Partial Class Inventarios_EntregaAlmacen
|
|||||||
|
|
||||||
If UsuarioActual.CveEmpresa = 119 Then
|
If UsuarioActual.CveEmpresa = 119 Then
|
||||||
Dim CveSubProyectoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveSubProyecto", "").ToEntero
|
Dim CveSubProyectoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveSubProyecto", "").ToEntero
|
||||||
If CveSubProyectoAlmacen = 10276 Then
|
|
||||||
|
If CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
|
||||||
ValidaLoteCaducidad = True
|
ValidaLoteCaducidad = True
|
||||||
Else
|
Else
|
||||||
ValidaLoteCaducidad = False
|
ValidaLoteCaducidad = False
|
||||||
@@ -974,16 +975,29 @@ Partial Class Inventarios_EntregaAlmacen
|
|||||||
e.Row.FCLinkButton("LnkCaducidad").Visible = True
|
e.Row.FCLinkButton("LnkCaducidad").Visible = True
|
||||||
e.Row.FCTextBox("TxtCaducidad").readonly = True
|
e.Row.FCTextBox("TxtCaducidad").readonly = True
|
||||||
CType(e.row.FindControl("RFVCaducidad"), RequiredFieldValidator).Enabled = False
|
CType(e.row.FindControl("RFVCaducidad"), RequiredFieldValidator).Enabled = False
|
||||||
' e.Row.FCTextBox("TxtCaducidad").enabled = True
|
|
||||||
|
'si aplica caducidad y viene vacía (posible por venta anterior), que se active su registro
|
||||||
|
If e.Row.FCTextBox("TxtCaducidad").Text = "" OrElse e.Row.FCTextBox("TxtCaducidad").Text.ToDate <= MinFecha Then
|
||||||
|
e.Row.FCTextBox("TxtCaducidad").ReadOnly = False
|
||||||
|
CType(e.Row.FindControl("RFVCaducidad"), RequiredFieldValidator).Enabled = True
|
||||||
|
e.Row.FCTextBox("TxtCaducidad").Enabled = True
|
||||||
|
End If
|
||||||
Else
|
Else
|
||||||
e.Row.FCTextBox("TxtCaducidad").Visible = False
|
e.Row.FCTextBox("TxtCaducidad").Visible = False
|
||||||
e.Row.FCLinkButton("LnkCaducidad").Visible = False
|
e.Row.FCLinkButton("LnkCaducidad").Visible = False
|
||||||
|
e.Row.FCTextBox("TxtCaducidad").Enabled = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If CBool(e.Row.DBCampo("AplicaLote")) Then
|
If CBool(e.Row.DBCampo("AplicaLote")) Then
|
||||||
e.Row.FCTextBox("TxtLote").Visible = True
|
e.Row.FCTextBox("TxtLote").Visible = True
|
||||||
e.Row.FCTextBox("TxtLote").readonly = True
|
'si aplica caducidad y viene vacía (posible por venta anterior), que se active su registro
|
||||||
'e.Row.FCTextBox("TxtLote").enabled = True
|
If e.Row.FCTextBox("TxtLote").Text = "" Then
|
||||||
|
e.Row.FCTextBox("TxtLote").ReadOnly = False
|
||||||
|
e.Row.FCTextBox("TxtLote").Enabled = True
|
||||||
|
Else
|
||||||
|
e.Row.FCTextBox("TxtLote").ReadOnly = True
|
||||||
|
End If
|
||||||
|
|
||||||
Else
|
Else
|
||||||
e.Row.FCTextBox("TxtLote").Visible = False
|
e.Row.FCTextBox("TxtLote").Visible = False
|
||||||
End If
|
End If
|
||||||
@@ -2588,97 +2602,98 @@ Partial Class Inventarios_EntregaAlmacen
|
|||||||
Dim CveAlmacenOrigen = If(CveAlmacenTraspasoDestino > 0, CveAlmacenTraspasoDestino, DdlAlmacen.SelectedValue.ToEntero())
|
Dim CveAlmacenOrigen = If(CveAlmacenTraspasoDestino > 0, CveAlmacenTraspasoDestino, DdlAlmacen.SelectedValue.ToEntero())
|
||||||
Dim CveSeccionAlmacen As Integer = 0
|
Dim CveSeccionAlmacen As Integer = 0
|
||||||
Dim ValorTraspaso As Decimal = 0
|
Dim ValorTraspaso As Decimal = 0
|
||||||
For Each Dr As DataRow In DtTempApartados.Rows
|
If DtTempApartados IsNot Nothing AndAlso DtTempApartados.Rows.Count > 0 Then
|
||||||
|
For Each Dr As DataRow In DtTempApartados.Rows
|
||||||
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,
|
|
||||||
Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente,
|
|
||||||
CveAlmacenDestino:=Dr("CveAlmacen").ToString().ToEntero(), Modulo:="RE/G9")
|
|
||||||
FolioSalida = ObjInventario.Folio
|
|
||||||
CveAlmacenApartado = Dr("CveAlmacen").ToString().ToEntero()
|
|
||||||
|
|
||||||
Dim DrMovto = DtTraspasos.NewRow
|
|
||||||
DrMovto("Almacen") = Dr("Almacen").ToString().ToEntero()
|
|
||||||
DrMovto("CveAlmacen") = Dr("CveAlmacen").ToString().ToEntero()
|
|
||||||
DrMovto("CveMovimientoSalida") = CveMovimientoSalidaApartado
|
|
||||||
DrMovto("FolioSalida") = FolioSalida
|
|
||||||
DtTraspasos.Rows.Add(DrMovto)
|
|
||||||
End If
|
|
||||||
|
|
||||||
If Not CveMovimientoSalidaApartado > 0 Then
|
|
||||||
ErrorMovInv = True
|
|
||||||
TextoError.AppendFormat("Ocurrió un error al guardar los movimientos de control de apartados")
|
|
||||||
Exit For
|
|
||||||
End If
|
|
||||||
'If CBool(Dr("AplicaSeccion")) Then
|
|
||||||
' CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenOrigen, Dr("CvePS").ToString().ToEntero()).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero()
|
|
||||||
' Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", CveAlmacenOrigen, Dr("CvePS"), CveSeccionAlmacen)
|
|
||||||
'Else
|
|
||||||
' CveSeccionAlmacen = -1
|
|
||||||
'End If
|
|
||||||
CveSeccionAlmacen = -3
|
|
||||||
|
|
||||||
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaApartado, Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), Serie:=Dr("Serie").ToString(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), Lote:=Dr("Lote").ToString(), CveSeccionAlmacen:=CveSeccionAlmacen) Then
|
|
||||||
ErrorMovInv = True
|
|
||||||
TextoError.AppendFormat("Ocurrió un error al guardar los movimientos de control de apartados")
|
|
||||||
Exit For
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
|
|
||||||
If Not ErrorMovInv Then
|
|
||||||
|
|
||||||
Dim CvePrePolizaTraspaso As Integer = ObjConta.AddPrePolizas("EA/Apart", 53, 0, 0, 1, TxtFecha.Text.ToDate, "Traspaso Apartado", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
If CveMovimientoSalidaApartado = -1 Or CveAlmacenApartado <> Dr("CveAlmacen").ToString().ToEntero() Then
|
||||||
If CvePrePolizaTraspaso > 0 Then
|
CveMovimientoSalidaApartado = ObjInventario.AddMovimiento(CveAlmacenOrigen, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
|
||||||
|
Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente,
|
||||||
|
CveAlmacenDestino:=Dr("CveAlmacen").ToString().ToEntero(), Modulo:="RE/G9")
|
||||||
|
FolioSalida = ObjInventario.Folio
|
||||||
|
CveAlmacenApartado = Dr("CveAlmacen").ToString().ToEntero()
|
||||||
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, True, ValorTraspaso, TxtObservaciones.Text, 68, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoSalidaApartado, Contabilizable:=False, ImporteMX:=ValorTraspaso) Then
|
Dim DrMovto = DtTraspasos.NewRow
|
||||||
ErrorMovInv = True
|
DrMovto("Almacen") = Dr("Almacen").ToString().ToEntero()
|
||||||
|
DrMovto("CveAlmacen") = Dr("CveAlmacen").ToString().ToEntero()
|
||||||
|
DrMovto("CveMovimientoSalida") = CveMovimientoSalidaApartado
|
||||||
|
DrMovto("FolioSalida") = FolioSalida
|
||||||
|
DtTraspasos.Rows.Add(DrMovto)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
For Each Dr1 As DataRow In DtTraspasos.Rows
|
If Not CveMovimientoSalidaApartado > 0 Then
|
||||||
CveMovimientoSalida = Dr1("CveMovimientoSalida").ToString().ToEntero()
|
ErrorMovInv = True
|
||||||
|
TextoError.AppendFormat("Ocurrió un error al guardar los movimientos de control de apartados")
|
||||||
|
Exit For
|
||||||
|
End If
|
||||||
|
'If CBool(Dr("AplicaSeccion")) Then
|
||||||
|
' CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenOrigen, Dr("CvePS").ToString().ToEntero()).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero()
|
||||||
|
' Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", CveAlmacenOrigen, Dr("CvePS"), CveSeccionAlmacen)
|
||||||
|
'Else
|
||||||
|
' CveSeccionAlmacen = -1
|
||||||
|
'End If
|
||||||
|
CveSeccionAlmacen = -3
|
||||||
|
|
||||||
CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString().ToEntero(), 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
|
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaApartado, Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), Serie:=Dr("Serie").ToString(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), Lote:=Dr("Lote").ToString(), CveSeccionAlmacen:=CveSeccionAlmacen) Then
|
||||||
-1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(),
|
ErrorMovInv = True
|
||||||
CveMovimientoRelacionado:=CveMovimientoSalida, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor,
|
TextoError.AppendFormat("Ocurrió un error al guardar los movimientos de control de apartados")
|
||||||
CveCliente:=CveCliente, Modulo:="RE/G10")
|
Exit For
|
||||||
FolioEntrada = ObjInventario.Folio
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
If Not CveMovimientoEntradaApartado > 0 Then
|
If Not ErrorMovInv Then
|
||||||
ErrorMovInv = True
|
|
||||||
TextoError.AppendFormat("Ocurrió un error al procesar los movimientos de traspaso de apartado. Por favor vuelva a intentar.")
|
|
||||||
Exit For
|
|
||||||
End If
|
|
||||||
|
|
||||||
Dr1("CveMovimientoEntrada") = CveMovimientoEntradaApartado
|
Dim CvePrePolizaTraspaso As Integer = ObjConta.AddPrePolizas("EA/Apart", 53, 0, 0, 1, TxtFecha.Text.ToDate, "Traspaso Apartado", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||||
Dr1("FolioEntrada") = FolioEntrada
|
If CvePrePolizaTraspaso > 0 Then
|
||||||
|
|
||||||
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, True, ValorTraspaso, TxtObservaciones.Text, 68, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoSalidaApartado, Contabilizable:=False, ImporteMX:=ValorTraspaso) Then
|
||||||
ValorTraspaso = ObjInventario.DtResultados.SUMD("Total").RoundSQL
|
|
||||||
For Each Dr As DataRow In ObjInventario.DtResultados.Rows
|
|
||||||
|
|
||||||
CveSeccionAlmacen = -3
|
|
||||||
|
|
||||||
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), Serie:=Dr("Serie").ToString(), CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), Lote:=Dr("Lote").ToString(), CveSeccionAlmacen:=CveSeccionAlmacen) Then
|
|
||||||
ErrorMovInv = True
|
|
||||||
TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
|
|
||||||
Exit For
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
End If
|
|
||||||
|
|
||||||
If ErrorMovInv Then Exit For
|
|
||||||
|
|
||||||
If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, False, ValorTraspaso, TxtObservaciones.Text, 68, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoEntradaApartado, Contabilizable:=False, ImporteMX:=ValorTraspaso) Then
|
|
||||||
ErrorMovInv = True
|
ErrorMovInv = True
|
||||||
End If
|
End If
|
||||||
Next
|
|
||||||
|
For Each Dr1 As DataRow In DtTraspasos.Rows
|
||||||
|
CveMovimientoSalida = Dr1("CveMovimientoSalida").ToString().ToEntero()
|
||||||
|
|
||||||
|
CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString().ToEntero(), 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
|
||||||
|
-1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(),
|
||||||
|
CveMovimientoRelacionado:=CveMovimientoSalida, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor,
|
||||||
|
CveCliente:=CveCliente, Modulo:="RE/G10")
|
||||||
|
FolioEntrada = ObjInventario.Folio
|
||||||
|
|
||||||
|
If Not CveMovimientoEntradaApartado > 0 Then
|
||||||
|
ErrorMovInv = True
|
||||||
|
TextoError.AppendFormat("Ocurrió un error al procesar los movimientos de traspaso de apartado. Por favor vuelva a intentar.")
|
||||||
|
Exit For
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dr1("CveMovimientoEntrada") = CveMovimientoEntradaApartado
|
||||||
|
Dr1("FolioEntrada") = FolioEntrada
|
||||||
|
|
||||||
|
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
|
||||||
|
ValorTraspaso = ObjInventario.DtResultados.SUMD("Total").RoundSQL
|
||||||
|
For Each Dr As DataRow In ObjInventario.DtResultados.Rows
|
||||||
|
|
||||||
|
CveSeccionAlmacen = -3
|
||||||
|
|
||||||
|
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), Serie:=Dr("Serie").ToString(), CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), Lote:=Dr("Lote").ToString(), CveSeccionAlmacen:=CveSeccionAlmacen) Then
|
||||||
|
ErrorMovInv = True
|
||||||
|
TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
|
||||||
|
Exit For
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
|
||||||
|
If ErrorMovInv Then Exit For
|
||||||
|
|
||||||
|
If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, False, ValorTraspaso, TxtObservaciones.Text, 68, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoEntradaApartado, Contabilizable:=False, ImporteMX:=ValorTraspaso) Then
|
||||||
|
ErrorMovInv = True
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
|
||||||
Else
|
Else
|
||||||
ErrorMovInv = True
|
ErrorMovInv = True
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|||||||
Reference in New Issue
Block a user