diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 482e3bee4..1a7713d2c 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5773,7 +5773,8 @@ Public Class ClsContabilidad 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, Optional CveBancoCuenta As Integer = -1) As Boolean + Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1, + Optional CveSubProyecto As Integer = -1) As Boolean Dim Retorno = False DataAdapter("PA_Conta_CuentasAsignacionesAdd") @@ -5791,6 +5792,7 @@ Public Class ClsContabilidad .Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA .Add("@CveConceptoNomina", SqlDbType.Decimal).Value = CveConceptoNomina .Add("@CveBancoCuenta", SqlDbType.Int).Value = CveBancoCuenta + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto End With Try @@ -5825,7 +5827,8 @@ Public Class ClsContabilidad Public Function UpdateCuentasAsignaciones(CveConceptoAsignacion As Integer, Optional CveConceptoContable 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, Optional CveBancoCuenta As Integer = -1) As Boolean + Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1, + Optional CveSubProyecto As Integer = -1) As Boolean Dim Retorno = False DataAdapter("PA_Conta_CuentasAsignacionesUpdate") @@ -5843,6 +5846,7 @@ Public Class ClsContabilidad .Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA .Add("@CveConceptoNomina", SqlDbType.Decimal).Value = CveConceptoNomina .Add("@CveBancoCuenta", SqlDbType.Int).Value = CveBancoCuenta + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto End With Try diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 9ce852417..99671766b 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -1198,6 +1198,26 @@ Public Class ClsContratos Return Retorno End Function + + Public Function GetPSContratoDetalle(CveContrato As Integer, DtPS As String) As Boolean + Dim Retorno = False + + DataAdapter("PA_Con_GetPSContratoDetalle") + With SqlAdapter.SelectCommand.Parameters + .Add("@DtPS", SqlDbType.VarChar).Value = DtPS + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al cargar los Detalles del Contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function #End Region #Region "Contratos detalles Avance" diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index f003ff601..b6867e5e6 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -6699,8 +6699,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", DtResultados(0)("Estatura").ToString)) ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", DtResultados(0)("Peso").ToString)) - ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", DtResultados(0)("LugarNacimiento").ToString)) - ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", DtResultados(0)("Edad").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", DtResultados(0)("LugarNacimiento").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", If(DtResultados(0)("Edad").ToString = "", If(DtResultados(0)("FechaNacimiento").ToString = "", "", DateDiff(DateInterval.Year, DtResultados(0)("FechaNacimiento").ToString.ToDate, Now.Date).ToString), DtResultados(0)("Edad").ToString))) ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", DtResultados(0)("NombreTelEmergencia").ToString)) ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", DtResultados(0)("TipoSangre").ToString)) ListaTagsDocumentost.Add(New TagsDocumentos("{SubProyecto}", DtResultados(0)("SubProyecto").ToString)) @@ -6719,8 +6719,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelitoObservaciones}", DtResultados(0)("AcusadoDelitoObservaciones").ToString)) ListaTagsDocumentost.Add(New TagsDocumentos("{Calle}", DtResultados(0)("Calle").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{NumInt}", DtResultados(0)("NumInt").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{NumExt}", DtResultados(0)("NumExt").ToString)) ListaTagsDocumentost.Add(New TagsDocumentos("{Colonia}", DtResultados(0)("Colonia").ToString)) ListaTagsDocumentost.Add(New TagsDocumentos("{CP}", DtResultados(0)("CP").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Ciudad}", DtResultados(0)("Ciudad").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Estado}", DtResultados(0)("Estado").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Telefono}", DtResultados(0)("Telefono").ToString)) ListaTagsDocumentost.Add(New TagsDocumentos("{Celular}", DtResultados(0)("Celular").ToString)) ListaTagsDocumentost.Add(New TagsDocumentos("{Correo}", DtResultados(0)("Correo").ToString)) @@ -6734,6 +6739,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo ListaTagsDocumentost.Add(New TagsDocumentos("{CredencialElector}", DtResultados(0)("CredencialElector").ToString)) ListaTagsDocumentost.Add(New TagsDocumentos("{FechaIngreso}", DtResultados(0)("FechaIngreso").ToString.ToDate.ToShortDateString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{DiaIngreso}", DtResultados(0)("FechaIngreso").ToString.ToDate.Day.ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{MesIngreso}", DtResultados(0)("FechaIngreso").ToString.ToDate.Month.ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{MesLetraIngreso}", MesTexto(DtResultados(0)("FechaIngreso").ToString.ToDate.Month.ToEntero))) + + ListaTagsDocumentost.Add(New TagsDocumentos("{AñoIngreso}", DtResultados(0)("FechaIngreso").ToString.ToDate.Year.ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Puesto}", DtResultados(0)("Puesto").ToString)) ListaTagsDocumentost.Add(New TagsDocumentos("{CUIP}", "")) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 9ddfc1944..25ac07be4 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -813,7 +813,7 @@ Public Class Timbrado 'validación especial. If Ventas.TipoDocto.Contiene("Ing", "Dev") Then - Dim CodigoIncorrecto = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "01010101") OrElse (c.ClaveProdServ = "84111506" AndAlso Not UsuarioActual.CveEmpresa.Contiene(2, 70)) + Dim CodigoIncorrecto = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "01010101") OrElse (c.ClaveProdServ = "84111506" AndAlso Not UsuarioActual.CveEmpresa.Contiene(2, 70, 144)) 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:
") diff --git a/Bancos/Devoluciones.aspx b/Bancos/Devoluciones.aspx index 2ffebf93d..26ab60086 100644 --- a/Bancos/Devoluciones.aspx +++ b/Bancos/Devoluciones.aspx @@ -58,7 +58,7 @@ - +
@@ -222,7 +222,7 @@
- +
@@ -333,8 +333,11 @@ } else { txt.value = ""; } + let valor = FormatoNumero(SumaValores(), 2); - $('#hdnTotal').val(valor); + debugger; + + $get('hdnTotal').value = valor; $get('TxtImporte').value = valor; } @@ -354,8 +357,9 @@ } } var Suma = SumaValores(); - let valor = FormatoNumero(SumaValores(), 2); - $('#C_hdnTotal').val(valor); + let valor = FormatoNumero(Suma, 2); + debugger; + $get('hdnTotal').value = valor; $get('TxtImporte').value = valor; if ($get('TxtTotal') != null) { diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs index bff8ee372..385954068 100644 --- a/Bancos/Devoluciones.aspx.cs +++ b/Bancos/Devoluciones.aspx.cs @@ -338,13 +338,14 @@ public partial class Bancos_Devoluciones : ClsPaginas #region"GUARDAR" protected void BtnGuardar_Click(object sender, EventArgs e) { + //inician validaciones if (OpcionDevolucion.SelectedValue.ToEntero() != 3 && TipoDevolucion.SelectedValue.ToString().ToEntero() != 2 && TxtImporte.Text == "") { Alert("Debe ingresar un importe", TipoMensaje.MsgAdvertencia); return; } - if (OpcionDevolucion.SelectedValue.ToEntero() == 3 && TipoDevolucion.SelectedValue.ToString().ToEntero() == 2) + if (OpcionDevolucion.SelectedValue == "3" && TipoDevolucion.SelectedValue == "2") { if (TxtValor.Text == "") { @@ -353,17 +354,25 @@ public partial class Bancos_Devoluciones : ClsPaginas } else { - int valor = (TxtValor.Text.ToEntero() * TxtVecesAplicar.Text.ToEntero()).ToEntero(); - int total = hdnTotal.Text.ToEntero(); + decimal valor = TxtValor.Text.ToDecimal() * TxtVecesAplicar.Text.ToDecimal(); + decimal total = hdnTotal.Text.ToDecimal(); if (valor != total) { - Alert("La cantidad total debe ser igual a lo seleccionado"); + Alert("La cantidad total debe ser igual a lo seleccionado", TipoMensaje.MsgAdvertencia); return; } + else + { + if (valor ==0) + { + Alert("No se han seleccionado opciones", TipoMensaje.MsgAdvertencia); + return; + } + } } } - + //terminan validaciones ClsBancos ObjIE = new ClsBancos(); ClsContabilidad ObjMov = new ClsContabilidad(ObjIE.IniciaTransacSQL()); @@ -465,7 +474,7 @@ public partial class Bancos_Devoluciones : ClsPaginas //Decimal tTotal = (TxtValor.Text.ToDecimal() * TxtVecesAplicar.Text.ToDecimal()).RoundSQL(); Decimal tTotal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal(); //GUARDA PREPOLIZAS DETALLE Via Nómina - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovoDevolucion, tTotal, Ref, 174, Conc, DateTime.Now, 0, -1, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: tTotal, CveNominaMovtoPermanente: CveMovtoPermanente)) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovoDevolucion, tTotal, Ref, 174, Conc, DateTime.Now, 0, -1, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, CveIE: gvr.DataKey("CveIE").ToEntero(), ImporteMX: tTotal, CveNominaMovtoPermanente: CveMovtoPermanente)) { MsgError = "No se pudo insertar concepto de Devolución"; } @@ -617,15 +626,7 @@ public partial class Bancos_Devoluciones : ClsPaginas { archivo = new System.IO.FileInfo(String.Format("{0}Formatos/ComprobanteEgreso.rdlc", UsuarioActual.Empresa.Ruta, DdlCuenta.SelectedValue.ToEntero())); } - - //if (archivo.Length > 0) - //{ - // if (archivo.Exists) - // { - // Msg.AppendFormat(@"

{1} ", Encripta(String.Format("OP=IECHEQUE&CVEIE={0}", CveIE)), String.Format("Imprimir {0}", DdlTipoTransaccion.SelectedItem)); - // } - //} - + if (IDPoliza > 0) { Msg.AppendFormat(@"

Ver Póliza", IDPoliza); diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index f6c248137..eec016ace 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1550,8 +1550,8 @@ Partial Class Compras_Compras End If - 'SE OCUPAN AFUERA DEL POSTBACK ?? - cargaddlVinculacionServcios() + 'SE OCUPAN AFUERA DEL POSTBACK ?? + cargaddlVinculacionServcios() If UsuarioActual.TienePermisoProceso(117) Then HplAddClasificacion.Visible = False @@ -4087,20 +4087,20 @@ Partial Class Compras_Compras Exit Sub End If - 'DF - 10/04/2017 - If UsuarioActual.TienePermisoProceso(187) Then - If TxtSerie.Text <> SerieVieja Then - Dim dtt As DataTable = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa) - If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then - Dim SerieNueva As String = dtt.FiltroPrimeroValor("Serie", $"Serie = '{TxtSerie.Text}'").ToString - If SerieNueva = "" Then - Alert("La Serie no es válida, por favor revise que se encuentre dentro de la lista de las sucursales del proveedor.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - End If + ''DF - 10/04/2017 + 'If UsuarioActual.TienePermisoProceso(187) Then + ' If TxtSerie.Text <> SerieVieja Then + ' Dim dtt As DataTable = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa) + ' If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then + ' Dim SerieNueva As String = dtt.FiltroPrimeroValor("Serie", $"Serie = '{TxtSerie.Text}'").ToString + ' If SerieNueva = "" Then + ' Alert("La Serie no es válida, por favor revise que se encuentre dentro de la lista de las sucursales del proveedor.", TipoMensaje.MsgAdvertencia) + ' Exit Sub + ' End If + ' End If - End If - End If + ' End If + 'End If 'Excede el limite de credito If RBLPago.SelectedValue = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Fac") AndAlso UsuarioActual.Empresa.Funcionalidad(518) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(185) Then @@ -6037,14 +6037,19 @@ Partial Class Compras_Compras If importeMovimiento <> 0 Then Dim IdCtaIva As Integer = 0 IdCtaIva = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0) + Dim ttConceptoContable As Integer = 14 - If ObjConta.GetRetCuenta(14, UsuarioActual.CveEmpresa) And Not IdCtaIva > 0 Then + If ObjConta.GetRetCuenta(ttConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaIva > 0 Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaIva = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero End If End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 14, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaIva, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then + If chkImportacion.Checked Then + ttConceptoContable = 287 + End If + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, ttConceptoContable, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaIva, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then ErrorPrepoliza = True End If End If @@ -18084,6 +18089,22 @@ Partial Class Compras_Compras End If End If + Dim DtpsTemp As DataTable = Nothing + Dim CveContratoDetalle As Integer = -1 + Dim CveContrato As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa, -1, DdlSubProyecto.SelectedValue.ToString.ToEntero).FiltroPrimeroValor("CveContrato").ToEntero + If CveContrato > 0 Then + Dim dttemp As New DataTable + dttemp.Columns.Add("CveSubProyecto", GetType(Integer)) + dttemp.Columns.Add("CvePS", GetType(Integer)) + Dim DrPS = dttemp.NewRow + DrPS("CveSubProyecto") = DdlSubProyecto.SelectedValue.ToString.ToEntero + DrPS("CvePS") = DdlPS.SelectedValue.ToString.ToEntero + dttemp.Rows.Add(DrPS) + DtpsTemp = GetPSContratoDetalle(CveContrato, dttemp) + If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then + CveContratoDetalle = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", DdlPS.SelectedValue.ToString.ToEntero)).ToEntero + End If + End If 'If dttemp IsNot Nothing AndAlso dttemp.Rows.Count > 0 Then ' Dim drContrato As DataRow = dttemp.Rows(0) @@ -18118,8 +18139,6 @@ Partial Class Compras_Compras ' End If 'End If - - Select Case Modalidad Case "A" 'ADD @@ -18137,7 +18156,7 @@ Partial Class Compras_Compras AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero, DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, IVA, TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text, - NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS) + NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS, CveContratoDetalle:=CveContratoDetalle) AddPS2() LimpiaAgregar() @@ -18149,7 +18168,7 @@ Partial Class Compras_Compras End If Case "U" 'UPDATE - UpdatePS() + UpdatePS(CveContratoDetalle) Alert("Concepto actualizado Correctamente.", TipoMensaje.MsgInformacion) RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddProducto")) End Select @@ -18348,7 +18367,7 @@ Partial Class Compras_Compras End If End Sub - Private Sub UpdatePS() + Private Sub UpdatePS(Optional CveContratoDetalle As Integer = -1) Dim DrPS As DataRow = Nothing Try DrPS = TmpDT.Select($"Consec = {Index}")(0) @@ -18371,6 +18390,7 @@ Partial Class Compras_Compras DrPS("CveProyecto") = DdlProyecto.SelectedValue.ToEntero DrPS("SubProyecto") = DdlSubProyecto.SelectedItem.Text DrPS("CveSubProyecto") = DdlSubProyecto.SelectedValue.ToEntero + DrPS("CveContratoDetalle") = CveContratoDetalle 'IMPORTES - [CANTIDAD Y PRECIO] Dim Cantidad = DrPS("Cantidad").ToString.ToDouble @@ -18611,13 +18631,26 @@ Partial Class Compras_Compras CveProyecto = DdlAsignarProyecto.SelectedValue.ToEntero() End If + Dim CveContrato As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa, -1, DdlAsignaSubProyecto.SelectedValue.ToEntero).FiltroPrimeroValor("CveContrato").ToEntero + Dim DtpsTemp As DataTable = Nothing + If CveContrato > 0 Then + DtpsTemp = GetPSContratoDetalle(CveContrato, TmpDT.FiltraParametros("", "", {"CveSubProyecto", "CvePS"})) + End If + For Each Dr As DataRow In TmpDT.Rows Dr("CveProyecto") = CveProyecto Dr("Proyecto") = If(CveSubProyecto = -1, "SE", DdlAsignarProyecto.SelectedItem.Text) Dr("CveSubProyecto") = CveSubProyecto Dr("SubProyecto") = If(CveSubProyecto = -1, "SE", DdlAsignaSubProyecto.SelectedItem.Text) + + If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then + Dr("CveContratoDetalle") = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", Dr("CvePS"))).ToEntero + End If + Next + + GvPS.DataSource = TmpDT.FiltraParametros("", "Consec") GvPS.DataBind() UpPS.Update() @@ -18680,9 +18713,22 @@ Partial Class Compras_Compras Dim PS As New ClsProductosServicios Dim CvePS = -1 Dim tPS = "" - + Dim CveSubProyecto As Integer = TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSubProyecto").ToString.ToEntero CvePS = DdlPSAlias2.SelectedValue.ToEntero tPS = DdlPSAlias2.SelectedText + Dim DtpsTemp As DataTable = Nothing + Dim CveContrato As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa, -1, CveSubProyecto).FiltroPrimeroValor("CveContrato").ToEntero + If CveContrato > 0 Then + Dim dttemp As New DataTable + dttemp.Columns.Add("CveSubProyecto", GetType(Integer)) + dttemp.Columns.Add("CvePS", GetType(Integer)) + Dim DrPS = dttemp.NewRow + DrPS("CveSubProyecto") = CveSubProyecto + DrPS("CvePS") = CvePS + dttemp.Rows.Add(DrPS) + DtpsTemp = GetPSContratoDetalle(CveContrato, dttemp) + End If + If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS, UsuarioActual.CveUsuario) Then GlobalDTProductosServiciosAlias(-1) = PS.DtResultados @@ -18697,6 +18743,9 @@ Partial Class Compras_Compras TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero TmpDT.Rows(HdnAliasInd.Value.ToEntero)("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPSActualizado") = 0 + If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then + TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveContratoDetalle") = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", CvePS)).ToEntero + End If 'busco si el producto está en otros renglones QUE NO LO TENGAN ASIGNADO, LO VINCULE For Each drt As DataRow In TmpDT.Select($"PS ='{TxtPSAlias.Text.Trim}' and ISNULL(CvePS,0) = 0") @@ -18710,7 +18759,9 @@ Partial Class Compras_Compras drt("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero drt("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value drt("CveSATPSActualizado") = 0 - + If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then + drt("CveContratoDetalle") = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", drt("CvePS"))).ToEntero + End If Next TmpDT.AcceptChanges() @@ -20912,17 +20963,33 @@ Partial Class Compras_Compras End If objContratos.Dispose() - If MensajeProducto.Length <> 64 Then + If MensajeProducto.Length > 64 Then Retorno = MensajeProducto - ElseIf MensajeCantidad.Length <> 84 Then + ElseIf MensajeCantidad.Length > 84 Then Retorno = MensajeCantidad - ElseIf MensajeImporte.Length <> 86 Then + ElseIf MensajeImporte.Length > 86 Then Retorno = MensajeImporte + Else + Retorno = "" End If Return Retorno End Function + Private Function GetPSContratoDetalle(CveContrato As Integer, DtPS As DataTable) As DataTable + Dim ObjContratos As New ClsContratos + Dim DtpsTemp As DataTable = Nothing + + If DtPS.MAX("CveSubProyecto", "CveSubProyecto IS NOT NULL").ToEntero > 0 AndAlso DtPS.MAX("CvePS", "CvePS IS NOT NULL").ToEntero > 0 Then + Dim TempPS As String = JsonConvert.SerializeObject(DtPS).ToString + If ObjContratos.GetPSContratoDetalle(CveContrato, TempPS) Then + DtpsTemp = ObjContratos.DtResultados + End If + ObjContratos.Dispose() + End If + + Return DtpsTemp + End Function #End Region diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index b05473cb0..da89c665e 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -724,7 +724,10 @@ Partial Class Compras_ReembolsosComprobaciones End If If SaldoCheque > 0 Then - ImporteMovto = If(ImportePagar > SaldoCheque, SaldoCheque, ImportePagar) + + 'ImporteMovto = If(ImportePagar > SaldoCheque, SaldoCheque, ImportePagar) + ImporteMovto = ImportePagar + CvePrePolizaPago = CvePrePolizaIERegistrado 'SE USARA PARA PODER ELIMINAR UNA COMPROBACION @@ -746,7 +749,7 @@ Partial Class Compras_ReembolsosComprobaciones 'Otros Ingresos - If (ChkAjusteOI.Checked Or ChkOtrosIngresosCheque.Checked) AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal > 0 Then + If (ChkAjusteOI.Checked Or ChkOtrosIngresosCheque.Checked) AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, 211, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor) Then MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos" End If diff --git a/Contabilidad/ContabilidadElectronica.aspx.vb b/Contabilidad/ContabilidadElectronica.aspx.vb index e59728d33..a33545fc8 100644 --- a/Contabilidad/ContabilidadElectronica.aspx.vb +++ b/Contabilidad/ContabilidadElectronica.aspx.vb @@ -185,7 +185,7 @@ Partial Class Contabilidad_ContabilidadElectronica Dim DtCuentas As New DataTable If UsuarioActual.Empresa.TipoContabilidad = 1 Then Dim objconta As New ClsContabilidad - If objconta.GetBalanzaComprobacion(FechaI, FechaF, UsuarioActual.CveEmpresa) Then + If objconta.GetBalanzaComprobacion(FechaI, FechaF, 1, -1, "-1", UsuarioActual.CveEmpresa, 0) Then DtCuentas = objconta.DtResultados End If objconta.Dispose() @@ -218,11 +218,20 @@ Partial Class Contabilidad_ContabilidadElectronica 'DETALLES For Each Dr As DataRow In DtCuentas.Rows Str.Append("") Next diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs index dd79dcb50..4652cbd29 100644 --- a/Contabilidad/RepIVA.aspx.cs +++ b/Contabilidad/RepIVA.aspx.cs @@ -121,6 +121,10 @@ public partial class Contabilidad_RepIVA : ClsPaginas GvIVAA.DataBind(); GvIVA2.DataBind(); UpDatos.Update(); + + String Str = "Se Consultó el Reporte de IVA. - " + UsuarioActual.Usuario; + Str.GuardaLog(); + } protected void BtnConsultar_Click(object sender, EventArgs e) diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index 14edb0b72..18d959c83 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -1115,9 +1115,7 @@ Partial Class Contratos_ContratoObra Else ObjContratos.Commit() - If ObjContratos.GetContratos(-1, -1) Then - Application("GlobalDTContratos") = ObjContratos.DtResultados - End If + GlobalDTContratos(UsuarioActual.CveEmpresa) = Nothing Limpiar() If Modificado Then diff --git a/Inventarios/InventarioFisicoDetalle.aspx b/Inventarios/InventarioFisicoDetalle.aspx index 7fde8403c..b44053b71 100644 --- a/Inventarios/InventarioFisicoDetalle.aspx +++ b/Inventarios/InventarioFisicoDetalle.aspx @@ -1,98 +1,6 @@ <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="InventarioFisicoDetalle.aspx.vb" Inherits="Inventarios_InventarioFisicoDetalle" %> - @@ -342,7 +250,8 @@
- + @@ -367,98 +276,103 @@
-
-
- Número de registros: +
+
+
+ Número de registros: +
+
- - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + - - - - - - - - - + + + + + + + + - - - + -