Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

App_Code/ClsClientes.vb

@@ -1022,22 +1022,22 @@ Public Class ClsClientes
     End Function
 
 
-    Public Function GetEstados(Optional ClaveSATPais As String = "-1") As Boolean
+    'Public Function GetEstados(Optional ClaveSATPais As String = "-1") As Boolean
-        Dim Retorno As Boolean = False
+    '    Dim Retorno As Boolean = False
 
-        DataAdapter("PA_ClientesEstadosGet")
+    '    DataAdapter("PA_ClientesEstadosGet")
 
-        SqlAdapter.SelectCommand.Parameters.Add("@ClaveSATPais", SqlDbType.VarChar).Value = ClaveSATPais
+    '    SqlAdapter.SelectCommand.Parameters.Add("@ClaveSATPais", SqlDbType.VarChar).Value = ClaveSATPais
 
-        Try
+    '    Try
-            SqlAdapter.Fill(Data)
+    '        SqlAdapter.Fill(Data)
-            Retorno = True
+    '        Retorno = True
-        Catch ex As Exception
+    '    Catch ex As Exception
-            OnError("Ocurrió un error al obtener el los estados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '        OnError("Ocurrió un error al obtener el los estados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
+    '    End Try
 
-        Return Retorno
+    '    Return Retorno
-    End Function
+    'End Function
 
 
 
@@ -1596,8 +1596,8 @@ Public Class ClsClientes
 
         Return Retorno
     End Function
-    Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String,
+    Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, CveEstado As Integer,
-                                              Pais As String, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer,
+                                              RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer,
                                               NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_ClientesNoFrecuenteAdd")
@@ -1610,8 +1610,8 @@ Public Class ClsClientes
             .Add("@Colonia", SqlDbType.VarChar).Value = Colonia
             .Add("@Localidad", SqlDbType.VarChar).Value = Localidad
             .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
-            .Add("@Estado", SqlDbType.VarChar).Value = Estado
+            .Add("@CveEstado", SqlDbType.Int).Value = CveEstado
-            .Add("@Pais", SqlDbType.VarChar).Value = Pais
+            ' .Add("@Pais", SqlDbType.VarChar).Value = Pais
             .Add("@RFC", SqlDbType.VarChar).Value = RFC
             .Add("@CP", SqlDbType.VarChar).Value = CP
             .Add("@Telefono", SqlDbType.VarChar).Value = Telefono

App_Code/ClsFISConfiguracion.vb

@@ -16,6 +16,7 @@ Public Class ClsFISConfiguracion
     Private SqlConexion As SqlConnection
     Private SqlAdapter As SqlDataAdapter
     Private SqlCommand As SqlCommand
+    Private SqlTransacc As SqlTransaction
     Private Data As DataTable
 
     'Atributos de la clase
@@ -23,6 +24,7 @@ Public Class ClsFISConfiguracion
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
     'REGISTRAR CONEXIONES ABIERTAS
     Private CveConexion As Integer = 0
+    Private EsTransaccionCompartida As Boolean = False
 #End Region
 
 #Region "Propiedades"
@@ -42,20 +44,38 @@ Public Class ClsFISConfiguracion
 
 #End Region
 
-    Sub New()
+    Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
-        SqlConexion = New SqlConnection
+
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        If TransaccionCompartida Is Nothing Then
-        Try
+            SqlConexion = New SqlConnection
-            SqlConexion.Open()
+            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
-        Catch ex As Exception
+            Try
-            Me.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+                SqlConexion.Open()
-        End Try
+            Catch ex As Exception
+                OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
+            End Try
+        Else
+            SqlConexion = TransaccionCompartida.Connection
+            SqlTransacc = TransaccionCompartida
+            EsTransaccionCompartida = True
+        End If
+        SqlAdapter = New SqlDataAdapter("", SqlConexion)
         ConexionAdd()
+
+    End Sub
+    Private Sub DataAdapter(ByVal pStrSQL As String, Optional ByVal TipoComando As CommandType = CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand
+            .Parameters.Clear()
+            .CommandText = pStrSQL
+            .CommandType = TipoComando
+        End With
+        If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
+        Data = New DataTable
     End Sub
 #Region "Conexiones"
 
     Private Sub ConexionAdd()
-        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+        If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
             Try
                 DataAdapter("PA_Sis_RegistrarConexion")
                 With SqlAdapter.SelectCommand.Parameters
@@ -87,21 +107,14 @@ Public Class ClsFISConfiguracion
         End If
 
     End Sub
-    Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
+
-        With SqlAdapter.SelectCommand
-            .Parameters.Clear()
-            .CommandText = StrSQL
-            .CommandType = TipoComando
-        End With
-        Data = New DataTable
-    End Sub
 #End Region
 
     Public Function GetConfiguracion(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
-        Data = New DataTable
+
-        SqlAdapter = New SqlDataAdapter("PA_Fis_CuentaContablesGet", SqlConexion)
+        DataAdapter("PA_Fis_CuentaContablesGet")
-        SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
+
         SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         Try
             SqlAdapter.Fill(Data)
@@ -117,16 +130,15 @@ Public Class ClsFISConfiguracion
         Catch ex As SqlException
             OnError("Ocurrió un error al consultar las Configuraciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
-        SqlAdapter.Dispose()
+
         Return Retorno
     End Function
 
     Public Function AddConfiguracion(ActIVAAcreditable As Integer, ActIVAxAcreditar As Integer, PasIVAPagar As Integer, PasIVAxPagar As Integer,
                                      EROtrosIngresos As Integer, ERDSV As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
-        Data = New DataTable
+
-        SqlAdapter = New SqlDataAdapter("PA_Fis_CuentaContablesAdd", SqlConexion)
+        DataAdapter("PA_Fis_CuentaContablesAdd")
-        SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@ActIVAAcreditable", SqlDbType.VarChar).Value = ActIVAAcreditable
@@ -150,7 +162,7 @@ Public Class ClsFISConfiguracion
         Catch ex As Exception
             OnError("Ocurrió un error al Guardar la Configuración.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
-        SqlAdapter.Dispose()
+
         Return Retorno
     End Function
 

App_Code/ClsPaginas.vb

@@ -1627,7 +1627,7 @@ Public Class ClsPaginas
             'sino existe, recarga los datos
             If Application(AppNombre) Is Nothing Then
                 Dim ObjVendedores As New ClsVtaVendedores
-                If ObjVendedores.GetVendedores(-1) Then Application(AppNombre) = ObjVendedores.DtResultados
+                If ObjVendedores.GetVendedores(CveEmpresa) Then Application(AppNombre) = ObjVendedores.DtResultados
                 ObjVendedores.Dispose()
             End If
             If CveEmpresa <> -1 Then
@@ -3351,7 +3351,7 @@ Public Class ClsPaginas
             Application("GlobalDTClasificacionPorcentaje") = value
         End Set
     End Property
-    Property GlobalDTPaqueterias(CveEmpresa As Integer, Optional TipoPaquteria As Integer = -1) As DataTable
+    Property GlobalDTPaqueterias(CveEmpresa As Integer, Optional TipoPaqueteria As Integer = -1) As DataTable
         Get
             Dim AppNombre As String = String.Format("GlobalDTPaqueterias-{0}", CveEmpresa)
             If Application(AppNombre) Is Nothing Then
@@ -3361,7 +3361,7 @@ Public Class ClsPaginas
             End If
 
             Dim Str As StringBuilder = New StringBuilder()
-            If TipoPaquteria <> -1 Then Str.AppendFormat("TipoPaqueteria = {0}", TipoPaquteria)
+            If TipoPaqueteria <> -1 Then Str.AppendFormat("TipoPaqueteria = {0}", TipoPaqueteria)
 
             Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
             GlobalDTPaqueterias = Dv.ToTable

App_Code/ClsVentas.vb

@@ -4505,11 +4505,11 @@ Public Class ClsVentas
         Return retorno
     End Function
 
-    Public Function GetOCRelacionadas(CveVentasDetalles As String) As Boolean
+    Public Function GetOCRelacionadas(CveVenta As Integer) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Vta_OrdenCompraRelacionada", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveVentasDetalles", SqlDbType.NVarChar).Value = CveVentasDetalles
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
         End With
         Try
             SqlAdapter.Fill(Data)

Ashx/SIGWeb.ashx

@@ -585,7 +585,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
 
 
             'verifica existencias
-            If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141) Then
+            If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141, 152) Then
                 UsaGlobal = False
 
                 Dim objInv As New ClsInventarios

Compras/Compras.aspx.vb

@@ -1227,7 +1227,6 @@ Partial Class Compras_Compras
             ClavesBorradas = New ArrayList()
             TxtFecha.Text = Now.ToShortDateString
             TxtFechaEjecucion.Text = Now.ToShortDateString
-            ViewState("CveCompra") = "0"
             ViewState("CveFactura") = "0"
             ViewState("IdPoliza") = "0"
             ViewState("CveCompra") = -1
@@ -10761,7 +10760,7 @@ Partial Class Compras_Compras
                     e.Row.FCLinkButton("ImgD").Visible = False
                 End If
 
-                If e.Row.DBCampo("CvePS").ToEntero > 0 AndAlso e.Row.DBCampo("IEPSPSPorcentaje").ToDouble > 0 Then
+                If CveCompra <= 0 AndAlso e.Row.DBCampo("CvePS").ToEntero > 0 AndAlso e.Row.DBCampo("IEPSPSPorcentaje").ToDouble > 0 Then
                     If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=e.Row.DBCampo("CvePS").ToEntero).Rows.Count > 0 Then
                         Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=e.Row.DBCampo("CvePS").ToEntero).Rows(0)
                         If DrPS IsNot Nothing Then
@@ -10773,6 +10772,11 @@ Partial Class Compras_Compras
                     End If
                 End If
 
+                If e.Row.DBCampo("CvePS").ToEntero > 0 AndAlso e.Row.DBCampo("NoDeducible") = "True" Then
+                    e.Row.FCLabel("LblIVAPorcentaje").ToolTip = "IVA NO Deducible"
+                    e.Row.FCLabel("LblIVAPorcentaje").ForeColor = Drawing.Color.Red
+                End If
+
                 'CargaPresupuestosEgresos
                 If UsuarioActual.Empresa.UsaAC Then
                     e.Row.Cells(13).Visible = True

Compras/ReembolsosComprobaciones.aspx.vb

@@ -745,7 +745,7 @@ Partial Class Compras_ReembolsosComprobaciones
 
                                     Dim ImporteNOIVA As Decimal = gvr.DataKey("IVANoDeducible").ToDecimal * PorcentajePago
 
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVANoAcreditable > 0, IdCtaContIVANoAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVANoAcreditable > 0, IdCtaContIVANoAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteNOIVA), ImporteMX:=(ImporteNOIVA) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                         MsgError = "Detalle"
                                     End If
                                 End If

