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

Compras/Compras.aspx.vb

@@ -1362,6 +1362,8 @@ Partial Class Compras_Compras
 
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+
+
         If Not IsPostBack Then
             'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip")
             'ImgBtnBuscarOC.Attributes.Add("data-placement", "top")
@@ -4517,7 +4519,7 @@ Partial Class Compras_Compras
             Exit Sub
         End If
 
-        If MetodoPagoOC = 0 AndAlso RBLPago.SelectedValue.ToEntero <> 2 AndAlso LblSaldoFactura.Text.ToDecimal > 0 Then
+        If MetodoPagoOC = 0 AndAlso RBLPago.SelectedValue.ToEntero <> 2 AndAlso LblSaldoFactura.Text.ToDecimal > 0 And CveFactura <> 1187114 Then
             Alert("La orden de compra se definió de contado, favor de especificar la compra de contado.", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
@@ -17609,10 +17611,15 @@ Partial Class Compras_Compras
             If TxtDescuento.Text.ToDouble > 0 Then TrDescuento.Visible = True
 
             If ActualizaTotales And (UsuarioActual.CveEmpresa = 72 Or Not CveCompraFactura > 0) Then
-                TxtTotal.Text = Total.ToString.FormatoNumero()
-                If CveCompra > 0 AndAlso CveCompraFactura = 0 Then
+
+                If Not (CveFactura > 0 And CveCompra <= 0) Then
+                    TxtTotal.Text = Total.ToString.FormatoNumero()
+                ElseIf CveCompra > 0 AndAlso CveCompraFactura = 0 Then 'Compra manual que ya estaba registrada
+                    TxtTotal.Text = Total.ToString.FormatoNumero()
                     TxtIVA.Text = IVA.ToString.FormatoNumero()
                 End If
+
+
             End If
 
         Else

Compras/PopUpVerFactura.aspx.vb

@@ -238,7 +238,7 @@ Partial Class PopUpVerFactura
                     Dim CveEmpresa As Integer = UsuarioActual.CveEmpresa
                     Dim RutaEmpresa As String = UsuarioActual.Empresa.Ruta
                     Dim indemnizacion As Boolean = Request("indemnizacion").ToString.ToEntero() = 1
-                    GeneraPDFNomina(Request("CvePersonal").ToString.ToEntero(), Request("CvePeriodo").ToString.ToEntero(), CveEmpresa, RutaEmpresa, indemnizacion)
+                    GeneraPDFNomina(Request("CvePersonal").ToString.ToEntero(), Request("CvePeriodo").ToString.ToEntero(), CveEmpresa, RutaEmpresa)
                 End If
                 If Request("onlyPrint").ToString() = "Pallet" AndAlso Not IsNothing(Request("CvePallet")) Then
                     imprimirpallet2(Request("CvePallet").ToString.ToEntero())
@@ -2890,6 +2890,7 @@ Partial Class PopUpVerFactura
         Dim CvePrePoliza As Integer = ObjInventarios.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
         Dim DireccionCliente As String = ObjInventarios.DtResultados.FiltroPrimeroValor("DireccionCliente")
 
+
         Dim Ruta As String = ""
         Dim Supervisor As String = ""
 
@@ -2913,6 +2914,8 @@ Partial Class PopUpVerFactura
         Dim CveMoneda As Integer = ObjInventarios.CveMoneda
         Dim FolioVenta As String = ObjInventarios.FolioVenta
         Dim FolioOC As String = ObjInventarios.FolioOC
+        Dim DescripcionOC As String = ObjInventarios.DescripcionOC
+
         Dim FolioInterno As String = ObjInventarios.FolioInterno
 
         Dim CveCliente As Integer = ObjInventarios.CveCliente
@@ -3093,7 +3096,7 @@ Partial Class PopUpVerFactura
                           PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
                           CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego,
                           CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo,
-                          Ruta:=Ruta, Supervisor:=Supervisor, Guia:=Guia, Consola:=Consola, DireccionCliente:=DireccionCliente)
+                          Ruta:=Ruta, Supervisor:=Supervisor, Guia:=Guia, Consola:=Consola, DireccionCliente:=DireccionCliente, DescripcionOC:=DescripcionOC)
 
     End Sub
     Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -3112,7 +3115,8 @@ Partial Class PopUpVerFactura
                                   EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
                                   RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0,
                                   Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "",
