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

App_Code/ClsBancos.vb

@@ -1758,7 +1758,7 @@ Public Class ClsBancos
 
         Return Retorno
     End Function
-    Public Function CancelarBancos_IE(CveUsuario As Integer, CveIE As Integer, MesAnterior As Boolean, IdPoliza As Integer, FolioPoliza As Integer, Optional FechaCancelacion As Date = MinFecha, Optional TipoMovimiento As Integer = 1, Optional CveTipoTransaccionCancelacion As Integer = -1) As Integer
+    Public Function CancelarBancos_IE(CveUsuario As Integer, CveIE As Integer, MesAnterior As Boolean, IdPoliza As Integer, FolioPoliza As Integer, Optional FechaCancelacion As Date = MinFecha, Optional TipoMovimiento As Integer = 1, Optional CveTipoTransaccionCancelacion As Integer = -1, Optional CveCuentaDevolucion As Integer = -1) As Integer
 
         Dim Retorno As Integer = 0
         DataAdapter("PA_Banc_IECancelar")
@@ -1772,6 +1772,7 @@ Public Class ClsBancos
             .Add("@FechaCancelacion", SqlDbType.Date).Value = FechaCancelacion
             .Add("@TipoMovimiento", SqlDbType.Int).Value = TipoMovimiento
             .Add("@CveTipoTransaccionCancelacion", SqlDbType.Int).Value = CveTipoTransaccionCancelacion