Inventarios/EntregaAlmacen.aspx.vb

@@ -2653,7 +2653,7 @@ Partial Class Inventarios_EntregaAlmacen
             'Paqueterias guias
             If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
                 Dim CveEstatus As Integer = 1 ' DdlEstatus.SelectedValue.ToEntero()
-                Dim Fecha As String = "-1" 'TxtFechaPaqInterna.Text
+                Dim Fecha As String = Now.ToString 'TxtFechaPaqInterna.Text
                 Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
                 Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
                 Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text
@@ -3123,7 +3123,7 @@ Partial Class Inventarios_EntregaAlmacen
         'Paqueterias Guias
         If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
             Dim CveEstatus As Integer = 0 ' DdlEstatus.SelectedValue.ToEntero()
-            Dim Fecha As String = "-1" 'TxtFechaPaqInterna.Text
+            Dim Fecha As String = Now.ToString 'TxtFechaPaqInterna.Text
             Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
             Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
             Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text

Inventarios/RecepcionAlmacen.aspx.vb

@@ -2459,9 +2459,9 @@ Partial Class Inventarios_RecepcionAlmacen
                     Dim TotalPorDevengar = 0.0
                     TotalPorDevengar += GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(Gvr) Math.Round(Gvr.DataKey("PU").ToString.ToDouble, 4) * Math.Round(Gvr.DataKey("CantidadF").ToString.ToDouble, 4))
                     TotalPorDevengar = Math.Round(TotalPorDevengar, 4)
