diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx
index 9b7356db4..80ab83c67 100644
--- a/Ashx/SIGWeb.ashx
+++ b/Ashx/SIGWeb.ashx
@@ -693,7 +693,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Dim CveSucursal = IfNull(context.Request("cvesucursal"), "-1").ToString.ToEntero
Dim CveSubProyecto = IfNull(context.Request("cvesubproyecto"), "-1").ToString.ToEntero
Dim UsoClasificacion = IfNull(context.Request("usoclasificacion"), "-1").ToString.ToEntero
- Dim AplicaParaVenta = IfNull(context.Request("aplicaparaventa"), "-1").ToString.ToEntero
+ Dim AplicaParaVenta = IfNull(context.Request("aplicaparaventa"), "1").ToString.ToEntero
Dim CveMarca = IfNull(context.Request("cvemarca"), "-1").ToString.ToEntero
Dim UsaGlobal As Boolean = True
@@ -701,11 +701,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
'verifica existencias
If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141, 152, 153, 159, 160, 161, 162, 163) Then
UsaGlobal = False
-
- If CveEmpresa.Contiene(140, 141) And Pagina.Contiene("ventas/ventas") Then
- AplicaParaVenta = 1
- End If
-
+
Dim objInv As New ClsInventarios
If objInv.GetExistenciasProductosLike(Name, CveClasificacion, CveSubProyecto, Estatus.ToEntero, AplicaParaVenta, CveEmpresa, CveMarca) Then
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index e499d1db6..bed72e577 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -6661,7 +6661,7 @@ Partial Class Bancos_IE
GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'")
DdlTipoTransaccionCancelacion.Items.Clear()
- DdlTipoTransaccionCancelacion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo ='{TipoMovto}'")
+ DdlTipoTransaccionCancelacion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo ='{TipoMovto}' AND Estatus = 1")
DdlTipoTransaccionCancelacion.DataBind()
DdlTipoTransaccionCancelacion.Items.Insert(0, New ListItem("Seleccione una", "-1"))
diff --git a/CRM/EmpresaCRM.aspx b/CRM/EmpresaCRM.aspx
index 1f64d8e96..3e8c7d744 100644
--- a/CRM/EmpresaCRM.aspx
+++ b/CRM/EmpresaCRM.aspx
@@ -72,8 +72,8 @@
diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb
index c863ad3d2..720b93107 100644
--- a/Contabilidad2/CatCuentas.aspx.vb
+++ b/Contabilidad2/CatCuentas.aspx.vb
@@ -316,7 +316,7 @@ Partial Class Contabilidad2_CatCuentas
Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}")
- If UsuarioActual.Empresa.TipoContabilidad <> 1 Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Using ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
@@ -372,6 +372,10 @@ Partial Class Contabilidad2_CatCuentas
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim ObjConta As New ClsContabilidad
+<<<<<<< HEAD
+ Dim ObjConta2 As ClsContPAQi
+=======
+>>>>>>> ee1135d888f76469fa6e3e68f0b6393f8450045a
Dim CuentaEfectivo As Integer = 0
Dim Afectable As Integer = 1 'If(DcuentaMayor.SelectedValue <> 2, 0, 1) ' cuando sea tipo 2, va a ser afectable
@@ -386,7 +390,7 @@ Partial Class Contabilidad2_CatCuentas
End If
If idnew > 0 Then
- If UsuarioActual.Empresa.TipoContabilidad <> 1 Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Dim ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
Dim codigoPadre As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") 'Tsubcuenta.Text
If ObjConta2.GetCuentas(-1, "-1", -1) Then
@@ -397,58 +401,71 @@ Partial Class Contabilidad2_CatCuentas
IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero
End If
- If IdPadre > 0 Then
- Dim idnew2 As Integer = ObjConta2.AddCuenta(TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, CuentaEfectivo, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, TxtNomIngles.Text.Trim, Afectable, IdPadre, IdAgrupador)
- If idnew2 > 0 Then
- If ObjConta.UpdateCuentaCompaq(idnew, idnew2, UsuarioActual.CveEmpresa) Then
+ Dim codigoPadre As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") 'Tsubcuenta.Text
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ ObjConta2 = New ClsContPAQi(UsuarioActual.Empresa)
+
+ If ObjConta2.GetCuentas(-1, "-1", -1) Then
+ Dim IdPadre As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigoPadre}'").ToEntero
+ Dim IdAgrupador As Integer
+
+ If ObjConta2.GetAgrupadoresSAT() Then
+ IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero
+ End If
+
+ If IdPadre > 0 Then
+ Dim idnew2 As Integer = ObjConta2.AddCuenta(TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, CuentaEfectivo, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, TxtNomIngles.Text.Trim, Afectable, IdPadre, IdAgrupador)
+
+ If idnew2 > 0 Then
+ If ObjConta.UpdateCuentaCompaq(idnew, idnew2, UsuarioActual.CveEmpresa) Then
+ End If
+ End If
+
End If
End If
-
+ ObjConta2.Dispose()
End If
+
+ Dim dr As DataRow = DtDatos.NewRow
+ dr("CveCuenta") = idnew
+ dr("CuentaFormato") = TxtCuenta.Text
+ 'dr("CuentaFormato") = Tcuenta.Text
+ dr("Nombre") = Tnombre.Text
+ dr("CtaCodigo") = String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text)
+ 'dr("CtaCodigo") = String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text)
+ dr("Tipo") = DTcuenta.SelectedValue.ToString
+ dr("CtaMayor") = DcuentaMayor.SelectedValue.ToString
+ dr("CvePadre") = IDSelected
+ dr("Codigo") = Tnombre.Text
+ dr("CveMoneda") = DdlMoneda.SelectedValue.ToEntero
+ dr("DigAgrup") = TxtDigAgrup.Text.Trim.ToEntero
+ dr("NomIdioma") = TxtNomIngles.Text.Trim
+ DtDatos.Rows.Add(dr)
+ ArbolCuentas.DataSource = DtDatos
+ '.Attributes.Add("data-hijos","0");
+ Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem)
+ item.Attributes.Item("data-hijos") = item.Attributes.Item("data-hijos").ToEntero + 1
+ Dim objul As ADServerControl.DragableUL = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", IDSelected)), ADServerControl.DragableUL)
+ If (IsNothing(objul)) Then
+ objul = New ADServerControl.DragableUL
+ objul.ID = String.Format("ul{0}", item.Cve)
+ item.Controls.Add(objul)
+ End If
+ ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text))
+
+ LimpiarCampos()
+ updatos.Update()
+ CargaDatos()
+
+ Alert("La cuenta se guardo correctamente")
End If
- ObjConta2.Dispose()
- End If
+
+ ObjConta.Dispose()
+
+ If ObjConta2 IsNot Nothing Then ObjConta2.Dispose()
- 'Dim dr As DataRow = DtDatos.NewRow
- 'dr("CveCuenta") = idnew
- 'dr("CuentaFormato") = TxtCuenta.Text
- ''dr("CuentaFormato") = Tcuenta.Text
- 'dr("Nombre") = Tnombre.Text
- 'dr("CtaCodigo") = String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text)
- ''dr("CtaCodigo") = String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text)
- 'dr("Tipo") = DTcuenta.SelectedValue.ToString
- 'dr("CtaMayor") = DcuentaMayor.SelectedValue.ToString
- 'dr("CvePadre") = IDSelected
- 'dr("Codigo") = Tnombre.Text
- 'dr("CveMoneda") = DdlMoneda.SelectedValue.ToEntero
- 'dr("DigAgrup") = TxtDigAgrup.Text.Trim.ToEntero
- 'dr("NomIdioma") = TxtNomIngles.Text.Trim
- 'DtDatos.Rows.Add(dr)
- 'ArbolCuentas.DataSource = DtDatos
- ''.Attributes.Add("data-hijos","0");
- 'Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem)
- 'item.Attributes.Item("data-hijos") = item.Attributes.Item("data-hijos").ToEntero + 1
- 'Dim objul As ADServerControl.DragableUL = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", IDSelected)), ADServerControl.DragableUL)
- 'If (IsNothing(objul)) Then
- ' objul = New ADServerControl.DragableUL
- ' objul.ID = String.Format("ul{0}", item.Cve)
- ' item.Controls.Add(objul)
- 'End If
- 'ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text))
- ''ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text))
-
- ''updatos.Visible = False
- ''nuevacuenta.Visible = False
- LimpiarCampos()
- updatos.Update()
- CargaDatos()
-
- Alert("La cuenta se guardo correctamente")
- End If
-
- ObjConta.Dispose()
End Sub
Private Sub LimpiarCampos()
TxtCuenta.Text = ""
@@ -496,7 +513,7 @@ Partial Class Contabilidad2_CatCuentas
Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}")
- If UsuarioActual.Empresa.TipoContabilidad <> 1 Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Dim ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
If ObjConta2.GetCuentas(-1, "-1", -1) Then
Dim Id As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigo}'").ToEntero
diff --git a/Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc b/Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc
index d2db328a8..e6d4abd83 100644
--- a/Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc
+++ b/Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc
@@ -1,1016 +1,5 @@
-
-
-
-
-
-
-
- 3.57404cm
-
-
- 2.36927cm
-
-
- 2.15604cm
-
-
- 13.71833cm
-
-
- 2.02375cm
-
-
- 1.8105cm
-
-
-
-
- 0.4148cm
-
-
-
-
- true
- true
-
-
-
-
- Disponible
-
-
-
-
-
-
- Textbox3
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Unidad
-
-
-
-
-
-
- Textbox5
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Código
-
-
-
-
-
-
- Textbox16
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Producto
-
-
-
-
-
-
- Textbox12
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- SerieLote
-
-
-
-
-
-
- Textbox4
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Valor
-
-
-
-
-
-
- Textbox6
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.49417cm
-
-
-
-
- true
- true
-
-
-
-
- =IIf(Fields!PS.Value = "", IIf(Fields!FolioSalida.Value > 0,"Folio: " & Fields!FolioSalida.Value,"Total General"), Fields!Cantidad.Value)
-
-
-
-
-
-
- Cantidad
-
-
- =IIf(Fields!PS.Value = "", "#9cacc1", "NoColor")
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =IIf(Fields!PS.Value = "", Fields!FechaMovto.Value, Fields!UnidadMedida.Value)
-
-
-
-
-
-
- UnidadMedida
-
-
- =IIf(Fields!PS.Value = "", "#9cacc1", "NoColor")
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Codigo.Value
-
-
-
-
-
-
- Codigo
-
-
- =IIf(Fields!PS.Value = "", "#9cacc1", "NoColor")
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
-
-
-
-
- =IIf(Fields!PS.Value = "", IIf(Fields!FolioSalida.Value > 0,"Almacén Origen: " & Fields!Almacen.Value & " Almacén Destino: " & Fields!AlmacenDestino.Value & " Responsable: " & Fields!Recibio.Value,""), Fields!PS.Value)
-
-
-
-
-
-
- PS
-
-
- =IIf(Fields!PS.Value = "", "#9cacc1", "NoColor")
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!SerieLote.Value
-
-
-
-
-
-
- SerieLote
-
-
- =IIf(Fields!PS.Value = "", "#9cacc1", "NoColor")
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Valor.Value
-
-
-
-
-
-
- Valor
-
-
- =IIf(Fields!PS.Value = "", "#9cacc1", "NoColor")
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- After
-
-
-
-
-
-
- true
- true
- true
- true
- DataSet1
- 0.17639cm
- 0.24474cm
- 0.90897cm
- 25.65193cm
-
-
-
-
-
- 0.67394in
-
-
- 10.22558in
-
-
- 3.48078cm
- true
- true
-
-
- true
- true
-
-
-
-
- =Parameters!NombreEmpresa.Value
-
-
-
-
-
-
- Textbox1
- 0.47625cm
- 6.54965cm
- 0.6cm
- 12.60299cm
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- REPORTE DE TRASPASO DE ALMACÉN
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Textbox2
- 1.07625cm
- 6.54965cm
- 0.52945cm
- 12.60299cm
- 1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- External
- =Parameters!LogoPath.Value
- FitProportional
- 0.11458in
- 0.28839cm
- 2.09585cm
- 5.89966cm
- 2
-
-
-
-
-
- true
- true
-
-
-
-
- =Parameters!Filtros.Value
- HTML
-
-
-
-
-
-
- Filtros
- 2.56328cm
- 0.24474cm
- 0.6cm
- 25.65193cm
- 3
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- 3.30439cm
- 0.24474cm
- 0cm
- 25.72823cm
- 4
-
-
-
-
-
-
-
-
-
-
- 1.84855cm
- true
- true
-
-
- true
- true
-
-
-
-
- ="Página " & Globals.PageNumber & " de " & Globals.TotalPages
-
-
-
-
-
-
- Textbox3
- 0.27341cm
- 22.76211cm
- 0.38981cm
- 3.13456cm
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Usuario:
-
-
-
-
-
-
- Textbox8
- 0.27341cm
- 0.28839cm
- 0.38981cm
- 1.60042cm
- 1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!UsuarioImprimio.Value
-
-
-
-
-
-
- Textbox9
- 0.27341cm
- 1.83272cm
- 0.38981cm
- 7.13374cm
- 2
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Fecha Impresión:
-
-
-
-
-
-
- Textbox10
- 0.27341cm
- 9.85193cm
- 0.38981cm
- 2.92333cm
- 3
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- 0.15875cm
- 0.24474cm
- 0cm
- 25.72823cm
- 4
-
-
-
-
-
- true
- true
-
-
-
-
- =Globals!ExecutionTime
-
-
-
-
-
-
- Textbox11
- 0.27341cm
- 12.77526cm
- 0.38981cm
- 4.99273cm
- 5
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- IMPRESO EN SIG, Rep. Traspaso Almacén
-
-
-
-
-
-
- Textbox13
- 0.63378cm
- 0.28839cm
- 0.46771cm
- 6.69369cm
- 6
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 21.59cm
- 27.94cm
- 0.5cm
- 0.5cm
- 0cm
- 0cm
- 0.13cm
-
-
+
0
@@ -1083,6 +72,1019 @@
+
+
+
+
+
+
+
+
+ 3.57404cm
+
+
+ 2.36927cm
+
+
+ 2.15604cm
+
+
+ 13.71833cm
+
+
+ 2.02375cm
+
+
+ 1.8105cm
+
+
+
+
+ 0.4148cm
+
+
+
+
+ true
+ true
+
+
+
+
+ Disponible
+
+
+
+
+
+
+ Textbox3
+
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Unidad
+
+
+
+
+
+
+ Textbox5
+
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Código
+
+
+
+
+
+
+ Textbox16
+
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Producto
+
+
+
+
+
+
+ Textbox12
+
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ SerieLote
+
+
+
+
+
+
+ Textbox4
+
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Valor
+
+
+
+
+
+
+ Textbox6
+
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.49417cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =IIf(Fields!PS.Value = "", IIf(Fields!FolioSalida.Value > 0,"Folio: " & Fields!FolioSalida.Value,"Total General"), Fields!Cantidad.Value)
+
+
+
+
+
+
+ Cantidad
+
+
+ =IIf(Fields!PS.Value = "", "#9cacc1", "NoColor")
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =IIf(Fields!PS.Value = "", Fields!FechaMovto.Value, Fields!UnidadMedida.Value)
+
+
+
+
+
+
+ UnidadMedida
+
+
+ =IIf(Fields!PS.Value = "", "#9cacc1", "NoColor")
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Codigo.Value
+
+
+
+
+
+
+ Codigo
+
+
+ =IIf(Fields!PS.Value = "", "#9cacc1", "NoColor")
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+
+
+
+
+ =IIf(Fields!PS.Value = "", IIf(Fields!FolioSalida.Value > 0,"Almacén Origen: " & Fields!Almacen.Value & " Almacén Destino: " & Fields!AlmacenDestino.Value & " Responsable: " & Fields!Recibio.Value,""), Fields!PS.Value)
+
+
+
+
+
+
+ PS
+
+
+ =IIf(Fields!PS.Value = "", "#9cacc1", "NoColor")
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!SerieLote.Value
+
+
+
+
+
+
+ SerieLote
+
+
+ =IIf(Fields!PS.Value = "", "#9cacc1", "NoColor")
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Valor.Value
+
+
+
+
+
+
+ Valor
+
+
+ =IIf(Fields!PS.Value = "", "#9cacc1", "NoColor")
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ After
+
+
+
+
+
+
+ true
+ true
+ true
+ true
+ DataSet1
+ 0.17639cm
+ 0.24474cm
+ 0.90897cm
+ 25.65193cm
+
+
+
+
+
+ 0.67394in
+
+
+ 10.22558in
+
+
+ 3.48078cm
+ true
+ true
+
+
+ true
+ true
+
+
+
+
+ =Parameters!NombreEmpresa.Value
+
+
+
+
+
+
+ Textbox1
+ 0.47625cm
+ 0.6cm
+ 25.89667cm
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ REPORTE DE TRASPASO DE ALMACÉN
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Textbox2
+ 1.07625cm
+ 0.52945cm
+ 25.89667cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ External
+ =Parameters!LogoPath.Value
+ FitProportional
+ 0.11458in
+ 0.24474cm
+ 2.09585cm
+ 25.65193cm
+ 2
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!Filtros.Value
+ HTML
+
+
+
+
+
+
+ Filtros
+ 2.56328cm
+ 0.24474cm
+ 0.6cm
+ 25.65193cm
+ 3
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ 3.30439cm
+ 0.24474cm
+ 0cm
+ 25.72823cm
+ 4
+
+
+
+
+
+
+
+
+
+
+ 1.84855cm
+ true
+ true
+
+
+ true
+ true
+
+
+
+
+ ="Página " & Globals.PageNumber & " de " & Globals.TotalPages
+
+
+
+
+
+
+ Textbox3
+ 0.27341cm
+ 22.76211cm
+ 0.38981cm
+ 3.13456cm
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Usuario:
+
+
+
+
+
+
+ Textbox8
+ 0.27341cm
+ 0.28839cm
+ 0.38981cm
+ 1.60042cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!UsuarioImprimio.Value
+
+
+
+
+
+
+ Textbox9
+ 0.27341cm
+ 1.83272cm
+ 0.38981cm
+ 7.13374cm
+ 2
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Fecha Impresión:
+
+
+
+
+
+
+ Textbox10
+ 0.27341cm
+ 9.85193cm
+ 0.38981cm
+ 2.92333cm
+ 3
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ 0.15875cm
+ 0.24474cm
+ 0cm
+ 25.72823cm
+ 4
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Globals!ExecutionTime
+
+
+
+
+
+
+ Textbox11
+ 0.27341cm
+ 12.77526cm
+ 0.38981cm
+ 4.99273cm
+ 5
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ IMPRESO EN SIG, Rep. Traspaso Almacén
+
+
+
+
+
+
+ Textbox13
+ 0.63378cm
+ 0.28839cm
+ 0.46771cm
+ 6.69369cm
+ 6
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 21.59cm
+ 27.94cm
+ 0.5cm
+ 0.5cm
+ 0cm
+ 0cm
+ 0.13cm
+
+
+
+
String
diff --git a/Inventarios/AjustesSeccionAlmacen.aspx.vb b/Inventarios/AjustesSeccionAlmacen.aspx.vb
index 3293c0fa6..1f26f44b1 100644
--- a/Inventarios/AjustesSeccionAlmacen.aspx.vb
+++ b/Inventarios/AjustesSeccionAlmacen.aspx.vb
@@ -125,11 +125,22 @@ Partial Class Inventarios_AjustesSeccionAlmacen
If gvr.FCCheckBox("ChkEditCaducidad").Checked And FechaCaducidadNueva.Length > 0 And FechaCaducidadNueva <> FechaCaducidadOriginal Then
If Not ListaCaducidad.ContainsKey(gvr.DataKey("CvePS").ToEntero) Then ListaCaducidad.Add(gvr.DataKey("CvePS").ToEntero, FechaCaducidadNueva) 'guardo que dato le corresponde
Modificar = True
+ If FechaCaducidadOriginal = "" Then
+ ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, False, False)
+ Else
+ ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, True, True)
+ End If
End If
If gvr.FCCheckBox("ChkLote").Checked And LoteNuevo.Length > 0 And LoteNuevo <> LoteOriginal Then
If Not ListaLote.ContainsKey(gvr.DataKey("CvePS").ToEntero) Then ListaLote.Add(gvr.DataKey("CvePS").ToEntero, LoteNuevo) 'guardo que dato le corresponde
Modificar = True
+ If LoteOriginal = "" Then
+ ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, False, False)
+ Else
+ ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, True, True)
+ End If
+
End If
If Modificar Then
@@ -187,6 +198,12 @@ Partial Class Inventarios_AjustesSeccionAlmacen
End If
+ If Lote = "" Then
+ ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, False, False)
+ Else
+ ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True, True)
+ End If
+
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
ErrorMovInv = True
Exit For
@@ -420,7 +437,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
Dim Lote As String = RowExcel("Lote").ToString()
Dim FechaCaducidad As Date = IfNull(RowExcel("FechaCaducidad"), MinFecha).ToString.ToDate
- Dim RowExistencia As DataRow = DtExistenciasSecciones.FiltroPrimero($"CvePS={CvePS} and ISNULL(Serie,'') = '{Serie}'")
+ Dim RowExistencia As DataRow = DtExistenciasSecciones.FiltroPrimero($"CvePS={CvePS} and ISNULL(Serie,'') = '{Serie}'", Orderby:="Serie,Lote,FechaCaducidad")
If RowExistencia IsNot Nothing Then
Dim CveSeccionAlmacenSalida As Integer = RowExistencia("CveSeccionAlmacen").ToString().ToEntero()
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 6d6b9aa89..13fe60ac7 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -583,8 +583,15 @@ Partial Class Inventarios_EntregaAlmacen
HLFolio.Text = DtDatos.Rows(0)("SerieFolio").ToString()
If UsuarioActual.TienePermisoProceso(201) Then
HLFolio.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={CveVenta}"
- End If
-
+ End If
+
+ 'filtra los Almacenes de domicilio
+ If DtDatos.Rows(0)("ServicioDomicilio").ToString() = "True" Then
+ StrAlmacenes = String.Format("{0} AND Almacen like '%Domicilio%' ", StrAlmacenes)
+ Else
+ StrAlmacenes = String.Format("{0} AND NOT (Almacen like '%Domicilio%') ", StrAlmacenes)
+ End If
+
LbObservaciones.Text = DtDatos.Rows(0)("Observaciones").ToString()
LbObservacionesAlmacen.Text = DtDatos.Rows(0)("ObservacionesAlmacen").ToString()
CveVentaSurtir = CveVenta
@@ -3064,8 +3071,7 @@ Partial Class Inventarios_EntregaAlmacen
Dim CveMovimientoEntrada As Integer
Dim FolioEntrada As Integer
Dim ErrorMovInv As Boolean
- Dim DtDetalle As New DataTable
- Dim DtDetalleLote As New DataTable
+ Dim DtDetalle As New DataTable
Dim TextoError = ""
'PASA DATOS DEL GV A DATATABLE PARA MANEJOR CON FOR EACH
@@ -3175,7 +3181,7 @@ Partial Class Inventarios_EntregaAlmacen
CveSeccionAlmacen = If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)
DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0} AND FueTraspaso IS NULL", Dr("Consec")))
- DtDetalleLote = DtDatosDetalleLote.FiltraParametros(String.Format("ConsecId = {0} AND FueTraspaso IS NULL", Dr("Consec")))
+ 'DtDetalleLote = DtDatosDetalleLote.FiltraParametros(String.Format("ConsecId = {0} AND FueTraspaso IS NULL", Dr("Consec")))
If DtDetalle.Rows.Count > 0 Then 'SI FUE POR SERIE
For Each Dr1 As DataRow In DtDetalle.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, 1, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, Serie:=Dr1("Serie").ToString(), Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=-1, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then
@@ -3183,17 +3189,17 @@ Partial Class Inventarios_EntregaAlmacen
TextoError = "Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar."
Exit For
End If
- Next
- ElseIf DtDetalleLote.Rows.Count > 0 Then 'SI FUE POR LOTE BATCH
- For Each Dr1 As DataRow In DtDetalleLote.Rows
- If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr1("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, Serie:="", Lote:=Dr1("Lote").ToString(), FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=-1, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then
- ErrorMovInv = True
- TextoError = "Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar."
- Exit For
- End If
- Next
+ Next
+ 'ElseIf DtDetalleLote.Rows.Count > 0 Then 'SI FUE POR LOTE BATCH
+ ' For Each Dr1 As DataRow In DtDetalleLote.Rows
+ ' If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr1("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, Serie:="", Lote:=Dr1("Lote").ToString(), FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=-1, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then
+ ' ErrorMovInv = True
+ ' TextoError = "Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar."
+ ' Exit For
+ ' End If
+ ' Next
Else 'NORMAL
- If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("CantidadGV").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, -1, FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("CantidadGV").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, -1, Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then
ErrorMovInv = True
TextoError = "Ocurrió un error al procesar los conceptos de salida. Por favor vuelva a intentar."
Exit For
@@ -3219,12 +3225,8 @@ Partial Class Inventarios_EntregaAlmacen
If CveMovimientoEntrada > 0 Then
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
Dim CveSeccionAlmacen As Integer = -1
- For Each Dr As DataRow In ObjInventario.DtResultados.Rows
- 'If CBool(Dr("AplicaSeccion")) Then
- ' CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Almacen2, Dr("CvePS").ToString().ToEntero()).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero()
- 'Else
- ' CveSeccionAlmacen = -1
- 'End If
+ For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+
CveSeccionAlmacen = -3
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Dr("Serie").ToString(), Lote:=Dr("Lote").ToString(), FechaCaducidad:=Dr("FechaCaducidad").ToString().ToDate, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then
diff --git a/Inventarios/PrestamosdeProveedor.aspx b/Inventarios/PrestamosdeProveedor.aspx
index c409b281a..0363de115 100644
--- a/Inventarios/PrestamosdeProveedor.aspx
+++ b/Inventarios/PrestamosdeProveedor.aspx
@@ -126,7 +126,7 @@
-
+
<%--
@@ -138,7 +138,7 @@
-
+
diff --git a/Inventarios/PrestamosdeProveedor.aspx.vb b/Inventarios/PrestamosdeProveedor.aspx.vb
index d8c61f1b8..9bc0babf6 100644
--- a/Inventarios/PrestamosdeProveedor.aspx.vb
+++ b/Inventarios/PrestamosdeProveedor.aspx.vb
@@ -69,8 +69,8 @@ Partial Class Inventarios_PrestamosdeProveedor
End If
GvD.Columns(6).Visible = ObjInv.DtResultados.MAX("Serie") <> ""
- GvD.Columns(7).Visible = ObjInv.DtResultados.MAX("Lote") <> ""
- GvD.Columns(8).Visible = ObjInv.DtResultados.MAX("FechaCaducidad").ToDate > MinFecha
+ GvD.Columns(7).Visible = ObjInv.DtResultados.MAX("AplicaLote") = "True" 'MAX("Lote") <> ""
+ GvD.Columns(8).Visible = ObjInv.DtResultados.MAX("AplicaCaducidad") = "True" 'MAX("FechaCaducidad").ToDate > MinFecha
GvD.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
ObjInv.Dispose()
@@ -141,10 +141,11 @@ Partial Class Inventarios_PrestamosdeProveedor
Dim Lote As String = "-1"
Dim FechaCaducidad As Date = MinFecha
If gvr.DataKey("Serie") <> "" Then Serie = gvr.DataKey("Serie")
- If gvr.DataKey("Lote") <> "" Then Lote = gvr.DataKey("Lote")
- If gvr.DataKey("FechaCaducidad").ToDate > MinFecha Then FechaCaducidad = gvr.DataKey("FechaCaducidad")
+ If gvr.DataKey("AplicaLote") = "True" Then Lote = gvr.FCTextBox("TxtLote").Text ' gvr.DataKey("Lote")
+ If gvr.DataKey("AplicaCaducidad") = "True" Then FechaCaducidad = gvr.FCTextBox("TxtFechaCaducidad").Text.todate ' gvr.DataKey("Lote")
+ 'If gvr.DataKey("FechaCaducidad").ToDate > MinFecha Then FechaCaducidad = gvr.DataKey("FechaCaducidad")
- Dim Valido = ValidaExistencia(gvr.FCTextBox("TxtCantidad").Text.ToDecimal, gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad)
+ Dim Valido = ValidaExistencia(gvr.FCTextBox("TxtCantidad").Text.ToDecimal, gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie, Lote, FechaCaducidad, gvr.DataKey("PS"))
If Not Valido Then
Alert("No hay existencia del producto a devolver.", TipoMensaje.MsgAdvertencia)
Exit Sub
@@ -273,7 +274,7 @@ Partial Class Inventarios_PrestamosdeProveedor
End If
End Sub
- Private Function ValidaExistencia(Cantidad As Double, CvePS As Integer, CveUnidadMedida As Integer, CveSeccionAlmacen As Integer, Serie As String, Lote As String, FechaCaducidad As Date) As Boolean
+ Private Function ValidaExistencia(Cantidad As Double, CvePS As Integer, CveUnidadMedida As Integer, CveSeccionAlmacen As Integer, Serie As String, Lote As String, FechaCaducidad As Date, PS As String) As Boolean
Dim Retorno = True
Dim Inv As New ClsInventarios
@@ -283,9 +284,9 @@ Partial Class Inventarios_PrestamosdeProveedor
If Existencia - Cantidad < 0 Then
If Existencia < 0 Then
- Alert("No hay existencia del producto", TipoMensaje.MsgAdvertencia)
+ Alert(String.Format("No hay existencia del producto: ", PS), TipoMensaje.MsgAdvertencia)
Else
- Alert(String.Format("Solo hay en existencia: {0}", Existencia), TipoMensaje.MsgAdvertencia)
+ Alert(String.Format("Solo hay en existencia: {0} en el producto: {1}", Existencia, PS), TipoMensaje.MsgAdvertencia)
End If
Retorno = False
End If
diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx
index 205a68a17..0eb7d8095 100644
--- a/Inventarios/TraspasoAlmacen.aspx
+++ b/Inventarios/TraspasoAlmacen.aspx
@@ -672,8 +672,16 @@
-
-
+
+
+
+
+
+
+
+
+
+
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 11fe12c31..e9af1d651 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -1618,8 +1618,8 @@ Partial Class Inventarios_TraspasoAlmacen
GvDatosRecepcion.DataBind()
GvDatosRecepcion.Columns(6).Visible = Dtt.MAX("Serie") <> ""
- GvDatosRecepcion.Columns(7).Visible = Dtt.MAX("Lote") <> ""
- GvDatosRecepcion.Columns(8).Visible = Dtt.MAX("FechaCaducidad").ToDate > MinFecha
+ GvDatosRecepcion.Columns(7).Visible = Dtt.MAX("AplicaLote").ToEntero > 0 'Dtt.MAX("Lote") <> ""
+ GvDatosRecepcion.Columns(8).Visible = Dtt.MAX("AplicaCaducidad").ToEntero > 0 'Dtt.MAX("FechaCaducidad").ToDate > MinFecha
GvDatosRecepcion.Columns(9).Visible = Dtt.MAX("CveSeccionAlmacen").ToEntero > 0
'Dt.Dispose()
End If
@@ -1681,14 +1681,29 @@ Partial Class Inventarios_TraspasoAlmacen
'dtt.Dispose()
End If
+
+ If e.Row.DBCampo("AplicaLote").ToString.Trim = "1" Then
+ e.Row.FCTextBox("TxtLote").visible = True
+ End If
+
+ If e.Row.DBCampo("AplicaCaducidad").ToString.Trim = "1" Then
+ e.Row.FCTextBox("TxtCaducidad").visible = True
+ End If
+
End If
+
+
+
+
+
+
'FUNCIONALIDAD PISTOLA DE CODIGOS
If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
- e.Row.FCTextBox("TxtCantidad").Enabled = False
- End If
+ e.Row.FCTextBox("TxtCantidad").Enabled = False
+ End If
- End If
+ End If
End Sub
Protected Sub BtnCancelarTraspaso_Click(sender As Object, e As EventArgs)
@@ -1912,7 +1927,7 @@ Partial Class Inventarios_TraspasoAlmacen
Dim TipoAlmacenDestino As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenEntrada}").ToEntero()
Dim TipoAlmacenOrigen As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenSalida}").ToEntero()
-
+ Dim CveSubProyectoRecibe = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {CveAlmacenEntrada}").ToEntero
Dim RealizarMovimientoVirtual As Boolean = False
@@ -1959,7 +1974,16 @@ Partial Class Inventarios_TraspasoAlmacen
Exit For
End If
Dim PrecioEntrada As Decimal = If(TipoAlmacenDestino = 26, 0, gvr.DataKey("PU").ToString.ToDecimal)
- If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, 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
+ ''RMF codigo temporal. por implementación
+ Dim tLote As String = gvr.DataKey("Lote").ToString
+ Dim tFechaCaducidad As Date = gvr.DataKey("FechaCaducidad").ToDate
+
+ If CveSubProyectoRecibe = 10276 Then
+ tLote = gvr.FCTextBox("TxtLote").text
+ tFechaCaducidad = gvr.FCTextBox("TxtCaducidad").text.todate
+ End If
+
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, 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:=tLote, FechaCaducidad:=tFechaCaducidad, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada) Then
ErrorMovInv = True
TextoError = "Ocurrió un error al guardar los movimientos de salida"
Exit For
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index f24232179..f660f8bd2 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -1689,7 +1689,7 @@ Partial Class ProductosyServicios
ObjProductosServicios.Dispose()
If Not TieneError Then
- Alert("El Producto/Servicio Adicionala se eliminó correctamente.", TipoMensaje.MsgInformacion)
+ Alert("El Producto/Servicio Adicional se eliminó correctamente.", TipoMensaje.MsgInformacion)
CargaPSAdicionales()
CargaGvPSAdicionales()
'RecargaGlobalEquivalencias()