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

App_Code/ClsCompras.vb

@@ -941,7 +941,7 @@ Public Class ClsCompras
     Public Function GetRepProductosServicios(CveProyecto As Integer, CveSubProyecto As String, CveCategoria As String, CveClasificacion As Integer, CvePS As Integer, FechaI As Date,
                                              FechaF As Date, CveProveedor As Integer, CveUsuario As Integer, CveEstatus As Integer, CveEmpresa As Integer, Gpo As Integer,
                                              CveFamilia As Integer, CveSubFamilia As Integer, CveTipoActivoFijo As String, CveSubTipoActivoFijo As String, CveActivoFijo As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoGasto As String = "-1",
-                                             Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1") As Boolean
+                                             Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1", Optional Deducible As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_GetRepPS")
@@ -969,6 +969,7 @@ Public Class ClsCompras
             .Add("@TipoGasto", SqlDbType.VarChar).Value = TipoGasto
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
             .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
+            .Add("@Deducible", SqlDbType.Int).Value = Deducible
         End With
 
         Try
@@ -984,7 +985,7 @@ Public Class ClsCompras
                                                     FechaF As Date, CveProveedor As Integer, CveUsuario As Integer, CveEstatus As Integer, CveEmpresa As Integer, Gpo As Integer,
                                                     CveFamilia As Integer, CveSubFamilia As Integer, CveTipoActivoFijo As String, CveSubTipoActivoFijo As String, CveActivoFijo As Integer,
                                                     CveMoneda As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1,
-                                                    Optional TipoGasto As String = "-1", Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1") As Boolean
+                                                    Optional TipoGasto As String = "-1", Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1", Optional Deducible As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_GetRepPSDetalle")
@@ -1016,6 +1017,8 @@ Public Class ClsCompras
             .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
             .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
+            .Add("@Deducible", SqlDbType.Int).Value = Deducible
+
         End With
 
         Try

Bancos/DepositosCaja.aspx

@@ -204,7 +204,7 @@
                 <div class="col-md-1" runat="server" id="Div1" style ="width: 155px">
                     <asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" CssClass="checkbox"/>
                 </div>
-                <div class="col-md-11 rowcheckCampos" id="DivDescuento" style="display: none">
+                <div class="col-md-10 rowcheckCampos" id="DivDescuento" style="display: none">
                     
                     <div class="col-md-1" style="padding-right: 130px;">
                         <label for="TxtDescuento">Importe:</label>

Bancos/DepositosCaja.aspx.vb

@@ -314,6 +314,8 @@ Partial Class Bancos_DepositosCaja
         TxtDescuento.Text = ""
         TxtIVA.Text = ""
         TxtComisionIntermediario.Text = ""
+        lblValorTotal.Text = ""
+        lblValorTotalSeleccionado.Text = ""
         ObjContabilidad.Dispose()
     End Sub
 

Bancos/IE.aspx

@@ -1182,6 +1182,10 @@
 
                                     <asp:CompareValidator ID="CVFechaCancelacionMin" runat="server" ControlToCompare="TxtFechaDocumento" ControlToValidate="TxtFechaCancelacion" Display="None" Operator="GreaterThanEqual" Type="Date" ValidationGroup="GrpCancelarIE" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Cancelación''</b>tiene que ser mayor o igual a la fecha del documento."></asp:CompareValidator>
                                     <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaCancelacionMin" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                                    <asp:RangeValidator ID="RVTxtFechaCancelacion" runat="server" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha de cancelacion debe ser apartir del dia 1 del siguiente mes" MaximumValue="9999/12/31" MinimumValue="1900/01/01" ControlToValidate="TxtFechaCancelacion" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
+                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco" TargetControlID="RVTxtFechaCancelacion" Width="350px"></ajax:ValidatorCalloutExtender>
+
                                 </div>
                             </div>                            
                              <div class="col-md-6">

Bancos/IE.aspx.vb

@@ -5970,9 +5970,13 @@ Partial Class Bancos_IE
 
     Protected Sub LnkCancelar_Click(sender As Object, e As EventArgs)
         If ChkConciliado.Checked Then
-            TxtFechaDesconciliado.Text = Now.ToShortDateString
+            'TxtFechaDesconciliado.Text = Now.ToShortDateString
-            UpDesconciliar.Update()
+            'UpDesconciliar.Update()
-            RegistraScript("$('#DModalDesconciliar').modal()")
+            'RegistraScript("$('#DModalDesconciliar').modal()")
+            Dim fechaCancelacion As String = DateTime.Now.AddMonths(1).FirstDayOfMonth.ToShortDateString
+            RVTxtFechaCancelacion.MinimumValue = fechaCancelacion
+            CalendarioCancelacion.StartDate = fechaCancelacion.ToDate
+            UpEliminarCotizacion.Update()
         End If
         RegistraScript("ShowDivCancelarIE();")
     End Sub

