Reembolsos, rep compras AF

Compras/ReembolsosComprobaciones.aspx

@@ -398,7 +398,7 @@
                     <asp:TemplateField Visible="false">
                         <HeaderTemplate>Ot. Ing.</HeaderTemplate>
                         <ItemTemplate>
-                            <asp:TextBox ID="TxtComision" Width="80px" runat="server" Style="text-align: right;"></asp:TextBox>&nbsp;
+                            <asp:TextBox ID="TxtComision" Width="80px" runat="server" Style="text-align: right;" CssClass="CsTxtComision"></asp:TextBox>&nbsp;
                             <asp:RangeValidator ID="RVComision" runat="server" Enabled="false" ErrorMessage="*" ControlToValidate="TxtComision" Display="Dynamic" Type="Double"></asp:RangeValidator>
                         </ItemTemplate>
                     </asp:TemplateField>
@@ -459,6 +459,21 @@
                 txt.value = "";
             }
 
+            //let chequeSeleccionado = parseInt($('#C_DDlCheques option:selected').val());
+
+            //if (chequeSeleccionado > 0) {
+
+
+            //    let TotalOtrosEgresos = 0.0;
+            //    $('.CsTxtComision').each(function () {
+            //        TotalOtrosEgresos = parseFloat($(this).val());
+            //    });
+
+            //    alert("Excedente " + Excedente + " TotalOtrosEgresos " + TotalOtrosEgresos);
+
+            //}
+
+
             Excedente = SumaValores();
 
             if (Excedente > 0) {
@@ -666,9 +681,28 @@
                 $get('TxtTotal').value = FormatoNumero(Suma + (ToDouble($get('TxtOtrosImportes').value * -1)), 2);
             }
 
+
+            let chequeSeleccionado = parseInt($('#C_DDlCheques option:selected').val());
+            let TotalOtrosEgresos = 0.0;
+
+            if (chequeSeleccionado > 0) {
+
+
+               
+                $('.CsTxtComision').each(function () {
+                    TotalOtrosEgresos = parseFloat($(this).val());
+                });
+
+                //alert("Excedente " + Excedente + " TotalOtrosEgresos " + TotalOtrosEgresos);  EEEEEEEEEEEEEEEEEEEEEEEEE
+
+                Excedente = Excedente + TotalOtrosEgresos;
+
+            }
+
+
             if (Excedente > 0) {
                 txt.value = FormatoNumero(ToDouble(txt.value) - Excedente, 2);
-                alert("El Importe no debe de exceder a el saldo del cheque");
+                alert("Excedente " + Excedente + " TotalOtrosEgresos " + TotalOtrosEgresos);                
             }
 
 

Compras/ReembolsosComprobaciones.aspx.vb

@@ -744,9 +744,7 @@ Partial Class Compras_ReembolsosComprobaciones
                             End If
 
 
-
+                            Dim ComisionTmp As Decimal = gvr.FCTextBox("TxtComision").Text.ToDecimal
-
-
 
                             'Otros Ingresos
                             If (ChkAjusteOI.Checked Or ChkOtrosIngresosCheque.Checked) AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then
@@ -764,8 +762,15 @@ Partial Class Compras_ReembolsosComprobaciones
                             If gvr.DataKey("Original").ToDecimal > 0 Then PorcentajePago = (ImporteMovto / gvr.DataKey("Original").ToDecimal) Else PorcentajePago = 1
 
                             If Not ChkReembolsarSinBancos.Checked AndAlso (Not HdnCheque.Value.ToEntero > 0 Or Not UsuarioActual.CveEmpresa.Contiene(119, 158)) Then
+
+
+                                Dim ImporteMovtoTmp As Decimal = ImporteMovto
+                                If ComisionTmp < 0 Then
+                                    ImporteMovtoTmp = ImporteMovto + ComisionTmp
+                                End If
+
                                 'Si es caja chica metemos el concepto 30, si es funcionario metemos 29
-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, ImporteMovto, Referencia, If(CveCajaChica > 0, 30, 29), ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(CveCajaChica > 0, IdCuentaBancaria, IdCtaPersonal), -1, CveIE:=CveIEPago, CveIEDevolucion:=If(CveCajaChica > 0, If(DDlCheques.SelectedValue.ToEntero = -1, CveIECajaChica, DDlCheques.SelectedValue.ToEntero), -1), CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto), ImporteMX:=ImporteMovto * tipoCambio, CveCuenta:=CveCuentaPersonal, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, Contabilizable:=If(CveCajaChica > 0 Or CvePersonal > 0, Not UsaSimplificacionCajaChica, True)) Then
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, ImporteMovtoTmp, Referencia, If(CveCajaChica > 0, 30, 29), ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(CveCajaChica > 0, IdCuentaBancaria, IdCtaPersonal), -1, CveIE:=CveIEPago, CveIEDevolucion:=If(CveCajaChica > 0, If(DDlCheques.SelectedValue.ToEntero = -1, CveIECajaChica, DDlCheques.SelectedValue.ToEntero), -1), CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovtoTmp), ImporteMX:=ImporteMovtoTmp * tipoCambio, CveCuenta:=CveCuentaPersonal, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, Contabilizable:=If(CveCajaChica > 0 Or CvePersonal > 0, Not UsaSimplificacionCajaChica, True)) Then
                                     MsgError = "Detalle"
                                 End If
                             End If

Compras/RepComprasAF.aspx.vb

@@ -192,12 +192,19 @@ Partial Class Compras_RepComprasAF
             If CvePS = "" Or CvePS = "0" Then
                 CvePS = "-1"
             End If