-                    If ObjContaContPAQ Is Nothing Then
+                    If ObjContaAC Is Nothing Then
-                        ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa)
+                        ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
-                        ObjContaContPAQ.IniciaTransacSQL()
+                        ObjContaAC.IniciaTransacSQL()
                     End If
 
                     IDPoliza = ObjContaAC.AddPoliza(4, "Devengado", TotalPorDevengar * 2, TotalPorDevengar * 2, UsuarioActual.CveUsuario, FechaMovto)

Inventarios/RepEntregasForaneas.aspx.vb

@@ -204,12 +204,12 @@ Partial Class Inventarios_RepEntregasForaneas
                 DTEstatus = ObjInv.DtResultados
                 DdlEstatusFiltro.DataSource = DTEstatus
             End If
+            ObjInv.Dispose()
 
-            DdlPaqueteria.DataSource = GlobalDTPaqueterias
+            DdlPaqueteria.DataSource = GlobalDTPaqueterias(UsuarioActual.CveEmpresa)
             DdlPaqueteria.DataBind()
 
             DdlEstatusFiltro.DataBind()
-            ObjInv.Dispose()
 
             CargaSucursales()
 
@@ -334,7 +334,7 @@ Partial Class Inventarios_RepEntregasForaneas
             e.Row.FCDropDownList("DdlEstatus").DataBind()
             e.Row.FCDropDownList("DdlEstatus").SelectedValueExist(e.Row.DBCampo("CveEntregaForaneaEstatus"))
 
-            e.Row.FCDropDownList("DdlPaqueteria").DataSource = GlobalDTPaqueterias
+            e.Row.FCDropDownList("DdlPaqueteria").DataSource = GlobalDTPaqueterias(UsuarioActual.CveEmpresa)
             e.Row.FCDropDownList("DdlPaqueteria").DataBind()
             e.Row.FCDropDownList("DdlPaqueteria").SelectedValueExist(e.Row.DBCampo("CvePaqueteria"))
 

Inventarios/TrasladoSolicitud.aspx.vb

@@ -85,7 +85,7 @@ Partial Class Inventarios_TrasladoSolicitud
         TempDT.Columns.Add()
     End Sub
     Private Sub CargaPaqueterias()
-        DdlPaqueteria.DataSource = GlobalDTPaqueterias()
+        DdlPaqueteria.DataSource = GlobalDTPaqueterias(UsuarioActual.CveEmpresa)
         DdlPaqueteria.DataBind()
         DdlPaqueteria.Items.Insert(0, New ListItem("-", "-1"))
     End Sub

OC/PopUpBuscarReq.aspx.vb

@@ -126,12 +126,15 @@ Partial Class OC_PopUpBuscarReq
         ViewState("CveProveedor") = Request("P")
         UPFiltros.Visible = False
 
-        Dim ObjPro As New ClsCompProveedores
+        Dim NombreProv As String = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, ViewState("CveProveedor").ToString.ToEntero).FiltroPrimeroValor("RazonSocial")
-        ObjPro.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, ViewState("CveProveedor").ToString.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa)
+        LbTitulo.Text = String.Format("Órdenes de Compra - {0}", NombreProv)
-        If ObjPro.DtResultados.Rows.Count > 0 Then
+
-            LbTitulo.Text = String.Format("Órdenes de Compra - {0}", ObjPro.DtResultados.Rows(0)("RazonSocial").ToString)
+        'Dim ObjPro As New ClsCompProveedores
-        End If
+        'ObjPro.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, ViewState("CveProveedor").ToString.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa)
-        ObjPro.Dispose()
+        'If ObjPro.DtResultados.Rows.Count > 0 Then
+        '    LbTitulo.Text = String.Format("Órdenes de Compra - {0}", ObjPro.DtResultados.Rows(0)("RazonSocial").ToString)
+        'End If
+        'ObjPro.Dispose()
 
         'Cargar Datos
         Dim ObjOC As New ClsOC

RMA/Garantias.aspx.vb

@@ -27,7 +27,7 @@ Partial Class Ventas_Garantias
             DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
             DdlProveedores.DataBind()
 
-            DdlPaqueteria.DataSource = GlobalDTPaqueterias
+            DdlPaqueteria.DataSource = GlobalDTPaqueterias(UsuarioActual.CveEmpresa)
             DdlPaqueteria.DataBind()
 
 

Sistemas/Empresa.aspx

@@ -326,12 +326,21 @@
                                                                 <asp:TextBox ID="TxtArchivoKey" runat="server" MaxLength="115" Width="200px"></asp:TextBox></td>
                                                         </tr>
                                                         <tr>
-                                                            <td colspan="2"><a id="LnkArchivoKey" runat="server" class="Texto" href="javascript:AbrirVentana('/UploadFile.aspx', 350, 110, 'N', 'CargarArchivo');">Cargar Archivo Key</a></td>
+                                                            <td colspan="2">
+                                                                <asp:LinkButton ID="LnkArchivoKey" runat="server" class="Texto">Cargar Archivo Key</asp:LinkButton></td>
                                                         </tr>
                                                         <tr id="TrDescargaArchivoKey" runat="server" visible="false">
                                                             <td colspan="2">
-                                                                <a id="LinkDescargaArchivoKey" target="_blank"></a>
+                                                                <asp:UpdatePanel runat="server" ID="UpArchivoDescarga">
-                                                                <asp:LinkButton ID="LbArchivoKeyDescarga" runat="server" CssClass="Texto">Descargar Archivo Key</asp:LinkButton>
+                                                                    <ContentTemplate>
+                                                                        <asp:LinkButton ID="LbArchivoKeyDescarga" runat="server" CssClass="Texto">Descargar Archivo Key</asp:LinkButton>
+
+                                                                        <%--<a id="LinkDescargaArchivoKey" target="_blank"></a>--%>
+                                                                    </ContentTemplate>
+                                                                    <Triggers>
+                                                                        <asp:PostBackTrigger ControlID="LbArchivoKeyDescarga" />
+                                                                    </Triggers>
+                                                                </asp:UpdatePanel>
                                                             </td>
                                                         </tr>
                                                         <tr>