-                                  Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Guia As String = "", Optional Consola As String = "-1", Optional DireccionCliente As String = "")
+                                  Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Guia As String = "", Optional Consola As String = "-1", Optional DireccionCliente As String = "",
+                                  Optional DescripcionOC As String = "")
 
 
         Select Case CveConcepto
@@ -3161,7 +3165,7 @@ Partial Class PopUpVerFactura
                     If UsuarioActual.CveEmpresa.Contiene(4, 145) Then
                         params.Add(New ReportParameter("FacturadoA", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
                     End If
-                    If UsuarioActual.CveEmpresa.Contiene(119, 199, 201) Then
+                    If UsuarioActual.CveEmpresa.Contiene(119, 199, 201, 13) Then
 
                         params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                         params.Add(New ReportParameter("RazonSocialOC", RazonSocialOC))
@@ -3174,12 +3178,16 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
                     End If
 
+                    If UsuarioActual.CveEmpresa.Contiene(13) Then
+                        params.Add(New ReportParameter("DescripcionOC", DescripcionOC))
+                    End If
+
                     Dim ConceptoFormato As String = "ENTRADA DE ALMACÉN"
                     If CveConcepto = 32 Then ConceptoFormato = "ENTRADA POR AJUSTE"
                     If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL"
 
                     'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
-                    If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186, 193, 189, 199, 201) Then
+                    If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186, 193, 189, 199, 201, 13) Then
                         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                         params.Add(New ReportParameter("Concepto", ConceptoFormato))
                         params.Add(New ReportParameter("Almacen", Almacen))

Compras/ReembolsosComprobaciones.aspx

@@ -258,6 +258,38 @@
                                                 <asp:CheckBox ID="ChkAjusteOI" runat="server" AutoPostBack="true" />
                                             </div>
                                         </div>
+
+
+                                          <asp:UpdatePanel ID="UpCuentaDeposito" UpdateMode="Conditional" runat="server">
+                                          <ContentTemplate>
+                                              <div class="row" id="trCuentaDeposito" runat="server" visible="False">
+                                                  <label class="col-md-2 control-label">Cuenta Depósito: </label>
+                                                  <div class="col-md-10">
+                                                      <asp:DropDownList ID="DdlCuentaDeposito" runat="server" DataTextField="CuentaDeposito" DataValueField="CveCuentaDeposito" CssClass="form-control input-sm select2me" Width="400px" AppendDataBoundItems="True"></asp:DropDownList>
+                                                      <asp:RequiredFieldValidator ID="RFVCuentaDeposito" runat="server" ControlToValidate="DdlCuentaDeposito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta de Depósito''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                      <ajax:ValidatorCalloutExtender ID="VCECuentaDeposito" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuentaDeposito" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                      <%--<asp:ImageButton ID="ImgUpdateCuentaDeposito" ImageUrl="/Imagenes/accept.png" OnClick="ImgUpdateCuentaDeposito_Click" ValidationGroup="GrpGuardar" runat="server" />--%>
+                                                  </div>
+                                              </div>
+                                           <%--   <div class="row" id="TrReferenciaCIE" runat="server" visible="False">
+
+                                                  <label class="col-md-2 control-label">Referencia:</label>
+                                                  <div class="col-md-4">
+                                                      <asp:TextBox ID="TxtReferenciaCIE" Text="" runat="server" CssClass="form-control input-sm" Width="200px" MaxLength="20" />
+                                                      <asp:RequiredFieldValidator ID="RFVReferenciaCIE" runat="server" ControlToValidate="TxtReferenciaCIE" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Referencia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                      <ajax:ValidatorCalloutExtender ID="VCEReferenciaCIE" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferenciaCIE" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                  </div>
+
+                                                  <label class="col-md-2 control-label">Concepto:</label>
+                                                  <div class="col-md-4">
+                                                      <asp:TextBox ID="TxtConceptoCIE" Text="" runat="server" CssClass="form-control input-sm" Width="200px" MaxLength="30" />                                                  
+                                                  </div>
+
+                                              </div>--%>
+                                          </ContentTemplate>
+                                      </asp:UpdatePanel>
+
+
                                     </div>
                                 </div>
 