CRM/Acercamiento.aspx

@@ -450,13 +450,13 @@
 
                                         <div class="row">
                                             <div class="form-group col-md-6 form-md-line-input input-iconright">
-                                                <asp:TextBox ID="TxtImporte" CssClass="form-control" runat="server" MaxLength="15" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox>
+                                                <asp:TextBox ID="TxtImporte" CssClass="form-control" runat="server" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox>
                                                 <%--<asp:RequiredFieldValidator ID="RFVTxtPuestoContactoProveedor" runat="server" ControlToValidate="TxtPuestoContactoProveedor" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Puesto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarContactoProveedor"></asp:RequiredFieldValidator>--%>
                                                 <label for="<%= TxtImporte.ClientID.ToString()%>" style="width: 90%;">Importe:</label>
                                             </div>
 
                                             <div class="form-group  col-md-6 form-md-line-input input-iconright">
-                                                <asp:TextBox ID="TxtComision" CssClass="form-control " runat="server" MaxLength="15" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox>
+                                                <asp:TextBox ID="TxtComision" CssClass="form-control " runat="server" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox>
                                                 <%--<asp:RequiredFieldValidator ID="RFVTxtPuestoContactoProveedor" runat="server" ControlToValidate="TxtPuestoContactoProveedor" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Puesto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarContactoProveedor"></asp:RequiredFieldValidator>--%>
                                                 <label for="<%= TxtComision.ClientID.ToString()%>" style="width: 90%;">Comisión:</label>
                                             </div>

CRM/Acercamiento.aspx.cs

@@ -301,8 +301,8 @@ public partial class CRM_Acercamiento : ClsPaginas
                 TxtDescripcion.Text = ObjCRM.DtResultados.FiltroPrimeroValor("Descripcion");
                 TxtFechaApertura.Text = ObjCRM.DtResultados.FiltroPrimeroValor("FechaApertura").ToDateTime().ToShortDateString();
                 TxtFechaCierre.Text = (ObjCRM.DtResultados.FiltroPrimeroValor("FechaCierre") == "") ? "" : ObjCRM.DtResultados.FiltroPrimeroValor("FechaCierre").ToDateTime().ToShortDateString();
-                TxtImporte.Text = String.Format("{0:C2}", ObjCRM.DtResultados.FiltroPrimeroValor("Importe").ToEntero());
+                TxtImporte.Text = String.Format("{0:C2}", ObjCRM.DtResultados.FiltroPrimeroValor("Importe").ToString().ToDecimal());
-                TxtComision.Text = String.Format("{0:C2}", ObjCRM.DtResultados.FiltroPrimeroValor("Comision").ToEntero());
+                TxtComision.Text = String.Format("{0:C2}", ObjCRM.DtResultados.FiltroPrimeroValor("Comision").ToString().ToDecimal());
 
                 DdlProbabilidadAcercamiento.SelectedValueExist(ObjCRM.DtResultados.FiltroPrimeroValor("CveProbabilidadAcercamiento"));
                 DdlPrioridad.SelectedValueExist(ObjCRM.DtResultados.FiltroPrimeroValor("Prioridad"));

CRM/RepAcercamientosProcesos.aspx

@@ -30,7 +30,7 @@
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
-    Reporte de Procesos Acercamientos
+    Reporte de Procesos de Acercamientos
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>

CRM/RepAcercamientosProcesos.aspx.cs

@@ -433,7 +433,7 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
         tableHeader.AddCell(celdaVacia);
         tableHeader.AddCell(celdaVacia);
 
-        PdfPCell reporteNombreCell = new PdfPCell(new Phrase("Reporte de Procesos Acercamientos "));
+        PdfPCell reporteNombreCell = new PdfPCell(new Phrase("Reporte de Procesos de Acercamientos "));
         reporteNombreCell.UseVariableBorders = true;
         reporteNombreCell.BorderColor = bordesBlancos;
         reporteNombreCell.Colspan = 3;
@@ -596,7 +596,7 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
 
     protected void LnkExcel_Click(object sender, EventArgs e)
     {
-        GVRepAcercamientosEtapas.ExportToExcelGembox("Reporte de Rechazos de Acercamiento", UsuarioActual, "", "", "Reporte de Rechazos de Acercamiento", "", -1);
+        GVRepAcercamientosEtapas.ExportToExcelGembox("Reporte de Procesos de Acercamiento", UsuarioActual, "", "", "Reporte de Procesos de Acercamiento", "", -1);
     }
 
     public override void VerifyRenderingInServerForm(Control control)