@@ -340,7 +349,8 @@
                                                                 <asp:TextBox ID="TxtArchivoCer" runat="server" MaxLength="115" Width="200px"></asp:TextBox></td>
                                                         </tr>
                                                         <tr>
-                                                            <td colspan="2"><a id="LnkArchivoCer" runat="server" class="Texto" href="javascript:AbrirVentana('/UploadFile.aspx', 350, 110, 'N', 'CargarArchivo');">Cargar Archivo CER</a></td>
+                                                            <td colspan="2">
+                                                                <asp:LinkButton ID="LnkArchivoCer" runat="server" class="Texto">Cargar Archivo CER</asp:LinkButton></td>
                                                         </tr>
                                                         <tr id="TrDescargaArchivoCer" runat="server" visible="false">
                                                             <td colspan="2">
@@ -354,7 +364,8 @@
                                                                 <asp:TextBox ID="TxtArchivoPfx" runat="server" MaxLength="115" Width="200px"></asp:TextBox></td>
                                                         </tr>
                                                         <tr>
-                                                            <td colspan="2"><a id="LnkArchivoPfx" runat="server" class="Texto" href="javascript:AbrirVentana('/UploadFile.aspx', 350, 110, 'N', 'CargarArchivo');">Cargar Archivo PFX</a></td>
+                                                            <td colspan="2">
+                                                                <asp:LinkButton ID="LnkArchivoPfx" runat="server" class="Texto">Cargar Archivo PFX</asp:LinkButton></td>
                                                         </tr>
                                                         <tr id="TrDescargaArchivoPfx" runat="server" visible="false">
                                                             <td colspan="2">
@@ -372,7 +383,7 @@
                                                             <td>
                                                                 <asp:TextBox ID="TxtCIEC" runat="server" MaxLength="50" Width="50px"></asp:TextBox></td>
                                                         </tr>
-                                                         <tr id="TrRegistrarPAC3" runat="server" >
+                                                        <tr id="TrRegistrarPAC3" runat="server">
                                                             <td colspan="2">
                                                                 <asp:LinkButton ID="LnkRegistrarPAC3" runat="server" CssClass="Texto" OnClick="LnkRegistrarPAC3_Click">Registrar en ProFact</asp:LinkButton>
                                                             </td>
@@ -497,6 +508,7 @@
                                                                 <%--         <asp:RegularExpressionValidator ID="REVRegistroPatronal" runat="server" ControlToValidate="TxtRegistoPatronal" Display="None"  ErrorMessage="<b><span style='text-decoration: underline'></span></b><br />Favor de Introducir un <b>''Registro Patronal''</b> Valido." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
                                                                 <ajax:ValidatorCalloutExtender ID="VCERegistroPatronal" runat="server" HighlightCssClass="vco" TargetControlID="REVRegistroPatronal" Width="300px"></ajax:ValidatorCalloutExtender>      --%>                                                                                                           </td>
                                                             </td>
+                                                       
                                                         </tr>
                                                         <tr>
                                                             <td>Área Geográfica:</td>
@@ -505,6 +517,7 @@
                                                                 <%--                                                                <asp:RegularExpressionValidator ID="REVAreaGeografica" runat="server" ControlToValidate="TxtAreaGeografica" Display="None" ErrorMessage="<b><span style='text-decoration: underline'></span></b><br />Favor de Introducir un <b>''Área Geográfica''</b> Valida." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
                                                                 <ajax:ValidatorCalloutExtender ID="VCEAreaGeografica" runat="server" HighlightCssClass="vco" TargetControlID="REVAreaGeografica" Width="300px"></ajax:ValidatorCalloutExtender>  --%>                                                                                                          </td>
                                                             </td>
+                                                       
                                                         </tr>
                                                     </table>
                                                 </div>
@@ -1408,6 +1421,7 @@
                                                             <td>
                                                                 <asp:CheckBox ID="ChkReqCentroCostos" runat="server" /></td>
                                                             </td>
+                                                       
                                                         </tr>
                                                         <tr>
                                                             <td>Tipo Centro de Costos:</td>
@@ -1758,6 +1772,43 @@
         </tr>
     </table>
     <br />
+    <div id="ModalArchvivo" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+
+            <!-- Modal content-->
+            <div class="modal-content" style="width: 700px;">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Subir Imagen</h4>
+                </div>
+
+                <div class="modal-body" style="height: 200px;">
+                    <asp:UpdatePanel runat="server" ID="UpAddArchivo" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <div class="row">
+                                <div class="col-md-12">
+                                    <div>
+                                        <asp:TextBox ID="TxtCargaImg" CssClass="ADSdropzone hidden" Text="" runat="server"></asp:TextBox>
+                                    </div>
+                                </div>
+                            </div>
+                            <%--<div>
+                                    <asp:TextBox ID="Anexo" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
+                                </div>   --%>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+                <div class="modal-footer">
+                    <asp:UpdatePanel runat="server">
+                        <ContentTemplate>
+                            <asp:Button ID="BtnGuardarArchivo" runat="server" OnClick="BtnGuardarArchivo_Click" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" />
+                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
+        </div>
+    </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="server">
     <script type="text/javascript">

Sistemas/Empresa.aspx.vb

@@ -132,16 +132,16 @@ Partial Class Sistemas_Empresa
                 TrDescargaBanner.Visible = True
                 LnkBanner.InnerText = "Reemplazar Banner"
 
-                If LnkArchivoKey.InnerText = "" Then
+                'If LnkArchivoKey.InnerText = "" Then
-                    LnkArchivoKey.InnerText = "Reemplazar Archivo Key"
+                '    LnkArchivoKey.InnerText = "Reemplazar Archivo Key"
-                End If
+                'End If
-                If LnkArchivoCer.InnerText = "" Then
+                'If LnkArchivoCer.InnerText = "" Then
-                    LnkArchivoCer.InnerText = "Reemplazar Archivo Cer"
+                '    LnkArchivoCer.InnerText = "Reemplazar Archivo Cer"
-                End If
+                'End If
 
-                If LnkArchivoPfx.InnerText = "" Then
+                'If LnkArchivoPfx.InnerText = "" Then
-                    LnkArchivoPfx.InnerText = "Reemplazar Archivo Pfx"
+                '    LnkArchivoPfx.InnerText = "Reemplazar Archivo Pfx"
-                End If
+                'End If
                 BtnGuardar.Text = "Guardar Cambios"
 
                 'Plantilla Correo
