From 1dd69b8c8df012b5f8f3d99d07ae7c917355f275 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 28 Jun 2021 18:12:37 -0700 Subject: [PATCH 1/5] =?UTF-8?q?--=20cambio=20en=20mensajes=20de=20c=C3=B3d?= =?UTF-8?q?igo=20SAT?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/Timbrado.vb | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 6845d6528..005766e1f 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -813,10 +813,15 @@ Public Class Timbrado 'validación especial. If Ventas.TipoDocto.Contiene("Ing", "Dev") Then - Dim CodigoIncorrecto As Integer = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "84111506" Or c.ClaveProdServ = "01010101") - Select c.ClaveProdServ).Count() - If CodigoIncorrecto > 0 Then - MensajeErrorCFDI = "SAT - Hay un concepto con Codigo no permitido." + Dim CodigoIncorrecto = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "84111506" Or c.ClaveProdServ = "01010101") + Select c.ClaveProdServ, c.Descripcion) + Dim Str As New StringBuilder + Str.Append("Los siguentes productos tienen especificado un código no permitido por el SAT:
") + For Each dr In CodigoIncorrecto + Str.AppendFormat(" - {0}
", dr.Descripcion) + Next + If CodigoIncorrecto.Count > 0 Then + MensajeErrorCFDI = Str.ToString Return False End If From 8386c878bf22ceb127bf9ca2e31a3e5e8bf83572 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 28 Jun 2021 18:13:07 -0700 Subject: [PATCH 2/5] -- parametro de cveempresa, en getprepolizasdetalle --- App_Code/ClsContabilidad.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index bf6801a61..1621c3921 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -1090,12 +1090,13 @@ Public Class ClsContabilidad Return Concepto End Function - Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, Optional CveIE As Integer = -1) As Boolean + Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_PrePolizasDetalleGet") With SqlAdapter.SelectCommand.Parameters .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza .Add("@CveIE", SqlDbType.Int).Value = CveIE + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try From acfa1ff8dfa85e40f5652c497d32770913322d2e Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 28 Jun 2021 18:13:32 -0700 Subject: [PATCH 3/5] carga cuentas en combo --- Contabilidad/RegPrePolizaS.aspx.vb | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 4042bfc7b..cd2a48d00 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -625,9 +625,12 @@ Partial Class ContabilidadC_RegPrePolizaS Dim ObjConta As New ClsContabilidad If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then DdlCuentaContableE.DataSource = ObjConta.DtResultados + DdlCuentaContable.DataSource = ObjConta.DtResultados DtCuentasContables = ObjConta.DtResultados End If - ObjConta.Dispose() + ObjConta.Dispose() + DdlCuentaContable.DataBind() + DdlCuentaContable.Items.Insert(0, New ListItem("Seleccione", "0")) DdlCuentaContableE.DataBind() DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0")) End Sub @@ -2225,7 +2228,7 @@ Partial Class ContabilidadC_RegPrePolizaS 'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then - If ObjConta.GetPrePolizasDetalle(CvePrePoliza) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then + If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Dim dtVC As DataTable Dim dr As DataRow dtVC = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden") From b26f75feb785eb6783ef70041d8d2488d1ab232e Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 28 Jun 2021 18:16:24 -0700 Subject: [PATCH 4/5] =?UTF-8?q?se=20env=C3=ADa,=20subproyecto=20en=20mov?= =?UTF-8?q?=20de=20almacen,=20en=20ajuste?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntradasSalidas.aspx.vb | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 2a458ea07..634350948 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -4095,7 +4095,8 @@ Partial Class Inventarios_EntradasSalidas Dim ImporteConcepto As Decimal = 0 Dim tConcepto As String = TxtIFDescripcion.Text.Trim Dim Fecha = TxtFechaInvFisico.Text.ToDate.ToString("yyyy/MM/dd").ToDate - Dim tCveSubProyecto As Integer = -1 + Dim tCveSubProyectoEntrada As Integer = -1 + Dim tCveSubProyectoSalida As Integer = -1 Dim TipoMovto As Boolean = False Dim idCtaContableEntrada As Integer = 0 Dim idCtaContableSalida As Integer = 0 @@ -4179,7 +4180,7 @@ Partial Class Inventarios_EntradasSalidas Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacenInventarioFisico.SelectedValue)) If drA2 IsNot Nothing Then idCtaContableEntrada = drA2("IdCtaContable").ToString.ToEntero - tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero + tCveSubProyectoEntrada = drA2("CveSubProyecto").ToString.ToEntero End If Else ErrorMovInv = True @@ -4195,7 +4196,7 @@ Partial Class Inventarios_EntradasSalidas Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacenInventarioFisico.SelectedValue)) If drA2 IsNot Nothing Then idCtaContableSalida = drA2("IdCtaContable").ToString.ToEntero - tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero + tCveSubProyectoSalida = drA2("CveSubProyecto").ToString.ToEntero End If Else ErrorMovInv = True @@ -4214,7 +4215,7 @@ Partial Class Inventarios_EntradasSalidas If ValorEntrada <= ValorSalida Then TipoMovto = True : ValorEntrada = -ValorEntrada ' invierto su naturaleza End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, ValorEntrada, "", 68, tConcepto, Fecha, idCtaContableEntrada, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=ValorEntrada, Contabilizable:=EsContabilizable) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, ValorEntrada, "", 68, tConcepto, Fecha, idCtaContableEntrada, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=ValorEntrada, CveSubProyecto:=tCveSubProyectoEntrada, Contabilizable:=EsContabilizable) Then ErrorMovInv = True Mensaje = "Ocurrió un error al guardar los movimientos contables de entrada" End If @@ -4226,14 +4227,14 @@ Partial Class Inventarios_EntradasSalidas If ValorSalida < ValorEntrada Then TipoMovto = False : ValorSalida = -ValorSalida ' invierto su naturaleza End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, ValorSalida, "", 68, tConcepto, Fecha, idCtaContableSalida, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ValorSalida, Contabilizable:=EsContabilizable) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, ValorSalida, "", 68, tConcepto, Fecha, idCtaContableSalida, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ValorSalida, CveSubProyecto:=tCveSubProyectoSalida, Contabilizable:=EsContabilizable) Then ErrorMovInv = True Mensaje = "Ocurrió un error al guardar los movimientos contables de salida" End If End If If ValorEntrada >= ValorSalida Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, "", 260, tConcepto, Fecha, IdCuentaOtrosIngresos, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveSubProyecto:=tCveSubProyecto, ImporteMX:=ValorEntrada + ValorSalida, Contabilizable:=EsContabilizable) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, "", 260, tConcepto, Fecha, IdCuentaOtrosIngresos, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveSubProyecto:=tCveSubProyectoSalida, ImporteMX:=ValorEntrada + ValorSalida, Contabilizable:=EsContabilizable) Then ErrorMovInv = True Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de ingreso" End If @@ -4253,7 +4254,7 @@ Partial Class Inventarios_EntradasSalidas tIdCtaGasto = 1321 End Select - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorSalida + ValorEntrada, "", 51, tConcepto, Fecha, tIdCtaGasto, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=tCveClasificacion, CveSubProyecto:=tCveSubProyecto, ImporteMX:=ValorSalida + ValorEntrada, Contabilizable:=EsContabilizable) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorSalida + ValorEntrada, "", 51, tConcepto, Fecha, tIdCtaGasto, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=tCveClasificacion, CveSubProyecto:=tCveSubProyectoSalida, ImporteMX:=ValorSalida + ValorEntrada, Contabilizable:=EsContabilizable) Then ErrorMovInv = True Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de salida" End If From a46215c185b2392eb907538504fb787f3dbcb6bb Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 28 Jun 2021 18:16:54 -0700 Subject: [PATCH 5/5] -- visualziar el personal --- Contabilidad2/CatCuentas.aspx | 9 +++++++++ Contabilidad2/CatCuentas.aspx.vb | 5 +++++ 2 files changed, 14 insertions(+) diff --git a/Contabilidad2/CatCuentas.aspx b/Contabilidad2/CatCuentas.aspx index 8e0b6c729..ad6288165 100644 --- a/Contabilidad2/CatCuentas.aspx +++ b/Contabilidad2/CatCuentas.aspx @@ -225,6 +225,15 @@ (0% - 100% ) + +
+
+
+ + + +
+
diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb index d4a8d1ef1..d36ba565b 100644 --- a/Contabilidad2/CatCuentas.aspx.vb +++ b/Contabilidad2/CatCuentas.aspx.vb @@ -278,6 +278,7 @@ Partial Class Contabilidad2_CatCuentas CveAlmacen = rowcc("CveAlmacen").ToString().ToEntero() DdlAlmacen.SelectedValue = -1 DdlAlmacen.SelectedValueExist(CveAlmacen) + DdlPersonal.SelectedValueExist(rowcc("CvePersonal").ToString().ToEntero()) End If End Using @@ -686,6 +687,10 @@ Partial Class Contabilidad2_CatCuentas Case 6 pnlOpcion6.Visible = True + Case 8 + pnlOpcion8.Visible = True + DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) + DdlPersonal.DataBind() End Select End If