Compras/RepProductosServicios.aspx

@@ -243,13 +243,23 @@
                         <div class="col-md-1">Tipo Docto:</div>
                         <div class="col-md-2">
                             <asp:DropDownList CssClass="select2me" Width="100%" ID="DdlTipoDocto" runat="server" AppendDataBoundItems="true" >
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                  <asp:ListItem Text="Factura" Value="Fac"></asp:ListItem>
                                  <asp:ListItem Text="Nota de Crédito" Value="NC"></asp:ListItem>
                                  <asp:ListItem Text="Anticipo" Value="Ant" ></asp:ListItem>
                             </asp:DropDownList>
                         </div>
                     </div>
+                    <div class="row">
+                        <label id="lbDeducible" runat="server" class="col-md-1 truncate">Deducible</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlDeducible" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Deducible" Value="0"></asp:ListItem>
+                                <asp:ListItem Text="No deducible" Value="1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div> 
+                    </div>
                 </div>
             </div>
         </ContentTemplate>

Compras/RepProductosServicios.aspx.vb

@@ -253,7 +253,7 @@ Partial Class Compras_RepProductosServicios
                                                 DdlPS.SelectedValue.ToEntero, FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero,
                                                 UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlFamilia.SelectedValue.ToEntero, DdlSubFamilia.SelectedValue.ToEntero,
                                                 TipoAF, SubTipoAF, DdlAF.SelectedValue.ToEntero, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
-                                               TipoDocto:=DdlTipoDocto.SelectedValue) Then
+                                               TipoDocto:=DdlTipoDocto.SelectedValue, Deducible:=DdlDeducible.SelectedValue.ToEntero) Then
 
             DtDatos = ObjCompras.DtResultados
             GvDatos.DataSource = DtDatos
@@ -331,10 +331,11 @@ Partial Class Compras_RepProductosServicios
             End If
 
 
-            Dim Liga = String.Format("/Compras/RepProductosServiciosDetalle.aspx?GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveEstatusFactura={7}&FechaI={8}&FechaF={9}&CveProyecto={10}&CveSubProyecto={11}&CveCategoria={12}&CveClasificacion={13}&CvePS={14}&CveFamilia={15}&CveSubFamilia={16}&CveTipoAF={17}&CveSubTipoAF={18}&CveAF={19}&CveMoneda={20}&CveTipoGasto={21}&TipoCambio={22}&TCEspecifico={23}",
+            Dim Liga = String.Format("/Compras/RepProductosServiciosDetalle.aspx?GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveEstatusFactura={7}&FechaI={8}&FechaF={9}&CveProyecto={10}&CveSubProyecto={11}&CveCategoria={12}&CveClasificacion={13}&CvePS={14}&CveFamilia={15}&CveSubFamilia={16}&CveTipoAF={17}&CveSubTipoAF={18}&CveAF={19}&CveMoneda={20}&CveTipoGasto={21}&TipoCambio={22}&TCEspecifico={23}&Deducible={24}",
                                                 DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"),
                                                 e.Row.DBCampo("CveEstatusFactura"), FechaI, FechaF, e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"),
-                                                e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveFamilia"), e.Row.DBCampo("CveSubFamilia"), e.Row.DBCampo("CveTipoAF"), e.Row.DBCampo("CveSubTipoAF"), e.Row.DBCampo("CveAF"), e.Row.DBCampo("CveMoneda"), DdlTipoGasto.GetSelectedValuesM, e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"))
+                                                e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveFamilia"), e.Row.DBCampo("CveSubFamilia"), e.Row.DBCampo("CveTipoAF"), e.Row.DBCampo("CveSubTipoAF"), e.Row.DBCampo("CveAF"), e.Row.DBCampo("CveMoneda"),
+                                                DdlTipoGasto.GetSelectedValuesM, e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), DdlDeducible.SelectedValue.ToEntero)
 
 
             If Not e.Row.DBCampo("GpoID") = "1" Then

Compras/RepProductosServiciosDetalle.aspx

@@ -242,6 +242,16 @@
                             </asp:DropDownList>
                         </div>
                     </div>
+                    <div class="row">
+                        <label id="lbDeducible" runat="server" class="col-md-1 truncate">Deducible</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlDeducible" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Deducible" Value="0"></asp:ListItem>
+                                <asp:ListItem Text="No deducible" Value="1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div> 
+                    </div>
                 </div>
             </div>
         </ContentTemplate>