@@ -398,7 +398,7 @@ Partial Class Sistemas_Empresa
                     LbBannerDescarga.OnClientClick = "javascript:AbrirVentana('/Banners/" & .Banner & "', 500, 500, 'N', 'Banner Empresa');"
                     Session("FileUpload") = .Banner
 
-                    LbArchivoKeyDescarga.OnClientClick = "javascript:AbrirVentana('/Key/" & .ArchivoKey & "', 500, 500, 'N', 'ArchivoKey Empresa');"
+                    'LbArchivoKeyDescarga.OnClientClick = "javascript:AbrirVentana('/Key/" & .ArchivoKey & "', 500, 500, 'N', 'ArchivoKey Empresa');"
                     Session("FileUpload") = .ArchivoKey
 
                     LbBannerDescarga.OnClientClick = "javascript:AbrirVentana('/Cer/" & .ArchivoCer & "', 500, 500, 'N', 'ArchivoCer Empresa');"
@@ -1632,4 +1632,63 @@ Partial Class Sistemas_Empresa
             Dim result = conector.RegistraEmisor(RFCEmisor, certByte, llaveByte, contrasena)
 
             If result.Exitoso Then
+                Alert("El emisor se registró correctamente.<br>" & result.Descripcion)
+            Else
+                Alert("Ocurrió un error al registrar el emisor.<br>" & result.Descripcion & ".<br> Numero Error: " & result.NumeroError, TipoMensaje.MsgError)
+            End If
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al registrar el emisor", ex)
+        End Try
+
+    End Sub
+
+    Protected Sub LnkArchivoKey_Click(sender As Object, e As EventArgs) Handles LnkArchivoKey.Click
+        RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
+    End Sub
+
+    Protected Sub LnkArchivoCer_Click(sender As Object, e As EventArgs) Handles LnkArchivoCer.Click
+        RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
+    End Sub
+
+    Protected Sub LnkArchivoPfx_Click(sender As Object, e As EventArgs) Handles LnkArchivoPfx.Click
+        RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
+    End Sub
+
+    Protected Sub BtnGuardarArchivo_Click(sender As Object, e As EventArgs)
+        Dim FileExtension As String = "-1"
+        Dim filesgral As List(Of Archivo) = TxtCargaImg.getfiles().Archivos
+        Dim filemove As String = ""
+        Dim TieneError As Boolean = False
+
+        For Each fileItem As Archivo In filesgral
+            FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
+            filemove = fileItem.filename
+
+            Dim Patron As String = "(^\d{1,}-)|(\.\w{1,}$)"
+            Dim NombreArchivo As String = Regex.Replace(filemove, Patron, "")
+
+            Dim yaExistente As String = String.Format("{0}Empresas\{1}\Certificados\{2}.{3}", ModExtensiones.DirectorioBaseEmpresas, CveEmpresa, NombreArchivo, FileExtension)
+            If File.Exists(yaExistente) Then
+                File.Delete(yaExistente)
+            End If
+            Try
+                If filemove <> "" Then
+                    Dim Ruta As String = String.Format("Empresas\{0}\Certificados\", CveEmpresa)
+                    filemove.FilesMove(NombreArchivo, Ruta)
+                End If
+            Catch ex As Exception
+                TieneError = True
+            End Try
+        Next
+        If Not TieneError Then
+            Alert("Certificado cargado con exito")
+            RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalArchvivo"))
+        End If
+        TxtCargaImg.getfiles().Archivos = Nothing
+        UpAddArchivo.Update()
+    End Sub
+
+    Protected Sub LbArchivoKeyDescarga_Download(sender As Object, e As EventArgs) Handles LbArchivoKeyDescarga.Click
+        Dim FilePath As String = String.Format("{0}Empresas\{1}\Certificados\{2}", ModExtensiones.DirectorioBaseEmpresas, CveEmpresa, TxtArchivoKey.Text)
         'Dim fi As New FileInfo(File)

Ventas/Clientes.aspx.vb

@@ -937,27 +937,12 @@ Partial Class Clientes
     Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX")
 
         DdlEstadoSAT.Items.Clear()
-
+        DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais)
-        Dim ObjCliente As New ClsClientes
-
-
-
-        If ObjCliente.GetEstados(ClaveSATPais) Then
-            DdlEstadoSAT.DataSource = ObjCliente.DtResultados.Copy
-        End If
-
-
-
-
-        ObjCliente.Dispose()
 
         DdlEstadoSAT.DataBind()
         DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        'DdlEstadoSAT.SelectedValue = "-1"
-
         UpDatos.Update()
 
-
     End Sub
 
     Private Sub CargaResponsables()

Ventas/ClientesAbonar.aspx.vb

@@ -2581,9 +2581,9 @@ Partial Class Ventas_ClientesAbonar
                 Dim CveCuenta As Integer = 0
                 Dim PorcentajePago As Decimal = gr.DataKey("Saldo").ToDecimal / gr.DataKey("Original").ToDecimal
                 Dim Saldo As Decimal = gr.DataKey("Saldo").ToDecimal
-                Dim SubTotal As Decimal = PorcentajePago * gr.DataKey("SubTotal").ToDecimal
+                Dim SubTotal As Decimal = PorcentajePago * gr.DataKey("SubTotal").ToDecimal.RoundSQL
-                Dim IVA As Decimal = PorcentajePago * gr.DataKey("IVA").ToDecimal
+                Dim IVA As Decimal = PorcentajePago * gr.DataKey("IVA").ToDecimal.RoundSQL
-                Dim IEPS As Decimal = PorcentajePago * gr.DataKey("IEPS").ToDecimal
+                Dim IEPS As Decimal = PorcentajePago * gr.DataKey("IEPS").ToDecimal.RoundSQL
                 Dim TCVenta As Decimal = gr.DataKey("TipoCambio").ToDecimal
                 Dim FechaVenta As Date = gr.DataKey("Fecha").ToDate
                 Dim tCveMoneda As Integer = gr.DataKey("CveMoneda").ToEntero

