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

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