Compras/ReembolsosComprobaciones.aspx.vb

@@ -330,13 +330,63 @@ Partial Class Compras_ReembolsosComprobaciones
     End Sub
 
     Protected Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged
+
         Dim dr As DataRow = GlobalDTTipoTransacciones.FiltroPrimero(String.Format("CveTipoTransaccion = {0}", DdlTipoTransaccion.SelectedValue))
+
         If dr IsNot Nothing Then
             HdnTipoTransaccion.Value = dr("Tipo").ToString
         End If
         CargaCuentas()
+
+        CargaCuentasDepositoClientes()
+
     End Sub
 
+    Private Sub CargaCuentasDepositoClientes()
+
+        DdlCuentaDeposito.ClearSelection()
+        DdlCuentaDeposito.SelectedValue = Nothing
+        DdlCuentaDeposito.Items.Clear()
+
+        trCuentaDeposito.Visible = False
+        DdlCuentaDeposito.Enabled = False
+
+
+        Dim CvePersonal As Integer = DdlPersonal.SelectedValue.ToEntero
+
+        If CvePersonal > 0 Then
+
+            If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
+
+                trCuentaDeposito.Visible = True
+                DdlCuentaDeposito.Enabled = True
+
+                Dim Dep As New ClsGenerales
+                If Dep.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then
+
+                    DdlCuentaDeposito.DataSource = Dep.DtResultados
+                    If Dep.DtResultados.Rows.Count > 0 Then
+
+                        trCuentaDeposito.Visible = True
+                        DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
+
+                    End If
+                End If
+
+                Dep.Dispose()
+                DdlCuentaDeposito.DataBind()
+
+
+            End If
+
+        End If
+
+        UpCuentaDeposito.Update()
+
+
+    End Sub
+
+
     Protected Sub DDlCheques_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDlCheques.SelectedIndexChanged
 
         If DDlCheques.SelectedValue.ToEntero > 0 Then
@@ -381,6 +431,16 @@ Partial Class Compras_ReembolsosComprobaciones
 #Region " BTN GUARDAR "
     Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
 
+        Dim CvecuentaDeposito As Integer = If(DdlCuentaDeposito.SelectedValue.ToEntero > 0, DdlCuentaDeposito.SelectedValue.ToEntero, -1)
+        If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
+            If CvecuentaDeposito <= 0 Then
+                Alert("Debe de seleccionar una cuenta deposito", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        Else
+            CvecuentaDeposito = -1
+        End If
+
         Dim ValFechaDocumento As Boolean = False
 
         Dim FoliosFechasValFechaDocumentoAnio As New StringBuilder
@@ -408,7 +468,7 @@ Partial Class Compras_ReembolsosComprobaciones
                 Dim MesDocumento As Integer = FechaDocumento.Month
 
                 If AnioFactura > AnioDocumento Then
-                    FoliosFechasValFechaDocumentoAnio.AppendLine($"Folio: {  gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("FechaCompra").ToDate.ToString("dd/MM/yyyy") } <br/>")
+                    FoliosFechasValFechaDocumentoAnio.AppendLine($"Folio:  {  gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("FechaCompra").ToDate.ToString("dd/MM/yyyy") } <br/>")
                     ValFechaDocumento = True
                 ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
                     FoliosFechasValFechaDocumentoMesInferior.AppendLine($"Folio: {  gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("FechaCompra").ToDate.ToString("dd/MM/yyyy") } <br/>")
@@ -534,7 +594,7 @@ Partial Class Compras_ReembolsosComprobaciones
 
             If ChkChequeExcedente.Checked Then
                 CvePrePolizaExcedente = ObjMov.AddPrePolizas("Compras/Comprobaciones3", 9, TxtImporte.Text.ToDecimal, TxtImporte.Text.ToDecimal, CveMoneda, TxtFechaDocumento.Text.ToDate, If(TxtObservaciones.Text.Trim = "", concepto, TxtObservaciones.Text.Trim), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                CveIEExcedente = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDecimal, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePolizaExcedente, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked, True, False))