Ventas/PV.aspx

@@ -2374,16 +2374,25 @@
                                         <label for="<%= TxtLocalidadCliente.ClientID.ToString()%>">Localidad:</label>
                                     </div>
                                 </div>
-                                <div id="DivEstadoPaisCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
+                                 <div id="DivEstadoPaisCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
+                                    
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
-                                        <asp:TextBox ID="TxtEstadoCliente" CssClass="form-control " runat="server" MaxLength="35" CausesValidation="true"></asp:TextBox>
+                                       <asp:DropDownList ID="DdlSATPais"  runat="server" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSATPais_SelectedIndexChanged" AutoPostBack="true">
-                                        <asp:RequiredFieldValidator ID="RFVEstadoC" runat="server" ControlToValidate="TxtEstadoCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                                <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
-                                        <label for="<%= TxtEstadoCliente.ClientID.ToString()%>">Estado:</label>
+                                                <asp:ListItem  Value="MEX" Text="México"  Selected="True"></asp:ListItem>
+                                                <asp:ListItem   Value="USA" Text="USA"></asp:ListItem>
+                                                <asp:ListItem   Value="CAN" Text="Canada"></asp:ListItem>
+                                            </asp:DropDownList>
+
+                                             <asp:RequiredFieldValidator ID="RFVSATPais" runat="server" InitialValue="-1" ControlToValidate="DdlSATPais" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pais''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                            <label for="<%= DdlSATPais.ClientID.ToString()%>">Pais:</label>
                                     </div>
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
-                                        <asp:TextBox ID="TxtPaisCliente" CssClass="form-control " Text="Mexico" runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                         <asp:DropDownList ID="DdlEstadoSAT" DataTextField="NombreEstado" DataValueField="CveSATEstado" runat="server" CssClass="form-control input-sm select2me">
-                                        <asp:RequiredFieldValidator ID="RFVPaisC" runat="server" ControlToValidate="TxtPaisCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''País''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                        <label for="<%= TxtPaisCliente.ClientID.ToString()%>">País:</label>
+                                            </asp:DropDownList>
+                                             <asp:RequiredFieldValidator ID="RfvDdlEstadoSAT" runat="server" InitialValue="-1" ControlToValidate="DdlEstadoSAT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                            <label for="<%= DdlEstadoSAT.ClientID.ToString()%>">Estado:</label>                                            
                                     </div>
                                 </div>
                                 <div id="DivCorreoCuentaCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
@@ -3665,8 +3674,8 @@
             $('#<%= TxtTelefonoCliente.ClientID  %>').val('');
             $('#<%= TxtCiudadCliente.ClientID  %>').val('');
             $('#<%= TxtLocalidadCliente.ClientID  %>').val('');
-            $('#<%= TxtEstadoCliente.ClientID  %>').val('');
+            $('#<%= DdlEstadoSAT.ClientID  %>').val('');
-            $('#<%= TxtPaisCliente.ClientID  %>').val('');
+            $('#<%= DdlSATPais.ClientID  %>').val('');
             $('#<%= TxtCorreoCliente.ClientID  %>').val('');
 
             $('#divAgregarCliente').modal();

Ventas/PV.aspx.vb

@@ -2298,6 +2298,19 @@ Partial Class PV
         If UsuarioActual.TienePermisoProceso(152) Then DdlSubProyectoDatos.Enabled = False
     End Sub
 
+    Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX")
+
+        DdlEstadoSAT.Items.Clear()
+        DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais)
+
+        DdlEstadoSAT.DataBind()
+        DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+    End Sub
+    Protected Sub DdlSATPais_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaEstados(DdlSATPais.SelectedValue)
+    End Sub
+
     Private Sub CargaEmpresa()
         If UsuarioActual.Empresa.UsaContabilidad Then
             Dim ObjFisConfiguracion As New ClsFISConfiguracion
@@ -5505,6 +5518,7 @@ Partial Class PV
         DivFormaCliente.Visible = False
         TxtRFCCliente.Text = "XAXX010101000"
         UpAgregarCliente.Update()
+        CargaEstados()
 
         RegistraScript("showDivEC();")
     End Sub
@@ -5527,8 +5541,6 @@ Partial Class PV
             RFVColoniaC.Visible = False
             RFVCiudadC.Visible = False
             RFVLocalidadC.Visible = False
-            RFVEstadoC.Visible = False
-            RFVPaisC.Visible = False
             TxtNombreCliente.Focus()
 
             DdlMetodoCliente.SelectedValueExist(1)
@@ -5538,7 +5550,7 @@ Partial Class PV
 
             If dr IsNot Nothing Then
                 TxtCPCliente.Text = dr("CP").ToString
-                TxtEstadoCliente.Text = dr("Estado").ToString
+                'TxtEstadoCliente.Text = dr("Estado").ToString RMf FAlta
                 TxtCiudadCliente.Text = dr("Municipio").ToString
                 TxtLocalidadCliente.Text = dr("Localidad").ToString
             End If
@@ -5570,8 +5582,6 @@ Partial Class PV
             RFVColoniaC.Visible = True
             RFVCiudadC.Visible = True
             RFVLocalidadC.Visible = True
-            RFVEstadoC.Visible = True
-            RFVPaisC.Visible = True
 
             DdlMetodoCliente.SelectedValueExist(-1)
             DdlFormaCliente.SelectedValueExist(-1)
@@ -5580,12 +5590,12 @@ Partial Class PV
     End Sub
 
     Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click
-        Dim CvePreioLista As Integer = -1
+        Dim CvePrecioLista As Integer = -1
         If DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then
             Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)
             If Dr IsNot Nothing Then
                 If Dr("CvePrecioLista").ToString.ToEntero > 0 Then
-                    CvePreioLista = Dr("CvePrecioLista").ToString.ToEntero
+                    CvePrecioLista = Dr("CvePrecioLista").ToString.ToEntero
                 End If
             End If
         End If
@@ -5593,7 +5603,7 @@ Partial Class PV
         Dim ObjCliente As New ClsClientes
 
         If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim,