+            .Add("@CveCuentaDevolucion", SqlDbType.Int).Value = CveCuentaDevolucion
             .Add("@CvePrePoliza", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
 
@@ -3592,7 +3593,7 @@ Public Class ClsBancos
 #End Region
 
 #Region "PagosCajaChica"
-    Public Function GetPagosCajaChica(FechaI As String, FechaF As String, CveEmpresa As Integer, CveCuenta As Integer, Optional TipoPago As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional MSI As Integer = -1) As Boolean
+    Public Function GetPagosCajaChica(FechaI As String, FechaF As String, CveEmpresa As Integer, CveCuenta As Integer, Optional TipoPago As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional MSI As Integer = -1, Optional CveUsuario As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_BancosCajaChicaPagosGet")
 
@@ -3603,6 +3604,7 @@ Public Class ClsBancos
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
             .Add("@TipoChequeEfectivo", SqlDbType.Int).Value = TipoPago
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@MSI", SqlDbType.Int).Value = MSI
         End With
 

Bancos/DepositosCaja.aspx

@@ -129,6 +129,12 @@
                                 <asp:DropDownList ID="DdlSubProyectos" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">                                   
                                 </asp:DropDownList>
                             </div>
+                         <label class="col-md-1 truncate">Usuario:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlUsuario" runat="server" AppendDataBoundItems="true" DataTextField="Usuario" DataValueField="CveUsuario" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
 
                     </div>
                 </div>

Bancos/DepositosCaja.aspx.vb

@@ -75,7 +75,11 @@ Partial Class Bancos_DepositosCaja
         DdlClasificacionIntermediario.DataBind()
 
         DdlSubProyectoIntermediario.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
-        DdlSubProyectoIntermediario.DataBind()
+        DdlSubProyectoIntermediario.DataBind()
+
+        'CargaUsuarios
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlUsuario.DataBind()
 
 
     End Sub
@@ -94,7 +98,7 @@ Partial Class Bancos_DepositosCaja
             MSI = DDlMesesSinIntereses.SelectedValue.ToEntero
         End If
 
-        ObjBancos.GetPagosCajaChica(FechaI, FechaF, UsuarioActual.CveEmpresa, DdlCajaChica.SelectedValue.ToEntero, DdlTipoPago.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, MSI:=MSI)
+        ObjBancos.GetPagosCajaChica(FechaI, FechaF, UsuarioActual.CveEmpresa, DdlCajaChica.SelectedValue.ToEntero, DdlTipoPago.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, MSI:=MSI, CveUsuario:=DdlUsuario.SelectedValue.ToEntero)
 
         GvFacturas.DataSource = ObjBancos.DtResultados
 
@@ -106,7 +110,7 @@ Partial Class Bancos_DepositosCaja
         ObjBancos.Dispose()
 
 
-            GvFacturas.DataBind()
+        GvFacturas.DataBind()
         ChkFaltante.Checked = False
         ChkDescuento.Checked = False
         ChkIntermediario.Checked = False
@@ -201,7 +205,7 @@ Partial Class Bancos_DepositosCaja
         Dim documentos As String = "Los Depósitos se realizaron exitosamente<br/><br/>"
         Dim imprimirFolios As String = ""
         Dim CveSubProyectoIntermediario As Integer
-        Dim CveClasificacionIntermediario As Integer 
+        Dim CveClasificacionIntermediario As Integer
         Dim CveProveedorIntermediario As Integer = -1
 
         If drOrigen IsNot Nothing Then
@@ -371,18 +375,12 @@ Partial Class Bancos_DepositosCaja
     Protected Sub GvFacturas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvFacturas.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoPago.SelectedValue.Contiene("11", "12", "-2") Then
-            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                 e.Row.FCCheckBox("ChkFactura").Checked = True
                 e.Row.FCCheckBox("ChkFactura").Enabled = False
 
-                'Dim checkbox As HtmlControl = DirectCast(e.Row.FindControl("checkbox"), HtmlControl)
-                'checkbox.Attributes.Add("chequed", "cheked")
-
             End If
 
-
-
             e.Row.FCCheckBox("ChkFactura").Attributes.Add("onclick", String.Format("FnSuma(this,{0});", e.Row.DBCampo("Importe")))
             e.Row.FCCheckBox("ChkFactura").InputAttributes.Add("Value", e.Row.DBCampo("Importe"))
 

Contabilidad/RegPrePolizaS.aspx

@@ -410,7 +410,7 @@
                                     <ItemTemplate>
                                         <asp:TextBox ID="TxtCargo" CssClass="txtcargo" runat="server" Style="text-align: right" Width="65px" Visible="False" Text='<%# If(String.IsNullOrEmpty(Eval("Cargo").ToString), "", Eval("Cargo", "{0:0.00}")) %>'></asp:TextBox>
                                         <div id="divCargoME" runat="server" Visible="False">ME:<asp:TextBox ID="TxtCargoME" CssClass="" runat="server" Style="text-align: right" Width="55px"></asp:TextBox>
-                                            TC:<asp:TextBox ID="TxtTC" CssClass="" runat="server" Style="text-align: right" Width="45px"></asp:TextBox>
+                                            TC:<asp:TextBox ID="TxtTC" CssClass="" runat="server" Style="text-align: right" Width="55px"></asp:TextBox>
                                         </div>
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Right" />

Contabilidad/RegPrePolizaS.aspx.vb

@@ -1018,7 +1018,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                                 TipoMovto = True
 
                                 If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal
-                                If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.FCTextBox("TC").Text.ToDecimal
+                                If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.FCTextBox("TxtTC").Text.ToDecimal
 
                             Else
                                 Importe = gvr.DataKey("Abono").ToDecimal
@@ -1035,8 +1035,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                                 TmpCargo = TmpCargo + Importe
                                 TipoMovto = False
 
-                                If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal
+                                If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.FCTextBox("TxtCargoME").Text.ToDecimal
-                                If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.FCTextBox("TC").Text.ToDecimal
+                                If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.FCTextBox("TxtTC").Text.ToDecimal
                             Else
                                 Importe = gvr.DataKey("Cargo").ToDecimal
                                 TmpCargo = TmpCargo + Importe
@@ -1047,7 +1047,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                             End If
                         End If
 
-                        If Not gvr.DataKey("CveConceptoContable").Contiene("30", "10") Then ' 30-bancos, 10-anticipos proveedores
+                        If Not gvr.DataKey("CveConceptoContable").Contiene("30", "10", "204") Then ' 30-bancos, 10-anticipos proveedores, 204- blancos complementaria
 
                             If gvr.DataKey("CveConceptoContable").ToEntero = 41 Then
                                 CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero

OC/OC.aspx.vb

@@ -5263,7 +5263,7 @@ Partial Class OC
         Descripcion.AppendFormat("Orden de compra : {0} - <a target=""_blank"" href=""/OC/OC.aspx?OC={1}"">Ir a la orden de compra</a> - <a target=""_blank"" href=""/Compras/PopUpVerFactura.aspx?P={2}"">Imprimir OC</a>", Folio, CveOrdenCompra, Encripta(String.Format("OP=OC&CVEOC={0}", CveOrdenCompra)))
 
         'Dim Descripcion = $"Importe anticipo :  ${TxtSAImporte.Text.FormatoNumero} ({TxtSAImPorcentaje.Text}%) - <a target=""_blank"" href=""/Bancos/IE.aspx?Opcion=EGSSINFACT&CveOC={CveOrdenCompra}"">Pagar anticipo</a> - <b>Observacion:</b> {TxtSAObservaciones.Text} "
-        Dim Asunto = $"Solicitud de anticipo ({lblFolio.Text})"
+        Dim Asunto = $"{lblFolio.Text} - Solicitud de anticipo "
         Dim ObjOC As New ClsOC
         Dim ObjOI As New ClsOIEventos(ObjOC.IniciaTransacSQL)
         Dim TieneError = False

Ventas/MetasVendedores.aspx

@@ -162,7 +162,7 @@
                         </asp:TemplateField>
                         <asp:TemplateField HeaderText="Real" ItemStyle-HorizontalAlign="Center">
                             <ItemTemplate>
-                                <asp:HyperLink ID="HplRealMes" runat="server" Target="_blank" Text='<%# Eval("RealMes", "{0:#,###}").ToString() %>'> </asp:HyperLink>
+                                <asp:HyperLink ID="HplRealMes" runat="server" Target="_blank" Text='<%# Eval("RealMes", "{0:#,###.##}").ToString() %>'> </asp:HyperLink>
                             </ItemTemplate>
                         </asp:TemplateField>
                         <asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Center">

Ventas/RepProductosServicios.aspx.vb

@@ -395,7 +395,7 @@ Partial Class Ventas_RepProductosServicios
                                                 e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("AnioEjec"), e.Row.DBCampo("MesEjec"), e.Row.DBCampo("AnioMesEjec"), e.Row.DBCampo("FechaEjec"),
                                                 FechaI, FechaF, FechaIEjec, FechaFEjec, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveGpo"), e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveClienteClasificacion"), e.Row.DBCampo("CveProveedorCompra"), cveMarca,
                                                 CveClasificacionDetalle, If(DdlGrupo.SelectedValue.ToEntero = 23, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), If(Not ChkLecturaAdmin.Checked, 1, 0),
-                                                e.Row.DBCampo("EsGarantia"), e.Row.DBCampo("CveCondicionesPago"), IIf(e.Row.DBCampo("MostrarLitraje") = "True", 1, 0), e.Row.DBCampo("EsDistribuidor"), e.Row.DBCampo("CveClienteSucursal").ToString.ToEntero, DdlClasificacion2.SelectedValue)
+                                                e.Row.DBCampo("EsGarantia"), e.Row.DBCampo("CveCondicionesPago"), IIf(e.Row.DBCampo("MostrarLitraje") = "True", 1, 0), e.Row.DBCampo("EsDistribuidor"), e.Row.DBCampo("CveClienteSucursal").ToString.ToEntero, e.Row.DBCampo("CveClasificacion2"))
 
 
             e.Row.FCLiteral("LtlGrupo").Text = String.Format("<a target=""_blank"" Class=""{0}"" href=""{1}"">{2}</a>", Css, Liga, e.Row.DBCampo("Gpo"))