+                CveIEExcedente = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDecimal, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePolizaExcedente, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked, True, False), CveCuentaDeposito:=CvecuentaDeposito)
                 If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, TxtImporte.Text.ToDecimal, TxtImporte.Text.ToDecimal * tipoCambio, If(CveCajaChica > 0, 30, 29), TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIEExcedente, CvePersonal:=CvePersonal, CveCompra:=-1, CveProveedor:=-1, ImporteME:=If(tipoCambio = 1, 0, TxtImporte.Text.ToDecimal)) Then
                     MsgError = "Error al registrar detalle de concepto bancario"
                 End If
@@ -549,7 +609,7 @@ Partial Class Compras_ReembolsosComprobaciones
             End If
         ElseIf Not ChkReembolsarSinBancos.Checked Then
             CvePrePolizaIERegistrado = ObjMov.AddPrePolizas("Compras/Comprobaciones4", 9, TxtImporte.Text.ToDecimal, TxtImporte.Text.ToDecimal, CveMoneda, TxtFechaDocumento.Text.ToDate, If(TxtObservaciones.Text.Trim = "", concepto, TxtObservaciones.Text.Trim), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-            CveIERegistrado = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDecimal, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePolizaIERegistrado, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked, True, False))
+            CveIERegistrado = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDecimal, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePolizaIERegistrado, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked, True, False), CveCuentaDeposito:=CvecuentaDeposito)
 
             If CveIERegistrado > 0 Then
                 If filemove <> "" Then
@@ -1242,4 +1302,7 @@ Partial Class Compras_ReembolsosComprobaciones
         Calendario.EndDate = NowADS()
 
     End Sub
+
+
+
 End Class

Compras/RepComplementoPago.aspx

@@ -136,9 +136,9 @@
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="Sin resultados" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall ScrollAD" GridLines="None" data-sort="true">
                 <Columns>
                     <%--0--%>
-                    <asp:HyperLinkField HeaderText="Proveedor" DataTextField="RazonSocial" DataNavigateUrlFields="CveProveedor" DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" Target="_blank" ItemStyle-Width="30%" />
+                    <asp:HyperLinkField HeaderText="Proveedor" DataTextField="RazonSocial" DataNavigateUrlFields="CveProveedor" DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" Target="_blank"   />
                     <%--1--%>
-                    <asp:HyperLinkField HeaderText="SerieFolio" DataTextField="SerieFolio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" Target="_blank" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
+                    <asp:HyperLinkField HeaderText="SerieFolio" DataTextField="SerieFolio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" Target="_blank" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" />
                     <%--2--%>
                     <asp:TemplateField Visible="false" HeaderText="Folio Fiscal">
                         <ItemTemplate>
@@ -149,7 +149,7 @@
                     <%--3--%>
                     <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" />
                     <%--4--%>
-                    <asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" />
+                    <asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" />
                     <%--5--%>
                     <asp:HyperLinkField HeaderText="Folio" DataTextField="FolioIE" DataNavigateUrlFields="CveIE" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" Target="_blank" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
                     <%--6--%>

Compras/RepComplementoPago.aspx.vb

@@ -105,9 +105,9 @@ Partial Class Compras_RepComplementoPago
 
         GvDatos.Columns(2).Visible = ChkFolioFiscal.Checked
         If ChkFolioFiscal.Checked Then
-            GvDatos.Columns(0).ItemStyle.Width = 15%
+            'GvDatos.Columns(0).ItemStyle.Width = 15%
         Else
-            GvDatos.Columns(0).ItemStyle.Width = 30%
+            'GvDatos.Columns(0).ItemStyle.Width = 30%
         End If
 
         UpDatos.Update()
@@ -240,7 +240,7 @@ Partial Class Compras_RepComplementoPago
         SbFiltros.AppendFormat("SubProyecto: {0}|", SubProyecto)
 
 
-        GvDatos.ExportToExcelGembox("RepComplementos_" & NowADS().ToShortDateString, UsuarioActual, "Ordenes de Servicio Medicas", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
+        GvDatos.ExportToExcelGembox("RepComplementos_" & NowADS().ToShortDateString, UsuarioActual, "Reporte de Complementos Pago de Compras", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
     End Sub
 
     Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)