Compras/RepProductosServiciosDetalle.aspx.vb

@@ -73,7 +73,7 @@ Partial Class Compras_RepProductosServiciosDetalle
 
     Private Sub InicializaValores()
         Dim Grupo, Proyecto, SubProyecto, Categoria, Clasificacion, PS, Proveedor, Estatus, Usuario, Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, TipoGasto As String
-        Dim Anio, Mes, AnioMes, Fecha, FechaI, FechaF, TipoDocto As String
+        Dim Anio, Mes, AnioMes, Fecha, FechaI, FechaF, TipoDocto, Deducible As String
 
         Grupo = If(Request("GPO") IsNot Nothing AndAlso Request("GPO").ToEntero() > 0, Request("GPO").ToEntero(), -1).ToString
         Proyecto = If(Request("CveProyecto") IsNot Nothing AndAlso Request("CveProyecto").ToEntero() > 0, Request("CveProyecto").ToEntero(), -1).ToString
@@ -105,6 +105,8 @@ Partial Class Compras_RepProductosServiciosDetalle
         ActivoFijo = If(Request("CveAF") IsNot Nothing AndAlso Request("CveAF").ToEntero() > 0, Request("CveAF").ToEntero(), -1).ToString
         CveMoneda = If(Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero() > 0, Request("CveMoneda").ToEntero(), -1).ToString.ToEntero
         TipoDocto = If(Request("TipoDocto") IsNot Nothing, Request("TipoDocto").ToString, "-1").ToString
+        Deducible = If(Request("Deducible") IsNot Nothing, Request("Deducible").ToString, "-1").ToString
+
         Anio = If(Request("Anio") IsNot Nothing, Request("Anio").ToString, "-1").ToString
         Mes = If(Request("Mes") IsNot Nothing, Request("Mes").ToString, "-1").ToString
         AnioMes = If(Request("AnioMes") IsNot Nothing, Request("AnioMes").ToString, "-1").ToString
@@ -158,6 +160,7 @@ Partial Class Compras_RepProductosServiciosDetalle
             DdlProveedor.SelectedText = "Todos"
         End If
         DdlTipoDocto.SelectedValueExist(TipoDocto)
+        DdlDeducible.SelectedValueExist(Deducible)
         DdlEstatus.SelectedValueExist(Estatus)
         DdlUsuario.SelectedValueExist(Usuario)
         'DdlTipoAF.SelectedValueExist(TipoActivoFijo)
@@ -359,7 +362,9 @@ Partial Class Compras_RepProductosServiciosDetalle
 
         If ObjCompras.GetRepProductosServiciosDetalle(DdlProyecto.SelectedValue.ToEntero, SubProyectos, Categoria, DdlClasificacion.SelectedValue.ToEntero,
                                               DdlPS.SelectedValue.ToEntero, FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero,
-                                              UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlFamilia.SelectedValue.ToEntero, DdlSubFamilia.SelectedValue.ToEntero, TipoAF, SubTipoAF, DdlAF.SelectedValue.ToEntero, CveMoneda, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=DdlTipoDocto.SelectedValue) Then
+                                              UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlFamilia.SelectedValue.ToEntero, DdlSubFamilia.SelectedValue.ToEntero, TipoAF, SubTipoAF,
+                                              DdlAF.SelectedValue.ToEntero, CveMoneda, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
+                                              TipoDocto:=DdlTipoDocto.SelectedValue, Deducible:=DdlDeducible.SelectedValue.ToEntero) Then
             DtDatos = ObjCompras.DtResultados
         Else
             DtDatos = Nothing
@@ -378,7 +383,7 @@ Partial Class Compras_RepProductosServiciosDetalle
         Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha)
         If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then TCEspecifico = TxtEspecifico.Text.ToDouble Else TCEspecifico = -1
 
-        If ObjCompras.GetRepProductosServiciosDetalle(Proyecto, SubProyecto, Categoria, Clasificacion, PS, FechaI, FechaF, Proveedor, Usuario, Estatus, UsuarioActual.CveEmpresa, Grupo, Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, CveMoneda, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=DdlTipoDocto.SelectedValue) Then
+        If ObjCompras.GetRepProductosServiciosDetalle(Proyecto, SubProyecto, Categoria, Clasificacion, PS, FechaI, FechaF, Proveedor, Usuario, Estatus, UsuarioActual.CveEmpresa, Grupo, Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, CveMoneda, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=DdlTipoDocto.SelectedValue, Deducible:=DdlDeducible.SelectedValue.ToEntero) Then
             DtDatos = ObjCompras.DtResultados
         Else
             DtDatos = Nothing

