From d0fb221126b43c0c5621b50e479f4f74b2629b98 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Mon, 29 May 2023 13:05:22 -0700 Subject: [PATCH] Otros Egresos paguese a seleccion por dropdown list --- Bancos/PolizaCheque.aspx | 6 +- Bancos/PolizaCheque.aspx.vb | 273 +++++++++++++++++++++++------------- 2 files changed, 183 insertions(+), 96 deletions(-) diff --git a/Bancos/PolizaCheque.aspx b/Bancos/PolizaCheque.aspx index 32ed1c0b4..35a7465b4 100644 --- a/Bancos/PolizaCheque.aspx +++ b/Bancos/PolizaCheque.aspx @@ -98,10 +98,12 @@
- + <%--
diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb index 2b460b21e..270c40fdd 100644 --- a/Bancos/PolizaCheque.aspx.vb +++ b/Bancos/PolizaCheque.aspx.vb @@ -3,12 +3,13 @@ Imports Extensiones Imports System.IO Imports System.Linq Imports System.Web.Services - +Imports Stimulsoft.Report.BarCodes + Partial Class Bancos_PolizaCheque - Inherits ClsPaginas - - ' Private Shared missing As Object = System.Reflection.Missing.Value - + Inherits ClsPaginas + + ' Private Shared missing As Object = System.Reflection.Missing.Value + #Region "Propiedades" Private Property NombreArchivo As String Get @@ -92,9 +93,9 @@ Partial Class Bancos_PolizaCheque Get Return CType(ViewState("CveTurno"), Integer) End Get - End Property + End Property #End Region - + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then @@ -188,30 +189,41 @@ Partial Class Bancos_PolizaCheque DdlPlantilla.SelectedValue = "36" DdlPlantilla.Enabled = False End If + + + ''DdlProveedores.txtText.Value = "" + DdlProveedores.txtText.Value = "Seleccione un proveedor" + DdlProveedores.txtValue.Value = "-1" + DdlProveedores.setEsWebService(True) + DdlProveedores.Attributes.Add("data-metodo", "getproveedores") + + CargaDDLPersonal() + + End If End Sub - Protected Sub BtnBuscarProveedor_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnBuscarProveedor.Click - ViewState("CveProveedor") = HdnCveProveedor.Value.ToEntero - CargaProveedor(HdnCveProveedor.Value.ToEntero, "-1") - DdlPlantilla_SelectedIndexChanged(DdlPlantilla, e) - End Sub + 'Protected Sub BtnBuscarProveedor_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnBuscarProveedor.Click + ' ViewState("CveProveedor") = HdnCveProveedor.Value.ToEntero + ' CargaProveedor(HdnCveProveedor.Value.ToEntero, "-1") + ' DdlPlantilla_SelectedIndexChanged(DdlPlantilla, e) + 'End Sub - Private Sub CargaProveedor(ByVal CveProveedor As Integer, RFC As String) - Dim ObjProveedor As New ClsCompProveedores() + 'Private Sub CargaProveedor(ByVal CveProveedor As Integer, RFC As String) + ' Dim ObjProveedor As New ClsCompProveedores() - If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", RFC, "-1", "-1", -1, UsuarioActual.CveEmpresa) Then - If ObjProveedor.DtResultados.Rows.Count > 0 Then - TxtPagueseA.Text = ObjProveedor.RazonSocial - TxtNotificarA.Text = ObjProveedor.NotificarA.Trim - Else - Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia) - End If - End If - ObjProveedor.Dispose() + ' If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", RFC, "-1", "-1", -1, UsuarioActual.CveEmpresa) Then + ' If ObjProveedor.DtResultados.Rows.Count > 0 Then + ' TxtPagueseA.Text = ObjProveedor.RazonSocial + ' TxtNotificarA.Text = ObjProveedor.NotificarA.Trim + ' Else + ' Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia) + ' End If + ' End If + ' ObjProveedor.Dispose() - End Sub + 'End Sub Private Sub CargaPlantillas(TipoPlantilla As Integer) @@ -371,6 +383,19 @@ Partial Class Bancos_PolizaCheque End Function Protected Sub DdlPlantilla_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPlantilla.SelectedIndexChanged + + DdlPersonal.SelectedValueExist(-1) + DdlProveedores.txtText.Value = "Seleccione un proveedor" + DdlProveedores.txtValue.Value = "-1" + + If DdlPlantilla.SelectedValue.ToEntero = 56 Then + DdlProveedores.Visible = False + DdlPersonal.Visible = True + Else + DdlProveedores.Visible = True + DdlPersonal.Visible = False + End If + Dim IdCtaFondoGarantia As Integer If ViewState("CveProveedor").ToString.ToEntero > 0 Then @@ -582,7 +607,7 @@ Partial Class Bancos_PolizaCheque GeneraLayout() End If - End Sub + End Sub #Region "LAYOUT" Private Function CreaArchivo() As Boolean DirectoryExistsCreate(String.Format("{0}Layout", UsuarioActual.Empresa.Ruta)) @@ -706,65 +731,65 @@ Partial Class Bancos_PolizaCheque End If Return UCase(Retorno) - End Function - - 'Este metodo es el de las altas - 'Private Function GeneraLineaLayout(CvePersonal As Integer, ObjPersonal As ClsRH) As String - ' Dim Retorno As String = "" - - ' If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then - ' Dim TipoRegistro As String = "02" 'Estatico - ' Dim Nombre As String = GeneraCampo(ObjPersonal.DtResultados(0)("Nombres").ToString, 20) - ' Dim ApellidoPaterno As String = GeneraCampo(ObjPersonal.DtResultados(0)("APaterno").ToString, 20) - ' Dim ApellidoMaterno As String = GeneraCampo(ObjPersonal.DtResultados(0)("AMaterno").ToString, 20) - ' Dim FechaNacimiento As String = ObjPersonal.DtResultados(0)("FechaNacimiento").ToString.ToDate.ToString("yyyy-MM-dd") - ' Dim EstadoCivil As String = "S" 'Requiere cuadre entre nuestra tabla y el catalogo del banco - ' Dim Curp As String = GeneraCampo(ObjPersonal.DtResultados(0)("CURP").ToString, 18) - ' Dim Sexo As String = GeneraCampo(ObjPersonal.DtResultados(0)("Genero").ToString, 1) - ' Dim Nacionalidad As String = GeneraCampo("M", 3) 'Requiere cuadre entre nuestra tabla y el catalogo del banco - ' Dim PaisOrigen As String = "MEX" 'Requiere cuadre entre nuestra tabla y el catalogo del banco - ' Dim Ocupacion As String = "OFI" 'Requiere cuadre entre nuestra tabla y el catalogo del banco - ' Dim FechaIngreso As String = ObjPersonal.DtResultados(0)("FechaIngreso").ToString.ToDate.ToString("yyyy-MM-dd") - ' Dim Calle As String = GeneraCampo(ObjPersonal.DtResultados(0)("Calle").ToString, 50) - ' Dim NumeroExterior As String = GeneraCampo(ObjPersonal.DtResultados(0)("NumExt").ToString, 8) - ' Dim NumeroInterior As String = GeneraCampo(ObjPersonal.DtResultados(0)("NumInt").ToString, 8) - ' Dim Colonia As String = GeneraCampo(ObjPersonal.DtResultados(0)("Colonia").ToString, 30) - ' Dim CP As String = GeneraCampo(ObjPersonal.DtResultados(0)("CP").ToString, 5) - ' Dim Poblacion As String = GeneraCampo("MEXICO", 30) - ' Dim Estado As String = GeneraCampo(ObjPersonal.DtResultados(0)("Estado").ToString, 25) - ' Dim TelefonoParticular As String = GeneraCampo(ObjPersonal.DtResultados(0)("Telefono").ToString, 10) - ' Dim TelefonoOficina As String = GeneraCampo(ObjPersonal.DtResultados(0)("Telefono").ToString, 10) - ' Dim ExtensionOficina As String = "000000" 'No tenemos este campo - ' Dim Celular As String = GeneraCampo(ObjPersonal.DtResultados(0)("Celular").ToString, 10) - ' Dim CorreoElectronico As String = GeneraCampo(ObjPersonal.DtResultados(0)("Correo").ToString, 50) - ' Dim TipoProducto As String = "A0" 'Estatico - ' Dim SubProducto As String = "245" 'Estatico - ' Dim CuentaUniversal As String = GeneraCampo("", 2) 'Este valor se captura vacío - ' Dim TipoCuenta As String = GeneraCampo("A", 2) 'Requiere cuadre entre nuestra tabla y el catalogo del banco - ' Dim NumeroTDD As String = GeneraCampo("0000" + ObjPersonal.DtResultados(0)("Correo").ToString, 20) - ' Dim Oficina As String = GeneraCampo(ObjPersonal.DtResultados(0)("Sucursal").ToString, 4) - ' Dim MontoDisperciones As String = "000000000000000" 'Estatico - ' Dim NumeroDisperciones As String = "0" 'Estatico - ' Dim OficinaEntrega As String = "0000" 'Estatico - ' Dim Beneficiario As String = GeneraCampo(ObjPersonal.DtResultados(0)("Nombres").ToString, 20) - ' Dim ApellidoPaternoBeneficiario As String = GeneraCampo(ObjPersonal.DtResultados(0)("APaterno").ToString, 20) - ' Dim ApellidoMaternoBeneficiario As String = GeneraCampo(ObjPersonal.DtResultados(0)("AMaterno").ToString, 20) - ' Dim ParentescoBeneficiario As String = "SD" 'Requiere cuadre entre nuestra tabla y el catalogo del banco - ' Dim SexoBeneficiario As String = GeneraCampo(ObjPersonal.DtResultados(0)("Genero").ToString, 1) - ' Dim FechaNacimientoBeneficiario As String = ObjPersonal.DtResultados(0)("FechaNacimiento").ToString.ToDate.ToString("yyyy-MM-dd") - - ' Retorno = TipoRegistro + Nombre + ApellidoPaterno + ApellidoMaterno + FechaNacimiento + EstadoCivil + Curp + Sexo + Nacionalidad + PaisOrigen + Ocupacion + FechaIngreso + Calle + NumeroExterior + NumeroInterior + - ' Colonia + CP + Poblacion + Estado + TelefonoParticular + TelefonoOficina + ExtensionOficina + Celular + CorreoElectronico + TipoProducto + SubProducto + CuentaUniversal + TipoCuenta + NumeroTDD + Oficina + - ' MontoDisperciones + NumeroDisperciones + OficinaEntrega + Beneficiario + ApellidoPaternoBeneficiario + ApellidoMaternoBeneficiario + ParentescoBeneficiario + SexoBeneficiario + FechaNacimientoBeneficiario - - ' End If - - ' Return Retorno - 'End Function - + End Function + + 'Este metodo es el de las altas + 'Private Function GeneraLineaLayout(CvePersonal As Integer, ObjPersonal As ClsRH) As String + ' Dim Retorno As String = "" + + ' If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then + ' Dim TipoRegistro As String = "02" 'Estatico + ' Dim Nombre As String = GeneraCampo(ObjPersonal.DtResultados(0)("Nombres").ToString, 20) + ' Dim ApellidoPaterno As String = GeneraCampo(ObjPersonal.DtResultados(0)("APaterno").ToString, 20) + ' Dim ApellidoMaterno As String = GeneraCampo(ObjPersonal.DtResultados(0)("AMaterno").ToString, 20) + ' Dim FechaNacimiento As String = ObjPersonal.DtResultados(0)("FechaNacimiento").ToString.ToDate.ToString("yyyy-MM-dd") + ' Dim EstadoCivil As String = "S" 'Requiere cuadre entre nuestra tabla y el catalogo del banco + ' Dim Curp As String = GeneraCampo(ObjPersonal.DtResultados(0)("CURP").ToString, 18) + ' Dim Sexo As String = GeneraCampo(ObjPersonal.DtResultados(0)("Genero").ToString, 1) + ' Dim Nacionalidad As String = GeneraCampo("M", 3) 'Requiere cuadre entre nuestra tabla y el catalogo del banco + ' Dim PaisOrigen As String = "MEX" 'Requiere cuadre entre nuestra tabla y el catalogo del banco + ' Dim Ocupacion As String = "OFI" 'Requiere cuadre entre nuestra tabla y el catalogo del banco + ' Dim FechaIngreso As String = ObjPersonal.DtResultados(0)("FechaIngreso").ToString.ToDate.ToString("yyyy-MM-dd") + ' Dim Calle As String = GeneraCampo(ObjPersonal.DtResultados(0)("Calle").ToString, 50) + ' Dim NumeroExterior As String = GeneraCampo(ObjPersonal.DtResultados(0)("NumExt").ToString, 8) + ' Dim NumeroInterior As String = GeneraCampo(ObjPersonal.DtResultados(0)("NumInt").ToString, 8) + ' Dim Colonia As String = GeneraCampo(ObjPersonal.DtResultados(0)("Colonia").ToString, 30) + ' Dim CP As String = GeneraCampo(ObjPersonal.DtResultados(0)("CP").ToString, 5) + ' Dim Poblacion As String = GeneraCampo("MEXICO", 30) + ' Dim Estado As String = GeneraCampo(ObjPersonal.DtResultados(0)("Estado").ToString, 25) + ' Dim TelefonoParticular As String = GeneraCampo(ObjPersonal.DtResultados(0)("Telefono").ToString, 10) + ' Dim TelefonoOficina As String = GeneraCampo(ObjPersonal.DtResultados(0)("Telefono").ToString, 10) + ' Dim ExtensionOficina As String = "000000" 'No tenemos este campo + ' Dim Celular As String = GeneraCampo(ObjPersonal.DtResultados(0)("Celular").ToString, 10) + ' Dim CorreoElectronico As String = GeneraCampo(ObjPersonal.DtResultados(0)("Correo").ToString, 50) + ' Dim TipoProducto As String = "A0" 'Estatico + ' Dim SubProducto As String = "245" 'Estatico + ' Dim CuentaUniversal As String = GeneraCampo("", 2) 'Este valor se captura vacío + ' Dim TipoCuenta As String = GeneraCampo("A", 2) 'Requiere cuadre entre nuestra tabla y el catalogo del banco + ' Dim NumeroTDD As String = GeneraCampo("0000" + ObjPersonal.DtResultados(0)("Correo").ToString, 20) + ' Dim Oficina As String = GeneraCampo(ObjPersonal.DtResultados(0)("Sucursal").ToString, 4) + ' Dim MontoDisperciones As String = "000000000000000" 'Estatico + ' Dim NumeroDisperciones As String = "0" 'Estatico + ' Dim OficinaEntrega As String = "0000" 'Estatico + ' Dim Beneficiario As String = GeneraCampo(ObjPersonal.DtResultados(0)("Nombres").ToString, 20) + ' Dim ApellidoPaternoBeneficiario As String = GeneraCampo(ObjPersonal.DtResultados(0)("APaterno").ToString, 20) + ' Dim ApellidoMaternoBeneficiario As String = GeneraCampo(ObjPersonal.DtResultados(0)("AMaterno").ToString, 20) + ' Dim ParentescoBeneficiario As String = "SD" 'Requiere cuadre entre nuestra tabla y el catalogo del banco + ' Dim SexoBeneficiario As String = GeneraCampo(ObjPersonal.DtResultados(0)("Genero").ToString, 1) + ' Dim FechaNacimientoBeneficiario As String = ObjPersonal.DtResultados(0)("FechaNacimiento").ToString.ToDate.ToString("yyyy-MM-dd") + + ' Retorno = TipoRegistro + Nombre + ApellidoPaterno + ApellidoMaterno + FechaNacimiento + EstadoCivil + Curp + Sexo + Nacionalidad + PaisOrigen + Ocupacion + FechaIngreso + Calle + NumeroExterior + NumeroInterior + + ' Colonia + CP + Poblacion + Estado + TelefonoParticular + TelefonoOficina + ExtensionOficina + Celular + CorreoElectronico + TipoProducto + SubProducto + CuentaUniversal + TipoCuenta + NumeroTDD + Oficina + + ' MontoDisperciones + NumeroDisperciones + OficinaEntrega + Beneficiario + ApellidoPaternoBeneficiario + ApellidoMaternoBeneficiario + ParentescoBeneficiario + SexoBeneficiario + FechaNacimientoBeneficiario + + ' End If + + ' Return Retorno + 'End Function + #End Region - - + + Protected Sub GvMov_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvMov.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowIndex = 0 Then @@ -806,9 +831,49 @@ Partial Class Bancos_PolizaCheque Dim TotalCargos, TotalAbonos, ImporteDocumento As Decimal Dim CvePrePoliza As Integer + Dim ValidaConcepto30 As Boolean = False + + Dim PaguesA As String = "" + Dim CveProveedorSeleccionado As Integer = -1 + Dim CvePersonalSeleccionado As Integer = -1 + + + If DdlPlantilla.SelectedValue.ToEntero = 56 Then + CvePersonalSeleccionado = DdlPersonal.SelectedValue.ToEntero + + 'If Not CvePersonalSeleccionado > 0 Then + ' Alert("Debe de seleccionar un personal.", TipoMensaje.MsgAdvertencia) + ' Exit Sub + 'End If + + + PaguesA = DdlPersonal.SelectedItem.Text + + Else + CveProveedorSeleccionado = DdlProveedores.txtValue.Value.ToEntero + 'If Not CveProveedorSeleccionado > 0 Then + ' Alert("Debe de seleccionar un proveedor.", TipoMensaje.MsgAdvertencia) + ' Exit Sub + 'End If + + If CveProveedorSeleccionado > 0 Then + PaguesA = DdlProveedores.txtText.Value + Else + PaguesA = TxtObservaciones.Text.Trim + + If TxtObservaciones.Text.Length = 0 Then + Alert("Debe de proporsionar las Observaciones.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + End If + + + + End If + + - Dim ValidaConcepto30 As Boolean = False - If DdlCuenta.SelectedValue.ToEntero <= 0 Then If UsuarioActual.CveEmpresa <> 126 Then Alert("Seleccione la Cuenta Bancaria", TipoMensaje.MsgAdvertencia) @@ -817,6 +882,10 @@ Partial Class Bancos_PolizaCheque End If End If + + + + For Each Gvr As GridViewRow In GvMov.Rows TotalCargos += Gvr.FCTextBox("TxtCargo").Text.ToDecimal @@ -879,7 +948,7 @@ Partial Class Bancos_PolizaCheque Try Dim ConceptoPoliza As String = TxtObservaciones.Text - If ConceptoPoliza = "" Then ConceptoPoliza = TxtPagueseA.Text + If ConceptoPoliza = "" Then ConceptoPoliza = PaguesA Dim CveMoneda As Integer = 1 Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue)) If dr IsNot Nothing Then @@ -889,7 +958,7 @@ Partial Class Bancos_PolizaCheque Dim TC As Decimal = If(CveMoneda > 1, GlobalTipoCambio(TxtFechaDocumento.Text.ToDate), 1) Dim CveTipoPoliza As Integer = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla).FiltroPrimeroValor("TipoPoliza", String.Format("CvePlantillaPoliza={0}", DdlPlantilla.SelectedValue)).ToEntero CvePrePoliza = ObjMov.AddPrePolizas("PolizaCheque/Guardar", DdlPlantilla.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=CveTipoPoliza) - CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImporteDocumento, CveMoneda, If(CveMoneda > 1, TC, 0.0), TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PaguesA, ImporteDocumento, CveMoneda, If(CveMoneda > 1, TC, 0.0), TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CveIE > 0 Then 'inserto los movimientos de la conta para abonar al saldo @@ -901,7 +970,7 @@ Partial Class Bancos_PolizaCheque Dim Importe As Double = 0 Dim TipoMovto As Boolean = False Dim IdCtaContable As Integer = 0 - Dim CveProveedor As Integer = -1 + 'Dim CveProveedor As Integer = -1 'inserto las compras que voy a pagar For Each gvr As GridViewRow In GvMov.Rows @@ -917,8 +986,17 @@ Partial Class Bancos_PolizaCheque Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble TipoMovto = False End If - CveProveedor = gvr.DataKey("CveProveedor").ToEntero - If HdnCveProveedor.Value.ToEntero > 0 Then CveProveedor = HdnCveProveedor.Value.ToEntero + + If Not CveProveedorSeleccionado > 0 Then + CveProveedorSeleccionado = gvr.DataKey("CveProveedor").ToEntero + End If + + If Not CvePersonalSeleccionado > 0 Then + CvePersonalSeleccionado = gvr.DataKey("CvePersonal").ToEntero + End If + + 'CveProveedor = gvr.DataKey("CveProveedor").ToEntero + 'If HdnCveProveedor.Value.ToEntero > 0 Then CveProveedor = HdnCveProveedor.Value.ToEntero If Importe <> 0 Then 'If ChkContabilizar.Checked AndAlso UsuarioActual.Empresa.UsaContabilidad Then @@ -942,14 +1020,14 @@ Partial Class Bancos_PolizaCheque Importe = Importe * TC End If - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Referencia, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, gvr.DataKey("IDCuenta").ToEntero, -1, CveIE, CveProveedor:=CveProveedor, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, ImporteMX:=Importe, TipoCambio:=TC, CveCuenta:=gvr.DataKey("CveCuenta").ToEntero) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Referencia, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, gvr.DataKey("IDCuenta").ToEntero, -1, CveIE, CveProveedor:=CveProveedorSeleccionado, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=CvePersonalSeleccionado, ImporteMX:=Importe, TipoCambio:=TC, CveCuenta:=gvr.DataKey("CveCuenta").ToEntero) Then MsgError = "no se pudo insertar el detalle de la póliza2" End If If gvr.DataKey("CveConcepto").ToEntero = 30 Then If CveMoneda > 1 AndAlso UsuarioActual.CveEmpresa = 119 Then 'Agregamos complementaria - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, 0, gvr.FCTextBox("TxtConcepto").Text, 204, TxtObservaciones.Text, Now, dr("IDCtaContableComplementaria").ToString.ToEntero, -1, CveIE:=CveIE, CveProveedor:=CveProveedor, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, ImporteMX:=Importe * TC - Importe, ImporteME:=Importe, TipoCambio:=TC) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, 0, gvr.FCTextBox("TxtConcepto").Text, 204, TxtObservaciones.Text, Now, dr("IDCtaContableComplementaria").ToString.ToEntero, -1, CveIE:=CveIE, CveProveedor:=CveProveedorSeleccionado, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=CvePersonalSeleccionado, ImporteMX:=Importe * TC - Importe, ImporteME:=Importe, TipoCambio:=TC) Then MsgError = "Ocurrió un error al registrar el asiento del ingreso." End If End If @@ -1032,7 +1110,7 @@ Partial Class Bancos_PolizaCheque DdlCuenta.SelectedValue = "-1" TxtFechaDocumento.Text = "" TxtImporte.Text = "" - TxtPagueseA.Text = "" + 'TxtPagueseA.Text = "" TxtObservaciones.Text = "" Dim StrMsg As New StringBuilder StrMsg.AppendFormat("El Movimiento se guardo correctamente

Movimiento
", CveIE) @@ -1226,7 +1304,14 @@ Partial Class Bancos_PolizaCheque End If End If Return Retorno - End Function + End Function + + + Protected Sub CargaDDLPersonal() + DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) + DdlPersonal.DataBind() + DdlPersonal.Items.Insert(0, New ListItem("Seleccione Personal", "-1")) + End Sub