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

Compras/Compras.aspx.vb

@@ -3729,6 +3729,20 @@ Partial Class Compras_Compras
             End If
         End If
 
+        'Si se marcó No Deducible en el encabezado mínimo se debe registrar un No Deducible en el Detalle 
+        Dim GuardaNoDeducibles As Boolean = False
+        If ChkEsNoDeducible.Checked Then
+            For Each Row As DataRow In TmpDT.Rows
+                If Row("NoDeducible").ToString = "True" Then
+                    GuardaNoDeducibles = True
+                End If
+            Next
+            If GuardaNoDeducibles = False Then
+                Alert("Si la compra es No Deducible, mínimo se debe registrar un producto No Deducible", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
+
 
         If CierrePeriodo Then
             Alert("El periodo de la compra actual ya se encuentra cerrado. No podra registrar la compra.", TipoMensaje.MsgAdvertencia)
@@ -7596,6 +7610,8 @@ Partial Class Compras_Compras
                                     Else
                                         MsgAccionAceptar = "if (window.opener){window.opener.location.href = window.opener.location.href; window.close();}"
                                     End If
+                                Else
+                                    MsgAccionAceptar = "location.href =""Compras.aspx"""
                                 End If
 
                                 'Simplificacion de PrePolizas

Contabilidad/RepIVA.aspx

@@ -117,6 +117,7 @@
                     <asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" Target="_blank" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Folio" ControlStyle-Width="85px" />
                     <asp:BoundField HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="%IVA" DataField="PorcentajeIVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="IEPS" DataField="IEPS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="RetIVA" DataField="RetIVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="RetISR" DataField="RetISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />  

Empresas/144/Formatos/Factura.rdlc

@@ -1137,7 +1137,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value> Por éste pagare prometo (emos) pagar incondicionalmente a la orden de Soluciones en Telemedición JAR SA de CV, a su vencimiento  el  </Value>
+                    <Value> Por éste pagare prometo (emos) pagar incondicionalmente a la orden de PAOLA CASTILLO VALENZUELA, a su vencimiento  el  </Value>
                     <Style>
                       <FontStyle>Normal</FontStyle>
                       <FontFamily>calibri</FontFamily>

Ventas/RepVentasUtilidad.aspx.vb

@@ -41,6 +41,8 @@ Partial Class Ventas_RepVentasUtilidad
         Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
         If EsWS Then
             DdlClientes.setEsWebService(True)
+            DdlClientes.SelectedValue = "-1"
+            DdlClientes.SelectedText = "Todos"
         Else
             DdlClientes.setEsWebService(False)
             DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)

Ventas/RepVentasUtilidadDetalle.aspx

@@ -260,6 +260,16 @@
                                 <asp:Label ID="LbSubTotalDolares" Visible="false" runat="server" Text="SubTotal"></asp:Label>
                             </td>
                         </tr>
+                        <tr align="left">
+                            <td><b>Dias Emision:</b>&nbsp;</td>
+                            <td>
+                                <asp:Label ID="LblDiasEmision" runat="server" Text="Dias Emision"></asp:Label>
+                            </td>
+                            <td><b>Dias Vencimiento:</b>&nbsp;</td>
+                            <td>
+                                <asp:Label ID="LblDiasVencimiento" runat="server" Text="Dias Vencimiento"></asp:Label>
+                            </td>
+                        </tr>
                     </table>
                 </div>
             </div>

Ventas/RepVentasUtilidadDetalle.aspx.vb

@@ -181,6 +181,8 @@ Partial Class Ventas_RepVentasUtilidadDetalle
             If ObjVentas.DtResultados.Rows.Count > 0 Then
                 CveMovimiento = ObjVentas.DtResultados.Rows(1)("CveMovimiento").ToString.ToEntero
 
+                LblDiasVencimiento.Text = ObjVentas.DtResultados.Rows(1)("DiasVencimiento").ToString
+                LblDiasEmision.Text = ObjVentas.DtResultados.Rows(1)("DiasEmision").ToString
                 LblCostoFecha.Text = "$" + ObjVentas.Costo.ToString("N2")
                 HLCostoFolio.Text = ObjVentas.FolioCosto
                 LblFechaSalid.Text = ObjVentas.FechaSalidaCosto.ToDate.ToShortDateString

Ventas/RepVentasUtilidadPadre.aspx.vb

@@ -44,8 +44,10 @@ Partial Class Ventas_RepVentasUtilidadPadre
         txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
 
         'Carga Clientes
-        If UsuarioActual.CveEmpresa = 119 Then
+        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1" Then
             DdlClientesWS.setEsWebService(True)
+            DdlClientesWS.SelectedValue = "-1"
+            DdlClientesWS.SelectedText = "Todos"
         Else
             DdlClientesWS.setEsWebService(False)
             DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)

Ventas/Ventas.aspx.vb

@@ -15527,7 +15527,6 @@ Partial Class Ventas
                 Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
                 Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
                 Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
-                Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
                 Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
                 Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
             Next