Contabilidad/RegPrePolizaS.aspx

@@ -583,10 +583,23 @@
         <tr>
             <td style="width: 730px">&nbsp;</td>
             <th style="width: 90px;">
-                <asp:TextBox ID="TxtTotalCargos" runat="server" Style="text-align: right" Enabled="false" Width="90px" Text="0.00"></asp:TextBox></th>
+                <asp:UpdatePanel ID="UpTotalCargo" runat="server" UpdateMode="Conditional">
+                    <ContentTemplate>
+                        <asp:TextBox ID="TxtTotalCargos" runat="server" Style="text-align: right" Enabled="false" Width="90px" Text="0.00"></asp:TextBox>
+                    </ContentTemplate>
+                </asp:UpdatePanel>
+            </th>
             <th style="width: 90px;">
-                <asp:TextBox ID="TxtTotalAbonos" runat="server" Style="text-align: right" Enabled="false" Width="90px" Text="0.00"></asp:TextBox></th>
+                <asp:UpdatePanel ID="UpTotalAbono" runat="server" UpdateMode="Conditional">
+                    <ContentTemplate>
+                        <asp:TextBox ID="TxtTotalAbonos" runat="server" Style="text-align: right" Enabled="false" Width="90px" Text="0.00"></asp:TextBox>
+
+                    </ContentTemplate>
+
+                </asp:UpdatePanel>
+            </th>
             <asp:HiddenField ID="HdnTotales" runat="server" ClientIDMode="Static" />
+  
         </tr>
         <tr>
             <td colspan="3" style="text-align: center;">
@@ -752,7 +765,7 @@
                                         SubProyecto:
                                     </div>
                                     <div class="col-xs-3">
-                                        <asp:DropDownList ID="DdlSubProyectoE" runat="server" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList><br />
+                                        <asp:DropDownList ID="DdlSubProyectoE" runat="server" Width="220px" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList><br />
                                     </div>
                                 </div>
                                 <br />
@@ -770,7 +783,7 @@
                                         Cargo:
                                     </div>
                                     <div class="col-xs-3">
-                                        <asp:TextBox ID="TxtCargoE" runat="server" CssClass=" txtcargo form-control input-sm" Style="text-align: right"></asp:TextBox><br />
+                                        <asp:TextBox ID="TxtCargoE" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox><br />
                                         <asp:CompareValidator ID="CVCargo" runat="server" ControlToValidate="TxtCargo" Display="None" ErrorMessage="El campo <b>''Cargo''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
                                         <ajax:ValidatorCalloutExtender ID="VCCCargo" runat="server" HighlightCssClass="vco" TargetControlID="CVCargo" Width="300px"></ajax:ValidatorCalloutExtender>
                                     </div>
@@ -778,7 +791,7 @@
                                         Abono:
                                     </div>
                                     <div class="col-xs-3">
-                                        <asp:TextBox ID="TxtAbonoE" runat="server" CssClass=" txtabono form-control input-sm" Style="text-align: right"></asp:TextBox><br />
+                                        <asp:TextBox ID="TxtAbonoE" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox><br />
                                         <asp:CompareValidator ID="CVAbono" runat="server" ControlToValidate="TxtAbono" Display="None" ErrorMessage="El campo <b>''Abono''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
                                         <ajax:ValidatorCalloutExtender ID="VCCAbono" runat="server" HighlightCssClass="vco" TargetControlID="CVAbono" Width="300px"></ajax:ValidatorCalloutExtender>
                                     </div>

Contabilidad/RegPrePolizaS.aspx.vb

@@ -188,6 +188,15 @@ Partial Class ContabilidadC_RegPrePolizaS
         End Set
     End Property
 
+    Public Property IDMovEditar As Integer
+        Get
+            Return CType(ViewState("IDMovEditar"), Integer)
+        End Get
+        Set(value As Integer)
+            ViewState("IDMovEditar") = value
+        End Set
+    End Property
+
     Public Property TipoPoliza As String
         Get
             Return CType(ViewState("TipoPoliza"), String)
@@ -317,14 +326,15 @@ Partial Class ContabilidadC_RegPrePolizaS
             .Add("CveConceptoContable", Type.GetType("System.Int32"))
             .Add("IdCtaContable", Type.GetType("System.Int32"))
             .Add("ConceptoContable", Type.GetType("System.String"))
-            .Add("CveCuenta", Type.GetType("System.Int32"))
+            .Add("CveCuenta", Type.GetType("System.Int32"))
-
             .Add("ContadoTipoTransaccion", Type.GetType("System.Int32"))
             .Add("ContadoCuenta", Type.GetType("System.Int32"))
