Merge branch 'master' of http://192.168.10.111:8383/SIG

Bancos/PolizaCheque.aspx

@@ -98,10 +98,12 @@
                                 <label class="col-md-2">
                                     <asp:Label ID="LblPagueseA" runat="server" Text="Páguese a:"></asp:Label></label>
                                 <div class="col-md-8">
-                                    <asp:HiddenField ID="HdnCveProveedor" runat="server" ClientIDMode="Static" Value="-1" />
+                                    <%--<asp:HiddenField ID="HdnCveProveedor" runat="server" ClientIDMode="Static" Value="-1" />
                                     <asp:Button ID="BtnBuscarProveedor" runat="server" ClientIDMode="Static" Text="Buscar Proveedor" Style="display: none;" class="btn btn-primary" />
                                     <asp:TextBox ID="TxtPagueseA" CssClass="form-control input-sm" runat="server" MaxLength="70" Width="394px"></asp:TextBox>
-                                    <a ID="HplBuscar" class="btn btn-primary" runat="server" onclick="javascript:AbrirVentana('/Compras/PopUpBuscarProveedor.aspx?Opt=Poliza', 800, 547, 'N', 'PopUpBuscar')" ><i class="fa fa-search"></i> Buscar</a>
+                                    <a ID="HplBuscar" class="btn btn-primary" runat="server" onclick="javascript:AbrirVentana('/Compras/PopUpBuscarProveedor.aspx?Opt=Poliza', 800, 547, 'N', 'PopUpBuscar')" ><i class="fa fa-search"></i> Buscar</a>--%>
+                                    <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" DataTextField="RazonSocial" DataValueField="CveProveedor" Visible="true" ></ADS:Dropdownlost>
+                                    <asp:DropDownList ID="DdlPersonal" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompletoNombre" DataValueField="CvePersonal" CssClass="form-control input-sm input-medium select2me" Visible="false" Width="100%" ></asp:DropDownList>
                                 </div>
                                 <div class="col-md-2">
 

Bancos/PolizaCheque.aspx.vb

@@ -3,6 +3,7 @@ Imports Extensiones
 Imports System.IO
 Imports System.Linq
 Imports System.Web.Services
+Imports Stimulsoft.Report.BarCodes
 
 Partial Class Bancos_PolizaCheque
     Inherits ClsPaginas
@@ -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
+    'Protected Sub BtnBuscarProveedor_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnBuscarProveedor.Click
-        ViewState("CveProveedor") = HdnCveProveedor.Value.ToEntero
+    '    ViewState("CveProveedor") = HdnCveProveedor.Value.ToEntero
-        CargaProveedor(HdnCveProveedor.Value.ToEntero, "-1")
+    '    CargaProveedor(HdnCveProveedor.Value.ToEntero, "-1")
-        DdlPlantilla_SelectedIndexChanged(DdlPlantilla, e)
+    '    DdlPlantilla_SelectedIndexChanged(DdlPlantilla, e)
-    End Sub
+    'End Sub
 
-    Private Sub CargaProveedor(ByVal CveProveedor As Integer, RFC As String)
+    'Private Sub CargaProveedor(ByVal CveProveedor As Integer, RFC As String)
-        Dim ObjProveedor As New ClsCompProveedores()
+    '    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.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", RFC, "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
-            If ObjProveedor.DtResultados.Rows.Count > 0 Then
+    '        If ObjProveedor.DtResultados.Rows.Count > 0 Then
-                TxtPagueseA.Text = ObjProveedor.RazonSocial
+    '            TxtPagueseA.Text = ObjProveedor.RazonSocial
-                TxtNotificarA.Text = ObjProveedor.NotificarA.Trim
+    '            TxtNotificarA.Text = ObjProveedor.NotificarA.Trim
-            Else
+    '        Else
-                Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia)
+    '            Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia)
-            End If
+    '        End If
-        End If
+    '    End If
-        ObjProveedor.Dispose()
+    '    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
 
@@ -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
+
+
+
         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 <br><br> <a href=""/Bancos/IE.aspx?CveIE={0}"" target=""_blank"" class='Texto'>Movimiento</a><br/>", CveIE)
@@ -1229,6 +1307,13 @@ Partial Class Bancos_PolizaCheque
     End Function
 
 
+    Protected Sub CargaDDLPersonal()
+        DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
+        DdlPersonal.DataBind()
+        DdlPersonal.Items.Insert(0, New ListItem("Seleccione Personal", "-1"))
+    End Sub
+
+
 
 End Class
 

Ventas/Clientes.aspx.vb

@@ -3978,7 +3978,8 @@ Partial Class Clientes
                     End If
                 End If
             End If
-
+        Else
+            Respuesta = True
         End If
 
         Return Respuesta