diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index fa1cf6073..accb3c4ed 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -174,7 +174,7 @@ - +
@@ -623,8 +623,28 @@ debugger; } - + function Depositar() { + LimppiarVariables(); + + } + function Consultar() { + LimppiarVariables(); + + } + + function LimppiarVariables() { + + ValorTotalSeleccionado = 0; + comision = 0; + descuento = 0; + saldo = 0; + IVA = 0; + ComisionIntermediario = 0; + + } + + diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index 4679c6408..8ad8491f4 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -32,6 +32,7 @@ Partial Class Bancos_DepositosCaja ChkDescuento.Attributes.Add("onclick", "CheckDescuento(this);") ChkIntermediario.Attributes.Add("onclick", "CheckIntermediario(this);") BtnConsultar.Attributes.Add("onclick", "Consultar(this);") + BtnDepositar.Attributes.Add("onclick", "Depositar(this);") End If End Sub @@ -100,6 +101,9 @@ Partial Class Bancos_DepositosCaja GvFacturas.DataBind() + ChkFaltante.Checked = False + ChkDescuento.Checked = False + ChkIntermediario.Checked = False TxtComision.Text = "" TxtDescuento.Text = "" TxtIVA.Text = "" @@ -112,6 +116,7 @@ Partial Class Bancos_DepositosCaja DdlSubProyectoIntermediario.SelectedValueExist(DdlSubProyectos.SelectedValue.ToEntero) UpGvFacturas.Update() UpParametros.Update() + UpComisiones.Update() End Sub Private Sub BtnDepositar_Click(sender As Object, e As EventArgs) Handles BtnDepositar.Click diff --git a/CRM/Acercamiento.aspx b/CRM/Acercamiento.aspx index fbf65add1..2a0b2c928 100644 --- a/CRM/Acercamiento.aspx +++ b/CRM/Acercamiento.aspx @@ -1011,8 +1011,8 @@
-
- +
+
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index ab354e624..4b94f49f8 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -2310,16 +2310,16 @@ Partial Class PopUpVerFactura Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta)) - If Archivo.Exists Then + If Archivo.Exists Then + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If If UsuarioActual.CveEmpresa = 140 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If params.Add(New ReportParameter("Origen", Almacen)) params.Add(New ReportParameter("Destino", AlmacenDestino)) params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) @@ -2329,7 +2329,19 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("CantidadUsados", CantidadUsados.ToString())) params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString())) params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado)) - Else + ElseIf UsuarioActual.CveEmpresa = 153 Then + params.Add(New ReportParameter("Origen", Almacen)) + params.Add(New ReportParameter("Destino", AlmacenDestino)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text + params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString)) + params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString)) + params.Add(New ReportParameter("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString)) + params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString)) + params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString)) + Else params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString)) params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString)) @@ -2414,7 +2426,21 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString())) - params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado)) + params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado)) + ElseIf UsuarioActual.CveEmpresa = 153 Then + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte + params.Add(New ReportParameter("Destino", Almacen)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) End If diff --git a/Contabilidad/RegPrePoliza.aspx b/Contabilidad/RegPrePoliza.aspx index 1d6823ab4..172b43029 100644 --- a/Contabilidad/RegPrePoliza.aspx +++ b/Contabilidad/RegPrePoliza.aspx @@ -317,7 +317,9 @@
- + Cuenta diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index 94878d618..6fd47f81b 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -133,6 +133,14 @@ Partial Class ContabilidadC_RegPrePoliza ViewState("Actualizar") = value End Set End Property + Public Property IDMovEditar As Integer + Get + Return CType(ViewState("IDMovEditar"), Integer) + End Get + Set(value As Integer) + ViewState("IDMovEditar") = value + End Set + End Property Private ReadOnly Property CvePeriodo As Integer Get @@ -357,6 +365,12 @@ Partial Class ContabilidadC_RegPrePoliza .Add("TC", Type.GetType("System.Decimal")) .Add("PorcentajeImpuesto", Type.GetType("System.Decimal")) .Add("CveCuenta", Type.GetType("System.Int32")) + .Add("ContadoTipoTransaccion", Type.GetType("System.Int32")) + .Add("ContadoCuenta", Type.GetType("System.Int32")) + .Add("ContadoNumeroFolio", Type.GetType("System.String")) + .Add("ContadoImporte", Type.GetType("System.Double")) + .Add("ContadoBeneficiario", Type.GetType("System.String")) + .Add("ContadoObservaciones", Type.GetType("System.String")) End With End Sub @@ -931,9 +945,13 @@ Partial Class ContabilidadC_RegPrePoliza If e.Row.DataKey("CveConcepto").ToEntero().Contiene(30) Then e.Row.FCLinkButton("ImgBancos").Visible = True - If CveTipoTransaccion > 0 And CveCuenta > 0 And Folio.Length > 0 And ImporteDocumento > 0 And Beneficiario.Length > 0 Then + If e.Row.DataKey("ContadoTipoTransaccion").ToEntero > 0 And e.Row.DataKey("ContadoCuenta").ToEntero > 0 And e.Row.DataKey("ContadoNumeroFolio").ToString.Length > 0 And + e.Row.DataKey("ContadoImporte").ToDecimal > 0 And e.Row.DataKey("ContadoBeneficiario").ToString.Length > 0 Then e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green" End If + 'If CveTipoTransaccion > 0 And CveCuenta > 0 And Folio.Length > 0 And ImporteDocumento > 0 And Beneficiario.Length > 0 Then + ' e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green" + 'End If End If If e.Row.DataKey("CveConcepto").ToEntero().Contiene(17) Then @@ -971,10 +989,6 @@ Partial Class ContabilidadC_RegPrePoliza If CvePrePoliza > 0 Then 'Nuevo Modulo Charlie ActualizarPrePoliza() - - - - Else Dim MensajeAlert = New StringBuilder Dim ObjIE As New ClsBancos() @@ -999,10 +1013,6 @@ Partial Class ContabilidadC_RegPrePoliza Dim TipoMovto As Boolean = False Dim IdCtaContable As Integer = 0 Dim PorcentajeImpuesto As Decimal = 0 - - - - Dim CveProveedor As Integer = -1 Dim CveCompra As Integer = -1 @@ -1035,7 +1045,11 @@ Partial Class ContabilidadC_RegPrePoliza If CveConcepto = 30 AndAlso Importe <> 0 Then 'Registra movimieno bancario If CveConcepto = 30 Then - CveIE = ObjIE.AddBancos_IE(CveCuenta, CveTipoTransaccion, TxtFecha.Text, Folio, Beneficiario, ImporteDocumento, CveMoneda, 0, Observaciones, "", False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + + CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFecha.Text, gvr.DataKey("ContadoNumeroFolio").ToString, + gvr.DataKey("ContadoBeneficiario").ToString, gvr.DataKey("ContadoImporte").ToString.ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "", + False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + If CveIE < 0 Then MsgError = "No se pudo registrar movimiento bancario" CveIEInsertado = CveIE If ObjIE.GetBancosIE(CveIE, -1, -1, "-1", -1, "-1", "-1", -1, -1, -1, -1, -1, MinFecha, MaxFecha, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then @@ -1069,6 +1083,9 @@ Partial Class ContabilidadC_RegPrePoliza Exit For End If End If + If CveIE > 0 AndAlso gvr.DataKey("CveConcepto").ToEntero = 30 Then + MensajeAlert.AppendFormat("

Folio Bancario: {1}", CveIE, FolioIE) + End If Next @@ -1144,7 +1161,6 @@ Partial Class ContabilidadC_RegPrePoliza If Conta IsNot Nothing Then Conta.Dispose() End If End Sub - Private Sub ActualizarPrePoliza() Dim contador As Integer = 0 'Dim diferencia As String = "" @@ -1483,6 +1499,18 @@ Partial Class ContabilidadC_RegPrePoliza CargaTipoTransaccion("Egs") End If + Dim IdMov As Integer = GvRow.DataKey("IdMov").ToString.ToEntero + Dim Rows As DataRow() = DtMovimientos.Select("IdMov = " & IdMov) + IDMovEditar = IdMov + + If Rows.Count > 0 Then + Dim dr As DataRow = Rows(0) + DdlTipoTransaccion.SelectedValueExist(dr("ContadoTipoTransaccion").ToString.ToEntero) + DdlCuenta.SelectedValueExist(dr("ContadoCuenta").ToString.ToEntero) + TxtDocumentoFolio.Text = dr("ContadoNumeroFolio").ToString + TxtDocumentoObservaciones.Text = dr("ContadoObservaciones").ToString + TxtDocumentoBeneficiario.Text = dr("ContadoBeneficiario").ToString + End If TxtDocumentoImporte.Text = If(GvRow.FCTextBox("TxtAbono").Text = "", GvRow.FCTextBox("TxtCargo").Text.FormatoNumero, GvRow.FCTextBox("TxtAbono").Text.FormatoNumero) UpBancos.Update() @@ -1501,13 +1529,30 @@ Partial Class ContabilidadC_RegPrePoliza DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub Private Sub BtnContado_Click(sender As Object, e As EventArgs) Handles BtnContado.Click - CveConcepto = 30 - CveTipoTransaccion = DdlTipoTransaccion.SelectedValue.ToEntero() - CveCuenta = DdlCuenta.SelectedValue.ToEntero() - Folio = TxtDocumentoFolio.Text - ImporteDocumento = TxtDocumentoImporte.Text.ToDecimal() - Observaciones = TxtDocumentoObservaciones.Text - Beneficiario = TxtDocumentoBeneficiario.Text + Dim Rows As DataRow() = DtMovimientos.Select("IdMov = " & IDMovEditar) + + If Rows.Count > 0 Then + Dim dr As DataRow = Rows(0) + + + dr("ContadoTipoTransaccion") = DdlTipoTransaccion.SelectedValue.ToEntero + dr("ContadoCuenta") = DdlCuenta.SelectedValue.ToEntero + dr("ContadoNumeroFolio") = TxtDocumentoFolio.Text + dr("ContadoImporte") = TxtDocumentoImporte.Text.ToDecimal + dr("ContadoBeneficiario") = TxtDocumentoBeneficiario.Text + dr("ContadoObservaciones") = TxtDocumentoObservaciones.Text + End If + DtMovimientos.AcceptChanges() + GvMov.DataSource = DtMovimientos + GvMov.DataBind() + 'CveTipoTransaccion = DdlTipoTransaccion.SelectedValue.ToEntero + 'CveCuenta = DdlCuenta.SelectedValue.ToEntero + 'Folio = TxtDocumentoFolio.Text + 'ImporteDocumento = TxtDocumentoImporte.Text.ToDecimal + 'Observaciones = TxtDocumentoObservaciones.Text + 'Beneficiario = TxtDocumentoBeneficiario.Text + + RegistraScript(String.Format("$('#{0}').modal('hide');", "DivContadoModal")) GvMov.Rows(RowIndex).FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green" UPMovs.Update() diff --git a/Empresas/140/Formatos/Polizas.rdlc b/Empresas/140/Formatos/Polizas.rdlc index ffc1b50d8..2ba90f9a4 100644 --- a/Empresas/140/Formatos/Polizas.rdlc +++ b/Empresas/140/Formatos/Polizas.rdlc @@ -530,7 +530,6 @@ @@ -542,9 +541,9 @@ Textbox15 + - #3a4173 + White 2pt 2pt 2pt @@ -566,7 +565,6 @@ @@ -578,9 +576,9 @@ Textbox16 + - #3a4173 + White 2pt 2pt 2pt @@ -602,7 +600,6 @@ @@ -614,9 +611,9 @@ Textbox28 + - #3a4173 + White 2pt 2pt 2pt @@ -642,7 +639,6 @@ @@ -654,9 +650,9 @@ Textbox46 + - #3a4173 + White 2pt 2pt 2pt @@ -678,7 +674,6 @@ @@ -690,9 +685,9 @@ Textbox52 + - #3a4173 + White 2pt 2pt 2pt @@ -714,7 +709,6 @@ @@ -726,9 +720,9 @@ Textbox66 + - #3a4173 + White 2pt 2pt 2pt @@ -1618,7 +1612,6 @@ @@ -1633,7 +1626,6 @@ @@ -1648,7 +1640,6 @@ @@ -1659,9 +1650,8 @@ Textbox4 0.19844cm - 2.10635in 1.6616cm - 9.94376cm + 19.38791cm @@ -1670,20 +1660,6 @@ 2pt - - Embedded - Logo - FitProportional - 0.00896cm - 2.5433cm - 4.13cm - 1 - - - -