-            .Add("ContadoNumeroFolio", Type.GetType("System.Int32"))
+            .Add("ContadoNumeroFolio", Type.GetType("System.String"))
-            .Add("ContadoImporte", Type.GetType("System.Int32"))
+            .Add("ContadoImporte", Type.GetType("System.Double"))
             .Add("ContadoBeneficiario", Type.GetType("System.String"))
             .Add("ContadoObservaciones", Type.GetType("System.String"))
+            .Add("Modificado", Type.GetType("System.Boolean"))
+
 
         End With
     End Sub
@@ -430,7 +440,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                 End If
 
                 ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza)
-
                 DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
                 GvPrePoliza.DataSource = DtMovimientos
                 GvPrePoliza.DataBind()
@@ -529,7 +538,9 @@ Partial Class ContabilidadC_RegPrePolizaS
             If CveConceptoContable.Contiene(30, 204) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
 
             'e.Row.FCHyperLink("HlReferencia").NavigateUrl = CveConceptoContable
-
+            If e.Row.DBCampo("Modificado") Then
+                e.Row.FCCheckBox("chkModificado").Checked = True
+            End If
         End If
 
         If e.Row.RowType = DataControlRowType.Header Then
@@ -826,10 +837,10 @@ Partial Class ContabilidadC_RegPrePolizaS
             If e.Row.DataKey("CveConcepto").ToEntero.Contiene(30) Then
                 e.Row.FCLinkButton("ImgBancos").Visible = True
 
-
+                If e.Row.DataKey("ContadoTipoTransaccion").ToEntero > 0 And e.Row.DataKey("ContadoCuenta").ToEntero > 0 And e.Row.DataKey("ContadoNumeroFolio").ToString.Length > 0 And
-                If CveTipoTransaccion > 0 And CveCuenta > 0 And Folio.Length > 0 And ImporteDocumento > 0 And Beneficiario.Length > 0 Then
+                    e.Row.DataKey("ContadoImporte").ToEntero > 0 And e.Row.DataKey("ContadoBeneficiario").ToString.Length > 0 Then
-                    e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green"
+                    e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green"
-                End If
+                End If
             End If
         End If
     End Sub
@@ -887,6 +898,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                         'Registra movimieno bancario
                         If gvr.DataKey("CveConcepto").ToEntero = 30 Then
+
                             CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFecha.Text, gvr.DataKey("ContadoNumeroFolio").ToString,
                                                        gvr.DataKey("ContadoBeneficiario").ToString, gvr.DataKey("ContadoImporte").ToString.ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "",
                                                        False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -935,7 +947,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                             Else
                                 MsgError = "No se pudo insertar el detalle de la póliza2"
                                 Exit For
-                            End If
+                            End If
                         End If
                         If CveIE > 0 AndAlso gvr.DataKey("CveConcepto").ToEntero = 30 Then
                             MensajeAlert.AppendFormat("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE)
@@ -1147,7 +1159,7 @@ Partial Class ContabilidadC_RegPrePolizaS
     End Sub
     Private Sub CargaCtaContableE()
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+        If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
             DdlCtaContableE.DataSource = ObjConta.DtResultados
         End If
         ObjConta.Dispose()
@@ -1273,8 +1285,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
 
 
-                TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbonoE.Text.ToDouble).ToString.FormatoNumero
-                TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargoE.Text.ToDouble).ToString.FormatoNumero
                 DtMovimientos.Rows.Add(dr)
                 DtMovimientos.AcceptChanges()
 
@@ -1282,7 +1292,12 @@ Partial Class ContabilidadC_RegPrePolizaS
                     GvPrePoliza.DataSource = DtMovimientos
                     GvPrePoliza.DataBind()
                     UpPrePoliza.Update()
-                End If
+                End If
+
+                TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
+                TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
+                UpTotalCargo.Update()
+                UpTotalAbono.Update()
             Else
                 'Dim dr As DataRow = DtMovimientos.NewRow
                 'Dim CodigoCuenta As String = ""
@@ -1352,6 +1367,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
                 dr("CveCuenta") = DdlCtaContableE.SelectedValue.ToEntero
                 dr("CodigoNombreCuenta") = DdlCtaContableE.SelectedItem.Text
+                dr("Modificado") = True
+
 
                 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnConceptoContable").Value = DdlConceptosContablesE.SelectedValue.ToEntero
                 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnProveedor").Value = DdlProveedoresE.SelectedValue.ToEntero
