diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 0a9d5aca9..bc165de82 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -208,7 +208,7 @@ Public Class ClsProductosServicios Public Function GetPS(CvePS As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional Codigo2 As String = "-1", Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional EsPaquete As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveClasificacionCosto As Integer = -1, Optional CveTipoPS As Integer = -1, - Optional CveCompuesto As Integer = -1, Optional SATClavePS As String = "-1", Optional TopSelect As Integer = 10000) As Boolean + Optional CveCompuesto As Integer = -1, Optional SATClavePS As String = "-1", Optional TopSelect As Integer = 10000, Optional CveMarca As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ProductosServiciosGet") @@ -229,6 +229,7 @@ Public Class ClsProductosServicios .Add("@CveTipoPS", SqlDbType.Int).Value = CveTipoPS .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto .Add("@SATClavePS", SqlDbType.VarChar).Value = SATClavePS + .Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@TopSelect", SqlDbType.Int).Value = TopSelect End With @@ -252,7 +253,7 @@ Public Class ClsProductosServicios Oferta = Data.Rows(0)("Oferta").ToString.ToDouble IVA = Data.Rows(0)("IVA").ToString.ToDouble RetIVA = Data.Rows(0)("RetIVA").ToString.ToDouble - CveMarca = Data.Rows(0)("CveMarca").ToString.ToEntero + Me.CveMarca = Data.Rows(0)("CveMarca").ToString.ToEntero AplicaParaConcepto = CBool(Data.Rows(0)("AplicaParaConcepto").ToString) AplicaParaVenta = Data.Rows(0)("AplicaParaVenta").ToString = "True" Estado = Data.Rows(0)("Estado").ToString = "Activo" diff --git a/Bancos/Creditos.aspx.vb b/Bancos/Creditos.aspx.vb index 437d9c1de..708bd7064 100644 --- a/Bancos/Creditos.aspx.vb +++ b/Bancos/Creditos.aspx.vb @@ -983,7 +983,7 @@ Partial Class Bancos_Creditos For Each gvr As GridViewRow In GvTA.Rows If Not ObjCredito.UpdateCreditosDetalle(gvr.DataKey("CveCreditoDetalle").ToString.ToEntero, gvr.FCTextBox("TxtFecha").Text.ToString.ToDate, gvr.FCTextBox("TxtCapital").Text.ToString.ToDouble, gvr.FCTextBox("TxtIntereses").Text.ToString.ToDouble, gvr.FCTextBox("TxtSeguro").Text.ToString.ToDouble, gvr.FCTextBox("TxtIVACapital").Text.ToString.ToDouble, - gvr.FCTextBox("TxtIVAIntereses").Text.ToString.ToDouble, gvr.FCTextBox("TxtIVASeguro").Text.ToString.ToDouble, 1) Then + gvr.FCTextBox("TxtIVAIntereses").Text.ToString.ToDouble, gvr.FCTextBox("TxtIVASeguro").Text.ToString.ToDouble, -1) Then ErrorCredito = True Exit For End If diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 8cdfd3dcb..d2f2a0233 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -6676,5 +6676,6 @@ Partial Class Bancos_IE End Sub Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString + Calendario.EndDate = DateTime.Now End Sub End Class \ No newline at end of file diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index 06c24cb3b..925566892 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -3647,6 +3647,8 @@ Partial Class Bancos_PopIECompras Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString + Calendario.EndDate = DateTime.Now + End Sub diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index 178c34ab4..9b6ae3795 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -3665,6 +3665,8 @@ Partial Class Bancos_PopIEVentas #End Region Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString + Calendario.EndDate = DateTime.Now + End Sub diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 8997a0693..6f9274c1e 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -3390,6 +3390,8 @@ Partial Class Bancos_ProveedoresAbonar Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString + Calendario.EndDate = DateTime.Now + End Sub diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index d090cd757..e30a73cbe 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1449,6 +1449,8 @@ Partial Class Compras_Compras DivEsNoDeducible.Visible = True DivActualizarVincular.Visible = True + + Else ViewState("CveProveedor") = -1 @@ -7300,6 +7302,10 @@ Partial Class Compras_Compras importeMovimiento = importeMovimiento.Abs.RoundSQL() importeMN = importeMovimiento If importeMovimiento <> 0 Then + + + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto) Then ErrorPrepoliza = True Exit For @@ -7483,7 +7489,9 @@ Partial Class Compras_Compras importeMovimiento = importeMovimiento.Abs.RoundSQL() importeMN = importeMovimiento If importeMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + + Dim CveSubProyecto6465 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto6465, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For End If @@ -7577,7 +7585,9 @@ Partial Class Compras_Compras importeMovimiento = importeMovimiento.Abs.RoundSQL() importeMN = importeMovimiento If importeMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + Dim CveSubProyecto6465 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto6465, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + ErrorPrepoliza = True Exit For End If @@ -7673,7 +7683,8 @@ Partial Class Compras_Compras importeFluctuacion = importeFluctuacion.Abs.RoundSQL() If importeFluctuacion <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeFluctuacion, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeFluctuacion, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + Dim CveSubProyecto6465 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeFluctuacion, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto6465, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeFluctuacion, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For End If @@ -9035,9 +9046,14 @@ Partial Class Compras_Compras CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria End If + + + + importeFluctuacion = importeFluctuacion.Abs.RoundSQL() If importeFluctuacion <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, importeFluctuacion, "", ConceptoContable, ConceptoPartida, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeFluctuacion, CvePrePolizaOriginal:=CvePrePolizaNueva, ImporteME:=0, CveCuenta:=CveCuenta) Then + Dim CveSubProyecto6465 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, importeFluctuacion, "", ConceptoContable, ConceptoPartida, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto6465, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeFluctuacion, CvePrePolizaOriginal:=CvePrePolizaNueva, ImporteME:=0, CveCuenta:=CveCuenta) Then ErrorMovtosCxP = 1 End If End If @@ -9459,8 +9475,13 @@ Partial Class Compras_Compras importeMN = ImporteMovimiento End If + + + If ImporteMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta) Then + + Dim CveSubProyecto64 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto64, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta) Then ErrorMovtosCxP = 1 Exit For End If @@ -9483,7 +9504,8 @@ Partial Class Compras_Compras End If If ImporteMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta) Then + Dim CveSubProyecto65 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto65, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta) Then ErrorMovtosCxP = 1 Exit For End If @@ -19148,6 +19170,7 @@ Partial Class Compras_Compras CargaAnticipos(CveProveedor, If(ChkNCInv.Checked, "NC", "-1")) UpAnticipos.Update() End Sub + Private Sub CargaNCINV(Optional ShowAllPendientes As Boolean = False) Dim SaldoAnticipo = 0.0 diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index 8dcb566a5..dc1c9f30e 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -2068,5 +2068,7 @@ Partial Class Compras_ReembolsosComprobaciones Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString + Calendario.EndDate = DateTime.Now + End Sub End Class diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index cde36d83a..9b2594e88 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -216,10 +216,20 @@ - + <%-- + + + + +
--%> + <%----%> + + + + diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index b59eeb44c..0c39802b5 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -719,9 +719,15 @@ Partial Class Compras_eFacturas If UsuarioActual.Sesion("eFact-FF").ToString <> "" Then txtFechaF.Text = UsuarioActual.Sesion("eFact-FF").ToString.Trim If UsuarioActual.CveUsuario = 100 Then lbDescargar.Visible = True - If UsuarioActual.TienePermisoProceso(81) Then GvD.Columns(11).Visible = True : GvD.Columns(12).Visible = True - If UsuarioActual.TienePermisoProceso(206) Then GvD.Columns(10).Visible = False - If UsuarioActual.Empresa.Funcionalidad(156) = "1" Then GvD.Columns(5).Visible = True + 'If UsuarioActual.TienePermisoProceso(81) Then GvD.Columns(11).Visible = True : GvD.Columns(12).Visible = True + 'If UsuarioActual.TienePermisoProceso(206) Then GvD.Columns(10).Visible = False + 'If UsuarioActual.Empresa.Funcionalidad(156) = "1" Then GvD.Columns(5).Visible = True + + If UsuarioActual.TienePermisoProceso(81) Then GvD.Columns(12).Visible = True : GvD.Columns(13).Visible = True + If UsuarioActual.TienePermisoProceso(206) Then GvD.Columns(11).Visible = False + If UsuarioActual.Empresa.Funcionalidad(156) = "1" Then GvD.Columns(6).Visible = True + + CargaGvBitacora() CargaDatos() End If @@ -913,6 +919,11 @@ Partial Class Compras_eFacturas #Region "G V D A T O S" Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvD.RowDataBound + + If e.Row.RowType = DataControlRowType.Header Then + e.Row.Cells(4).Attributes.Add("data-tipodato", "numeric") + End If + If e.Row.RowType = DataControlRowType.DataRow Then e.Row.FindControl("lnkRegenerarPDF").Visible = True ' (UsuarioActual.CveRol = 1) 'e.Row.FindControl("lnkDownPdf").Visible = (UsuarioActual.CveRol = 1) @@ -937,6 +948,13 @@ Partial Class Compras_eFacturas e.Row.Cells(2).Attributes.Add("data-order", e.Row.DBCampo("FechaFactura").ToDate.Ticks.ToString) + + 'e.Row.Cells(4).Attributes.Add("data-order", Convert.ToInt64(e.Row.DBCampo("Total").ToDecimal).ToString.PadLeft(10, "0"c)) + + + + + If File.Exists(String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCDe"), e.Row.DBCampo("XML"))) Then e.Row.FCLiteral("LtlXML").Text = String.Format("Ver", HttpUtility.UrlEncode(e.Row.DBCampo("RFCDe")), HttpUtility.UrlEncode(e.Row.DBCampo("XML"))) If e.Row.DBCampo("TipoComprobante") = "P" Then diff --git a/Contabilidad2/CatCuentas.aspx b/Contabilidad2/CatCuentas.aspx index 9f026eb56..d4db0e496 100644 --- a/Contabilidad2/CatCuentas.aspx +++ b/Contabilidad2/CatCuentas.aspx @@ -185,13 +185,6 @@ - -
-
-
- (0% - 100% ) -
-
@@ -222,11 +215,18 @@ + +
+
+
+ (0% - 100% ) +
+
- - + + @@ -270,5 +270,21 @@ buscararbolito('C_ArbolCuentas_Abuscar', 'C_ArbolCuentas_miarbol') }); }); + + function Afectable(btn) { + debugger; + $('#C_nuevacuenta').attr('data-toggle', 'confirmation'); + $('#C_nuevacuenta').attr('data-popout', 'true'); + $('#C_nuevacuenta').attr('data-original-title', 'Verifique los datos para continuar.

¿Seguro de registrar esta cuenta nueva?
'); + $('#C_nuevacuenta').attr('data-btn-ok-label', 'si'); + } + + function NoAfectable() { + debugger; + $('#C_nuevacuenta').attr('data-toggle', ''); + $('#C_nuevacuenta').attr('data-popout', ''); + $('#C_nuevacuenta').attr('data-original-title', ''); + $('#C_nuevacuenta').attr('data-btn-ok-label', ''); + } diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb index 8b6353abe..f114656ed 100644 --- a/Contabilidad2/CatCuentas.aspx.vb +++ b/Contabilidad2/CatCuentas.aspx.vb @@ -206,7 +206,11 @@ Partial Class Contabilidad2_CatCuentas End If If Afectable Then + RegistraScript(String.Format("Afectable({0});", nuevacuenta.ClientID)) Alert("Se va crear una subcuenta en una cuenta afectable", TipoMensaje.MsgAdvertencia) + Else + RegistraScript("NoAfectable();") + End If TxtCuenta.Enabled = True @@ -406,15 +410,21 @@ Partial Class Contabilidad2_CatCuentas Dim CveTipoSaldo As Integer = 0 Dim PorcentajeIVA As Decimal = -1 Dim drt As DataRow - Dim CveConceptoAdmin As Integer = -1 - Dim CveProveedor As Integer = -1 - Dim CveCliente As Integer = -1 - Dim CveClasificacion As Integer = -1 - Dim PorcentajeImpuesto As Decimal = -1 - Dim CveBancoCuenta As Integer = -1 - Dim CveAlmacen As Integer = -1 - Dim CvePersonal As Integer = -1 - + Dim CveConceptoAdmin As Integer + Dim CveProveedor As Integer + Dim CveCliente As Integer + Dim CveClasificacion As Integer + Dim PorcentajeImpuesto As Decimal + Dim CveBancoCuenta As Integer + 'Dim CveAlmacen As Integer = -1 + 'Dim CvePersonal As Integer = -1 + Dim NombreCuenta As String + Dim TipoCuenta As String + Dim CuentaMayor As Integer + Dim CveMoneda As Integer + Dim DigAgrup As Integer + Dim CveAgrupadorSat As Integer + Dim NomIdioma As String If DdlAgrupadorSAT.SelectedValue.ToEntero > 0 Then If CveConceptoContable > 0 Then @@ -438,19 +448,28 @@ Partial Class Contabilidad2_CatCuentas CveBancoCuenta = IIf(drt("CveBancoCuenta").ToString.ToEntero = 0, -1, drt("CveBancoCuenta").ToString.ToEntero) 'CveAlmacen = IIf(drt("CveAlmacen").ToString.ToEntero = 0, -1, drt("CveAlmacen").ToString.ToEntero) 'CvePersonal = IIf(drt("CvePersonal").ToString.ToEntero = 0, -1, drt("CvePersonal").ToString.ToEntero) - End If + NombreCuenta = IIf(drt("Nombre").ToString = "", "", drt("Nombre").ToString.ToEntero) + TipoCuenta = IIf(drt("Tipo").ToString = "", "", drt("Tipo").ToString.ToEntero) + CuentaMayor = IIf(drt("CtaMayor").ToString.ToEntero = 0, 0, drt("CtaMayor").ToString.ToEntero) + CveMoneda = IIf(drt("CveMoneda").ToString.ToEntero = -1, -1, drt("CveMoneda").ToString.ToEntero) + DigAgrup = IIf(drt("DigAgrup").ToString.ToEntero = -1, -1, drt("DigAgrup").ToString.ToEntero) + CveAgrupadorSat = IIf(drt("CveAgrupadorSAT").ToString.ToEntero = 0, -1, drt("CveAgrupadorSAT").ToString.ToEntero) + NomIdioma = IIf(drt("NomIdioma").ToString = "", "", drt("NomIdioma").ToString.ToEntero) - idnew = ObjConta.AddCuenta(CvePadre, TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, - DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, CveConceptoAdmin:=CveConceptoAdmin, CveProveedor:=CveProveedor, CveCliente:=CveCliente, - CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, CveBancoCuenta:=CveBancoCuenta) - If idnew > 0 Then - If ObjConta.UpdateTraspasoPrepoliza(UsuarioActual.CveEmpresa, IDSelected, idnew) Then - ObjConta.RollBack() - ObjConta.Dispose() - Exit Sub + idnew = ObjConta.AddCuenta(CvePadre, TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, + DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, CveConceptoAdmin:=CveConceptoAdmin, CveProveedor:=CveProveedor, CveCliente:=CveCliente, + CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, CveBancoCuenta:=CveBancoCuenta) + If idnew > 0 Then + If Not ObjConta.UpdateTraspasoPrepoliza(UsuarioActual.CveEmpresa, IDSelected, idnew) Then + If ObjConta.UpdateCuenta(IDSelected.ToEntero, NombreCuenta, TipoCuenta, CuentaMayor, CveMoneda, + DigAgrup, CveAgrupadorSat, NomIdioma) Then + ObjConta.RollBack() + ObjConta.Dispose() + Exit Sub + End If + End If End If End If - Else idnew = ObjConta.AddCuenta(IDSelected, TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, PorcentajeImpuesto:=PorcentajeIVA) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index fb992b66b..e6e103354 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -1362,7 +1362,7 @@ Partial Class Inventarios_EntradasSalidas registro.Item("CveUM") = CveUM registro.Item("UnidadMedida") = UM registro.Item("CvePS") = CvePS - registro.Item("CodigoPS") = PS + registro.Item("CodigoPS") = String.Format("{0} - {1}", Codigo, PS) registro.Item("PS") = PS registro.Item("PU") = PU 'registro.Item("PUExtranjero") = PU diff --git a/Inventarios/ReconstruirCostos.aspx b/Inventarios/ReconstruirCostos.aspx new file mode 100644 index 000000000..715d99527 --- /dev/null +++ b/Inventarios/ReconstruirCostos.aspx @@ -0,0 +1,92 @@ +<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ReconstruirCostos.aspx.vb" Inherits="Inventario_ReconstruirCostos" %> + + + + + + + + + + + +   + + + + <%--
  • + Imprimir +
    • --%> +     + + + + + +
    +
    +
    + +
    +
    +
    + <%--Filtros--%> + +
    + + + +
    + + +
    + + + +
    +
    +
    +
    +
    +     +     + +
    +
    + + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + +
    + + + + + + + + + + + + + + + + +
    +     +     + + + +     + + + + + diff --git a/Inventarios/ReconstruirCostos.aspx.vb b/Inventarios/ReconstruirCostos.aspx.vb new file mode 100644 index 000000000..45fcd50fd --- /dev/null +++ b/Inventarios/ReconstruirCostos.aspx.vb @@ -0,0 +1,64 @@ +Option Explicit On +Option Strict On + +Imports Extensiones +Imports System.Data +Partial Class Inventario_ReconstruirCostos + Inherits ClsPaginas + + Private Property FacturasCheckadas As Integer + Get + Return ViewState("FacturasCheckadas").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("FacturasCheckadas") = value + End Set + End Property + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not IsPostBack Then + CargaClasificaciones() + CargaMarcas() + End If + End Sub + Private Sub CargaClasificaciones() + + If UsuarioActual.Empresa.UsaAC Then + DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion") + Else + DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion") + End If + DdlClasificacion.DataBind() + End Sub + + Private Sub CargaMarcas() + + Dim ObjPS As New ClsProductosServicios + + If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then + DdlMarca.DataSource = ObjPS.DtResultados + DdlMarca.DataBind() + + End If + ObjPS.Dispose() + End Sub + Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click + CargaDatos() + End Sub + + Private Sub CargaDatos() + + + Dim ObjPS As New ClsProductosServicios + ObjPS.GetPS(-1, DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveMarca:=DdlMarca.SelectedValue.ToEntero) + If ObjPS.DtResultados.Rows.Count > 0 Then + GvProdcutos.DataSource = ObjPS.DtResultados + GvProdcutos.DataBind() + UpGvProductos.Update() + End If + ObjPS.Dispose() + End Sub + + + +End Class \ No newline at end of file diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 87b4dd413..2e48ec661 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -1036,7 +1036,7 @@ DataKeyNames="CveCuentaDeposito" AutoGenerateColumns="False" ShowHeaderWhenEmpty="true"> <%----%> - +   @@ -1046,7 +1046,7 @@ - +   @@ -1054,7 +1054,7 @@ - +   @@ -1064,7 +1064,7 @@ - +   @@ -1074,7 +1074,7 @@ - +   @@ -1082,7 +1082,7 @@ - +   @@ -1090,7 +1090,7 @@ - +   @@ -1099,7 +1099,7 @@ <%----%> - +   @@ -1108,7 +1108,7 @@ - +   @@ -1117,7 +1117,7 @@ - +   @@ -1129,7 +1129,7 @@ - +   @@ -1139,13 +1139,13 @@ - + '> - + @@ -1154,7 +1154,7 @@ - + @@ -1165,7 +1165,7 @@     - + @@ -2323,6 +2323,24 @@
    +
    +
    + + + + + + + +
    +
    +
    +
    +
    + + +
    +
    diff --git a/Ventas/ClientesAbonar.aspx b/Ventas/ClientesAbonar.aspx index 0c2dc1e61..61dbde5f6 100644 --- a/Ventas/ClientesAbonar.aspx +++ b/Ventas/ClientesAbonar.aspx @@ -365,7 +365,7 @@ Complemento Pago - + diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 359ed6e11..fc2aa4147 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -639,11 +639,10 @@ Partial Class Ventas_ClientesAbonar If e.Row.DBCampo("CveVenta").ToEntero > 0 Then If e.Row.DataKey("ClaveMetodoPagoSAT") = "PUE" Then - e.Row.FCLinkButton("LnkComplemento").Text = "" - e.Row.FCLinkButton("LnkComplemento").CssClass = "text-danger" + e.Row.FCLiteral("LtlComplemento").Text = "" End If Else - e.Row.FCLinkButton("LnkComplemento").Visible = False + e.Row.FCLiteral("LtlComplemento").Visible = False End If @@ -3179,5 +3178,7 @@ Partial Class Ventas_ClientesAbonar Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString + Calendario.EndDate = DateTime.Now + End Sub End Class diff --git a/Ventas/RepAnticipo-NC-IXC.aspx b/Ventas/RepAnticipo-NC-IXC.aspx index 62e4b7539..efdbb26a4 100644 --- a/Ventas/RepAnticipo-NC-IXC.aspx +++ b/Ventas/RepAnticipo-NC-IXC.aspx @@ -46,8 +46,10 @@
    - - + + + <%-- + --%>
    Fecha Ini Doc:
    diff --git a/Ventas/RepAnticipo-NC-IXC.aspx.cs b/Ventas/RepAnticipo-NC-IXC.aspx.cs index 4895c21bc..bfe564237 100644 --- a/Ventas/RepAnticipo-NC-IXC.aspx.cs +++ b/Ventas/RepAnticipo-NC-IXC.aspx.cs @@ -65,11 +65,16 @@ public partial class Ventas_RepAnticipo_NC_IXC : ClsPaginas DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1")); } + //protected void CargaClientes() + //{ + // DdlCliente.DataSource = get_GlobalDTCliente(UsuarioActual.CveEmpresa,-1); + // DdlCliente.DataBind(); + // DdlCliente.Items.Insert(0, new ListItem("Todos", "-1")); + //} protected void CargaClientes() { - DdlCliente.DataSource = get_GlobalDTCliente(UsuarioActual.CveEmpresa,-1); - DdlCliente.DataBind(); - DdlCliente.Items.Insert(0, new ListItem("Todos", "-1")); + DdlCliente.setEsWebService(true); + DdlCliente.Attributes.Add("data-metodo", "getcliente"); } protected void CargaVendedores() { @@ -87,7 +92,12 @@ public partial class Ventas_RepAnticipo_NC_IXC : ClsPaginas DateTime FechaFCorte; if (TxtFechaFCorte.Text != "") { FechaFCorte = TxtFechaFCorte.Text.ToDate(); } else { FechaFCorte = DateTime.MaxValue; } ClsVentas ObjVenta = new ClsVentas(); - if (ObjVenta.GetRepAnticiposNCIXC(DdlCliente.SelectedValue.ToEntero(), DdlSucursal.SelectedValue.ToEntero(), txtFechaI.Text.ToDate(), + int CveCliente = -1; + if (DdlCliente.SelectedValue.ToEntero() != 0) + { + CveCliente = DdlCliente.SelectedValue.ToEntero(); + } + if (ObjVenta.GetRepAnticiposNCIXC(CveCliente, DdlSucursal.SelectedValue.ToEntero(), txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(),UsuarioActual.CveEmpresa, FechaICorte, FechaFCorte, TipoCambio, TCEspecifico, DdlVendedor.SelectedValue.ToEntero(),DdlConSaldo.SelectedValue.ToEntero())) { GvDatos.DataSource = ObjVenta.DtResultados; @@ -127,7 +137,7 @@ public partial class Ventas_RepAnticipo_NC_IXC : ClsPaginas String Sucursal; if (DdlSucursal.SelectedValue != "-1") { Sucursal = $" Sucursal: {DdlSucursal.SelectedItem.Text}"; } else { Sucursal = ""; } String Cliente; - if (DdlCliente.SelectedValue != "-1") { Cliente = $" Cliente: {DdlCliente.SelectedItem.Text}"; } else { Cliente = ""; } + if (DdlCliente.SelectedValue != "-1") { Cliente = $" Cliente: {DdlCliente.SelectedText}"; } else { Cliente = ""; } if (DtDatos.Rows.Count > 0) { System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); diff --git a/Ventas/RepAnticipo-NC-IXCDetalle.aspx b/Ventas/RepAnticipo-NC-IXCDetalle.aspx index 5d17ff9ea..427376291 100644 --- a/Ventas/RepAnticipo-NC-IXCDetalle.aspx +++ b/Ventas/RepAnticipo-NC-IXCDetalle.aspx @@ -50,8 +50,10 @@
    - - +<%-- + --%> + +
    Fecha Ini Doc:
    diff --git a/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs b/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs index 6abb773da..24bd56845 100644 --- a/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs +++ b/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs @@ -58,7 +58,12 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas TxtFechaFCorte.Text = DateTime.Today.ToString(); CargaSucursales(); CargaClientes(); - DdlCliente.SelectedValueExist(Request["CveCliente"] == null ? "-1" : Request["CveCliente"].ToString()); + int CveCliente = (Request["CveCliente"] == null ? -1 : Request["CveCliente"].ToString().ToEntero()); + + DdlCliente.SelectedValue = CveCliente.ToString(); + DataTable dt = get_GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:CveCliente); + DdlCliente.SelectedText = dt.FiltroPrimeroValor("NombreComercial", ""); + DdlSucursal.SelectedValueExist(Request["CveSubProyecto"] == null ? "-1" : Request["CveSubProyecto"].ToString()); DdlTipo.SelectedValueExist(Request["Tipo"] == null ? "-1" : Request["Tipo"].ToString()); CveMoneda = Request["CveMoneda"] == null ? -1 : Request["CveMoneda"].ToString().ToEntero(); @@ -90,16 +95,21 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas DdlSucursal.DataBind(); DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1")); DdlSucursal.SelectedValue = "-1"; + } + + //protected void CargaClientes() + //{ + // DdlCliente.DataSource = get_GlobalDTCliente(UsuarioActual.CveEmpresa, -1); + // DdlCliente.DataBind(); + // DdlCliente.Items.Insert(0, new ListItem("Todos", "-1")); + // DdlCliente.SelectedValue = "-1"; + //} + + protected void CargaClientes() + { + DdlCliente.setEsWebService(true); + DdlCliente.Attributes.Add("data-metodo", "getcliente"); } - - protected void CargaClientes() - { - DdlCliente.DataSource = get_GlobalDTCliente(UsuarioActual.CveEmpresa, -1); - DdlCliente.DataBind(); - DdlCliente.Items.Insert(0, new ListItem("Todos", "-1")); - DdlCliente.SelectedValue = "-1"; - } - protected void CargaVendedores() { DdlVendedor.DataSource = get_GlobalDTVendedores(UsuarioActual.CveEmpresa); @@ -116,8 +126,13 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas if (TxtFechaICorte.Text != "") { FechaICorte = TxtFechaICorte.Text.ToDate(); } else { FechaICorte = DateTime.MinValue; } DateTime FechaFCorte; if (TxtFechaFCorte.Text != "") { FechaFCorte = TxtFechaFCorte.Text.ToDate(); } else { FechaFCorte = DateTime.MaxValue; } - ClsVentas ObjVenta = new ClsVentas(); - if (ObjVenta.GetRepAnticiposNCIXCDetalle(DdlCliente.SelectedValue.ToEntero(), DdlSucursal.SelectedValue.ToEntero(), txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), + ClsVentas ObjVenta = new ClsVentas(); + int CveCliente = -1; + if (DdlCliente.SelectedValue.ToEntero() != 0) + { + CveCliente = DdlCliente.SelectedValue.ToEntero(); + } + if (ObjVenta.GetRepAnticiposNCIXCDetalle(CveCliente, DdlSucursal.SelectedValue.ToEntero(), txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), UsuarioActual.CveEmpresa, DdlConSaldo.SelectedValue.ToEntero(), DdlTipo.SelectedValue.ToEntero(), CveMoneda, FechaICorte, FechaFCorte, TipoCambio, TCEspecifico)) { GvDatos.DataSource = ObjVenta.DtResultados; @@ -128,7 +143,7 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas UpDatos.Update(); if (TxtFechaFCorte.Text != DateTime.Now.ToShortDateString() && txtFechaI.Text != "") { LnkHabilitarSaldar.Visible = false; LnkSaldar.Visible = false; } else { LnkHabilitarSaldar.Visible = true; } if (LnkSaldar.Visible) { HabilitarCheckbox(); } - Tipo = DdlTipo.SelectedValue.ToEntero(); + Tipo = DdlTipo.SelectedValue.ToEntero(); } protected void BtnConsultar_Click(object sender, EventArgs e) @@ -159,7 +174,7 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas String Sucursal; if (DdlSucursal.SelectedValue != "-1") { Sucursal = $" Sucursal: {DdlSucursal.SelectedItem.Text}"; } else { Sucursal = ""; } String Cliente; - if (DdlCliente.SelectedValue != "-1") { Cliente = $" Cliente: {DdlCliente.SelectedItem.Text}"; } else { Cliente = ""; } + if (DdlCliente.SelectedValue.ToEntero() != -1) { Cliente = $" Cliente: {DdlCliente.SelectedText}"; } else { Cliente = ""; } String ConSaldo; if (DdlConSaldo.SelectedValue != "-1") { ConSaldo = $" Con Saldo: {DdlConSaldo.SelectedItem.Text}"; } else { ConSaldo = ""; } String Tipo2;