diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 80ab83c67..de2c67ba8 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -979,13 +979,13 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If If DTUM.Count > 0 Then - DtPSRetorno = New DataView(DTUM.OrderBy(Function(a) a!Nombre).CopyToDataTable).ToTable(True, {"CveSATUnidadMedida", "ClaveNombre"}) + DtPSRetorno = New DataView(DTUM.OrderBy(Function(a) a!Nombre).CopyToDataTable).ToTable(True, {"CveUnidadMedidaSAT", "ClaveNombre"}) Else DtPSRetorno = Nothing End If If DtPSRetorno IsNot Nothing AndAlso DtPSRetorno.Rows.Count > 0 Then - DtPSRetorno.Columns("CveSATUnidadMedida").ColumnName = "id" + DtPSRetorno.Columns("CveUnidadMedidaSAT").ColumnName = "id" DtPSRetorno.Columns("ClaveNombre").ColumnName = "text" retorno = JsonConvert.SerializeObject(DtPSRetorno).ToString context.Response.Write(retorno) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 468820bed..2c8b5f753 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -11176,7 +11176,7 @@ Partial Class Compras_Compras 'SI UM NO ESTA REGISTRADA If e.Row.DBCampo("CveUM").ToString.ToEntero <= 0 Then - e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("onclick", $"FncUMEquivalencias(1,'{e.Row.DBCampo("UM").Replace("'", "")}',{e.Row.RowIndex},'{DtEquivalencias.FiltroPrimeroValor("UnidadMedida", "UnidadBase = 1")}','{e.Row.DBCampo("CveSATUnidadMedida")}','{e.Row.DBCampo("SATClaveUnidadMedida")}')") + e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("onclick", $"FncUMEquivalencias(1,'{e.Row.DBCampo("UM").Replace("'", "")}',{e.Row.RowIndex},'{DtEquivalencias.FiltroPrimeroValor("UnidadMedida", "UnidadBase = 1")}','{e.Row.DBCampo("CveUnidadMedidaSAT")}','{e.Row.DBCampo("SATClaveUnidadMedida")}')") e.Row.FCLabel("LtlUnidadMedida").CssClass = "label label-danger manita centrarUM" e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("data-toggle", "tooltip") e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN registrar") @@ -11197,7 +11197,7 @@ Partial Class Compras_Compras End If Else 'SIN EQUIVALENCIA - e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("onclick", $"FncUMEquivalencias(3,'{e.Row.DBCampo("UM").Replace("'", "")}',{e.Row.RowIndex},'{DtEquivalencias.FiltroPrimeroValor("UnidadMedida", "UnidadBase = 1")}','{e.Row.DBCampo("CveSATUnidadMedida")}','{e.Row.DBCampo("SATClaveUnidadMedida")}')") + e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("onclick", $"FncUMEquivalencias(3,'{e.Row.DBCampo("UM").Replace("'", "")}',{e.Row.RowIndex},'{DtEquivalencias.FiltroPrimeroValor("UnidadMedida", "UnidadBase = 1")}','{e.Row.DBCampo("CveUnidadMedidaSAT")}','{e.Row.DBCampo("SATClaveUnidadMedida")}')") e.Row.FCLabel("LtlUnidadMedida").CssClass = "label label-danger manita centrarUM" e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("data-toggle", "tooltip") e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN equivalencia") @@ -11549,7 +11549,7 @@ Partial Class Compras_Compras 'SAT TmpDT.Columns.Add("CveSATPS", GetType(Integer)) TmpDT.Columns.Add("SATClaveProductoServicio", GetType(String)) - TmpDT.Columns.Add("CveSATUnidadMedida", GetType(Integer)) + TmpDT.Columns.Add("CveUnidadMedidaSAT", GetType(Integer)) TmpDT.Columns.Add("SATClaveUnidadMedida", GetType(String)) 'Tipo de Gasto @@ -11661,7 +11661,7 @@ Partial Class Compras_Compras 'SAT TmpDTOriginal.Columns.Add("CveSATPS", GetType(Integer)) TmpDTOriginal.Columns.Add("SATClaveProductoServicio", GetType(String)) - TmpDTOriginal.Columns.Add("CveSATUnidadMedida", GetType(Integer)) + TmpDTOriginal.Columns.Add("CveUnidadMedidaSAT", GetType(Integer)) TmpDTOriginal.Columns.Add("SATClaveUnidadMedida", GetType(String)) 'Tipo de Gasto diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index 42eb4ecff..88620e043 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -2188,6 +2188,8 @@ Partial Class ContabilidadC_RegPrePoliza Dim YaExiste As Boolean = False Dim CveConceptoContable As Integer = Row("CveConceptoContable").ToString.ToEntero Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero + 'sino viene el cveconcepto, busca por le nombre del concepto + If CveConceptoContable = 0 Then CveConceptoContable = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable = '{0}'", Row("ConceptoContable"))).ToEntero If ObjConta.GetCuentas(-1, Cuenta.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index ece9a473c..a26732099 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -1939,19 +1939,29 @@ Partial Class ContabilidadC_RegPrePolizaS Dim Importe As Decimal = If(Row("Cargo").ToString.ToDecimal <> 0, Row("Cargo").ToString.ToDecimal, Row("Abono").ToString.ToDecimal) Dim Concepto As String = Row("Concepto").ToString Dim Referencia As String = Row("Referencia").ToString - Dim IdCuenta As Integer = -1 + Dim CveCuenta As Integer = -1 Dim CveSubProyecto As Integer = Row("CveSubProyecto").ToString.ToEntero Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True) Dim YaExiste As Boolean = False Dim CveConceptoContable As Integer = Row("CveConceptoContable").ToString.ToEntero Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero + Dim CveClasificacion As Integer = -1 + 'sino viene el cveconcepto, busca por le nombre del concepto + If CveConceptoContable = 0 Then CveConceptoContable = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable = '{0}'", Row("ConceptoAdministrativo"))).ToEntero + + If CveConceptoContable = 69 Then + CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", "").ToEntero + End If + + If CveSubProyecto = 0 Then CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto"))).ToEntero + If Importe <> 0 Then If ObjConta.GetCuentas(-1, Cuenta.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then - IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero + CveCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero 'TipoCuenta = ObjConta.DtResultados().FiltroPrimeroValor("Tipo") Else Reporte.AppendLine($"{Cuenta} - {NombreCuenta} - {Importe}
") @@ -1965,13 +1975,13 @@ Partial Class ContabilidadC_RegPrePolizaS If YaExiste = False Then - If IdCuenta > 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", CveConceptoContable, Concepto, Now.ToDate, IdCtaContable, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then + If CveCuenta > 0 Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", CveConceptoContable, Concepto, Now.ToDate, IdCtaContable, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacion, CveCuenta:=CveCuenta) Then TieneError = True Exit For End If Else - IdCuenta = -2 + CveCuenta = -2 End If End If diff --git a/Contratos/FacturacionMasiva.aspx.vb b/Contratos/FacturacionMasiva.aspx.vb index b9f676193..7e2e5216f 100644 --- a/Contratos/FacturacionMasiva.aspx.vb +++ b/Contratos/FacturacionMasiva.aspx.vb @@ -566,13 +566,13 @@ Partial Class Contratos_FacturacionMasiva DtR("Cantidad") = row("CantidadContratada") DtR("CveUM") = row("CveUM") DtR("UM") = row("UM") - DtR("SATClaveUM") = row("SATClaveUM") + DtR("SATClaveUM") = row("SATClaveUnidadMedida") DtR("CveClasificacion") = row("CveClasificacion") DtR("Clasificacion") = row("Clasificacion") DtR("CvePS") = row("CvePS") DtR("PS") = row("PS") DtR("CodigoPS") = row("CodigoPS") - DtR("SATClaveProdServ") = row("SATClaveProdServ") + DtR("SATClaveProdServ") = row("SATClavePS") DtR("NoIdentificacion") = row("NoIdentificacion") DtR("CveTipoPS") = drPS("CveTipoPS") DtR("CveTipoInvPS") = drPS("Inv_CveMetodoInventario") diff --git a/Ventas/CatUnidadesMedida.aspx b/Ventas/CatUnidadesMedida.aspx index 438d8644c..9d867639e 100644 --- a/Ventas/CatUnidadesMedida.aspx +++ b/Ventas/CatUnidadesMedida.aspx @@ -95,7 +95,7 @@
- + <%-- --%> diff --git a/Ventas/RepConciliacionEmitidosSat.aspx.cs b/Ventas/RepConciliacionEmitidosSat.aspx.cs index d6ffee4e0..6844b8ba4 100644 --- a/Ventas/RepConciliacionEmitidosSat.aspx.cs +++ b/Ventas/RepConciliacionEmitidosSat.aspx.cs @@ -625,7 +625,7 @@ public partial class Ventas_RepConciliacionEmitidosSat : ClsPaginas if (continuar && DrUmSat == null) { continuar = false; strErrores.AppendLine($"No se encontro la unidad de medida en el catalogo del sat '{item.ClaveUnidad}', favor de contactar a soporte tecnico."); } if (continuar) { - DrUm = get_GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimero(string.Format("CveUnidadMedidaSAT={0}", DrUmSat["CveSATUnidadMedida"])); + DrUm = get_GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimero(string.Format("CveUnidadMedidaSAT={0}", DrUmSat["CveUnidadMedidaSAT"])); } if (continuar && DrUm == null) { continuar = false; strErrores.AppendLine($"No se encontro la unidad de medida relacionada a la clave del sat '{item.ClaveUnidad}', favor de asignarla en el catalogo de unidad de medida."); } if (continuar)