-            Dim Liga As String = $"/Compras/RepComprasAFDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={ e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&CveProveedor={ e.Row.DBCampo("CveProveedor")}&CveActivoFijo={e.Row.DBCampo("CveActivoFijo")}&CveTipoActivoFijo={e.Row.DBCampo("CveTipoActivoFijo")}&CveSubTipoActivoFijo={e.Row.DBCampo("CveSubTipoActivoFijo")}&CveProyecto={ DdlProyecto.SelectedValue}&CveSubProyecto={DdlSubProyecto.SelectedValue}&CvePS={CvePS}&CveClasificacion={e.Row.DBCampo("CveClasificacion")}&CveMoneda={ e.Row.DBCampo("CveMoneda")}&FechaI={FechaI}&FechaF={FechaF}&PS={PS}&CveClasificacion2={e.Row.DBCampo("CveClasificacion2")}"
+
+
             If e.Row.DBCampo("Orden") = "1" Then
+                Dim Liga As String = $"/Compras/RepComprasAFDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={ e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&CveProveedor={ e.Row.DBCampo("CveProveedor")}&CveActivoFijo={e.Row.DBCampo("CveActivoFijo")}&CveTipoActivoFijo={e.Row.DBCampo("CveTipoActivoFijo")}&CveSubTipoActivoFijo={e.Row.DBCampo("CveSubTipoActivoFijo")}&CveProyecto={ DdlProyecto.SelectedValue}&CveSubProyecto={DdlSubProyecto.SelectedValue}&CvePS={CvePS}&CveClasificacion={e.Row.DBCampo("CveClasificacion")}&CveMoneda={ e.Row.DBCampo("CveMoneda")}&FechaI={FechaI}&FechaF={FechaF}&PS={PS}&CveClasificacion2={e.Row.DBCampo("CveClasificacion2")}"
                 e.Row.Cells(0).Text = String.Format("<a class='{0}' target='_blank' href='{1}'>{2}</a>", "Texto", Liga, e.Row.DataKey("GPO").ToString)
             Else
                 e.Row.BackColor = Drawing.Color.LightGray
+                Dim Liga As String = $"/Compras/RepComprasAFDetalle.aspx?GPO=-1&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={ e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&CveProveedor={ e.Row.DBCampo("CveProveedor")}&CveActivoFijo={e.Row.DBCampo("CveActivoFijo")}&CveTipoActivoFijo={e.Row.DBCampo("CveTipoActivoFijo")}&CveSubTipoActivoFijo={e.Row.DBCampo("CveSubTipoActivoFijo")}&CveProyecto={ DdlProyecto.SelectedValue}&CveSubProyecto={DdlSubProyecto.SelectedValue}&CvePS={CvePS}&CveClasificacion={e.Row.DBCampo("CveClasificacion")}&CveMoneda={ e.Row.DBCampo("CveMoneda")}&FechaI={FechaI}&FechaF={FechaF}&PS={PS}&CveClasificacion2={e.Row.DBCampo("CveClasificacion2")}"
+
+                e.Row.Cells(0).Text = String.Format("<a style='font-weight:bold' class='{0}' target='_blank' href='{1}'>{2}</a>", "Texto", Liga, e.Row.DataKey("Moneda").ToString)
+
             End If
+
         End If
     End Sub
 

Compras/RepComprasAFDetalle.aspx.vb

@@ -317,6 +317,7 @@ Partial Class Compras_RepComprasAFDetalle
                 e.Row.Cells(0).Text = String.Format("<a class='{0}' target='_blank' href='{1}'>{2}</a>", "Texto", Liga, e.Row.DBCampo("SerieFolio").ToString)
             Else
                 e.Row.BackColor = Drawing.Color.LightGray
+                e.Row.Font.Bold = True
             End If
 
         End If

Empresas/132/Formatos/Factura.rdlc

@@ -1749,12 +1749,6 @@
                       <FontSize>8pt</FontSize>
                     </Style>
                   </TextRun>
-                  <TextRun>
-                    <Value>=Today</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
                 </TextRuns>
                 <Style />
               </Paragraph>
@@ -1763,7 +1757,7 @@
             <Top>3.29402cm</Top>
             <Left>0.21596cm</Left>
             <Height>0.46771cm</Height>
-            <Width>6.86562cm</Width>
+            <Width>2.66687cm</Width>
             <ZIndex>37</ZIndex>
             <Style>
               <Border>
@@ -1775,6 +1769,42 @@
               <PaddingBottom>2pt</PaddingBottom>
             </Style>
           </Textbox>
+          <Textbox Name="Textbox75">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Today</Value>
+                    <Style>
+                      <FontSize>8pt</FontSize>
+                      <FontWeight>Normal</FontWeight>
+                      <Format>d</Format>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style>
+                  <TextAlign>Left</TextAlign>
+                </Style>
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox8</rd:DefaultName>
+            <Top>3.29402cm</Top>
+            <Left>2.95339cm</Left>
+            <Height>0.46771cm</Height>
+            <Width>1.91468cm</Width>
+            <ZIndex>38</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
         </ReportItems>
         <KeepTogether>true</KeepTogether>
         <Top>17.96022cm</Top>

Ventas/Promociones.aspx

@@ -107,7 +107,7 @@
                             <div class="row">
                                 <label class="col-md-2 truncate">Cliente:</label>
                                 <div class="col-md-4">
-                                      <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;">
+                                      <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width:350px;">
                                      </ADS:Dropdownlost>
                                 </div>
                             </div>