diff --git a/Bancos/CargarConciliacionesBancarias.aspx.vb b/Bancos/CargarConciliacionesBancarias.aspx.vb index 380ccb142..2da1ae93e 100644 --- a/Bancos/CargarConciliacionesBancarias.aspx.vb +++ b/Bancos/CargarConciliacionesBancarias.aspx.vb @@ -3,9 +3,6 @@ Option Explicit On Imports System.Data Imports Extensiones -Imports System.Xml -Imports Microsoft.Reporting.WebForms -Imports GemBox.Spreadsheet Partial Class Bancos_CargarConciliacionesBancarias Inherits ClsPaginas diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index a33f03cee..aa9da1968 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -1,8 +1,8 @@ Option Explicit On Option Strict On -Imports Extensiones Imports System.Data +Imports Extensiones Partial Class Bancos_DepositosCaja Inherits ClsPaginas diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs index cfe9b6d4a..1f602c371 100644 --- a/Bancos/Devoluciones.aspx.cs +++ b/Bancos/Devoluciones.aspx.cs @@ -1,13 +1,10 @@ -using System; +using Extensiones; +using System; using System.Collections.Generic; using System.Data; -using System.Drawing; -using System.Linq; using System.Text; using System.Web; -using System.Web.UI; using System.Web.UI.WebControls; -using Extensiones; using static Extensiones.ModExtensiones; public partial class Bancos_Devoluciones : ClsPaginas @@ -111,11 +108,11 @@ public partial class Bancos_Devoluciones : ClsPaginas ComprobanteMuestraOculta(); CargaTipoTransaccion(tipo); - + } protected void TipoDevolucion_SelectedIndexChanged(object sender, EventArgs e) - { + { switch (TipoDevolucion.SelectedValue) { case "1": @@ -139,7 +136,7 @@ public partial class Bancos_Devoluciones : ClsPaginas if (OpcionDevolucion.SelectedValue.ToEntero() == 3 && TipoDevolucion.SelectedValue.ToString().ToEntero() == 2) { Anexo.Text = ""; - DvComprobante.Visible = false; + DvComprobante.Visible = false; } else { @@ -163,7 +160,7 @@ public partial class Bancos_Devoluciones : ClsPaginas } protected void CargaSubProyectos() { - DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa:UsuarioActual.CveEmpresa); + DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa); DdlSubProyecto.DataBind(); DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione SubProyecto", "-1")); } @@ -358,14 +355,14 @@ public partial class Bancos_Devoluciones : ClsPaginas #region"GUARDAR" protected void BtnGuardar_Click(object sender, EventArgs e) { - //inician validaciones + //inician validaciones if (OpcionDevolucion.SelectedValue.ToEntero() != 3 && TipoDevolucion.SelectedValue.ToString().ToEntero() != 2 && TxtImporte.Text == "") { - Alert("Debe ingresar un importe", TipoMensaje.MsgAdvertencia); - return; + Alert("Debe ingresar un importe", TipoMensaje.MsgAdvertencia); + return; } - if (OpcionDevolucion.SelectedValue == "3" && TipoDevolucion.SelectedValue == "2") + if (OpcionDevolucion.SelectedValue == "3" && TipoDevolucion.SelectedValue == "2") { if (TxtValor.Text == "") { @@ -382,8 +379,8 @@ public partial class Bancos_Devoluciones : ClsPaginas return; } else - { - if (valor ==0) + { + if (valor == 0) { Alert("No se han seleccionado opciones", TipoMensaje.MsgAdvertencia); return; @@ -400,7 +397,8 @@ public partial class Bancos_Devoluciones : ClsPaginas List filesgral = Anexo.getfiles().Archivos; string filemove = ""; string Comprobante = ""; - foreach(Archivo fileItem in filesgral){ + foreach (Archivo fileItem in filesgral) + { Comprobante = System.IO.Path.GetExtension(String.Format("{0}Temp\\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", ""); filemove = fileItem.filename; } @@ -465,7 +463,7 @@ public partial class Bancos_Devoluciones : ClsPaginas } // DATOS PREPOLIZA - if ( DdlTipoTransanccion.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolio.Text.ToEntero(); + if (DdlTipoTransanccion.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolio.Text.ToEntero(); CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE Devoluciones", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), 1, TxtFechaDocumento.Text.ToDate(), TxtObservaciones.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransanccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: CveTipoPoliza); if (CvePrePoliza > 0) @@ -475,25 +473,25 @@ public partial class Bancos_Devoluciones : ClsPaginas if (OpcionDevolucion.SelectedValue.ToEntero() == 3 && TipoDevolucion.SelectedValue.ToString().ToEntero() == 2) { - - int cveConcepto = DdlConcepto.SelectedValue.ToEntero(); - string descripcion = TxtDescripcion.Text; - int tipoDescuento = 1; - double valor = TxtValor.Text.ToDouble(); - int vecesAplicar = TxtVecesAplicar.Text.ToEntero(); - decimal montoLimite = 0; - string fechaInicioAplicacion = DateTime.Now.ToString("yyyy/MM/dd"); - bool estatus = true; - int CveCuenta = -1; - int CveMovtoPermanente = ObjNom.AddMovtoPermanente(cveConcepto, cvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus, CveCuenta); + int cveConcepto = DdlConcepto.SelectedValue.ToEntero(); + string descripcion = TxtDescripcion.Text; + int tipoDescuento = 1; + double valor = TxtValor.Text.ToDouble(); + int vecesAplicar = TxtVecesAplicar.Text.ToEntero(); + decimal montoLimite = 0; + + string fechaInicioAplicacion = DateTime.Now.ToString("yyyy/MM/dd"); + bool estatus = true; + int CveCuenta = -1; + int CveMovtoPermanente = ObjNom.AddMovtoPermanente(cveConcepto, cvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus, CveCuenta); + + if (CveMovtoPermanente < 0) + { + MsgError = "No se pudo insertar movimiento permanente"; + } - if (CveMovtoPermanente < 0) - { - MsgError = "No se pudo insertar movimiento permanente"; - } - foreach (GridViewRow gvr in GvDevoluciones.Rows) { @@ -515,7 +513,7 @@ public partial class Bancos_Devoluciones : ClsPaginas } } } - } + } } else @@ -605,7 +603,7 @@ public partial class Bancos_Devoluciones : ClsPaginas { MsgError = "No se insertó movimiento bancario"; } - } + } } else { @@ -674,7 +672,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 (IDPoliza > 0) { Msg.AppendFormat(@"

Ver Póliza", IDPoliza); @@ -699,7 +697,7 @@ public partial class Bancos_Devoluciones : ClsPaginas Msg.Clear(); Alert(Msg.ToString(), TipoMensaje.MsgError); } - + ObjIE.Dispose(); ObjMov.Dispose(); @@ -718,8 +716,8 @@ public partial class Bancos_Devoluciones : ClsPaginas DataTable dt = onom.DtResultados.FiltraParametros(" FormulaTotal = 'FNC.[MovimientosPermanentes]'"); DdlConcepto.Items.Clear(); - DdlConcepto.DataSource = dt.FiltraParametros("Tipo ='D'"); - + DdlConcepto.DataSource = dt.FiltraParametros("Tipo ='D'"); + DataRow drow = dt.NewRow(); drow["CveConcepto"] = "-1"; drow["Concepto"] = "Seleccione"; diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index 75982a281..9efa900c9 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -1211,7 +1211,7 @@ Partial Class Bancos_FluctuacionCambiaria If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnProveedorCvePrePoliza.Value.ToEntero, 1, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then Banco.Commit() - BtnProveedoresRemove.visible = False + BtnProveedoresRemove.visible = False Alert("Flucturación eliminada.") Else Banco.RollBack() diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs index e1610060d..d9f4f41b0 100644 --- a/Bancos/PagoAcreedor.aspx.cs +++ b/Bancos/PagoAcreedor.aspx.cs @@ -1,13 +1,10 @@ -using System; +using Extensiones; +using System; using System.Collections.Generic; using System.Data; -using System.Drawing; -using System.Linq; using System.Text; using System.Web; -using System.Web.UI; using System.Web.UI.WebControls; -using Extensiones; using static Extensiones.ModExtensiones; public partial class Bancos_PagoAcreedor : ClsPaginas @@ -115,7 +112,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas if (!IsPostBack) { UsaComplementaria = true; - CveMonedaCuentaPago = 0; + CveMonedaCuentaPago = 0; rowComisiones.Visible = UsuarioActual.CveEmpresa.Contiene(1, 4, 5, 7, 11, 12, 72, 80, 126, 119, 122); CargaTipoTransaccion(); @@ -303,7 +300,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas AsignaCuentaProveedor(DdlProveedores.SelectedValue.ToEntero()); // DATOS PREPOLIZA - if ( DdlTipoTransaccion.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolio.Text.ToEntero(); + if (DdlTipoTransaccion.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolio.Text.ToEntero(); CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE PAGO ACRREDORES", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), CveMonedaPago, TxtFechaDocumento.Text.ToDate(), DdlProveedores.SelectedText.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)); @@ -319,14 +316,14 @@ public partial class Bancos_PagoAcreedor : ClsPaginas CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero(), DdlTipoTransaccion.SelectedValue.ToEntero(), TxtFechaDocumento.Text.Trim().ToDate(), TxtFolio.Text.Trim(), DdlProveedores.SelectedText.ToString(), ImporteBanco.ToString().ToDouble(), CveMonedaPago, TCPago.ToString().ToDouble(), TxtObservaciones.Text.Trim(), "", ChkAbonoCuenta.Checked, false, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); - + if (CveIE > 0) { //GUARDA COMPROBANTE if (!filemove.Equals("")) { - filemove.FilesMove(CveIE.ToString(), string.Format(@"{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:false); + filemove.FilesMove(CveIE.ToString(), string.Format(@"{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase: false); } decimal Importe; decimal ImporteMN; @@ -402,7 +399,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas { ImporteMN = Importe; ImporteComplementaria = (Importe * TC - Importe).RoundSQL(); - } + } else { ImporteMN = (Importe * TC).RoundSQL(); @@ -419,7 +416,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas if (tCveMoneda != 1) { - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, Ref, CveConceptoContablePago, Conc, DateTime.Now, IDCtaContableAcreedorExtranjera, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto:DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, Ref, CveConceptoContablePago, Conc, DateTime.Now, IDCtaContableAcreedorExtranjera, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de pago acreedor"; break; @@ -493,7 +490,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas { ImporteMNBanco = (ImporteBanco * TCPago).RoundSQL(); ImporteComplementaria = 0; - } + } } @@ -508,7 +505,8 @@ public partial class Bancos_PagoAcreedor : ClsPaginas { MsgError = "No se pudo insertar concepto de bancos complementaria"; } - if (AcumImporteMN!=(ImporteBanco + ImporteComplementaria)) { + if (AcumImporteMN != (ImporteBanco + ImporteComplementaria)) + { int tCveConceptoOtIngresos = 0; bool TipoMovtoOt = false; decimal Dif = AcumImporteMN - (ImporteBanco + ImporteComplementaria); @@ -520,7 +518,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas { tCveConceptoOtIngresos = 64; TipoMovtoOt = true; } - + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOt, Dif.Abs(), Ref, tCveConceptoOtIngresos, Conc, DateTime.Now, 0, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: Dif.Abs(), ImporteME: Dif.Abs(), TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de ajuste en redondeo"; @@ -769,7 +767,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas //GUARDA COMPROBANTE if (!filemove.Equals("")) { - filemove.FilesMove(CveIE.ToString(), string.Format(@"{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase: false); + filemove.FilesMove(CveIE.ToString(), string.Format(@"{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase: false); } if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: ImporteMN, TipoCambio: TC, TipoCambioPago: TC, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) @@ -825,7 +823,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas } //CONTABILIZA - if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") ) + if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("")) { if (IDCtaContableAcreedor > 0 && IDCtaContableBancos > 0) { @@ -959,12 +957,12 @@ public partial class Bancos_PagoAcreedor : ClsPaginas DateTime FInicio = MinFecha; DateTime FFin = MaxFecha; - if(TxtFechaInicio.Text.Length == 10) + if (TxtFechaInicio.Text.Length == 10) { FInicio = TxtFechaInicio.Text.ToDate(); } - if(TxtFechaFin.Text.Length == 10) + if (TxtFechaFin.Text.Length == 10) { FFin = TxtFechaFin.Text.ToDate(); } diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index d1e3553b6..4a6183671 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -1,13 +1,9 @@ -using System; +using Extensiones; +using System; using System.Collections.Generic; -using System.Data; -using System.Drawing; -using System.Linq; using System.Text; using System.Web; -using System.Web.UI; using System.Web.UI.WebControls; -using Extensiones; using static Extensiones.ModExtensiones; public partial class Bancos_PagoDeudor : ClsPaginas @@ -86,7 +82,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas } } - + private int IDCtaContableBancosPrestamo { @@ -156,7 +152,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas { if (!IsPostBack) { - + CargaTipoTransaccion(); CargaCuentas(); CargaProveedores(); @@ -187,7 +183,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas DdlSubProyectoPago.DataBind(); DdlSubProyectoPago.Items.Insert(0, new ListItem("Seleccione", "-1")); - + } @@ -321,12 +317,12 @@ public partial class Bancos_PagoDeudor : ClsPaginas int CveConceptoContableBanco = 30; int CveConceptoContablePrestamo = 43; int CvePlantillaPoliza = 45; - int CvePrePoliza = 0; + int CvePrePoliza = 0; int FolioFijo = 0; int IDPoliza = 0; decimal tipoCambio = (CveMonedaPrestamo == 2) ? TxtTCDolaresPrestamo.Text.ToDecimal() : 1; StringBuilder Msg = new StringBuilder(); - + //OBTIENE COMPROBANTE !! string Comprobante = ""; List filesgral = AnexoPrestamo.getfiles().Archivos; @@ -359,19 +355,19 @@ public partial class Bancos_PagoDeudor : ClsPaginas } // SI ES DOLARES - if(CveMonedaPrestamo == 2) + if (CveMonedaPrestamo == 2) { // BANCOS - BANCOS COMPLEMENTARIA if (UsaComplementaria) { // BANCOS - COMPLEMENTARIA - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true,0, Ref, 204, Conc, DateTime.Now, IDCtaContableBancosComplementariaPrestamo, -1, 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, 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())) { MsgError = "No se pudo insertar concepto de bancos complementaria"; } - + s // BANCOS - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancosPrestamo, -1, 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(), Ref, CveConceptoContableBanco, Conc, IDCtaContableBancosPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de bancos"; } @@ -379,23 +375,23 @@ public partial class Bancos_PagoDeudor : ClsPaginas else { // BANCOS - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancosPrestamo, -1, 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(), Ref, CveConceptoContableBanco, Conc, IDCtaContableBancosPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal() * tipoCambio, ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de bancos"; } - } - + } + // DEUDORES - DEUDORES COMPLEMENTARIAIDCtaContableDeudorPrestamo if (UsaComplementaria) //(IDCtaContableDeudorCompPrestamo > 0) { // DEUDOR COMPLEMENTARIA - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false,0, Ref, 256, Conc, DateTime.Now, IDCtaContableDeudorCompPrestamo, -1, 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, 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())) { MsgError = "No se pudo insertar concepto de deudor complementaria"; } // DEUDOR - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContablePrestamo, Conc, DateTime.Now, IDCtaContableDeudorPrestamo, -1, 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(), Ref, CveConceptoContablePrestamo, Conc, IDCtaContableDeudorPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de deudor"; } @@ -403,7 +399,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas else { // DEUDOR - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContablePrestamo, Conc, DateTime.Now, , -1, 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(), Ref, CveConceptoContablePrestamo, Conc, IDCtaContableDeudorPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal() * tipoCambio, ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de deudor"; } @@ -413,17 +409,17 @@ public partial class Bancos_PagoDeudor : ClsPaginas else { // BANCOS - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancosPrestamo, -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + 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())) { MsgError = "No se pudo insertar concepto de bancos"; } // DEUDOR - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContablePrestamo, Conc, DateTime.Now, IDCtaContableDeudorPrestamo, -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + 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())) { MsgError = "No se pudo insertar concepto de deudor"; } - } + } } else { @@ -439,13 +435,13 @@ public partial class Bancos_PagoDeudor : ClsPaginas { if (ObjMov.ValorPolizaDescuadre > 0) { - $"Bancos/IE PAGO Deudor | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}".GuardaLogAD( "LogPrePolizas"); + $"Bancos/IE PAGO Deudor | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}".GuardaLogAD("LogPrePolizas"); } } bool AutoConta = UsuarioActual.Empresa.Funcionalidad(200).Equals("1"); - // if (UsuarioActual.CveEmpresa == 119) AutoConta = false; - + // if (UsuarioActual.CveEmpresa == 119) AutoConta = false; + if (AutoConta && MsgError.Equals("")) { //JJMQ:20190103: Cambio la siguiente linea porque esta validando siempre una complementaria aunque el movto sea dlls @@ -453,7 +449,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas //Y se valida la moneda con el siguiente IF bool ValidoComplementaria = false; - if ((CveMonedaPrestamo == 2 && IDCtaContableBancosComplementariaPrestamo > 0 && IDCtaContableDeudorCompPrestamo > 0) || CveMonedaPrestamo == 1) + if ((CveMonedaPrestamo == 2 && IDCtaContableBancosComplementariaPrestamo > 0 && IDCtaContableDeudorCompPrestamo > 0) || CveMonedaPrestamo == 1) { ValidoComplementaria = true; } if (IDCtaContableDeudorPrestamo > 0 && IDCtaContableBancosPrestamo > 0 && ValidoComplementaria) @@ -689,7 +685,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero(), DdlTipoTransaccion.SelectedValue.ToEntero(), TxtFechaDocumento.Text.Trim().ToDate(), TxtFolio.Text.Trim(), DdlProveedores.SelectedText.ToString(), ImporteBanco.ToString().ToDouble(), CveMoneda, (Double)tipoCambio, TxtObservaciones.Text.Trim(), "", false, false, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); - + if (CveIE > 0) { @@ -747,7 +743,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas if (UsaComplementaria) { ImporteMN = Importe; - ImporteComplementaria = Importe * TCDoc - Importe; + ImporteComplementaria = Importe * TCDoc - Importe; } else { @@ -756,13 +752,13 @@ public partial class Bancos_PagoDeudor : ClsPaginas } } - ImporteMN = ImporteMN.RoundSQL(); + ImporteMN = ImporteMN.RoundSQL(); ImporteComplementaria = ImporteComplementaria.RoundSQL(); if (tCveMoneda != 1) { - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, Ref, CveConceptoContablePago, Conc, DateTime.Now, IDCtaContableDeudor, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TCDoc, TipoCambioPago: TC,CveSubProyecto:DdlSubProyectoPago.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, Ref, CveConceptoContablePago, Conc, DateTime.Now, IDCtaContableDeudor, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TCDoc, TipoCambioPago: TC, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de pago deudor"; break; @@ -792,7 +788,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas CveConceptoDiferenciaCambiaria = 64; IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaGananciaCambiaria; TipoMovto = true; - + Importe = (Importe * TC) - (Importe * gvr.DataKey("TipoCambio").ToDecimal()); } ImporteMN = Importe; @@ -803,7 +799,8 @@ public partial class Bancos_PagoDeudor : ClsPaginas } } - }else + } + else { if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, Ref, CveConceptoContablePago, Conc, DateTime.Now, IDCtaContableDeudor, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: gvr.DataKey("TipoCambio").ToDecimal(), TipoCambioPago: TC, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { @@ -811,7 +808,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas break; } } - + } } @@ -892,7 +889,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas MsgError = "No se pudo insertar la póliza"; } - + if (MsgError.Equals("")) { if (Msg.ToString().Equals("")) diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index 7e0bae4ee..dbc9eed1f 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -5,7 +5,7 @@ Imports System.Data Imports Extensiones Partial Class Bancos_PopIECompras - Inherits ClsPaginas + Inherits ClsPaginas #Region "Propiedades" Private Property DtDeudores As DataTable Get @@ -515,8 +515,8 @@ Partial Class Bancos_PopIECompras End If UpDatos.Update() End If - End Sub - + End Sub + #Region "C A M B I A R P A N E L" Private Sub RBLContado_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLContado.SelectedIndexChanged Select Case RBLContado.SelectedValue @@ -573,9 +573,9 @@ Partial Class Bancos_PopIECompras CargaVentas(CveMoneda) TxtImporte.Text = "0.00" End Select - End Sub + End Sub #End Region - + #Region "C A R G A R I N F O R M A C I O N" Private Sub CargaCompra(pCveCompra As Integer) Dim ObjCompra As New ClsCompras() @@ -1008,9 +1008,9 @@ Partial Class Bancos_PopIECompras 'RecargaGlobalCuentasBancarias() UpCuentaDeposito.Update() - End Sub + End Sub #End Region - + #Region "DDL'S CHANGED" Protected Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged Dim valor As Integer = DirectCast(sender, DropDownList).SelectedValue.ToEntero @@ -1104,11 +1104,11 @@ Partial Class Bancos_PopIECompras Private Sub DdlAcreedor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAcreedor.SelectedIndexChanged CambieAcreedor() - End Sub + End Sub #End Region - + #Region "CHK TIPO CAMBIO" - + #Region "PAGAR CON PESOS" Protected Sub ChkPagarPesos_CheckedChanged(sender As Object, e As EventArgs) If ChkPagarPesos.Checked Then @@ -1165,9 +1165,9 @@ Partial Class Bancos_PopIECompras Else args.IsValid = False End If - End Sub + End Sub #End Region - + #Region "PAGAR CON DOLARES" Protected Sub ChkPagarDolares_CheckedChanged(sender As Object, e As EventArgs) If ChkPagarDolares.Checked Then @@ -1224,9 +1224,9 @@ Partial Class Bancos_PopIECompras Else args.IsValid = False End If - End Sub + End Sub #End Region - + Protected Sub BtnCambiaTipoMoneda_Click(sender As Object, e As EventArgs) CambiaTipoMoneda() End Sub @@ -1244,10 +1244,10 @@ Partial Class Bancos_PopIECompras End If UpDatos.Update() - End Sub - + End Sub + #End Region - + #Region "GV ROW DATA BOUND" Private Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvIngresos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index ef47b01ed..a4e1d7c88 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -719,7 +719,7 @@ Partial Class Bancos_ProveedoresAbonar Exit Sub End If - Dim ImporteSeleccionado As Decimal = 0 + Dim ImporteSeleccionado As Decimal = 0 If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then Dim Validada As Boolean = False Dim MsgValidadas As New StringBuilder diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index bf069b542..b6ba10c25 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -2,9 +2,7 @@ Option Strict On Imports System.Data -Imports Microsoft.Reporting.WebForms Imports Extensiones -Imports System.Collections.Generic Partial Class Bancos_RepCortes Inherits ClsPaginas @@ -59,10 +57,10 @@ Partial Class Bancos_RepCortes Set(value As Integer) ViewState("CveCorte") = value End Set - End Property - + End Property + #End Region - + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then txtFechaVI.Text = Now.ToShortDateString @@ -189,9 +187,9 @@ Partial Class Bancos_RepCortes GvP.DataBind() UPPDetalle.Update() UpAcciones.Update() - End Sub - + End Sub + #End Region - - + + End Class