@@ -1372,8 +1389,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                     dr("Cargo") = "".ToDouble
                 End If
 
-                TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbonoE.Text.ToDouble).ToString.FormatoNumero
+
-                TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargoE.Text.ToDouble).ToString.FormatoNumero
                 DtMovimientos.AcceptChanges()
                 GvPrePoliza.EditIndex = -1
 
@@ -1382,11 +1398,17 @@ Partial Class ContabilidadC_RegPrePolizaS
                     GvPrePoliza.DataBind()
                     UpPrePoliza.Update()
                 End If
-                GvPrePoliza.Columns(11).Visible = True
+                GvPrePoliza.Columns(11).Visible = True
+                GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True
 
-                GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True
+                TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
+                TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
+                UpTotalCargo.Update()
+                UpTotalAbono.Update()
+
             End If
-        End If
+        End If
+
 
         UpPrePoliza.Update()
         RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal")
@@ -1563,17 +1585,17 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         Dim IdMov As Integer = GvRow.DataKey("IdMov").ToString.ToEntero
         Dim Rows As DataRow() = DtMovimientos.Select("IdMov = " & IdMov)
+        IDMovEditar = IdMov
 
         If Rows.Count > 0 Then
             Dim dr As DataRow = Rows(0)
-            Dim folio As Integer = dr("ContadoTipoTransaccion").ToString.ToEntero
             DdlTipoTransaccion.SelectedValueExist(dr("ContadoTipoTransaccion").ToString.ToEntero)
             DdlCuenta.SelectedValueExist(dr("ContadoCuenta").ToString.ToEntero)
-            TxtDocumentoFolio.Text = dr("ContadoNumeroFolio").ToString.ToEntero
+            TxtDocumentoFolio.Text = dr("ContadoNumeroFolio").ToString
             TxtDocumentoObservaciones.Text = dr("ContadoObservaciones").ToString
             TxtDocumentoBeneficiario.Text = dr("ContadoBeneficiario").ToString
         End If
-
+
         TxtDocumentoImporte.Text = If(GvRow.FCTextBox("TxtAbono").Text = "", GvRow.FCTextBox("TxtCargo").Text.FormatoNumero, GvRow.FCTextBox("TxtAbono").Text.FormatoNumero)
         UpBancos.Update()
         RegistraScript(String.Format("$('#{0}').modal();", "DivContadoModal"))
@@ -1590,14 +1612,31 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlCuenta.DataBind()
         DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
-    Private Sub BtnContado_Click(sender As Object, e As EventArgs) Handles BtnContado.Click
+    Private Sub BtnContado_Click(sender As Object, e As EventArgs) Handles BtnContado.Click
-        CveConcepto = 30
+        Dim Rows As DataRow() = DtMovimientos.Select("IdMov = " & IDMovEditar)
-        CveTipoTransaccion = DdlTipoTransaccion.SelectedValue.ToEntero
+
-        CveCuenta = DdlCuenta.SelectedValue.ToEntero
+        If Rows.Count > 0 Then
-        Folio = TxtDocumentoFolio.Text
+            Dim dr As DataRow = Rows(0)
-        ImporteDocumento = TxtDocumentoImporte.Text.ToDecimal
+
-        Observaciones = TxtDocumentoObservaciones.Text
+
-        Beneficiario = TxtDocumentoBeneficiario.Text
+            dr("ContadoTipoTransaccion") = DdlTipoTransaccion.SelectedValue.ToEntero
+            dr("ContadoCuenta") = DdlCuenta.SelectedValue.ToEntero
+            dr("ContadoNumeroFolio") = TxtDocumentoFolio.Text
+            dr("ContadoImporte") = TxtDocumentoImporte.Text.ToDecimal
+            dr("ContadoBeneficiario") = TxtDocumentoBeneficiario.Text
+            dr("ContadoObservaciones") = TxtDocumentoObservaciones.Text
+        End If
+        DtMovimientos.AcceptChanges()
+        GvMov.DataSource = DtMovimientos
+        GvMov.DataBind()
+        'CveTipoTransaccion = DdlTipoTransaccion.SelectedValue.ToEntero
+        'CveCuenta = DdlCuenta.SelectedValue.ToEntero
+        'Folio = TxtDocumentoFolio.Text
+        'ImporteDocumento = TxtDocumentoImporte.Text.ToDecimal
+        'Observaciones = TxtDocumentoObservaciones.Text
+        'Beneficiario = TxtDocumentoBeneficiario.Text
+
+
         RegistraScript(String.Format("$('#{0}').modal('hide');", "DivContadoModal"))
         GvMov.Rows(RowIndex).FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green"
         UPMovs.Update()