-                                                TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim,
+                                                TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero, TxtRFCCliente.Text.Trim,
                                                 TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario,
                                                 UsuarioActual.CveEmpresa, "", DdlMetodoCliente.SelectedValue.ToEntero, DdlFormaCliente.SelectedValue.ToEntero) Then
             If ObjCliente.DtResultados.Rows.Count > 0 Then

Ventas/Ventas.aspx

@@ -1297,6 +1297,14 @@
                                                         </div>
                                                     </ContentTemplate>
                                                 </asp:UpdatePanel>
+                                                 <div id="DivOCRelacionadas" class="modal ADS fade" role="dialog" runat="server" visible="false">
+                                                   <asp:GridView runat="server" ID="GvOCRelacionadas" Caption="Ordenes de Compra Relacionadas:" AutoGenerateColumns="False" DataKeyNames="CveOrdenCompra,Folio" 
+                                                                    CssClass="table table-striped table-advance table-hover Widthall  mysmallbtn" GridLines="None" ShowHeader="False">
+                                                                    <Columns>
+                                                                        <asp:HyperLinkField DataTextField="Folio" DataNavigateUrlFields="CveOrdenCompra" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" />
+                                                                    </Columns>
+                                                                </asp:GridView>
+                                                 </div>
                                             </div>
                                         </div>
                                         <div class="col-md-6 ">
@@ -3294,19 +3302,6 @@
                                 <td>
                                     <asp:TextBox ID="TxtCorreoNotificaciones" runat="server" Width="100%" CssClass="form-control"></asp:TextBox></td>
                             </tr>                            
-                            <tr align="left" id="trOCRelacionadasLabel" runat="server" visible="false">
-                                <td id="Td3" runat="server">Ordenes de Compra Relacionadas:&nbsp;</td>
-                            </tr>
-                            <tr align="left" id="trOCRelacionadas" runat="server" visible="false">
-                                <td>
-                                    <asp:GridView runat="server" ID="GvOCRelacionadas" AutoGenerateColumns="False" DataKeyNames="CveOrdenCompra,Folio" 
-                                        CssClass="table table-striped table-advance table-hover Widthall  mysmallbtn" GridLines="None" ShowHeader="False">
-                                        <Columns>
-                                            <asp:HyperLinkField DataTextField="Folio" DataNavigateUrlFields="CveOrdenCompra" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" />
-                                        </Columns>
-                                    </asp:GridView>
-                                </td>
-                            </tr>
                             <tr align="left" id="trPaqueteriOpcionesLabel" runat="server" visible="false">
                                 <td id="Td2" runat="server">Tipo de Entrega:&nbsp;</td>
                             </tr>
@@ -6399,15 +6394,24 @@
                                     </div>
                                 </div>
                                 <div id="DivEstadoPaisCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
+                                    
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
-                                        <asp:TextBox ID="TxtEstadoCliente" CssClass="form-control " runat="server" MaxLength="35" CausesValidation="true"></asp:TextBox>
+                                       <asp:DropDownList ID="DdlSATPais"  runat="server" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSATPais_SelectedIndexChanged" AutoPostBack="true">
-                                        <asp:RequiredFieldValidator ID="RFVEstadoC" runat="server" ControlToValidate="TxtEstadoCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                                <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
-                                        <label for="<%= TxtEstadoCliente.ClientID.ToString()%>">Estado:</label>
+                                                <asp:ListItem  Value="MEX" Text="México"  Selected="True"></asp:ListItem>
+                                                <asp:ListItem   Value="USA" Text="USA"></asp:ListItem>
+                                                <asp:ListItem   Value="CAN" Text="Canada"></asp:ListItem>
+                                            </asp:DropDownList>
+
+                                             <asp:RequiredFieldValidator ID="RFVSATPais" runat="server" InitialValue="-1" ControlToValidate="DdlSATPais" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pais''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                            <label for="<%= DdlSATPais.ClientID.ToString()%>">Pais:</label>
                                     </div>
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
-                                        <asp:TextBox ID="TxtPaisCliente" CssClass="form-control " Text="Mexico" runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                         <asp:DropDownList ID="DdlEstadoSAT" DataTextField="NombreEstado" DataValueField="CveSATEstado" runat="server" CssClass="form-control input-sm select2me">
-                                        <asp:RequiredFieldValidator ID="RFVPaisC" runat="server" ControlToValidate="TxtPaisCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''País''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                        <label for="<%= TxtPaisCliente.ClientID.ToString()%>">País:</label>
+                                            </asp:DropDownList>
+                                             <asp:RequiredFieldValidator ID="RfvDdlEstadoSAT" runat="server" InitialValue="-1" ControlToValidate="DdlEstadoSAT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                            <label for="<%= DdlEstadoSAT.ClientID.ToString()%>">Estado:</label>                                            
                                     </div>
                                 </div>
                                 <div id="DivCorreoCuentaCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
@@ -7667,8 +7671,8 @@
             $('#<%= TxtTelefonoCliente.ClientID  %>').val('');
             $('#<%= TxtCiudadCliente.ClientID  %>').val('');
             $('#<%= TxtLocalidadCliente.ClientID  %>').val('');
-            $('#<%= TxtEstadoCliente.ClientID  %>').val('');
+            $('#<%= DdlSATPais.ClientID  %>').val('');
-            $('#<%= TxtPaisCliente.ClientID  %>').val('');
+            $('#<%= DdlEstadoSAT.ClientID  %>').val('');
             $('#<%= TxtCorreoCliente.ClientID  %>').val('');
 
             $('#divAgregarCliente').modal();

Ventas/Ventas.aspx.vb

@@ -2049,7 +2049,7 @@ Partial Class Ventas
                     DdlSubProyectoDatos.Enabled = False
                     BtnEmitirImprimir.Visible = False
                     BtnCrearApartirDe.Visible = True
-                    BtnEditar.Visible = True
+                    If UsuarioActual.TienePermisoProceso(302) Then BtnEditar.Visible = True
                     'DdlEstatus.Enabled = True
 
                     DivFechaAnticipoCliente.Visible = True
@@ -2107,8 +2107,7 @@ Partial Class Ventas
                         DivDevAlm.Visible = True
                     End If
 
-                    'CARGA GV DE OC RELACIONADAS
+
-                    CargarOCRelacionadas()
                 End If
             Else
                 If Request("CveOS") IsNot Nothing AndAlso IsNumeric(Request("CveOS")) AndAlso Request("CveOS").ToEntero() > 0 Then
