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

Ventas/Clientes.aspx

@@ -4582,7 +4582,7 @@
 
                                                 <asp:GridView ID="GvLineasAdicionales" Width="100%" runat="server" GridLines="None"
                                                     DataKeyNames="CveLineaAdicional,LineaAdicional,CveCliente,CveProveedor,TipoLinea,Importe,CveMoneda,FechaVencimiento,CveUsuario,CveCategoria,FechaIng,CveLineaAdicionalEstatus,Proveedor,DiasVencimiento"
-                                                    CssClass="table table-striped table-advance table-hover ScrollAD " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
+                                                    CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
                                                     AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
                                                     <Columns>
 
@@ -4874,7 +4874,7 @@
                 <div class="portlet-body">
                     <asp:UpdatePanel ID="UPEventoBitacora" runat="server" UpdateMode="Conditional">
                         <ContentTemplate>
-                            <asp:Button ID="btnupEventoBitacora" OnClick="btnupEventoBitacora_Click" UseSubmitBehavior="false" CssClass="hidden btnupEventoBitacora" runat="server" Text="Button" />
+                            <asp:Button ID="btnupEventoBitacora" OnClick="btnupEventoBitacora_Click" UseSubmitBehavior="false" CssClass="hidden btnupEventoBitacora mysmallbtn" runat="server" Text="Button" />
                             <asp:GridView ID="GvEB" runat="server" AutoGenerateColumns="False" EmptyDataText="No se han capturado comentarios o bitácora" CssClass="table table-striped table-advance table-hover Widthall" GridLines="None">
                                 <Columns>
                                     <asp:TemplateField>

Ventas/Clientes.aspx.vb

@@ -1130,10 +1130,6 @@ Partial Class Clientes
             End If
         End If
 
-
-
-
-
         ObjCliente.Dispose()
 
         DdlSucursalCliente.DataBind()
@@ -1148,9 +1144,9 @@ Partial Class Clientes
         DdlClienteSucursalEnvio.DataBind()
         DdlClienteSucursalEnvio.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlClienteSucursalEnvio.SelectedValue = "-1"
-
-
-
+    End Sub
+    Private Sub CargaSubProyectosSuscursales()
+        CargarCentrosDeCosto(Nothing, DdlSubProyectoClienteSucursal, Nothing, LblSubProyectoClienteSucursal)
     End Sub
     Private Sub CargaGridRetenciones()
         Dim ObjClientes As New ClsClientes
@@ -1161,10 +1157,6 @@ Partial Class Clientes
         ObjClientes.Dispose()
         GvRetenciones.DataBind()
     End Sub
-
-
-
-
     Private Sub CargaCuentasEquipos()
         Dim Objeto As New ClsGenerales
         If Objeto.GetCuentasEquipos(CveCliente, -1) Then
@@ -1512,7 +1504,7 @@ Partial Class Clientes
                 ' CargaDocs()
                 CargaCombos()
                 CargaDocumentacionCliente()
-                CargaSubProyectosSuscursales()
+                'CargaSubProyectosSuscursales()
                 'CargaMetodosPago33()
                 'CargaFormaPago33()
                 'CargaComboCFDI()

Ventas/ClientesAbonar.aspx.vb

@@ -827,7 +827,7 @@ Partial Class Ventas_ClientesAbonar
                 CveMoneda = IfNull(Request("CveMoneda"), "1").ToString.ToEntero
             End If
 
-            CvePrePoliza = ObjMov.AddPrePolizas("Ventas/ClientesAbonar", 11, TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal, CveMoneda, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+            CvePrePoliza = ObjMov.AddPrePolizas("Ventas/ClientesAbonar", 11, TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
             If RblTipoPago.SelectedValue = "1" Then
                 Dim CveCuentaDeposito As Integer = 0
@@ -1151,7 +1151,7 @@ Partial Class Ventas_ClientesAbonar
                                 Dim ImporteMN As Decimal = (ImporteMovimiento * tipoCambioPago).RoundSQL
                                 Dim IdCtaContable As Integer = 0
 
-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 134, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero) Then
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 134, VentaActual.SerieFolio, VentaActual.SerieFolio, VentaActual.IdCtaContableCliente, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero) Then
                                     MsgError = "No se pudo insertar la póliza"
                                 End If
                             End If

Ventas/RepVentaDetalle.aspx.vb

@@ -180,7 +180,7 @@ Partial Class RepVentaDetalle
         DdlCondicionesPago.SelectedValueExist(CveCondicionesPago)
 
         DdlProyecto.SelectedValueExist(CveProyecto)
-        If DivProyecto.Visible Then CargaSubProyecto()
+        'If DivProyecto.Visible Then CargaSubProyecto()
         DdlSubProyecto.SelectedValuesIfExistM(CveSubProyecto)
         DdlSubProyectoEjecucion.SelectedValueExist(CveSubProyectoEjecucion)
         DdlVendedor.SelectedValuesIfExistM(CveVendedor)

Ventas/Ventas.aspx.vb

@@ -25922,7 +25922,7 @@ Partial Class Ventas
         If UsuarioActual.CveEmpresa.Contiene(72, 80) Then CveMarca = DdlMarcaPSDes.SelectedValue.ToEntero() Else CveMarca = DdlMarca.SelectedValue.ToEntero()
 
         Dim ObjProductosServicios As New ClsProductosServicios()
-        If ObjProductosServicios.AddPS(DdlClasificacionPS.SelectedValue.ToEntero(), -1, DdlUnidadMedidaPS.SelectedValue.ToEntero(), TxtCodigoPS.Text.Trim, "", TxtCodigoBarrasPS.Text.Trim, TxtPS.Text.Trim, 0, -1, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMetodoInventario, 0, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero(), CveMarca:=CveMarca, CveSATPS:=DdlSATPS.SelectedValue.ToEntero(), CveClasificacionDetalle:=DdlTipo.SelectedValue.ToEntero()) > 0 Then
+        If ObjProductosServicios.AddPS(DdlClasificacionPS.SelectedValue.ToEntero(), -1, DdlUnidadMedidaPS.SelectedValue.ToEntero(), TxtCodigoPS.Text.Trim, "", TxtCodigoBarrasPS.Text.Trim, TxtPS.Text.Trim, 0, -1, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMetodoInventario, 0, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero(), CveMarca:=CveMarca, CveSATPS:=DdlSATPS.SelectedValue.ToEntero(), CveClasificacionDetalle:=DdlTipo.SelectedValue.ToEntero(), CveObjetoImpuesto:=2) > 0 Then
             DdlClasificacion.SelectedValueExist(DdlClasificacionPS.SelectedValue.ToEntero())
             DdlClasificacion_SelectedIndexChanged(DdlClasificacionPS, e)
 
@@ -35392,7 +35392,7 @@ Partial Class Ventas
                 DdlRegimenFiscalCliente.DataBind()
             Else
                 Dim dt As DataTable = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal")
-                Dim Val As String
+                Dim Val As String = ""
 
                 If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                     'verifico que sino existe el valor. lo limpie