diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index e7907959b..23f649d54 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -5723,7 +5723,7 @@ Public Class ClsContabilidad
Return Retorno
End Function
- Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
+ Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1,
Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1) As Boolean
Dim Retorno = False
@@ -5732,6 +5732,7 @@ Public Class ClsContabilidad
With SqlAdapter.SelectCommand.Parameters
.Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
.Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index c4c0b3881..52fd6dc07 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1628,7 +1628,7 @@ Public Class ClsInventarios
End Function
- Public Function GetProductosCaducidad(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, CveSubProyecto As Integer, CveClasificacion As Integer) As Boolean
+ Public Function GetProductosCaducidad(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, CveSubProyecto As Integer, CveClasificacion As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_ProductosCaducidadGet")
@@ -1639,6 +1639,8 @@ Public Class ClsInventarios
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+ .Add("@CvePS", SqlDbType.Int).Value = CvePS
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx
index eb3f2fa7d..cf37bb840 100644
--- a/Ashx/SIGFacturacion.ashx
+++ b/Ashx/SIGFacturacion.ashx
@@ -362,14 +362,14 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
- ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago
+ 'ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago
- If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows.Count > 0 Then
- ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows(0)("MetodoPago").ToString
- Else
- ObjFactura.CveMetodoPago = 1
- ObjFactura.MetodoPago = "Efectivo"
- End If
+ 'If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows.Count > 0 Then
+ ' ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows(0)("MetodoPago").ToString
+ 'Else
+ ' ObjFactura.CveMetodoPago = 1
+ ' ObjFactura.MetodoPago = "Efectivo"
+ 'End If
End If
End If
If ObjCliente.GetSucursales(CveCliente) Then
diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index c711b21bb..6e2809470 100644
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -171,7 +171,7 @@ Partial Class ContabilidadC_RegPrePoliza
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
- If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+ If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 Then
Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS"))
End If
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
index 762edbba8..ebbef86ba 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
@@ -146,7 +146,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
Dim ObjConta As New ClsContabilidad
Dim ErrorString As String = ""
If LbAgregar.Text = "Agregar" Then
- If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
+ If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
ErrorString = "Error al agregar"
diff --git a/Empresas/141/Formatos/CHQ-7452.rdlc b/Empresas/141/Formatos/CHQ-7452.rdlc
new file mode 100644
index 000000000..941582014
--- /dev/null
+++ b/Empresas/141/Formatos/CHQ-7452.rdlc
@@ -0,0 +1,1075 @@
+
+
+ 0
+
+
+
+ System.Data.DataSet
+ /* Local Connection */
+
+ 762d8f6c-e01d-487b-a956-1f482876fae3
+
+
+
+
+
+ DataSet
+ /* Local Query */
+
+
+
+ CODIGO
+ System.String
+
+
+ Cuenta
+ System.String
+
+
+ Cargo
+ System.String
+
+
+ Abono
+ System.String
+
+
+
+ DataSet
+ C:\Users\Jesus Murua\Documents\Visual Studio 2015\WebSites\WebSite1\App_Code\DataSet.xsd
+ DataTable1
+
+
+
+
+
+
+
+
+
+
+
+ true
+
+
+
+
+ =Parameters!Tipo.Value
+
+
+
+
+
+
+ Textbox1
+ 1.9287cm
+ 2.98488cm
+ 0.6cm
+ 8.50604cm
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+
+
+
+
+ =Parameters!Beneficiario.Value
+
+
+
+
+
+
+ Textbox1
+ 3.34953cm
+ 2.98488cm
+ 0.6cm
+ 14.64437cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+
+
+
+
+ =Parameters!Folio.Value
+
+
+
+
+
+
+ Textbox1
+ 1.9287cm
+ 13.14954cm
+ 0.6cm
+ 2.36771cm
+ 2
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+
+
+
+
+ =Parameters!Importe.Value
+
+
+
+
+
+
+ Textbox1
+ 3.38128cm
+ 17.62925cm
+ 0.6cm
+ 3.12778cm
+ 3
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+
+
+
+
+ =Parameters!Fecha.Value
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Textbox1
+ 1.96045cm
+ 15.85886cm
+ 0.6cm
+ 4.89817cm
+ 4
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+
+
+
+
+ =Parameters!Observaciones.Value
+
+
+
+
+
+
+ Textbox1
+ 10.41495cm
+ 2.98488cm
+ 0.73229cm
+ 17.39115cm
+ 5
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+
+
+
+
+ =Parameters!ImporteLetra.Value
+
+
+
+
+
+
+ Textbox1
+ 4.56988cm
+ 2.98488cm
+ 0.6cm
+ 16.08307cm
+ 6
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ 2.22824cm
+ 2.98488cm
+ 0.99076cm
+ 8.50604cm
+ 7
+
+
+
+
+
+ true
+ 5.91016cm
+ 2.98488cm
+ 0.99076cm
+ 8.50604cm
+ 8
+
+
+
+
+
+ true
+ 6.9362cm
+ 2.98488cm
+ 0.99076cm
+ 8.50604cm
+ 9
+
+
+
+
+
+ true
+ 7.96224cm
+ 2.98488cm
+ 0.99076cm
+ 8.50604cm
+ 10
+
+
+
+
+
+ true
+ 8.98828cm
+ 2.98488cm
+ 0.99076cm
+ 8.50604cm
+ 11
+
+
+
+
+
+
+
+
+ 3.21438cm
+
+
+
+
+ 0.44125cm
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox5
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.44125cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!CODIGO.Value
+
+
+
+
+
+
+ CODIGO
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ After
+
+
+
+
+
+
+ DataSet1
+ 12.24622cm
+ 0.61298cm
+ 0.8825cm
+ 3.21438cm
+ 12
+
+
+
+
+
+
+
+
+ 9.3004cm
+
+
+
+
+ 0.44125cm
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox19
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.44125cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Cuenta.Value
+
+
+
+
+
+
+ Cuenta
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ After
+
+
+
+
+
+
+ DataSet1
+ 12.24622cm
+ 4.42661cm
+ 0.8825cm
+ 9.3004cm
+ 13
+
+
+
+
+
+
+
+
+ 2.5cm
+
+
+
+
+ 0.43958cm
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox19
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.43958cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =IIF(Fields!Cargo.Value = 0,"",Fields!Cargo.Value)
+
+
+
+
+
+
+ Cuenta
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ After
+
+
+
+
+
+
+ DataSet1
+ 12.24622cm
+ 14.89295cm
+ 0.87916cm
+ 2.5cm
+ 14
+
+
+
+
+
+
+
+
+ 2.84396cm
+
+
+
+
+ 0.43958cm
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox19
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.43958cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =IIF(Fields!Abono.Value = 0,"",Fields!Abono.Value)
+
+
+
+
+
+
+ Cuenta
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ After
+
+
+
+
+
+
+ DataSet1
+ 12.24622cm
+ 17.6897cm
+ 0.87916cm
+ 2.84396cm
+ 15
+
+
+
+
+
+ 5.30706in
+
+
+ 8.35775in
+
+
+ 2.05521cm
+ true
+ true
+
+
+ true
+ true
+
+
+
+
+ IAP
+
+
+
+
+
+
+ Textbox9
+ 0.53975cm
+ 3.13986cm
+ 0.6cm
+ 0.85958cm
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ JOC
+
+
+
+
+
+
+ Textbox9
+ 0.53975cm
+ 5.21284cm
+ 0.6cm
+ 0.88604cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ FLR
+
+
+
+
+
+
+ Textbox9
+ 0.53975cm
+ 7.41418cm
+ 0.6cm
+ 0.88604cm
+ 2
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!TotalCargo.Value
+
+
+
+
+
+
+ Textbox9
+ 0.508cm
+ 14.00924cm
+ 0.6cm
+ 2.5cm
+ 3
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!TotalAbono.Value
+
+
+
+
+
+
+ Textbox9
+ 0.508cm
+ 18.00832cm
+ 0.6cm
+ 2.36771cm
+ 4
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 27.94cm
+ 21.59cm
+ 0cm
+ 0cm
+ 0cm
+ 0cm
+ 0.13cm
+
+
+
+
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ DateTime
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ Float
+ true
+ ReportParameter1
+
+
+ Float
+ true
+ ReportParameter1
+
+
+
+
+ 2
+ 5
+
+
+ 0
+ 0
+ Folio
+
+
+ 1
+ 0
+ Fecha
+
+
+ 0
+ 1
+ Beneficiario
+
+
+ 1
+ 1
+ ImporteLetra
+
+
+ 0
+ 2
+ Importe
+
+
+ 1
+ 2
+ Observaciones
+
+
+ 0
+ 3
+ Tipo
+
+
+ 1
+ 3
+ TotalCargo
+
+
+ 0
+ 4
+ TotalAbono
+
+
+
+
+ es-MX
+ Cm
+ ccd758f2-6f27-4a1e-af76-588dcd11f8b2
+
\ No newline at end of file
diff --git a/Inventarios/AjustesSeccionAlmacen.aspx b/Inventarios/AjustesSeccionAlmacen.aspx
index f0856d143..054cd4912 100644
--- a/Inventarios/AjustesSeccionAlmacen.aspx
+++ b/Inventarios/AjustesSeccionAlmacen.aspx
@@ -135,7 +135,7 @@
-
+
diff --git a/Inventarios/AjustesSeccionAlmacen.aspx.vb b/Inventarios/AjustesSeccionAlmacen.aspx.vb
index dce146164..36df0bc64 100644
--- a/Inventarios/AjustesSeccionAlmacen.aspx.vb
+++ b/Inventarios/AjustesSeccionAlmacen.aspx.vb
@@ -177,11 +177,14 @@ Partial Class Inventarios_AjustesSeccionAlmacen
End If
'actualizamos el PS, para que tenga el aplica seccion
- If Lista.ContainsKey(CvePS) Then
- ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True)
- End If
- If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then
- ErrorMovInv = True
+ If CveSeccionAlmacen > 0 Then
+ If Lista.ContainsKey(CvePS) Then
+ ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True)
+ End If
+ If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then
+ ErrorMovInv = True
+ End If
+
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
@@ -388,6 +391,8 @@ Partial Class Inventarios_AjustesSeccionAlmacen
dtSecciones.CaseSensitive = False
Dim resultado As DataTable = Nothing
+ DtExcel = DtExcel.FiltraParametros("Código <> ''")
+
For Each RowExcel As DataRow In DtExcel.Rows
Dim Codigo As String = RowExcel("Código").ToString.Trim()
@@ -395,7 +400,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"Codigo='{Codigo}'")
- If DrPS IsNot Nothing Then
+ If Codigo <> "" AndAlso DrPS IsNot Nothing Then
If Not ErrorMovInv Then
Dim CantidadEntrada As Decimal = RowExcel("Cantidad").ToString().ToDecimal()
@@ -478,7 +483,10 @@ Partial Class Inventarios_AjustesSeccionAlmacen
End If
If RowExistencia Is Nothing Then
- ExistenciasNoEncontradas.AppendFormat("{0} - S:{1}
", Codigo, Serie)
+ Dim str As String = ""
+ If Serie <> "" Then Serie = String.Format(" - Serie:{0} ")
+ ExistenciasNoEncontradas.AppendFormat("{0} {1}
", Codigo, str)
+
ErrorMovInv = True
End If
diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx
index 642e7f73d..d08f6290c 100644
--- a/Inventarios/Kardex.aspx
+++ b/Inventarios/Kardex.aspx
@@ -574,7 +574,7 @@
-
Imprmir QR
+
Imprimir QR