@@ -2008,10 +2047,10 @@ Partial Class ContabilidadC_RegPrePolizaS
                             DdlCuenta.SelectedValue = CveBancoCuenta
                         End If
                         TipoMov = GlobalDTTipoTransacciones.FiltroPrimeroValor("CveTipoTransaccion", String.Format("TipoTransaccion = '{0}' ", Row("TipoTransferencia"))).ToEntero
-                        FolioExcel = Row("Folio").ToString.ToEntero
+                        FolioExcel = Row("Folio").ToString
                         CveTipoTransaccion = TipoMov
                         CveCuenta = CveBancoCuenta
-                        Folio = Row("Folio").ToString.ToEntero
+                        Folio = FolioExcel
                         ImporteDocumento = IIf(Row("Abono").ToString.ToEntero > 0, Row("Abono").ToString, Row("Cargo").ToString)
                         Observaciones = Row("Referencia").ToString
                         Beneficiario = Row("Concepto").ToString

Empresas/141/Formatos/Factura.rdlc

@@ -2165,7 +2165,7 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>Sinaloa: Los Mochis (668) 817-0209 - Los Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Tierra Blanca (667) 716-6997 - Sanalona (667) 713-667</Value>
+                    <Value>Sinaloa: Los Mochis (668) 817-0209 - Los Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Guamuchil (673) 688-0108 - Sanalona (667) 713-667</Value>
                     <Style>
                       <FontStyle>Normal</FontStyle>
                       <FontFamily>calibri</FontFamily>

Empresas/152/Formatos/Factura.rdlc

@@ -2063,7 +2063,7 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>Sinaloa: Los Mochis (668) 817-0209 - Los Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Tierra Blanca (667) 716-6997 - Sanalona (667) 713-667</Value>
+                    <Value>Sinaloa: Los Mochis (668) 817-0209 - Los Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Guamuchil (673) 688-0108 - Sanalona (667) 713-667</Value>
                     <Style>
                       <FontStyle>Normal</FontStyle>
                       <FontFamily>calibri</FontFamily>
@@ -3693,7 +3693,7 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
- 
+
   <EmbeddedImages>
     <EmbeddedImage Name="ID2">
       <MIMEType>image/png</MIMEType>

Empresas/159/Formatos/Factura.rdlc

@@ -2089,7 +2089,7 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>Sinaloa: Los Mochis (668) 817-0209 - Los Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Tierra Blanca (667) 716-6997 - Sanalona (667) 713-667</Value>
+                    <Value>Sinaloa: Los Mochis (668) 817-0209 - Los Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Guamuchil (673) 688-0108 - Sanalona (667) 713-667</Value>
                     <Style>
                       <FontStyle>Normal</FontStyle>
                       <FontFamily>calibri</FontFamily>

Empresas/160/Formatos/Factura.rdlc

@@ -2089,7 +2089,7 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>Sinaloa: Los Mochis (668) 817-0209 - Los Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Tierra Blanca (667) 716-6997 - Sanalona (667) 713-667</Value>
+                    <Value>Sinaloa: Los Mochis (668) 817-0209 - Los Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Guamuchil (673) 688-0108 - Sanalona (667) 713-667</Value>
                     <Style>
                       <FontStyle>Normal</FontStyle>
                       <FontFamily>calibri</FontFamily>
@@ -4178,7 +4178,7 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
- 
+
   <EmbeddedImages>
     <EmbeddedImage Name="ID2">
       <MIMEType>image/png</MIMEType>

Empresas/161/Formatos/Factura.rdlc

@@ -2089,7 +2089,7 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>Sinaloa: Los Mochis (668) 817-0209 - Los Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Tierra Blanca (667) 716-6997 - Sanalona (667) 713-667</Value>
+                    <Value>Sinaloa: Los Mochis (668) 817-0209 - Los Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Guamuchil (673) 688-0108 - Sanalona (667) 713-667</Value>
                     <Style>
                       <FontStyle>Normal</FontStyle>
                       <FontFamily>calibri</FontFamily>

Empresas/162/Formatos/Factura.rdlc

@@ -2089,7 +2089,7 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>Sinaloa: Los Mochis (668) 817-0209 - Los Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Tierra Blanca (667) 716-6997 - Sanalona (667) 713-667</Value>
+                    <Value>Sinaloa: Los Mochis (668) 817-0209 - Los Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Guamuchil (673) 688-0108 - Sanalona (667) 713-667</Value>
                     <Style>
                       <FontStyle>Normal</FontStyle>
                       <FontFamily>calibri</FontFamily>