diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 88c5c6f4d..0b868c51a 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9606,7 +9606,7 @@ Public Class ClsPaginas Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha) If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then - If UltimaFluctuacion.FechaFluctuacion <= tFecha Then + If UltimaFluctuacion.FechaFluctuacion <= tFecha AndAlso CompraActual.Fecha <= UltimaFluctuacion.FechaFluctuacion Then 'FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion TCValuacion = UltimaFluctuacion.TCFluctuacion End If @@ -9804,6 +9804,7 @@ Public Class ClsPaginas Public Property CveProveedor As Integer Public Property CveTipoConceptoProveedor As Integer Public Property CveMoneda As Integer + Public Property Fecha As Date Public Property SerieFolio As String = "" Public Property ProveedorNombre As String = "" Public Property EsImportacion As Boolean = False diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index 611b02810..eb2d25f4c 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -361,13 +361,13 @@ public partial class Bancos_PagoDeudor : ClsPaginas if (UsaComplementaria) { // BANCOS - COMPLEMENTARIA - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, 0, Ref, 204, Conc, IDCtaContableBancosComplementariaPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: (TxtImportePrestamo.Text.ToDecimal() * tipoCambio) - TxtImportePrestamo.Text.ToDecimal(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, 0, (TxtImportePrestamo.Text.ToDecimal() * tipoCambio) - TxtImportePrestamo.Text.ToDecimal(), 204, Ref, Conc, IDCtaContableBancosComplementariaPrestamo, CveIEDevolucion: CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de bancos complementaria"; } // BANCOS - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContableBanco, Conc, IDCtaContableBancosPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, TxtImportePrestamo.Text.ToDecimal(), TxtImportePrestamo.Text.ToDecimal(),CveConceptoContableBanco, Ref, Conc, IDCtaContableBancosPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de bancos"; } @@ -375,7 +375,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas else { // BANCOS - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContableBanco, Conc, IDCtaContableBancosPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal() * tipoCambio, ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, TxtImportePrestamo.Text.ToDecimal(), TxtImportePrestamo.Text.ToDecimal() * tipoCambio, CveConceptoContableBanco, Ref, Conc, IDCtaContableBancosPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de bancos"; } @@ -385,13 +385,13 @@ public partial class Bancos_PagoDeudor : ClsPaginas if (UsaComplementaria) //(IDCtaContableDeudorCompPrestamo > 0) { // DEUDOR COMPLEMENTARIA - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, 0, Ref, 256, Conc, IDCtaContableDeudorCompPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: (TxtImportePrestamo.Text.ToDecimal() * tipoCambio) - TxtImportePrestamo.Text.ToDecimal(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, 0, (TxtImportePrestamo.Text.ToDecimal() * tipoCambio) - TxtImportePrestamo.Text.ToDecimal(), 256, Ref, Conc, IDCtaContableDeudorCompPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de deudor complementaria"; } // DEUDOR - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContablePrestamo, Conc, IDCtaContableDeudorPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), TxtImportePrestamo.Text.ToDecimal(), CveConceptoContablePrestamo, Ref, Conc, IDCtaContableDeudorPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de deudor"; } @@ -399,7 +399,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas else { // DEUDOR - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContablePrestamo, Conc, IDCtaContableDeudorPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal() * tipoCambio, ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), TxtImportePrestamo.Text.ToDecimal() * tipoCambio, CveConceptoContablePrestamo, Ref, Conc, IDCtaContableDeudorPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de deudor"; } @@ -409,13 +409,13 @@ public partial class Bancos_PagoDeudor : ClsPaginas else { // BANCOS - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContableBanco, Conc, IDCtaContableBancosPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, TxtImportePrestamo.Text.ToDecimal(), TxtImportePrestamo.Text.ToDecimal(), CveConceptoContableBanco, Ref, Conc, IDCtaContableBancosPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de bancos"; } // DEUDOR - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContablePrestamo, Conc, IDCtaContableDeudorPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), TxtImportePrestamo.Text.ToDecimal(), CveConceptoContablePrestamo, Ref, Conc, IDCtaContableDeudorPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de deudor"; } diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 710d7e509..e406742b0 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -829,6 +829,7 @@ Partial Class Bancos_ProveedoresAbonar CompraActual.CveTipoConceptoProveedor = gvr.DataKey("CveTipoConcepto").ToEntero CompraActual.CveProveedor = gvr.DataKey("CveProveedor").ToEntero CompraActual.CveMoneda = gvr.DataKey("CveMoneda").ToEntero + CompraActual.Fecha = gvr.DataKey("Fecha").ToDate CompraActual.SerieFolio = gvr.DataKey("SerieFolio").ToString CompraActual.ProveedorNombre = HplProveedor.Text CompraActual.TC = gvr.DataKey("TipoCambioOriginal").ToDecimal diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 7972438af..c358525f0 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -4102,7 +4102,7 @@
- diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index df6f181d0..e47d14efd 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1819,6 +1819,7 @@ Partial Class Compras_Compras Xml = System.Web.HttpUtility.HtmlDecode(Xml.ToString) Xml = Xml.Replace(Chr(13), "") 'salto de linea Xml = Xml.Replace(Chr(10), "") + Xml = Xml.Replace("
", "") 'salto de linea html Xml = Xml.Replace("&", "") 'adicional, si hay otros If ObjeFacturas.GetFacturasComparacionXML(Version, Xml, UsuarioActual.CveEmpresa) Then @@ -4833,6 +4834,7 @@ Partial Class Compras_Compras CompraActual.CveTipoConceptoProveedor = CveTipoConcepto CompraActual.CveProveedor = CveProveedor CompraActual.CveMoneda = DdlMoneda.SelectedValue.ToEntero + CompraActual.Fecha = TxtFecha.Text.ToDate CompraActual.SerieFolio = TxtSerie.Text.Trim & "-" & TxtFolio.Text.Trim CompraActual.ProveedorNombre = HplProveedor.Text CompraActual.TC = TipoCambio @@ -5752,7 +5754,6 @@ Partial Class Compras_Compras Dim FechaMovimiento As Date = TxtFecha.Text.ToDate Dim DT As DataTable = Nothing Dim CuentasContablesInvalidas As New StringBuilder - Dim CuentasContablesInvalidasSIG As New StringBuilder Dim ConceptoPersonal As String = "" Dim IdCtaIVAXAcreditar As Integer = 0 ' Dim IdCtaIVAAcreditable As Integer = 0 @@ -6944,9 +6945,14 @@ Partial Class Compras_Compras If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True + Exit For End If End If + Dim Pago As New CompraPago With {.ImportePago = importeMovimiento, .CveIE = CveIE} + 'Pago.CveMonedaPago = CveMonedaAnticipo 'pdte + AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) Next + Else For Each rw As GridViewRow In GvDeudores.Rows If rw.FCCheckBox("Chk").Checked Then @@ -6956,7 +6962,11 @@ Partial Class Compras_Compras If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 254, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True + Exit For End If + Dim Pago As New CompraPago With {.ImportePago = importeMovimiento, .CveIE = CveIE} + 'Pago.CveMonedaPago = CveMonedaAnticipo 'pdte + AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) End If Next End If @@ -8422,7 +8432,7 @@ Partial Class Compras_Compras Dim ImporteAnt As Decimal = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal Dim ImporComisionAnticipo As Decimal = gvr.FCTextBox("TxtComision").Text.ToDecimal - Dim CvemonedaAnticipo As Integer = gvr.DataKey("CveMoneda").ToEntero + Dim CveMonedaAnticipo As Integer = gvr.DataKey("CveMoneda").ToEntero Dim TipoCambioAnt As Decimal = gvr.DataKey("TCCompra").ToDecimal If ImporComisionAnticipo = 0 Then @@ -8441,7 +8451,7 @@ Partial Class Compras_Compras Dim Pago As New CompraPago Pago.ImportePago = ImporteAnt Pago.CveIE = CveIE - Pago.CveMonedaPago = CvemonedaAnticipo + Pago.CveMonedaPago = CveMonedaAnticipo Pago.CveCompraAmortizacion = CveCompraNC Pago.CveCreditoDetalle = -1 Pago.OtroGastoIngreso = ImporComisionAnticipo @@ -8452,6 +8462,7 @@ Partial Class Compras_Compras CompraActual.CveTipoConceptoProveedor = CveTipoConcepto CompraActual.CveProveedor = CveProveedor CompraActual.CveMoneda = DdlMoneda.SelectedValue.ToEntero + CompraActual.Fecha = TxtFecha.Text.ToDate CompraActual.SerieFolio = TxtSerie.Text.Trim & "-" & TxtFolio.Text.Trim CompraActual.ProveedorNombre = HplProveedor.Text CompraActual.TC = TipoCambio @@ -8471,9 +8482,7 @@ Partial Class Compras_Compras CompraActual.EsImportacion = chkImportacion.Checked AplicaPrePolizaPagoCompra(CompraActual, pago, CvePrePoliza, ObjConta) - End If - End If Next @@ -9328,7 +9337,7 @@ Partial Class Compras_Compras End If 'Removemos los conceptos de la prepoliza - If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 6, CveCompra, 1) Then ErrorPrepoliza = True 'GASTO + If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 6, CveCompra, 1) Then ErrorPrepoliza = True 'GASTO If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 68, CveCompra, 1) Then ErrorPrepoliza = True 'ALMACEN If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 49, CveCompra, 1) Then ErrorPrepoliza = True 'AF If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 205, CveCompra, 1) Then ErrorPrepoliza = True 'PS YA RECIBIDO @@ -10605,8 +10614,8 @@ Partial Class Compras_Compras End Sub Protected Sub GVINV_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvInv.RowUpdating - Dim Cantidad As Double = DirectCast(GvInv.Rows(e.RowIndex).FindControl("txtECantidad"), TextBox).Text.ToDouble - Dim CveUnidadMedida As Integer = DirectCast(GvInv.Rows(e.RowIndex).FindControl("ddlEUnidad"), DropDownList).SelectedValue.ToString.ToEntero + Dim Cantidad As Double = GvInv.Rows(e.RowIndex).FCTextBox("txtECantidad").Text.ToDouble + Dim CveUnidadMedida As Integer = GvInv.Rows(e.RowIndex).FCDropDownList("ddlEUnidad").SelectedValue.ToString.ToEntero DtInv.Rows.Item(e.RowIndex)("Cantidad") = Cantidad DtInv.Rows.Item(e.RowIndex)("CveUM") = CveUnidadMedida diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index 914246a36..ea30d6a2b 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -690,6 +690,7 @@ Partial Class Compras_ReembolsosComprobaciones CompraActual.CveTipoConceptoProveedor = gvr.DataKey("CveTipoConcepto").ToEntero CompraActual.CveProveedor = gvr.DataKey("CveProveedor").ToEntero CompraActual.CveMoneda = gvr.DataKey("CveMoneda").ToEntero + CompraActual.Fecha = gvr.DataKey("Fecha").ToDate CompraActual.SerieFolio = gvr.DataKey("SerieFolio").ToString CompraActual.ProveedorNombre = gvr.DataKey("Proveedor") CompraActual.TC = gvr.DataKey("TipoCambio").ToDecimal diff --git a/Compras/RepNotasCredito.aspx.vb b/Compras/RepNotasCredito.aspx.vb index 23f1151b2..61f5b6979 100644 --- a/Compras/RepNotasCredito.aspx.vb +++ b/Compras/RepNotasCredito.aspx.vb @@ -143,7 +143,7 @@ Partial Class Compras_RepNotasCredito TCCompra = gr.DataKey("TipoCambio").ToDecimal CveMoneda = gr.DataKey("CveMoneda").ToEntero - CvePrePoliza = ObjConta.AddPrePolizas("Compras/RepNotasCredito", 103, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now, "Saldado manual", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + CvePrePoliza = ObjConta.AddPrePolizas("Compras/RepNotasCredito", 103, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, TxtFechaSaldar.Text.ToDate, "Saldado manual", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CveMoneda > 1 Then diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 8db91b075..0506df4ff 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -593,9 +593,6 @@ Partial Class Inventarios_TraspasoAlmacen End If End If - 'codigo provisional. - Dim CveSubP As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto", "").ToEntero - If DrPS("AplicaCaducidad").ToString = "True" Then If Not ChkSugiereFechaCaducidad.Checked AndAlso (TxtnFechaCaducidad.Text = "" OrElse TxtnLote.Text = "") Then Alert("Falta Especificar lote/Fecha del producto", TipoMensaje.MsgAdvertencia) @@ -790,10 +787,10 @@ Partial Class Inventarios_TraspasoAlmacen Private Sub LimpiaAgregar() 'DdlClasificacion.SelectedValue = "-1" 'DdlClasificacion_SelectedIndexChanged(DdlClasificacion, EventArgs.Empty) - txtCantidad.Text = "" + txtCantidad.Text = "1" TxtnObservaciones.Text = "" TxtnSerie.Text = "" - TxtnSerie.Visible = False + 'TxtnSerie.Visible = False TxtnLote.Text = "" TxtnFechaCaducidad.Text = "" @@ -951,14 +948,33 @@ Partial Class Inventarios_TraspasoAlmacen If ObjInventario.GetExistenciasProducto(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, Caducidad:=FechaCaducidad) Then 'si hay existencia en almacen costeado, lo tengo que sacar + ' si tiene serie el producto, debe de Existencia = ObjInventario.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal + Dim ExistenciaSinPendiente As Decimal = ObjInventario.DtResultados.FiltroPrimeroValor("Existencia", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal + Dim PendienteporSurtir As Decimal = ObjInventario.DtResultados.FiltroPrimeroValor("PendientePorSurtir", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal + + ' si la existencia es negativa y tiene serie ó lote, quiere decir que la consulta es específica, y si hay pendientes por surtir. puede generar negativos + ' para asegurarnos que lo pendiente por surtir se pueda surtir con otras series, consultamos de nuevo, pero a nivel producto, para checar existencia + + If ExistenciaSinPendiente > 0 AndAlso Existencia < 0 AndAlso PendienteporSurtir > 0 Then + If ObjInventario.GetExistenciasProducto(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd 23:59")) Then + 'si hay existencia en almacen costeado, lo tengo que sacar + Existencia = ObjInventario.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal + 'si la existencia del producto en general, supera a lo pendiente, entonces la serie si se puede sacar. + If Existencia > PendienteporSurtir Then + Existencia = ExistenciaSinPendiente + Else + Existencia = ExistenciaSinPendiente - PendienteporSurtir + End If + + End If + End If + End If Existencia -= gvr.FCTextBox("TxtCantidad2").Text.ToEntero() If Existencia < 0 Then ErrorExistencia = True - - 'gvr.FCTextBox("TxtCantidad2").Text = (Existencia + gvr.FCTextBox("TxtCantidad2").Text.ToEntero).ToString TextoExistencia.AppendFormat("-#{0} {1} {2}   Existencia: {3}
", gvr.DataKey("No"), gvr.DataKey("PS"), If(gvr.DataKey("Serie").ToString().Trim().Length > 0, $"   Serie: {gvr.DataKey("Serie")}", ""), (Existencia + gvr.FCTextBox("TxtCantidad2").Text.ToEntero)) End If Next @@ -1224,8 +1240,6 @@ Partial Class Inventarios_TraspasoAlmacen RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')") End If - ' If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose() - 'SI OCURRIO UN ERROR EN LA EXISTENCIA RECARGAMOS EL GRID PARA COLOREAR LOS DETALLES CON ERROR If ErrorExistencia Then CargaGvDatos() @@ -1234,98 +1248,6 @@ Partial Class Inventarios_TraspasoAlmacen ObjInventario.Dispose() End Sub - 'Function ConsumoInterno(TipoAlmacenOrigen As Integer, TipoAlmacenDestino As Integer) As Boolean - ' Dim Retorno As Boolean = False - ' Dim ErrorMovInv As Boolean = False - ' Dim TextoError As String = "" - ' Dim Fecha As Date = TxtFecha.Text.ToDate - - ' Dim ObjInventario As New ClsInventarios - ' Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL()) - ' Dim CveMovimiento As Integer = 0 - ' Dim TipoMovto = If(TipoAlmacenOrigen = 14, -1, 1) - ' Dim CveConceptoInventario As Integer = 8 - - - ' Dim CveAlmacenCI = If(TipoAlmacenOrigen = 14, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero) - ' Dim DtCostos As DataTable = Nothing - ' Dim ValorInventario As Decimal = 0 - - ' 'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN - ' CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, CveConceptoInventario, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, - ' Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, ""), - ' GastoIndirecto:=If(ChkTransitorio.Checked And TxtGastoIndirecto.Text.ToDouble > 0, TxtGastoIndirecto.Text, "-1").ToDouble, Modulo:="TA/G4") - ' Dim FolioMov As Integer = ObjInventario.Folio - - ' If CveMovimiento <= 0 Then - ' TextoError = "No se pudo generar el movimiento de salida correctamente" - ' ErrorMovInv = True - ' Else - - ' For Each Dr As DataRow In DtMovimientos.Rows - ' If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, Dr("CveAF").ToString.ToEntero, -1, Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate) Then - ' ErrorMovInv = True - ' TextoError = "Ocurrió un error al guardar los movimientos de salida" - ' Exit For - ' End If - ' Next - ' End If - - ' If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then - ' DtCostos = ObjInventario.DtResultados - ' Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"}) - ' Dim IdCtaContable As Integer = 0 - ' Dim CveCuenta As Integer = 0 - - ' If tmpCostos.Rows.Count > 0 Then - ' Dim Concepto As String = $"Consumo Interno: {ObjInventario.Folio} - {TxtObservaciones.Text}" - ' Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv/ConsumoInterno", 53, DtCostos.SUM("Total") * TipoMovto, DtCostos.SUM("Total") * TipoMovto, 1, TxtFecha.Text.ToDate, $"Consumo Interno: {TxtObservaciones.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - - ' For Each RowInv As DataRow In tmpCostos.Rows - ' ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal - ' IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero - ' CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero - ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorInventario * TipoMovto, Concepto, 181, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventario * TipoMovto, CveCuenta:=CveCuenta) Then - ' ErrorMovInv = True - ' Exit For - ' End If - ' Next - - ' IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={CveAlmacenCI}").ToEntero - - ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DtCostos.SUM("Total").ToDecimal * TipoMovto, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUM("Total").ToDecimal * TipoMovto) Then - ' ErrorMovInv = True - ' End If - - ' End If - ' End If - - ' If Not ErrorMovInv Then - - ' ObjInventario.Commit() - ' Dim Mensaje As StringBuilder = New StringBuilder - - ' Mensaje.Append("Se realizó el consumo interno.") - - ' Mensaje.AppendFormat("
Folio: {0}", FolioMov, CveMovimiento) - - ' Alert(Mensaje.ToString, TipoMensaje.MsgInformacion) - ' Mensaje.Clear() - - ' LimpiaMovimiento() - - ' Else - ' ObjInventario.RollBack() - ' Alert(TextoError, TipoMensaje.MsgError) - ' RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')") - ' End If - - - - ' Return Retorno - - 'End Function - #End Region @@ -1463,42 +1385,6 @@ Partial Class Inventarios_TraspasoAlmacen TdFechaCaducidad.Visible = GvDatos.Columns(7).Visible : ThFechaCaducidad.Visible = GvDatos.Columns(7).Visible GvDatos.Columns(8).Visible = DtTemp.MAX("CveSeccionAlmacen").ToString.ToEntero > 0 - ''TxtnSerie.Visible = False - ''ThSerie.Visible = False - ''TdSerie.Visible = False - 'GvDatos.Columns(5).Visible = False - - 'TxtnLote.Visible = False - 'ThLote.Visible = False - 'TdLote.Visible = False - 'GvDatos.Columns(6).Visible = False - - 'TxtnFechaCaducidad.Visible = False - 'ThFechaCaducidad.Visible = False - 'TdFechaCaducidad.Visible = False - 'GvDatos.Columns(7).Visible = False - - - 'If DtTemp.MAX("Serie").ToString <> "" Then - ' TxtnSerie.Visible = True - ' ThSerie.Visible = True - ' TdSerie.Visible = True - ' GvDatos.Columns(5).Visible = True - 'End If - 'If DtTemp.MAX("Lote").ToString <> "" Then - ' TxtnLote.Visible = True - ' ThLote.Visible = True - ' TdLote.Visible = True - ' GvDatos.Columns(6).Visible = True - 'End If - 'If DtTemp.MAX("FechaCaducidad").ToString.ToDate > MinFecha Then - ' TxtnFechaCaducidad.Visible = True - ' ThFechaCaducidad.Visible = True - ' TdFechaCaducidad.Visible = True - ' GvDatos.Columns(7).Visible = True - - 'End If - End Sub Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound @@ -1514,47 +1400,6 @@ Partial Class Inventarios_TraspasoAlmacen e.Row.FCTextBox("TxtCantidad2").Attributes.Add("onblur", String.Format("ValidaCantidad(this,{0})", e.Row.DBCampo("Cantidad"))) End If - 'If If(e.Row.DBCampo("Serie").ToString = "", "-1", e.Row.DBCampo("Serie").ToString) <> "-1" Then - ' TxtnSerie.Visible = True - ' ThSerie.Visible = True - ' TdSerie.Visible = True - ' GvDatos.Columns(4).Visible = True - ' e.Row.Cells(4).Text = e.Row.DBCampo("Serie").ToString - 'Else - ' e.Row.Cells(4).Text = "" - 'End If - - 'If If(e.Row.DBCampo("Lote").ToString = "", "-1", e.Row.DBCampo("Lote").ToString) <> "-1" Then - ' TxtnLote.Visible = True - ' ThLote.Visible = True - ' TdLote.Visible = True - ' GvDatos.Columns(5).Visible = True - ' e.Row.Cells(5).Text = e.Row.DBCampo("Lote").ToString - - ' TxtnBatch.Visible = True - ' ThBatch.Visible = True - ' TdBatch.Visible = True - ' GvDatos.Columns(6).Visible = True - - 'Else - ' e.Row.Cells(5).Text = "" - ' e.Row.Cells(6).Text = "" - 'End If - - 'If e.Row.RowState = DataControlRowState.Edit Then - ' e.Row.FCDropDownList("DdlUnidad").DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) - ' e.Row.FCDropDownList("DdlUnidad").DataBind() - ' e.Row.FCDropDownList("DdlUnidad").SelectedValue = e.Row.DBCampo("CveUM") - - ' e.Row.FCDropDownList("DdlClasificacion").DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) - ' e.Row.FCDropDownList("DdlClasificacion").DataBind() - ' e.Row.FCDropDownList("DdlClasificacion").SelectedValue = e.Row.DBCampo("CveClasificacion") - - ' e.Row.FCDropDownList("DdlProducto").DataSource = GlobalDTProductosServicios(UsuarioActual.CveEmpresa) - ' e.Row.FCDropDownList("DdlProducto").DataBind() - ' e.Row.FCDropDownList("DdlProducto").SelectedValue = e.Row.DBCampo("CvePS") - 'End If - End If End Sub Protected Sub GvPS_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting @@ -1566,60 +1411,6 @@ Partial Class Inventarios_TraspasoAlmacen CargaGvDatos() End Sub - 'Protected Sub GvM_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvDatos.RowEditing - ' GvDatos.EditIndex = e.NewEditIndex - - ' CargaGvDatos() - 'End Sub - 'Protected Sub GvM_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvDatos.RowUpdating - ' Dim dr = GvDatos.Rows(e.RowIndex) - - ' Dim Cantidad = dr.FCTextBox("TxtCantidad").Text.ToDouble - ' Dim CveUM = dr.FCDropDownList("DdlUnidad").SelectedValue.ToEntero - ' Dim CveClasificacion = dr.FCDropDownList("DdlClasificacion").SelectedValue.ToEntero - ' Dim CvePS = dr.FCDropDownList("DdlProducto").SelectedValue.ToEntero - ' Dim No = dr.DataKey("No").ToEntero - ' Dim Serie As String = dr.FCTextBox("TxtSerie").Text - - ' 'VALIDA EXISTENCIA - ' Dim Valido = True - ' Dim Inv As New ClsInventarios - ' Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUM, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, -1, TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), If(Serie = "", "-1", Serie)) - ' Inv.Dispose() - - ' If Existencia - txtCantidad.Text.ToDouble < 0 Then - ' If Existencia <= 0 Then - ' Alert("No hay existencia del producto", TipoMensaje.MsgError) - ' Else - ' Alert(String.Format("Solo hay en existencia: {0}", Existencia), TipoMensaje.MsgError) - ' End If - ' Valido = False - ' End If - - ' If Valido Then - - ' Dim Drs As DataRow() = DtMovimientos.Select(String.Format("No = {0}", No)) - ' If Drs.Count = 1 Then - - ' Drs(0)("Cantidad") = Cantidad - ' Drs(0)("CveUM") = CveUM - ' Drs(0)("CveClasificacion") = CveClasificacion - ' Drs(0)("CvePS") = CvePS - ' Drs(0)("EstatusExistencia") = "1" - ' End If - - - ' DtMovimientos.AcceptChanges() - ' GvDatos.EditIndex = -1 - ' End If - ' CargaGvDatos() - - 'End Sub - 'Protected Sub GvM_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit - ' GvDatos.EditIndex = -1 - ' CargaGvDatos() - 'End Sub - Protected Sub ChkSugiereFechaCaducidad_CheckedChanged(sender As Object, e As EventArgs) TxtnFechaCaducidad.Visible = Not ChkSugiereFechaCaducidad.Checked diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index dc10e0fef..511d4f3c6 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -7226,14 +7226,15 @@ public partial class Nomina_Nomina2 : ClsPaginas libro.Cell(Fila, 19).Value = "SIG";//RetiroSIG libro.Cell(Fila, 20).Value = "SUA";//RetiroSUA libro.Cell(Fila, 21).Value = "SIG";//RetiroSIG + libro.Cell(Fila, 22).Value = "Motivo";//Motivo - libro.Range(3, 1, 4, 21).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; - libro.Range(3, 1, 4, 21).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); - libro.Range(4, 1, 4, 21).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; - libro.Range(4, 1, 4, 21).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); - libro.Range(5, 1, 4, 21).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; - libro.Range(5, 1, 4, 21).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); + libro.Range(3, 1, 4, 22).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Range(3, 1, 4, 22).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); + libro.Range(4, 1, 4, 22).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Range(4, 1, 4, 22).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); + libro.Range(5, 1, 4, 22).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Range(5, 1, 4, 22).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); foreach (DataRow erow in DtSuaProcesado.Rows) { @@ -7259,6 +7260,7 @@ public partial class Nomina_Nomina2 : ClsPaginas libro.Cell(Fila, 19).Value = erow["GuarderiaSIG"].ToString().ToDecimal(); libro.Cell(Fila, 20).Value = erow["RetiroSUA"].ToString().ToDecimal(); libro.Cell(Fila, 21).Value = erow["RetiroSIG"].ToString().ToDecimal(); + libro.Cell(Fila, 22).Value = erow["Motivo"].ToString(); decimal VSUA = erow["SalarioSUA"].ToString().ToDecimal(); decimal VSIG = erow["SalarioSIG"].ToString().ToDecimal(); @@ -7294,7 +7296,7 @@ public partial class Nomina_Nomina2 : ClsPaginas } libro.SheetView.Freeze(4, 1); - libro.Range(4, 20, Fila, 21).SetAutoFilter(true); + libro.Range(4, 1, Fila, 22).SetAutoFilter(true); libro.Range(5, 20, Fila, 21).SetDataType(ClosedXML.Excel.XLDataType.Number); //libro.Row(2).SetAutoFilter(); diff --git a/Scripts/funciones.js b/Scripts/funciones.js index 1135fd9a1..c28864b85 100644 --- a/Scripts/funciones.js +++ b/Scripts/funciones.js @@ -1093,9 +1093,10 @@ function FormatoNumero(Importe, Decimales) { if (isNaN(parseInt(Importe))) return "NaN"; Decimales = Decimales || 2; // parametro opcional, toma el valor 2 por default // var tmpNum = Importe; - - - var tmpNum = parseFloat(Importe).toFixed(Decimales) + + + //var tmpNum = parseFloat(Importe).toFixed(Decimales) //se comenta por el redondeo de $3037.095 + var tmpNum = +(Math.round(Importe + "e+" + Decimales) + "e-" + Decimales); tmpNum = Number(tmpNum).toLocaleString('en'); //tmpNum = tmpNum.toFixed(2).replace(/./g, function (c, i, a) { diff --git a/vwd.webinfo b/vwd.webinfo index 81c9ef656..1c5a6a070 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -560,6 +560,10 @@ + + + +