@@ -3564,6 +3563,19 @@ Partial Class Ventas
         End If
     End Sub
 
+    Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX")
+
+        DdlEstadoSAT.Items.Clear()
+        DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais)
+
+        DdlEstadoSAT.DataBind()
+        DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+    End Sub
+    Protected Sub DdlSATPais_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaEstados(DdlSATPais.SelectedValue)
+    End Sub
+
     Private Function CargaVenta() As Boolean
 
         Dim Retorno As Boolean = False
@@ -4477,12 +4489,22 @@ Partial Class Ventas
 
                     DdlTipoRetencion.SelectedValueExist(DbRowVenta("CveTipoRetencion").ToString())
 
-                    CargaPS(-1, DdlPS)
+                CargaPS(-1, DdlPS)
 
-                    UpPS.Update()
+                'CARGA GV DE OC RELACIONADAS
-                    UpContado.Update()
+                If CveVenta > 0 AndAlso ObjVentas.GetOCRelacionadas(CveVenta) Then
-                    UpEstatus.Update()
+                    If ObjVentas.DtResultados.Rows.Count > 0 Then
-                    Retorno = True
+                        DivOCRelacionadas.Visible = True
+                        GvOCRelacionadas.DataSource = ObjVentas.DtResultados
+
+                    End If
+                End If
+                GvOCRelacionadas.DataBind()
+
+                UpPS.Update()
+                UpContado.Update()
+                UpEstatus.Update()
+                Retorno = True
 
                 Else
                     ViewState("CveVenta") = -1
@@ -18456,6 +18478,7 @@ Partial Class Ventas
         DivBotonesAgregarCliente.Visible = False
         DivFormaCliente.Visible = False
         UpAgregarCliente.Update()
+        CargaEstados()
 
         RegistraScript("showDivEC();")
     End Sub
@@ -18478,8 +18501,7 @@ Partial Class Ventas
             RFVColoniaC.Visible = False
             RFVCiudadC.Visible = False
             RFVLocalidadC.Visible = False
-            RFVEstadoC.Visible = False
+            RFVSATPais.Visible = False
-            RFVPaisC.Visible = False
 
             DdlMetodoCliente.SelectedValueExist(1)
             DdlFormaCliente.SelectedValueExist(1)
@@ -18511,8 +18533,7 @@ Partial Class Ventas
             RFVColoniaC.Visible = True
             RFVCiudadC.Visible = True
             RFVLocalidadC.Visible = True
-            RFVEstadoC.Visible = True
+            RFVSATPais.Visible = True
-            RFVPaisC.Visible = True
 
             DdlMetodoCliente.SelectedValueExist(-1)
             DdlFormaCliente.SelectedValueExist(-1)
@@ -18535,8 +18556,8 @@ Partial Class Ventas
         Dim ObjCliente As New ClsClientes
 
         If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim,
-                                                TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim,
+                                                TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero,
-                                                TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim,
+                                                TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim,
                                                 DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", -1, -1, CvePrecioLista:=CvePrecioLista) Then
             If ObjCliente.DtResultados.Rows.Count > 0 Then
                 RegistraScript("hideDivEC();")
@@ -21273,6 +21294,11 @@ Partial Class Ventas
         Dim TempCliente As Integer = If(CveVenta <= 0, CveCliente, -1)
         Dim TipoDocumento As Integer = If(CveVenta <= 0, 14, -1)
 
+        If CveVenta <= 0 AndAlso TempCliente <= 0 Then
+            Dim a As String = "carga de docuemntacion del cleinte, masivo, corregir"
+            a.GuardaLog()
+        End If
+
         If objRH.DocumentacionElectronicaGet(-1, TempCliente, -1, UsuarioActual.CveEmpresa, TipoDocumento, CveVenta) Then
             DtDocumentacionCliente = objRH.DtResultados.FiltraParametros("CveDocumentacionElectronica > 0")
             DtDocumentacionCliente.Columns.Add("Accion", Type.GetType("System.String"))
@@ -25952,26 +25978,6 @@ Partial Class Ventas
         'MailCls = Nothing
     End Sub
 
-    Private Sub CargarOCRelacionadas()
-        Dim GridViewPSAux As GridView = GvPS
-        Dim CveVentasDetalle As New StringBuilder()
-        For Each vd As GridViewRow In GridViewPSAux.Rows
-            Dim CveVentaDetalle As String = vd.DataKey("CveVentaDetalle")
-            CveVentasDetalle.AppendFormat("{0},", CveVentaDetalle)
-        Next
-        Dim ObjVentas As New ClsVentas()
-        If ObjVentas.GetOCRelacionadas(CveVentasDetalle.ToString) Then
-            Dim OC As DataTable = ObjVentas.DtResultados
-            If OC.Rows.Count > 0 Then
-                trOCRelacionadasLabel.Visible = True
-                trOCRelacionadas.Visible = True
-                GvOCRelacionadas.DataSource = OC
-                GvOCRelacionadas.DataBind()
-            End If
-        End If
-        ObjVentas.Dispose()
-    End Sub
-
     Protected Sub BtnEditar_Click() Handles BtnEditar.Click
         Dim Opcion As String = BtnEditar.Text
         If Opcion = "Editar" Then
@@ -26005,7 +26011,7 @@ Partial Class Ventas
         If ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero(),
                                   TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim, UsuarioActual.CveEmpresa, CveVenta, DdlMetodoPago33.SelectedValue.ToEntero, DdlFormaPago33.SelectedValue.ToEntero,
                                   TipoDocto:=DdlTipoComprobante.SelectedValue, OrdenCompra:=TxtOrdenCompra.Text, PedidoContrato:=TxtPedidoContrato.Text, ObsAlm:=TxtObsAlmacen.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero,
-                                  CorreoNot:=TxtCorreoNotificaciones.Text) Then
+                                  CorreoNot:=TxtCorreoNotificaciones.Text, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, Kilometraje:=TxtKilometraje.Text.ToDouble) Then
             CargaVenta()
             BtnEditar.Text = "Editar"
             Alert("Actualizado correctamente")