From 81a7baa8bad9069793730546048b8a347219caea Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 10 Jan 2020 19:19:19 -0700 Subject: [PATCH 01/10] Porcentaje de retenciones --- App_Code/ClsClientes.vb | 8 +- Ventas/Clientes.aspx | 11962 +++++++++++++++++++------------------- Ventas/Clientes.aspx.vb | 29 +- 3 files changed, 6059 insertions(+), 5940 deletions(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index cb1e95310..a268761f6 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -568,7 +568,7 @@ Public Class ClsClientes Optional ObservacionRevsion As String = "-1", Optional ReferenciaFiscal As String = "-1", Optional Celular As String = "-1", Optional ExtOtros As String = "-1", Optional CveUsoCFDI As Integer = -1, Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional DesglosaIEPS As Boolean = True, Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1, Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False, - Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False) As Boolean + Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0) As Boolean Dim Retorno As Boolean = False @@ -702,6 +702,7 @@ Public Class ClsClientes .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente .Add("@CargoUsado", SqlDbType.Bit).Value = CargoUsado .Add("@BonificacionUsado", SqlDbType.Bit).Value = BonificacionUsado + .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue End With @@ -747,7 +748,7 @@ Public Class ClsClientes Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1, Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False, - Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False) As Boolean + Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0) As Boolean Dim Retorno As Boolean = False @@ -896,7 +897,8 @@ Public Class ClsClientes .Add("@EsDistribuidor", SqlDbType.Bit).Value = EsDistribuidor .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente .Add("@CargoUsado", SqlDbType.Bit).Value = CargoUsado - .Add("@BonificacionUsado", SqlDbType.Bit).Value = BonificacionUsado + .Add("@BonificacionUsado", SqlDbType.Bit).Value = BonificacionUsado + .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion End With Try SqlAdapter.Fill(Data) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 37c043e47..fc0a5dbb1 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -1,1490 +1,1542 @@ -<%@ Page Title="Ventas - Clientes" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Clientes.aspx.vb" Inherits="Clientes" %> - -<%@ Register Assembly="TimePicker" Namespace="MKB.TimePicker" TagPrefix="cc1" %> -<%@ Register Assembly="eWorld.UI" Namespace="eWorld.UI" TagPrefix="ew" %> - - - - - - -
  • - Registrar Venta - Registrar Cotización -
    • - -
  • +<%@ Page Title="Ventas - Clientes" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Clientes.aspx.vb" Inherits="Clientes" %> + +<%@ Register Assembly="TimePicker" Namespace="MKB.TimePicker" TagPrefix="cc1" %> +<%@ Register Assembly="eWorld.UI" Namespace="eWorld.UI" TagPrefix="ew" %> + + + + + + +
  • + Registrar Venta + Registrar Cotización +
    • + +
  • Conciliar - -
    • - - - -
  • - -
    • -     -     - - - - -
  • - -
    • -     -     - - -
  • - -
    • -     -     - - -
  • - -
    • -     -     - - - -
  • - Agregar Cuenta Bancaria -
    • -     -     - - - -
  • - -
    • -     -     - - -
  • - -
    • -     -     - - - - -
  • - -
    • -     -     - - - -
  • - -
    • -     -     - - - -
  • - -
    • -     -     - - - -
  • - -
    • -     -     - - - -
  • - -
    • -     -     - - - -
  • - -
    • -     - - - -     - -     - -   - - - - - -
      -
    • -
      • -
    • - -
      • -
    -     -     - - - - - - - -
    -
    -
    -
    -
    - - Datos de Emisión -
    -
    -
    -
    -
    -
    - -
    - -
    - - - - -
    - -
    -
    - - - - -
    -
    - - - - -
    -
    - - - - -
    -
    - - -
    - - - - -
    -
    - - -
    -
    - - - -
    -
    - - - - -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    - - - - -
    -
    - - - -
    -
    - - - - -
    -
    - - - - -
    -
    - - - - -
    -
    - - - - - -
    -
    - - - - - - -
    -
    -
    -
    - - - - - -
    -
    -
    - - - -
    -
    -
    -
    -
    - - Datos del Cliente -
    -
    -
    -
    -
    -
    -
    -
    - - -
    -
    -
    -
    - - - - -
    -
    -
    -
    - - -
    -
    -
    - -
    - -
    -
    - - - -
    -
    - -
    -
    -
    - - -
    -
    -
    -
    - - -
    - - - -
    - -
    - - - - - -
    -
    - - - - - -
    -
    - - -
    -
    - - -
    -
    - - - - -
    -
    - - -
    -
    - - - - -
    - -
    - - - -
    - -
    - - - -
    - -
    - - - -
    - -
    - - -
    -
    - - -
    - -
    - - -
    - -
    - - Frecuente - No Frecuente - - -
    -
    - - -
    -
    - - -
    -
    -
    -
    - - <%-- Marcar el Cliente como Frecuente --%> -
    -
    -
    -
    - - Registrar -
    -
    -
    -
    -
    -
    -
    -
    - - - - -
    - -
    -
    -
    -
    -
    - -
    -
    -
    -
    - - Sucursales y/o Departamentos -
    -
    -
    -
    -
    -
    -
    -
    - - - - - - - - - - - - - - - -
    Sucursal y/o DepartamentoComandos
       -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Periodo Facturación: - - - - - - - - -
    Imprime Nombre Sucursal: -
    - -
    -
    -
    -
    - -
    -
    -
    -
    - - Direcciones de envío -
    -
    -
    - -
    -
    -
    -
    - - - - + + + + + +
  • + +
    • +     +     + + + + +
  • + +
    • +     +     + + +
  • + +
    • +     +     + + +
  • + +
    • +     +     + + + +
  • + Agregar Cuenta Bancaria +
    • +     +     + + + +
  • + +
    • +     +     + + +
  • + +
    • +     +     + + + + +
  • + +
    • +     +     + + + +
  • + +
    • +     +     + + + +
  • + +
    • +     +     + + + +
  • + +
    • +     +     + + + +
  • + +
    • +     +     + + + +
  • + +
    • +     + + + +     + + + +   + + + + + +
      +
    • +
      • +
    • + +
      • +
    +     +     + + + + + + + +
    +
    +
    +
    +
    + + Datos de Emisión +
    +
    +
    +
    +
    +
    + +
    + +
    + + + + +
    + +
    +
    + + + + +
    +
    + + + + +
    +
    + + + + +
    +
    + + +
    + + + + +
    +
    + + +
    +
    + + + +
    +
    + + + + +
    +
    +
    +
    + + +
    +
    +
    +
    + + +
    +
    +
    +
    + + + + +
    +
    + + + +
    +
    + + + + +
    +
    + + + + +
    +
    + + + + +
    +
    + + + + + +
    +
    + + + + + + +
    +
    +
    +
    + + + + + +
    +
    +
    + + + +
    +
    +
    +
    +
    + + Datos del Cliente +
    +
    +
    +
    +
    +
    +
    +
    + + +
    +
    +
    +
    + + + + +
    +
    +
    +
    + + +
    +
    +
    + +
    + +
    +
    + + + +
    +
    + +
    +
    +
    + + +
    +
    +
    +
    + + +
    + + + +
    + +
    + + + + + +
    +
    + + + + + +
    +
    + + +
    +
    + + +
    +
    + + + + +
    +
    + + +
    +
    + + + + +
    + +
    + + + +
    + +
    + + + +
    + +
    + + + +
    + +
    + + +
    +
    + + +
    + +
    + + +
    + +
    + + Frecuente + No Frecuente + + +
    +
    + + +
    +
    + + +
    +
    +
    +
    + + <%-- Marcar el Cliente como Frecuente --%> +
    +
    +
    +
    + + Registrar +
    +
    +
    +
    +
    +
    +
    +
    + + + + +
    + +
    +
    +
    +
    +
    + +
    +
    +
    +
    + + Sucursales y/o Departamentos +
    +
    +
    +
    +
    +
    +
    +
    + + + + + + + + + + + + + + + +
    Sucursal y/o DepartamentoComandos
       +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    Periodo Facturación: + + + + + + + + +
    Imprime Nombre Sucursal: +
    + +
    +
    +
    +
    + +
    +
    +
    +
    + + Direcciones de envío +
    +
    +
    + +
    +
    +
    +
    + + + + Sucursal/Depto - - -
    - -
    -     -     - - + + + +
    + +
    +     +     + + Contacto - - -
    - -
    -     -     - - + + + +
    + +
    +     +     + + Ciudad - - -
    - -
    -     -     - - - - - - - - - - -     -     -
    + + + +
    + +
    +     + + + + + + + + + + + + + +
    Condiciones Entrega: - -
    -
    -
    -
    -
    - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + - - - - - - - -
    -
    -
    -
    -
    - - Resumen -
    -
    -
    -
    -
    -
    -
    -
    -
    + + +
    + +
    + +
    +
    + +
    +
    +
    + + Contable +
    +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    + + Registros Contables +
    +
    +
    +
    +
    +
    +
    +
    +
    + +
    + + + + + +
    +
    + +
    + +
    + + + + + +
    +
    + + +
    + +
    + + + + + +
    +
    + + + +
    + +
    + + + + + +
    +
    + + +
    + +
    + + + + + +
    +
    + + +
    + +
    + + + + + +
    +
    + + + + +
    + +
    + + + + + +
    +
    +
    + +
    + + + + + +
    +
    +
    + +
    + + + + + +
    +
    +
    +
    +
    +
    +
    + + + + + + + + + +
    +
    +
    +
    +
    + + Resumen +
    +
    +
    +
    +
    +
    +
    +
    +
    Cantidad de Ventas: -
    -
    - - -
    -
    -
    -
    + +
    +
    + + +
    +
    +
    +
    Total Vendido: -
    -
    - - -
    -
    - -
    -
    + +
    +
    + + +
    +
    + +
    +
    Venta Mínima: -
    -
    - -
    -
    -
    -
    + +
    +
    + +
    +
    +
    +
    Promedio de Ventas: -
    -
    - -
    -
    -
    -
    + +
    +
    + +
    +
    +
    +
    Venta Máxima: -
    -
    - - -
    -
    -
    -
    -
    - -
    -
    -
    -
    -
    -
    - - Historial de Ventas -
    -
    -
    - " - style="display: inline-block; margin-right: -20px; width: 150px;" /> - " - style="margin-top: -3px; float: inherit;" class="btn btn-circle btn-sm label-info"> -
    -
    -
    -
    -
    -
    - - - - - - - - - -
    -
    -
    - - - - - - - - - - - - - - - - Factura - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Remision - - - - - - - - Reenviar - - - - - - - - - - - - - -
    -
    - -
    -
    -
    -
    -
    -
    -
    -
    -
    -
    - - Resumen -
    -
    -
    -
    -
    -
    -
    -
    -
    + +
    +
    + + +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    +
    + + Historial de Ventas +
    +
    +
    + " + style="display: inline-block; margin-right: -20px; width: 150px;" /> + " + style="margin-top: -3px; float: inherit;" class="btn btn-circle btn-sm label-info"> +
    +
    +
    +
    +
    +
    + + + + + + + + + +
    +
    +
    + + + + + + + + + + + + + + + + Factura + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Remision + + + + + + + + Reenviar + + + + + + + + + + + + + +
    +
    + +
    +
    +
    +
    +
    +
    +
    +
    +
    +
    + + Resumen +
    +
    +
    +
    +
    +
    +
    +
    +
    Cantidad de Cotizaciones: -
    -
    - -
    -
    -
    -
    + +
    +
    + +
    +
    +
    +
    Factor de Cotizaciones VS Ventas: -
    -
    + +
    +
     % -
    -
    -
    -
    - -
    - -
    -
    -
    -
    - - Cotizaciones -
    - -
    -
    - " - style="display: inline-block; margin-right: -20px; width: 150px;" /> - " - style="margin-top: -3px; float: inherit;" class="btn btn-circle btn-sm label-info"> -
    -
    - -
    -
    - - - - - - - - - - -
    -
    - -
    -
    -
    - - - - - Cotización - - - - - - - - - - - - - - - - - - - - - - - - - Folio Venta - - - - - - - - - - Reenviar - - - - - - + +
    +
    +
    +
    + +
    + +
    +
    +
    +
    + + Cotizaciones +
    + +
    +
    + " + style="display: inline-block; margin-right: -20px; width: 150px;" /> + " + style="margin-top: -3px; float: inherit;" class="btn btn-circle btn-sm label-info"> +
    +
    + +
    +
    + + + + + + + + + + +
    +
    + +
    +
    +
    + + + + + Cotización + + + + + + + + + + + + + + + + + + + + + + + + + Folio Venta + + + + + + + + + + Reenviar + + + + + + <%-- - --%> - - Crear O.S. - + --%> + + Crear O.S. + <%--Crear O.S.--%> - - - - - - - - -
    -
    -
    - -
    -
    -
    -
    -     -     - - - - - - - -
    -
    - -
    -
    -
    - - Parametros -
    -
    - -
    -
    -
    - - -
    -
    - -
    - -
    - -
    - - - - <%-- --%> - -
    - -
    - - - - -
    - -
    - - - - -
    - -
    -
    -
    - -
    + + + + + + + + +
    +
    +
    + +
    +
    +
    +
    +     + + + + + + + + +
    +
    + +
    +
    +
    + + Parametros +
    +
    + +
    +
    +
    + + +
    +
    + +
    + +
    + +
    + + + + <%-- --%> + +
    + +
    + + + + +
    + +
    + + + + +
    + +
    +
    +
    + +
       +     +    +    +    +    -
    - + +
    +   +   +   +   +   +   -
    -
    - -
    -
    - - -
    -
    -
    - - - -
    - - - - - - - -
    - -
    - - -
    -
    -
    -
    - -
    + +
    +
    + +
    +
    + + +
    +
    +
    + + + +
    + + + + + + + +
    + +
    + + +
    +
    +
    +
    + +
       +     +    +    +    +    -
    - + +
    +   +   +   +   +   +   -
    -
    -
    -
    - - -
    - + +
    +
    +
    +
    + + +
    + <%-- @@ -1537,48 +1589,48 @@ - --%> -
    - -
    - -
    - - <%----%> - -
    - -
    -
    -
    - - - - <%----%> - -
    -
    - -
    -
    - - -
    -
    -
    - - -
    - - <%----%> - -
    - -
    - - -
    - + --%> +
    + +
    + +
    + + <%----%> + +
    + +
    +
    +
    + + + + <%----%> + +
    +
    + +
    +
    + + +
    +
    +
    + + +
    + + <%----%> + +
    + +
    + + +
    + <%--
    @@ -1600,708 +1652,716 @@
    -
    --%> - -
    - - <%----%> - -
    - -
    -
    - - <%----%> - -
    - -
    - - <%----%> - -
    -
    - -
    - - - -
    -
    - -
    - - - -
    -
    -
    - -
    -
    -
    -
    - - Estado de Cuenta -
    -
    - -
    -
    -
    +
    --%> + +
    + + <%----%> + +
    + +
    +
    + + <%----%> + +
    + +
    + + <%----%> + +
    +
    + +
    + + + +
    +
    + +
    +     +     + +
    +
    +
    + +
    +
    +
    +
    + + Estado de Cuenta +
    +
    + +
    +
    +
    <%-- Cuentas por Cobrar Anticipos / NC - --%> - -
    -
    - -
    - - - - - - -
    -
    -
    - -
    - - - - - - -
    -
    -
    -
    -
    - -
    - - - - - - -
    -
    -
    - -
    - - - - - - -
    -
    -
    - -
    -
    - - - - - -
    - -
    - - - - - - - - - + --%> + +
    +
    + +
    + + + + + + +
    +
    +
    + +
    + + + + + + +
    +
    +
    +
    +
    + +
    + + + + + + +
    +
    +
    + +
    + + + + + + +
    +
    +
    + +
    +
    + + + + + +
    + +
    + + + + + + + + + <%-- - --%> -
    -
    -
    -
    - -
    -
    -
    -
    - -    -
    -
    - - - - -
    -
    -
    -
    -
    -
    -
    - -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    -
    -
    -
    - - CxC Activas -
    -
    -
    - - - - - - - - - - -
    -
    -
    -
    -
    -
    + --%> +
    +
    +
    +
    + +
    +
    +
    +
    + +    +
    +
    + + + + +
    +
    +
    +
    +
    +
    +
    + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    +
    +
    +
    + + CxC Activas +
    +
    +
    + + + + + + + + + + +
    +
    +
    +
    +
    +
    Pago múltiples facturas Pagar múltiples facturas      -
    -
    - - - - - - - - - - - - - - + +
    +
    + + + + + + + + + + + + + +   - - - - + + + + +   - - - - + + + + +   - - - - - - - - - - - - - - - - <%----%> - - - - - - - - -
    - - -
    - - -
    -
    -
    - - Historial de CxC -
    -
    -
    - - - - - - - - - - -
    -
    -
    - -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    -
    -
    -
    - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + <%----%> + + + + + + + + +
    +
    + +
    + + +
    +
    +
    + + Historial de CxC +
    +
    +
    + + + + + + + + + + +
    +
    +
    + +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    +
    +
    +
    + + + + + + + + + + + + +   - - - - + + + + +   - - - - + + + + +   - - - - - - - - - - - - -
    -
    -
    - - - - - - - - - - - - - - - - - -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - -
    -
    -
    - - Anticipo del Cliente -
    -
    -
    - - - - - - - - - - -
    -
    -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - -
    -
    -
    - -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - -
    -
    -
    - - Anticipo del Cliente Historial -
    -
    -
    - - - - - - - - - - -
    -
    -
    -
    -
    - - - - - - - - - - - - - - - - -
    - -
    - -
    -
    -
    - -     -     - -     -     - - - - - - - - - - - - - - - - - - -
    -
    -
    - - Cuentas Bancarias - -
    - -
    - - - -
    - -
    -
    - - - - - - - - - - -
    -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    -
    - -
    -
    -
    - - Cobros Realizados -
    -
    -
    - - - - - - - - - - -
    -
    -
    -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - -
    - - - - - - - - - - - - - - - + + + + + + + + + + + + + +
    +
    +
    +     + + + + + + + + +     + + + + + + + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + +
    +
    +
    + + Anticipo del Cliente +
    +
    +
    + + + + + + + + + + +
    +
    +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + + + +
    +
    +
    + +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + +
    +
    +
    + + Anticipo del Cliente Historial +
    +
    +
    + + + + + + + + + + +
    +
    +
    +
    +
    + + + + + + + + + + + + + + + + +
    + +
    + +
    +
    +
    + +     +     + +     +     + + + + + + + + + + + + + + + + + + +
    +
    +
    + + Cuentas Bancarias + +
    + +
    + + + +
    + +
    +
    + + + + + + + + + + +
    +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +
    + +
    +
    +
    + + Cobros Realizados +
    +
    +
    + + + + + + + + + + +
    +
    +
    +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + +
    + + + + + + + + + + + + + + +   - - - - - - - - - - Archivos - - - - - - - Reenviar Complemento - + + + + + + + + + + + Archivos + + + + + + + Reenviar Complemento + <%-- - --%> - - - - - - - - -
    -
    - -
    -
    -
    -     -     - - - - - - - - - -

    No Facturadas

    - - - - - - - - - - - - - - - - - - - - - -     -     - - - - -

    Facturadas

    - - - - Folio - - - - + --%> + + + + + + + + +
    +
    + +
    + + +     +     + + + + + + + + + +

    No Facturadas

    + + + + + + + + + + + + + + + + + + + + + +     +     + + + + +

    Facturadas

    + + + + Folio + + + + <%-- Solicitó @@ -2313,1202 +2373,1215 @@ - --%> - - - - - - - - - - - - - - - -     -     - - - - -
    -

    Cuentas y Equipos

    - - - - - - - - - - - - - - - - - - - - - - - - -
    - -     -     - -     - - - - - - - -     -     - - - -
    -
    -
    -
    -
    - - FEMSA -
    -
    -
    -
    -
    -
    -
    -
    - -
    - -
    -
    - -
    - - -
    -
    - -
    - -
    - - -
    -
    - -
    - -
    - - -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    - - Detallista -
    -
    -
    -
    -
    -
    -
    -
    -
    - -
    -
    - -
    - - -
    -
    - -
    - -
    - - -
    -
    - -
    - -
    - - -
    -
    - -
    - -
    - - -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    - - 7Eleven -
    -
    -
    -
    -
    -
    -
    -
    - -
    - -
    - - -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    - - FORD -
    -
    -
    -
    -
    -
    -
    -
    -
    - -
    -
    - -
    - - -
    -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    -
    - - Impuestos Locales -
    -
    -
    -
    -
    -
    - -
    -
    - -
    -
    -
    -
    -
    -
    - - COMERCIO EXTERIOR -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    - -
    - -
    - - -
    - -
    - -
    -
    - -
    - - -
    - -
    -
    - -
    - -
    - -
    -
    - -
    - -
    - - -
    - -
    - -
    - -
    - -
    -
    - -
    -
    - -
    - -
    - - -
    - -
    - -
    - -
    - -
    -
    - -
    -
    - -
    -
    - - -
    - -
    - -
    -
    - -
    - -
    - -
    - -
    - -
    - -
    - -
    - -
    - -
    -
    -
    -
    -
    -     - -     - - - -
    -
    -
    -
    -
    - - Ventas -
    -
    -
    -
    -
    -
    -
    -
    - -
    - -
    - - -
    -
    -
    -
    -
    -
    -
    -
    -
    -
    - - ACTIVO FIJO ASIGNADO -
    -
    -
    -
    -
    -
    -
    -
    - - - - - - - - - - - - - -
    -
    -
    -
    -
    -     -     - - - -
    -
    -
    - - Personal Asignado -
    -
    -
    -
    -
    -
    -
    -
    - - - - N° - - - - - - Personal - -   - - - - Genero - -   - - - - Turno - -   - - - - Departamento - -   - - - - Puesto - -   - - - - Estatus - - - - - - - - - -
    -
    -
    -
    -
    -
    -
    -
    - - Consultar Asistencias -
    -
    -
    -
    -
    -
    -
    -
    -
    + --%> + + + + + + + + + + + + + + + + + + + + + +
    +

    Cuentas y Equipos

    + + + + + + + + + + + + + + + + + + + + + + + + +
    + +     +     + + + + + + + + + + + + + + +
    +
    +
    +
    +
    + + FEMSA +
    +
    +
    +
    +
    +
    +
    +
    + +
    + +
    +
    + +
    + + +
    +
    + +
    + +
    + + +
    +
    + +
    + +
    + + +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    + + Detallista +
    +
    +
    +
    +
    +
    +
    +
    +
    + +
    +
    + +
    + + +
    +
    + +
    + +
    + + +
    +
    + +
    + +
    + + +
    +
    + +
    + +
    + + +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    + + 7Eleven +
    +
    +
    +
    +
    +
    +
    +
    + +
    + +
    + + +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    + + FORD +
    +
    +
    +
    +
    +
    +
    +
    +
    + +
    +
    + +
    + + +
    +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    + + Impuestos Locales +
    +
    +
    +
    +
    +
    + +
    +
    + +
    +
    +
    +
    +
    +
    + + COMERCIO EXTERIOR +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    + +
    + +
    + + +
    + +
    + +
    +
    + +
    + + +
    + +
    +
    + +
    + +
    + +
    +
    + +
    + +
    + + +
    + +
    + +
    + +
    + +
    +
    + +
    +
    + +
    + +
    + + +
    + +
    + +
    + +
    + +
    +
    + +
    +
    + +
    +
    + + +
    + +
    + +
    +
    + +
    + +
    + +
    + +
    + +
    + +
    + +
    + +
    + +
    +
    +
    +
    +
    +     + +     + + + +
    +
    +
    +
    +
    + + Ventas +
    +
    +
    +
    +
    +
    +
    +
    + +
    + +
    + + +
    +
    +
    +
    +
    +
    +
    +
    +
    +
    + + ACTIVO FIJO ASIGNADO +
    +
    +
    +
    +
    +
    +
    +
    + + + + + + + + + + + + + +
    +
    +
    +
    +
    +     +     + + + +
    +
    +
    + + Personal Asignado +
    +
    +
    +
    +
    +
    +
    +
    + + + + N° + + + + + + Personal + +   + + + + Genero + +   + + + + Turno + +   + + + + Departamento + +   + + + + Puesto + +   + + + + Estatus + + + + + + + + + +
    +
    +
    +
    +
    +
    +
    +
    + + Consultar Asistencias +
    +
    +
    +
    +
    +
    +
    +
    +
    Fecha Inicial: -
    - - - - - - - - - - -
    -
    -
    + +
    + + + + + + + + + + +
    +
    +
    Fecha Final: -
    - - - - - - - - - - -
    -
    -
    - -
    -
    - -
    - - - - - Fecha - - - - - - Asistencia - -   - - - - % Pago - - - - - - Horas Dobles - - - - - - Horas Triples - - - - - - Motivo Horas Extras - -   - - - - Observaciones - -   - - - - - - - -
    -
    -
    -
    -
    - -     -     - - - - +
    +
    +
    + + + + + + + - - - - - - -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - - - - - - - - - - - - - - - - - - - - - - - - - - -     -     - - - - -
    -
    -
    - - Contratos Activos -
    -
    -
    -
    -
    -
    -
    -
    -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    - - - - -
    - - - - - - - - -
    Clasificación Contratado Avance Faltante Avance Por Facturar
    -
    - - - - - - - - - - - - -     -     -
    -
    -
    - -
    -
    - -
    -
    -
    - - Historial de Contratos -
    -
    -
    -
    -
    -
    -
    -
    -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    - - - - -
    - - - - - - - - -
    Clasificación Contratado Avance Faltante Avance Por Facturar
    -
    - - - - - - - - - - - - - -     -     -
    -
    -
    - -     -     - - - -
    -
    -
    -
    -
    - - Sistema -
    -
    -
    -
    -
    -
    -
    -
    + --%> + + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    + + + + + + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + + + + + + + + + + + + + + + + + + + + + + + +     +     + + + + +
    +
    +
    + + Contratos Activos +
    +
    +
    +
    +
    +
    +
    +
    +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + +
    + + + + + + + + +
    Clasificación Contratado Avance Faltante Avance Por Facturar
    +
    + + + + + + + + + + + + +     +     +
    +
    +
    + +
    +
    + +
    +
    +
    + + Historial de Contratos +
    +
    +
    +
    +
    +
    +
    +
    +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + +
    + + + + + + + + +
    Clasificación Contratado Avance Faltante Avance Por Facturar
    +
    + + + + + + + + + + + + + +     +     +
    +
    +
    + +     +     + + + +
    +
    +
    +
    +
    + + Sistema +
    +
    +
    +
    +
    +
    +
    +
    Estado: - -
    -
    + + +
    +
    Fecha de Captura: - -
    -
    + + +
    +
    Usuario Capturó: - -
    -
    -
    -
    - - - -
    -
    -
    -
    - - Acceso a Portal del Cliente -
    -
    -
    -
    -
    -
    -
    -
    -
    -
    + + +
    +
    +
    +
    + + + +
    +
    +
    +
    + + Acceso a Portal del Cliente +
    +
    +
    +
    +
    +
    +
    +
    +
    +
    Usuario Activo: - - - -
    - + + + + +
    + Usuario: -
    -
    -
    + +
    +
    +
    Enviar Activación: - - -
    -
    + + + +
    +
    Desactivar Usuario: - -
    -
    - -
    -
    - - - Permisos Admin: - - - - - - - - + + + + + +
    +
    + + + Permisos Admin: +
    - - - -
    + + + + + + + <%-- --%> + --%> <%-- --%> - - - - - - - - - + --%> + + + + + + + + + <%-- --%> + --%> <%----%> - - -
    + + + + - - -
    - - - - +
    + + + + - - -
    - - -     -     -
    - - -
    -
    -
    -
    -
    -     -     - -
    - - - -
    -
    -
    -
    -
    - - Usuarios del Portal -
    -
    -
    -
    -
    -
    -
    - - - - -
    - - - - - + +
    - + --%> + +
    + + + + + + + + + + + + + + + + + + + +
    +
    +
    +
    +
    + + Usuarios del Portal +
    +
    +
    +
    +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + + +
    + + + + + - + - - - - - - - - - - - - + + + + + + + + + + + + - + - - - - - - - - - - - - - - - - - - - - -
    + Nombre - - - - + + + + + Correo/Usuario - - - - Compras - CxP - Anticip - R.H. - O.S. - Cotiza- - Sist - - - - - + + + + + Compras + CxP + Anticip + R.H. + O.S. + Cotiza- + Sist + + + + + Fecha - - - - + + + + + Usuario - - - Comandos
    - - - - - - - - - - - - - - - - -     - -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + +     		Comandos
    + + + + + + + + + + + + + + + + +     + +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + <%-- @@ -3524,2458 +3597,2479 @@ - --%> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + --%> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
      -
    -     - - -   + + + + +     - - - -     -     - - -     -
    -
    -
    -
    -
    -     -     - - - - - <%-- ---------------------------- --%> - <%-- Documentacion --%> - <%-- ---------------------------- --%> - - -
    - -
    - - -
    -
    -
    - - Documentación del Cliente -
    -
    -
    -
    -
    -
    - -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    - - - - - - - - - - -
    -     -     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + +     + + +     + + + +
    +
    +
    +
    +     + + +     + + + <%-- ---------------------------- --%> + <%-- Documentacion --%> + <%-- ---------------------------- --%> + + +
    + +
    + + +
    +
    +
    + + Documentación del Cliente +
    +
    +
    +
    +
    +
    + +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    + + + + + + + + + + +
    +     +     + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + <%-- - --%> -     -     - - -     -     - - - - - -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    -
    -
    -
    - -
    -
    -     -     -
    - - - -
    -     -     - -
    -
    - -     -     - <%-- ---------------------------- --%> - <%-- Documentacion Fin --%> - <%-- ---------------------------- --%> - - - - - -
    -
    -
    - - -
    -
    -
    -
    + --%> + + + + + + + + + + + +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +
    +
    +
    + +
    +
    +     +     +
    + + + +
    + + + +
    +
    + + + + <%-- ---------------------------- --%> + <%-- Documentacion Fin --%> + <%-- ---------------------------- --%> + + + + + +
    +
    +
    + + +
    +
    +
    +
    Fecha Inicio: -
    -
    -
    - - - - -
    - - - - -
    -
    + +
    +
    +
    + + + + +
    + + + + +
    +
    Fecha Fin: -
    -
    -
    - - - - -
    - - - - -
    - -
    - -
    - -
    - - - -
    - -
    - - - -
    - -
    - - - -
    -
    -
    -
    - -
    -     -     - - -
    -
    - - - - - - - - - - - - - - - -
    -
    -     -     - -     -     - - - - - - - -
    -
    -
    -
    -
    - - Usados resumen -
    -
    -
    -
    -
    -
    -
    - - - - - - - - - - - - + + +
    +
    + + + + +
    + + + + +
    + +
    + +
    + +
    + + + +
    + +
    + + + +
    + +
    + + + +
    + + + + + + + + + +
    +
    + + + + + + + + + + + + + + + +
    +
    +     +     + + + + + + + + + + +
    +
    +
    +
    +
    + + Usados resumen +
    +
    +
    +
    +
    +
    +
    + + + + +
    Puntos -
    Importe Cargo
    + + + + + + + - - - - + + + + + + - - - -
    Puntos +
    Importe Cargo $ - - -
    Importe Bonificación + +
    Importe Bonificación $ - - -
    - -     -     - - -
    -
    -
    -
    - - -
    -
    - - -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    - -
    - -
    - - -
    -
    -
    - - -
    -
    -
    -
    + + + + + + + + + + + + + +
    +
    +
    +
    + + +
    +
    + + +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + +
    + +
    + + +
    +
    +
    + + +
    +
    +
    +
    Fecha Inicio: -
    -
    -
    - - - - -
    - - - - -
    -
    + +
    +
    +
    + + + + +
    + + + + +
    +
    Fecha Fin: -
    -
    -
    - - - - -
    - - - - -
    -
    -
    -
    - -
    -     -     - - - - - - - - - - - - - - - - + +
    +
    +
    + + + + +
    + + + + +
    +
    +
    +
    + +
    +     +     + + + + + + + + + + + + + + + + <%-- - --%> - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    - -
    + --%> + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    + +
    <%--
    -
    --%> - -
    - -
    - - -
    -
    -     -     - - - - - - - - - - - - -
    - - - - - - - - -
    - - +
    +
    + + <%-- MODAL BITACORA --%> + - <%-- FIN MODAL BITACORA --%> - - <%-- MODAL SUCURSAL --%> - - - <%-- MODAL DIRECCION ENVIO --%> - +
    +
    + <%-- FIN MODAL BITACORA --%> + + <%-- MODAL SUCURSAL --%> + + + <%-- MODAL DIRECCION ENVIO --%> + - <%-- FIN MODAL DIRECCION ENVIO--%> - - <%-- MODAL COMPARACION--%> - - <%-- FIN MODAL COMPARACION--%> - - <%-- MODAL IMPORTAR SALDOS --%> - + <%-- FIN MODAL IMPORTAR SALDOS --%> + + <%-- MODAL AGREGAR CUENTA EQUIPO --%> + + <%-- FIN MODAL AGREGAR CUENTA --%> + + <%-- MODAL CARGA DOCUMENTOS CLIENTE CXC --%> + + <%-- FIM MODAL CARGA DOCUMENTOS CXC --%> + + <%-- MODAL VISITAS CXC --%> + + + + + + + <%--MODAL ACTUALIZAR PERSONA FISICA--%> + + + + + + +
    +
    + + +
    +     + +
    +
    +
    + <%-- FIN MODAL MODIFICAR PRECIOS PS --%> +     + + + + + + + + + - - + + + - - - + + + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 93b3af6a2..fae874fcf 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -820,6 +820,10 @@ Partial Class Clientes UpFiscalContable.Update() End If + If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then + DivTipoRetenciones.Visible = True + End If + If Request("CveEmpresaCRM") IsNot Nothing AndAlso IsNumeric(Request("CveEmpresaCRM")) AndAlso Request("CveEmpresaCRM").ToEntero > 0 Then ViewState("CveEmpresaCRM") = Request("CveEmpresaCRM") CargaDatosCRM() @@ -1374,7 +1378,8 @@ Partial Class Clientes TxtGiro.Text = ObjClientes.Giro DdlPrecioLista.SelectedValue = ObjClientes.CvePrecioLista.ToString TxtCC.Text = ObjClientes.NotificarA - ChkMail.Checked = ObjClientes.EnviarFactura + ChkMail.Checked = ObjClientes.EnviarFactura + DdlTipoRetencion.SelectedValueExist(ObjClientes.DtResultados(0)("CveTipoRetencion").ToString) TxtRetIVA.Text = ObjClientes.RetIVA.ToString TxtRetISR.Text = ObjClientes.RetISR.ToString ChkRetIVAFletesAcarreos.Checked = ObjClientes.RetieneIVAFletes @@ -2411,7 +2416,7 @@ Partial Class Clientes CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero, DesglosaIEPS:=ChkDesglosarIEPS.Checked, AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero, CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero, CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero, CvePais:=DdlPais.SelectedValue.ToEntero, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero, CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero, NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(), ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, - TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked) Then + TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero()) Then ViewState("CveCliente") = ObjClientes.CveCliente @@ -2505,7 +2510,8 @@ Partial Class Clientes AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero, CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero, CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero, CvePais:=DdlPais.SelectedValue.ToEntero, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero, CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero, NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(), ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), - ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked) Then + ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(), + RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero()) Then ObjClientes.LimpiaImpuestosLocales(CveCliente) @@ -9935,5 +9941,22 @@ Partial Class Clientes End Sub #End Region + Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs) + Select Case DdlTipoRetencion.SelectedValue + Case "1" 'Arrendamiento + TxtRetIVA.Text = "10" + TxtRetISR.Text = "10" + Case "2" 'Servicios Profesionales + TxtRetIVA.Text = "10" + TxtRetISR.Text = "10" + Case "3" 'Fletes + TxtRetIVA.Text = "4" + TxtRetISR.Text = "4" + Case "4" 'Servicios + TxtRetIVA.Text = "6" + TxtRetISR.Text = "6" + End Select + UpFiscalContable.Update() + End Sub End Class From bdbdff0f9c0f35b8616fa37c955c9630cafae098 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Sat, 11 Jan 2020 12:45:00 -0700 Subject: [PATCH 02/10] - --- Contabilidad/RegPrePoliza.aspx | 3 + Contabilidad/RegPrePoliza.aspx.vb | 62 +++++++-- Inventarios/RecepcionEntrega.aspx.vb | 182 +++++++++++---------------- Planeacion/CatSubProyectos.aspx.vb | 6 +- 4 files changed, 135 insertions(+), 118 deletions(-) diff --git a/Contabilidad/RegPrePoliza.aspx b/Contabilidad/RegPrePoliza.aspx index 2836aea82..88e35e479 100644 --- a/Contabilidad/RegPrePoliza.aspx +++ b/Contabilidad/RegPrePoliza.aspx @@ -373,6 +373,9 @@ +
    +
    +     diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index 623229efd..e6580a22f 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -794,6 +794,18 @@ Partial Class ContabilidadC_RegPrePoliza e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green" End If End If + + If e.Row.DataKey("CveConcepto").ToEntero.Contiene(17) Then + e.Row.FCDropDownList("DdlProveedores").Visible = True + e.Row.FCDropDownList("DdlProveedores").DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + e.Row.FCDropDownList("DdlProveedores").DataBind() + e.Row.FCDropDownList("DdlProveedores").Items.Insert(0, New ListItem(" - ", "-1")) + + 'If CveTipoTransaccion > 0 And CveCuenta > 0 And Folio.Length > 0 And ImporteDocumento > 0 And Beneficiario.Length > 0 Then + ' e.Row.FCLinkButton("ImgPagoCompra").CssClass = "btn btn-circle btn-sm green" + 'End If + End If + End If End Sub @@ -854,15 +866,20 @@ Partial Class ContabilidadC_RegPrePoliza 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 FolioIE = ObjIE.Folio End If - End If - - + End If + + + Dim CveProveedor As Integer = -1 + Dim CveCompra As Integer = -1 'inserto las compras que voy a pagarDdlSaldos For Each gvr As GridViewRow In GvMov.Rows If gvr.DataKey("IDCuenta").ToEntero > 0 Then IdCtaContable = gvr.DataKey("IDCuenta") End If + CveProveedor = gvr.DataKey("CveProveedor").ToEntero + CveCompra = gvr.DataKey("CveCompra").ToEntero + CveConcepto = gvr.DataKey("CveConcepto").ToEntero If gvr.DataKey("TipoMovto").ToDouble <> 0 Then Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble @@ -870,6 +887,11 @@ Partial Class ContabilidadC_RegPrePoliza Else Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble TipoMovto = False + End If + 'Registra pago de compra + If CveConcepto = 17 Then + CveProveedor = gvr.FCDropDownList("DdlProveedores").SelectedValue.ToEntero + CveCompra = gvr.FCDropDownList("DdlCompras").SelectedValue.ToEntero End If If CveConcepto = 41 Then @@ -890,7 +912,7 @@ Partial Class ContabilidadC_RegPrePoliza If Importe <> 0 Then If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text, TxtFecha.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=CveIE, - CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero, + CveProveedor:=CveProveedor, CveCompra:=CveCompra, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero, ImporteMX:=Importe, CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero, CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=If(gvr.DataKey("TC").ToString.ToDouble > 0, gvr.DataKey("TC").ToString.ToDouble, 1), @@ -1560,10 +1582,34 @@ Partial Class ContabilidadC_RegPrePoliza Protected Sub LnkComplementoPago_Click(sender As Object, e As EventArgs) GeneraTimbre(CvePrePoliza) - End Sub + End Sub #End Region - - - + + + + Protected Sub DdlProveedores_SelectedIndexChanged1(sender As Object, e As EventArgs) + Dim ddl As DropDownList = CType(sender, DropDownList) + Dim ddl2 As DropDownList = DirectCast(ddl.BindingContainer, GridViewRow).FCDropDownList("DdlCompras") + CargaCompras2(ddl.SelectedValue.ToEntero, ddl2) + End Sub + + Private Sub CargaCompras2(CveProveedor As Integer, ddl As DropDownList) + + Dim ObjCompras As New ClsCompras + + ddl.ClearSelection() + If ObjCompras.GetCompras(-1, "-1", "-1", CveProveedor, -1, UsuarioActual.CveEmpresa) Then + ddl.DataSource = ObjCompras.DtResultados.FiltraParametros("Saldo > 0") + ddl.DataBind() + ddl.Items.Insert(0, New ListItem(" - ", "-1")) + ddl.Visible = True + Else + ddl.DataSource = Nothing + ddl.DataBind() + ddl.Items.Insert(0, New ListItem(" - ", "-1")) + + End If + ObjCompras.Dispose() + End Sub End Class diff --git a/Inventarios/RecepcionEntrega.aspx.vb b/Inventarios/RecepcionEntrega.aspx.vb index 4d3cf4f62..1194c521b 100644 --- a/Inventarios/RecepcionEntrega.aspx.vb +++ b/Inventarios/RecepcionEntrega.aspx.vb @@ -1868,112 +1868,7 @@ Partial Class Inventarios_RecepcionEntrega End If ' TERMINA: GARANTIAS - ' COMIENZA: VIRTUAL - If TipoDocto.Contiene("Ing") AndAlso UsuarioActual.Empresa.Funcionalidad(573) = "1" Then - Dim DtPSVirtual As New DataTable("DtTamanios") - DtPSVirtual.Columns.Add(New DataColumn("CvePS", GetType(Integer))) - DtPSVirtual.Columns.Add(New DataColumn("Cantidad", GetType(Decimal))) - DtPSVirtual.Columns.Add(New DataColumn("PU", GetType(Decimal))) - DtPSVirtual.Columns.Add(New DataColumn("CveUM", GetType(Integer))) - - Dim DtTamanios As DataTable = Nothing - - If ObjAcumuladores.TamañoGet(-1, UsuarioActual.CveEmpresa) Then - DtTamanios = ObjAcumuladores.DtResultados.Copy() - End If - - Dim CveConceptoMovimientoVirtual As Integer = -1 - Dim CveAlmacenVirtual As Integer = -1 - Dim CveMovimientoRelacionadoVirtual As Integer = -1 - Dim ValidaVirtual As Boolean = False - - If TipoMovimiento = 1 Then - For Each GvRow As GridViewRow In GvDatos.Rows - If GvRow.RowType = DataControlRowType.DataRow Then - - If GvRow.datakey("CveTamaño").tostring.toentero > 0 Then - ValidaVirtual = True ' si tiene tamaño, debe de tener virtual - Dim drr As DataRow = DtTamanios.FiltroPrimero(String.Format("CveTamaño={0}", GvRow.DataKey("CveTamaño"))) - If drr IsNot Nothing Then - - Dim CvePSCargo = drr("CvePSCargo").ToString().ToEntero() - Dim Row As DataRow = DtPSVirtual.NewRow() - Row("CvePS") = CvePSCargo - Row("Cantidad") = GvRow.FCTextBox("TbCantidadF").Text.ToDecimal() - Row("PU") = 0 - Row("CveUM") = GvRow.DataKey("CveUM").ToEntero() - - DtPSVirtual.Rows.Add(Row) - End If - - End If - - End If - Next - CveConceptoMovimientoVirtual = 3 - CveAlmacenVirtual = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() - - ElseIf TipoMovimiento = 2 Then - ValidaVirtual = True - Dim CveMovimientoSalidaDev As Integer = -1 - If ObjInventario.GetInv_Mov(CveVentaSurtir, UsuarioActual.CveEmpresa) Then - Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND CveTipoAlmacen = 24 AND CveConcepto = 3 AND CveVenta > 0") - CveMovimientoSalidaDev = RowMovimiento("CveMovimiento").ToString().ToEntero() - CveAlmacenVirtual = RowMovimiento("CveAlmacen").ToString().ToEntero() - CveMovimientoRelacionadoVirtual = CveMovimientoSalidaDev - Else - ErrorMovInv = True - TextoError = "Ocurrió un error al procesar el movimiento. Por favor vuelva a intentar." - End If - - 'CARGA CONCEPTOS DEVUELTOS EN LA VENTA - If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaDev, UsuarioActual.CveEmpresa) Then - DtPSVirtual = ObjInventario.DtResultados.Copy() - Else - ErrorMovInv = True - TextoError = "Ocurrió un error al procesar los movimientos de devolución. Por favor vuelva a intentar." - End If - CveConceptoMovimientoVirtual = 18 - End If - - If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then - CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, - Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="RE/G6") - FolioVirtual = ObjInventario.Folio - - If CveMovimientoVirtual > 0 Then - For Each RowUsado As DataRow In DtPSVirtual.Rows - Dim CvePS = RowUsado("CvePS").ToString().ToEntero() - Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble() - Dim PU As Double = RowUsado("PU").ToString().ToDouble() - Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero() - - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1) Then - ErrorMovInv = True - TextoError = "Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar." - Exit For - End If - Next - Else - ErrorMovInv = True - End If - - Else - If ValidaVirtual Then - ErrorMovInv = True - TextoError = "Ocurrió un error al procesar el movimiento en almacen virtual. Por favor vuelva a intentar." - - End If - End If - - If DtPSVirtual.Rows.Count = 0 AndAlso ValidaVirtual = True Then - ErrorMovInv = True - TextoError = "No se tienen productos para el almacen virtual." - End If - End If - - ' TERMINA: VIRTUAL If Not ErrorMovInv Then Dim ConceptoMovimiento = 3 @@ -2316,8 +2211,81 @@ Partial Class Inventarios_RecepcionEntrega End If End If - 'AGREGA BITACORA A VENTA - If Not ErrorMovInv Then + ' COMIENZA: VIRTUAL + If TipoDocto.Contiene("Ing", "Dev") AndAlso UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso CveMovimiento > 0 Then + Dim DtPSVirtual As New DataTable("DtTamanios") + + If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then + DtPSVirtual = ObjInventario.DtResultados + End If + + ' + 'DtPSVirtual.Columns.Add(New DataColumn("CvePS", GetType(Integer))) + 'DtPSVirtual.Columns.Add(New DataColumn("Cantidad", GetType(Decimal))) + 'DtPSVirtual.Columns.Add(New DataColumn("PU", GetType(Decimal))) + 'DtPSVirtual.Columns.Add(New DataColumn("CveUM", GetType(Integer))) + + 'Dim DtTamanios As DataTable = Nothing + + 'If ObjAcumuladores.TamañoGet(-1, UsuarioActual.CveEmpresa) Then + ' DtTamanios = ObjAcumuladores.DtResultados.Copy() + 'End If + + Dim CveConceptoMovimientoVirtual As Integer = -1 + Dim CveAlmacenVirtual As Integer = -1 + Dim CveMovimientoRelacionadoVirtual As Integer = CveMovimiento + Dim ValidaVirtual As Boolean = False + + If TipoMovimiento = 1 Then + CveConceptoMovimientoVirtual = 36 + CveAlmacenVirtual = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() + + ElseIf TipoMovimiento = 2 Then + ValidaVirtual = True + CveConceptoMovimientoVirtual = 37 + End If + + If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then + CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, + Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="RE/G6") + FolioVirtual = ObjInventario.Folio + + If CveMovimientoVirtual > 0 Then + For Each RowUsado As DataRow In DtPSVirtual.Rows + Dim CvePS = RowUsado("CvePS").ToString().ToEntero() + Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble() + Dim PU As Double = RowUsado("PU").ToString().ToDouble() + Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero() + + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1) Then + ErrorMovInv = True + TextoError = "Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar." + Exit For + End If + Next + Else + ErrorMovInv = True + End If + + Else + If ValidaVirtual Then + ErrorMovInv = True + TextoError = "Ocurrió un error al procesar el movimiento en almacen virtual. Por favor vuelva a intentar." + + End If + End If + + If DtPSVirtual.Rows.Count = 0 AndAlso ValidaVirtual = True Then + ErrorMovInv = True + TextoError = "No se tienen productos para el almacen virtual." + End If + End If + + ' TERMINA: VIRTUAL + + + 'AGREGA BITACORA A VENTA + If Not ErrorMovInv Then Dim MensajeBitacora = If(TipoMovimiento = 1, "Surtida", "Devuelta") If Not ObjEventos.AddEventoBitacora(String.Format("Venta {2} en Folio: {1}", CveMovimiento, Folio, MensajeBitacora), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVentaSurtir) Then ErrorMovInv = True diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb index 0c13a7096..217c9a811 100644 --- a/Planeacion/CatSubProyectos.aspx.vb +++ b/Planeacion/CatSubProyectos.aspx.vb @@ -119,7 +119,7 @@ Partial Class CatSubProyectos Public Sub CargaDatos() Dim ObjSub As New ClsSubProyectos - If ObjSub.GetSubProyectos() Then + If ObjSub.GetSubProyectos(UsuarioActual.CveEmpresa) Then GvDatos.DataSource = ObjSub.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") GvDatos.DataBind() End If @@ -204,7 +204,7 @@ Partial Class CatSubProyectos If ObjSubProyectos.RemoveSubProyecto(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then GvDatos.EditIndex = -1 ViewState("DTSubProyectos") = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTSubProyectos(-1) = ObjSubProyectos.DtResultados + GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados Alert("El SubProyecto se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -232,7 +232,7 @@ Partial Class CatSubProyectos If ObjSubProyectos.UpdateSubProyectoSegNeg(CveSubProyecto, CveSegmento, UsuarioActual.CveEmpresa) Then GvDatos.EditIndex = -1 ViewState("DTSubProyectos") = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTSubProyectos(-1) = ObjSubProyectos.DtResultados + GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) Else ErrorSubProyecto = True From 61981273d782aaa579121ea3b921e9bdda0cc67e Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Sat, 11 Jan 2020 15:36:57 -0700 Subject: [PATCH 03/10] - --- App_Code/ClsAcumuladores.vb | 13 +++++++------ Inventarios/RecepcionEntrega.aspx.vb | 10 +++++----- Ventas/PV.aspx.vb | 2 +- 3 files changed, 13 insertions(+), 12 deletions(-) diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index 614160d81..1dfccab76 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -477,20 +477,21 @@ Public Class ClsAcumuladores End Try Return Retorno - End Function - + End Function + #End Region - + #Region " FOLIOS GARANTÍA " - - Public Function FoliosGarantiaGet(CveFolioGarantia As Integer, CveEmpresa As Integer) As Boolean + + Public Function FoliosGarantiaGet(CveFolioGarantia As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable SqlDataAdapter("PA_Acum_FoliosGarantiaGet") With SqlAdapter.SelectCommand.Parameters - .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia + .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia + .Add("@Estatus", SqlDbType.Int).Value = Estatus .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With diff --git a/Inventarios/RecepcionEntrega.aspx.vb b/Inventarios/RecepcionEntrega.aspx.vb index 1194c521b..a0e7499ff 100644 --- a/Inventarios/RecepcionEntrega.aspx.vb +++ b/Inventarios/RecepcionEntrega.aspx.vb @@ -2235,14 +2235,14 @@ Partial Class Inventarios_RecepcionEntrega Dim CveAlmacenVirtual As Integer = -1 Dim CveMovimientoRelacionadoVirtual As Integer = CveMovimiento Dim ValidaVirtual As Boolean = False + CveAlmacenVirtual = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() If TipoMovimiento = 1 Then - CveConceptoMovimientoVirtual = 36 - CveAlmacenVirtual = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() + CveConceptoMovimientoVirtual = 37 ElseIf TipoMovimiento = 2 Then ValidaVirtual = True - CveConceptoMovimientoVirtual = 37 + CveConceptoMovimientoVirtual = 36 End If If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then @@ -2302,7 +2302,7 @@ Partial Class Inventarios_RecepcionEntrega RegistraScript("playsonidito('beep-07.wav')") Dim Msg As New StringBuilder - Msg.AppendFormat("Movimiento Salida: {1}", CveMovimiento, Folio) + Msg.AppendFormat("Movimiento {2}: {1}", CveMovimiento, Folio, If(TipoMovimiento = 1, "Salida", "Entrada")) Msg.AppendFormat("
    Imprimir Movimiento ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento))) If CveMovimientoEntrada > 0 Then @@ -2323,7 +2323,7 @@ Partial Class Inventarios_RecepcionEntrega End If If CveMovimientoVirtual > 0 Then - Msg.AppendFormat("

    Movimiento de Salida del Almacen Virtual: ") + Msg.AppendFormat("

    {0} Almacen Virtual: ", If(TipoMovimiento = 1, "Salida", "Entrada")) Msg.AppendFormat("{1}", CveMovimientoVirtual, FolioVirtual) Msg.AppendFormat("
    Imprimir Movimiento ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtual))) End If diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index e00126eae..9b317a159 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -5018,7 +5018,7 @@ Partial Class PV Private Sub CargaAjuste() Dim ObjAcum As New ClsAcumuladores - If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa) Then + If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, 1) Then DdlFolioGarantia.DataSource = ObjAcum.DtResultados DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1")) End If From 2a0079aba97569fe6278be6fbcad3e3b47c8cce0 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Sun, 12 Jan 2020 21:33:58 -0700 Subject: [PATCH 04/10] cambios --- App_Code/modExtensiones.vb | 4 ++-- OC/OC.aspx | 10 ++++++---- OC/OC.aspx.vb | 30 ++++++++++++++++++++-------- Ventas/Ventas.aspx | 9 +++------ Ventas/Ventas.aspx.vb | 41 ++++++++++++++++++++++---------------- 5 files changed, 57 insertions(+), 37 deletions(-) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 9832061b6..2a531ef0d 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -54,8 +54,8 @@ Namespace Extensiones ' BaseDatos = CType(System.Web.HttpContext.Current.Session("UsuarioSIG"), Usuario).Empresa.BaseDatosNombre 'End If - - Return String.Format("Data Source=192.168.0.2;Initial Catalog={0};User Id=JCaudillo;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIG;", BaseDatos) + Return ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + ' Return String.Format("Data Source=192.168.0.2;Initial Catalog={0};User Id=JCaudillo;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIG;", BaseDatos) End Function diff --git a/OC/OC.aspx b/OC/OC.aspx index c42828217..bd735893c 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -289,7 +289,7 @@ <%-- --%> - + <%-- --%> @@ -2556,9 +2556,11 @@
    - - - + <%----%> + + +<%-- + --%>
    diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 46881c301..fb5de5bea 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -1741,20 +1741,25 @@ Partial Class OC CboUnidadMedida.DataBind() End Sub Private Sub CargaProveedores() - If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then DdlProveedores.setEsWebService(True) - DdlProveedores.Attributes.Add("metodo", "getproveedores") + DdlProveedores.Attributes.Add("data-metodo", "getproveedores") + DdlProveedores.SelectedText = "Seleccione" + DdlProveedores.SelectedValue = "-1" + DdlProveedorCot.setEsWebService(True) + DdlProveedorCot.Attributes.Add("data-metodo", "getproveedores") Else - GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual) DdlProveedores.DataBind() + DdlProveedores.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) + + DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual) + DdlProveedorCot.DataBind() + DdlProveedorCot.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) + End If - 'DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual) - DdlProveedorCot.DataBind() - DdlProveedorCot.Items.Insert(0, New ListItem("Seleccione", "-1")) UPProv.Update() : UPPEmp.Update() End Sub @@ -2105,6 +2110,8 @@ Partial Class OC Return True End If + + 'SI ES REQUISICION, NO REQUIERE COTIZACION Y ES ESTATUSFINALOK... ENTONCES DEBE DE TENER UN PROVEEDOR SELECCIONADO Y LOS PRECIOS CAPTURADOS 'If (TipoOC = "REQ" And ChkCotizacion.Checked = False And CboE.SelectedValue.ToEntero = CveEstatusFinalOK) OrElse TipoOC = "OC" Then ' If Not UsuarioActual.TienePermisoProceso(179) Then 'PERMISO PARA GENERAR CON O @@ -2222,6 +2229,13 @@ Partial Class OC TieneError = True End If + 'Valida que tenga proveedore + If (EsNuevo = True AndAlso TipoOC.ToUpper = "OC"4) AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then + Alert("Debe seleccionar un proveedor.", TipoMensaje.MsgAdvertencia) + TieneError = True + End If + + 'VALIDA QUE ANTES DE QUE PUEDA MANDARLA A SUPERVISADA SE TIENE QUE SELECCIONAR UN PROVEEDOR If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then If (TipoOC.ToUpper = "REQ" And CboE.SelectedValue.ToEntero.Contiene(CveEstatusSupervisada, CveEstatusFinalOK)) AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then @@ -5966,7 +5980,7 @@ Partial Class OC Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) - Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath) + Dim excelFile As ExcelFile = excelFile.Load(flatFilePath) Dim unnamed As Integer = 0 Dim cols As Integer diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 6fa1b3ceb..3af333051 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -812,7 +812,7 @@ - +
    Turno: @@ -3240,11 +3240,8 @@ - Kilometraje  - - - - + Kilometraje  +
    diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 1765b3c67..2563cc7b9 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2523,7 +2523,8 @@ Partial Class Ventas DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4") DivContadoOtros.Visible = True TrKilometraje.Visible = True - TrKilometrajeTxt.Visible = True + TrPedido.Visible = False + ' TrKilometrajeTxt.Visible = True End If End If @@ -2582,8 +2583,9 @@ Partial Class Ventas LkbEstadodeCaja.Visible = True LkbIngreso.Visible = True LkbRetiro.Visible = True - UpTurno.Update() + UpTurno.Visible = True Else + UpTurno.Visible = False 'Ingresar un nuevo Turno RegistraScript("window.onload = function MuestraCorteCaja() { document.getElementById(""C_btnShow"").click(); }") End If @@ -6462,22 +6464,27 @@ Partial Class Ventas End If 'Valida si en caso de que el detalle tenga llantas o polizas se agreguén kilometraje/serie en la parte de observaciones(solo para el caso de empresas llanteras) If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + + If txtkilometraje.text.toentero = 0 Then + Alert("No se ha especificado el kilometraje.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + If TxtObsFact.Text = "" Then Dim FaltaObservacion As Integer = -1 - For Each PS As GridViewRow In GvPS.Rows - Dim PsRenglon As GridViewRow = PS - Dim CveClasificacion As Integer = PsRenglon.DataKey("CveClasificacion").ToEntero - If CveClasificacion = 20345 Or CveClasificacion = 20342 Then - FaltaObservacion = CveClasificacion - Exit For - End If - Next + 'For Each PS As GridViewRow In GvPS.Rows + ' Dim PsRenglon As GridViewRow = PS + ' Dim CveClasificacion As Integer = PsRenglon.DataKey("CveClasificacion").ToEntero + ' If CveClasificacion = 20345 Or CveClasificacion = 20342 Then + ' FaltaObservacion = CveClasificacion + ' Exit For + ' End If + ' + FaltaObservacion = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20345").ToEntero + If FaltaObservacion = 20345 Then Alert("No se ha especificado la serie para la poliza en la sección de Observaciones", TipoMensaje.MsgAdvertencia) Exit Sub - ElseIf FaltaObservacion = 20342 Then - Alert("No se ha especificado el kilometraje para la llanta en el sección de Observaciones", TipoMensaje.MsgAdvertencia) - Exit Sub End If End If End If @@ -9125,7 +9132,7 @@ Partial Class Ventas CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)), CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM, DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False), - Kilometraje:=If(TrKilometrajeTxt.Visible AndAlso IsNumeric(TxtKilometraje.Text), TxtKilometraje.Text.ToDouble, -1)) Then + Kilometraje:=TxtKilometraje.Text.todouble) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
    Revise su factura y cualquier detalle comuníquese a Soporte Técnico") @@ -14276,7 +14283,7 @@ Partial Class Ventas 'AGREGA PS ADICIONAL - If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso Not UsuarioActual.TienePermisoProceso(284) AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza Then + If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso Not UsuarioActual.TienePermisoProceso(285) AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza Then For Each Dr As DataRow In GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows Dim CvePSAdicional As Integer = Dr("CvePSAdicional").ToString.ToEntero @@ -16408,7 +16415,7 @@ Partial Class Ventas Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1), PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero, CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero, TipoDocto:="Rem", CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, - OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=If(TrKilometrajeTxt.Visible AndAlso IsNumeric(TxtKilometraje.Text), TxtKilometraje.Text.ToDouble, -1)) Then + OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDouble) Then OcurrioError = True End If @@ -22080,7 +22087,7 @@ Partial Class Ventas Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1), PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero, CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, - TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=If(TrKilometrajeTxt.Visible AndAlso IsNumeric(TxtKilometraje.Text), TxtKilometraje.Text.ToDouble, -1)) Then + TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDouble) Then MensajeError = "Ocurrió un error al actualizar la información de la cotización" OcurrioError = True End If From e4f0e0375c92ea176c905142dc7c7b4c297e5120 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 13 Jan 2020 09:22:07 -0700 Subject: [PATCH 05/10] --- Ventas/Ventas.aspx | 15 +++++++++++++-- Ventas/Ventas.aspx.vb | 16 ++++++++++++++++ 2 files changed, 29 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 92bbd2874..688e063f4 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1359,9 +1359,20 @@ Ret. IVA: - + + -  (%) +  (%) + + + + + + + + + + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index dea66b2a4..905c05980 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -4734,6 +4734,8 @@ Partial Class Ventas End If ViewState("CargoUsado") = ObjCliente.CargoUsados + DdlTipoRetencion.SelectedValueExist(ObjCliente.DtResultados(0)("CveTipoRetencion").ToString) + Dim dr As DataRow = Nothing dr = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal = 1 And Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa) If dr IsNot Nothing Then @@ -23978,5 +23980,19 @@ Partial Class Ventas Return Retorno End Function + Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs) + Dim PorcentajeRetencion As Decimal = 0 + Select Case DdlTipoRetencion.SelectedValue + Case "1" 'Arrendamiento + PorcentajeRetencion = 10 + Case "2" 'Servicios Profesionales + PorcentajeRetencion = 10 + Case "3" 'Fletes + PorcentajeRetencion = 4 + Case "4" 'Servicios + PorcentajeRetencion = 6 + End Select + + End Sub End Class \ No newline at end of file From 838d26f641e6a323f95838c5b8cd56e4efa260fb Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 13 Jan 2020 10:04:26 -0700 Subject: [PATCH 06/10] --- Ventas/Ventas.aspx | 5 +++-- Ventas/Ventas.aspx.vb | 28 ++++++++++++++-------------- 2 files changed, 17 insertions(+), 16 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 2ff6dbdb5..65c6a5138 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1372,7 +1372,7 @@  (%) - +<%-- @@ -1380,7 +1380,8 @@ - + --%> + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 0560c68a9..48155a9b4 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -4737,7 +4737,7 @@ Partial Class Ventas End If ViewState("CargoUsado") = ObjCliente.CargoUsados - DdlTipoRetencion.SelectedValueExist(ObjCliente.DtResultados(0)("CveTipoRetencion").ToString) + 'DdlTipoRetencion.SelectedValueExist(ObjCliente.DtResultados(0)("CveTipoRetencion").ToString) Dim dr As DataRow = Nothing dr = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal = 1 And Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa) @@ -23986,19 +23986,19 @@ Partial Class Ventas Return Retorno End Function - Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs) - Dim PorcentajeRetencion As Decimal = 0 - Select Case DdlTipoRetencion.SelectedValue - Case "1" 'Arrendamiento - PorcentajeRetencion = 10 - Case "2" 'Servicios Profesionales - PorcentajeRetencion = 10 - Case "3" 'Fletes - PorcentajeRetencion = 4 - Case "4" 'Servicios - PorcentajeRetencion = 6 - End Select + 'Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs) + ' Dim PorcentajeRetencion As Decimal = 0 + ' Select Case DdlTipoRetencion.SelectedValue + ' Case "1" 'Arrendamiento + ' PorcentajeRetencion = 10 + ' Case "2" 'Servicios Profesionales + ' PorcentajeRetencion = 10 + ' Case "3" 'Fletes + ' PorcentajeRetencion = 4 + ' Case "4" 'Servicios + ' PorcentajeRetencion = 6 + ' End Select - End Sub + 'End Sub End Class \ No newline at end of file From caa4d2d04d318bfe7e9bbcf12dd37abf75981619 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 13 Jan 2020 11:09:00 -0700 Subject: [PATCH 07/10] =?UTF-8?q?agregando=20mensaje=20de=20validaci=C3=B3?= =?UTF-8?q?n=20al=20kardex?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/Kardex.aspx | 8 ++++++++ OC/OC.aspx.vb | 2 +- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx index 3390e698d..e2c88ea88 100644 --- a/Inventarios/Kardex.aspx +++ b/Inventarios/Kardex.aspx @@ -161,6 +161,10 @@ + + + + @@ -175,6 +179,10 @@ + + + +
    diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 46881c301..d557bfdb9 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -1745,10 +1745,10 @@ Partial Class OC DdlProveedores.setEsWebService(True) DdlProveedores.Attributes.Add("metodo", "getproveedores") Else - GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual) DdlProveedores.DataBind() + DdlProveedores.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) End If 'DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) From 8ae43be3f03ce9bfd19d18f07951e3c65a3ec3b8 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Mon, 13 Jan 2020 11:17:21 -0700 Subject: [PATCH 08/10] -oc. cambioa dropdownlos, ddlproveedores --- App_Code/ClsContabilidad.vb | 1 + Ashx/SIGWeb.ashx | 4 ++-- Inventarios/TraspasoAlmacen.aspx.vb | 6 +++--- OC/OC.aspx | 2 +- OC/OC.aspx.vb | 14 ++++++++++++-- Ventas/Ventas.aspx.vb | 11 ++++++++--- 6 files changed, 27 insertions(+), 11 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 8f89239ca..597854f57 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5768,6 +5768,7 @@ Public Class ClsContabilidad .Add("@Opcion", SqlDbType.Int).Value = Opcion .Add("@Valor", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@MsgSalida", SqlDbType.VarChar, 100).Direction = ParameterDirection.Output + .Add("@MsgPrePolizaSalida", SqlDbType.VarChar, 800).Direction = ParameterDirection.Output .Add("@Diferencia", SqlDbType.Float).Direction = ParameterDirection.Output End With diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index a1d1c9720..faf915fda 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -247,13 +247,13 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState 'ObjProveedores.Dispose() Dim dt As DataTable = DirectCast(context.Application(AppNombre), DataTable).FiltraParametros($"CveEmpresa = {CveEmpresa}") If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - DtRetorno = dt.FiltraParametros($"RazonSocial like '%{Name}%'") + DtRetorno = dt.FiltraParametros($"NombreCortoProveedor like '%{Name}%'") End If End If If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then DtRetorno.Columns("CveProveedor").ColumnName = "id" - DtRetorno.Columns("RazonSocial").ColumnName = "text" + DtRetorno.Columns("NombreCortoProveedor").ColumnName = "text" retorno = JsonConvert.SerializeObject(DtRetorno).ToString context.Response.Write(retorno) Else diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index ccc628c7f..33aa8f9b5 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -804,7 +804,7 @@ Partial Class Inventarios_TraspasoAlmacen Dim CveAlmacenVirtual As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() - CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 3, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida) + CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida) FolioVirtualSalida = ObjInventario.Folio Dim dtvirtual As DataTable = Nothing @@ -829,11 +829,11 @@ Partial Class Inventarios_TraspasoAlmacen 'AGREGAMOS LA ENTRADA If Not ChkTransitorio.Checked Then 'SI NO ES TRANSITORIO SE HACE LA RECEPCION DE INMEDIATO If Not ErrorMovInv Then - Dim TipoMovimientoEntrada = 9 + Dim TipoMovimientoEntrada = 36 AlmacenEntrada = If(ChkTransitorio.Checked, DdlAlmacenTransitorio.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero) CveMovimientoEntrada = ObjInventario.AddMovimiento(AlmacenEntrada, TipoMovimientoEntrada, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"), - CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G") + CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/G") FolioEntrada = ObjInventario.Folio If CveMovimientoEntrada <= 0 Then TextoError = "Ocurrió un error al generar el movimiento de entrada" diff --git a/OC/OC.aspx b/OC/OC.aspx index bd735893c..edde3253c 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -289,7 +289,7 @@ <%-- --%> - + <%-- --%> diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index fb5de5bea..d77b1c6be 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -1294,7 +1294,12 @@ Partial Class OC HplCompraContabilizada.Text = "No" End If - DdlProveedores.ddl.SelectedValueExist(objOC.CveProveedor.ToString) + DdlProveedores.SelectedValue = objOC.CveProveedor.ToString + If DdlProveedores.SelectedValue.ToEntero > 0 Then + DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {objOC.CveProveedor}").Rows(0)("RazonSocial").ToString + Else + DdlProveedores.SelectedText = "-" + End If 'CARGAMOS LA SUCURSAL SI NO EXISTE SE AGREGA MATRIZ Dim CveProveedorSucursal As Integer = IIf(objOC.CveProveedorSucursal.ToEntero = -1, 0, objOC.CveProveedorSucursal.ToEntero).ToString.ToEntero @@ -1330,7 +1335,12 @@ Partial Class OC lblFolio.Text = "REQ " + objOC.Folio.ToString lblTipoPadreHijo.Text = "OC" ChkCotizacion.Visible = True - DdlProveedores.ddl.SelectedValueExist(objOC.CveProveedor.ToString) + DdlProveedores.SelectedValue = objOC.CveProveedor.ToString + If DdlProveedores.SelectedValue.ToEntero > 0 Then + DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {objOC.CveProveedor}").Rows(0)("RazonSocial").ToString + Else + DdlProveedores.SelectedText = "-" + End If If objOC.CveProveedorSucursal.ToEntero > 0 Then DivProveedorSucursal.Visible = True diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 2563cc7b9..f9c28d63c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6466,8 +6466,13 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then If txtkilometraje.text.toentero = 0 Then - Alert("No se ha especificado el kilometraje.", TipoMensaje.MsgAdvertencia) - Exit Sub + 'cuando es la clasificacion de llantas + Dim FaltaObservacion As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20342").ToEntero + If FaltaObservacion = 20342 Then + Alert("No se ha especificado el kilometraje.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If If TxtObsFact.Text = "" Then @@ -6481,7 +6486,7 @@ Partial Class Ventas ' End If ' FaltaObservacion = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20345").ToEntero - + 'cuando es la clasificacion de polizas If FaltaObservacion = 20345 Then Alert("No se ha especificado la serie para la poliza en la sección de Observaciones", TipoMensaje.MsgAdvertencia) Exit Sub From 27d04a32b61602aabd8ca8fc2310684a094d27c4 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 13 Jan 2020 13:58:39 -0700 Subject: [PATCH 09/10] agregando formatos de entradas.rdlc y salidas.rdlc a la 146 --- Compras/PopUpVerFactura.aspx.vb | 4 +- Empresas/146/Formatos/Factura.rdlc | 128 +++++++++++++++++++++++++++-- Empresas/80/Formatos/Entradas.rdlc | 6 ++ 3 files changed, 129 insertions(+), 9 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index afd814184..74cb73e65 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1471,7 +1471,7 @@ Partial Class PopUpVerFactura If Archivo.Exists Then 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH - If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145) Then + If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146) Then Dim CiudadSucursal As String = "" Dim DomicilioSucursal As String = "" Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString) @@ -1487,7 +1487,7 @@ Partial Class PopUpVerFactura End If - If UsuarioActual.CveEmpresa.Contiene(72, 80) Then + If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss")))) params.Add(New ReportParameter("SucursalCliente", DtMovimientos(0)("SucCliente").ToString)) diff --git a/Empresas/146/Formatos/Factura.rdlc b/Empresas/146/Formatos/Factura.rdlc index 593500dc1..ed8648fc9 100644 --- a/Empresas/146/Formatos/Factura.rdlc +++ b/Empresas/146/Formatos/Factura.rdlc @@ -1749,19 +1749,22 @@ - 2.12527cm + 1.34132cm - 2.02474cm + 1.32237cm - 10.17786cm + 2.53649cm + + + 8.96945cm 2.52862cm - 3.15415cm + 3.27979cm @@ -1776,7 +1779,7 @@ - Cantidad + Cant. + + + + + + Textbox1 + + + #ff1037 + 2pt + 2pt + 2pt + 2pt + + + + @@ -1973,7 +2012,7 @@ =Fields!Cantidad.Value @@ -2041,6 +2080,48 @@ + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -2225,6 +2306,38 @@ + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -2336,6 +2449,7 @@ + @@ -2355,7 +2469,7 @@ 5.75246cm 0.11468cm 1.07241cm - 20.01064cm + 19.97804cm 26