Rep Balanza de Comprobacion vista SAT, Rep Prodcutos Servicios vista por cantidad

App_Code/ClsOC.vb

@@ -715,7 +715,7 @@ Public Class ClsOC
                                    Optional PorcentajeIVA As Decimal = 0.16D, Optional IVA As Decimal = 0, Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional FechaExpiracion As Date = Nothing, Optional CveCotizacion As Integer = -1,
                                    Optional FolioAdicional As String = "", Optional EntregaDirecta As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional Guia As String = "-1", Optional IEPS As Decimal = -1,
                                    Optional CveIEAnticipo As Integer = -1, Optional ImporteAnticipo As Decimal = 0, Optional UsoCFDI As Integer = -1, Optional Promocion As String = "-1", Optional CveProveedorContacto As Integer = -1, Optional NumRemision As String = "-1",
-                                   Optional CveColectiva As Integer = -1, Optional MetodoPago As Integer = -1, Optional CveSubProyectoEntrega As Integer = -1, Optional PorcentajeProntoPago As Decimal = 0) As Boolean
+                                   Optional CveColectiva As Integer = -1, Optional MetodoPago As Integer = -1, Optional CveSubProyectoEntrega As Integer = -1, Optional PorcentajeProntoPago As Decimal = 0, Optional EsTemporal As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OC_OrdenesCompraAdd")
@@ -763,6 +763,8 @@ Public Class ClsOC
             .Add("@MetodoPago", SqlDbType.Int).Value = MetodoPago ' 0 Contado, 1 Credito
             .Add("@CveSubProyectoEntrega", SqlDbType.Int).Value = CveSubProyectoEntrega ' 0 Contado, 1 Credito
             .Add("@PorcentajeProntoPago", SqlDbType.Decimal).Value = PorcentajeProntoPago
+            .Add("@EsTemporal", SqlDbType.Bit).Value = EsTemporal
+
 
             .Add("@vCveOrdenCompra", SqlDbType.Int).Direction = ParameterDirection.Output
             .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output

App_Code/ClsVentas.vb

@@ -4599,12 +4599,14 @@ Public Class ClsVentas
 
 
     Public Function GetRepPSPeriodo(FechaI As Date, FechaF As Date, FechaIEjec As Date, FechaFEjec As Date, CveCliente As Integer, CveSubProyectoEjecucion As Integer,
-                                CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, IVA As String, CveEmpresa As Integer, Gpo As Integer, Optional TipoDocto As String = "-1",
+                                    CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, IVA As String, CveEmpresa As Integer, Gpo As Integer, Optional TipoDocto As String = "-1",
-                                Optional CveProyecto As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1,
+                                    Optional CveProyecto As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1,
-                                Optional CveUsuarioConsulta As Integer = -1, Optional VerEn As Integer = -1, Optional CvePS As Integer = -1, Optional CveClasificacion As Integer = -1,
+                                    Optional CveUsuarioConsulta As Integer = -1, Optional VerEn As Integer = -1, Optional CvePS As Integer = -1, Optional CveClasificacion As Integer = -1,
-                                Optional CveCategoria As Integer = -1, Optional TipoFecha As Integer = 1, Optional CveClienteClasificacion As Integer = -1, Optional ModalidadContable As Boolean = False) As Boolean
+                                    Optional CveCategoria As Integer = -1, Optional TipoFecha As Integer = 1, Optional CveClienteClasificacion As Integer = -1, Optional ModalidadContable As Boolean = False,
+                                    Optional OpVista As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_VentasGetRepPeriodoPS")
+        SqlAdapter.SelectCommand.CommandTimeout = 0
         With SqlAdapter.SelectCommand.Parameters
             '.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
@@ -4632,6 +4634,7 @@ Public Class ClsVentas
             .Add("@TipoFecha", SqlDbType.Int).Value = TipoFecha
             .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
             .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable
+            .Add("@OpVista", SqlDbType.Int).Value = OpVista
         End With
         Try
             SqlAdapter.Fill(Data)

Contabilidad/RepBalanzaComprobacion.aspx

@@ -155,6 +155,12 @@
                     <asp:GridView ID="GvDatos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" 
                         runat="server" GridLines="None" EmptyDataText="No se encontraron cuentas con los parametros establecidos." AutoGenerateColumns="False" OnRowDataBound="GvIngresos_RowDataBound">
                         <Columns>
+                            <asp:TemplateField HeaderText="Nivel" >
+                                <ItemTemplate>
+                                    <asp:Label ID="LblNivelSAT" runat="server" Text='<%# Eval("Nivel")%>'></asp:Label>
+                                </ItemTemplate>
+                                <ItemStyle HorizontalAlign="Left" Width="20px" />
+                            </asp:TemplateField>
                             <asp:TemplateField HeaderText="Cuenta" HeaderStyle-HorizontalAlign="Left">
                                 <ItemTemplate>
                                     <asp:Label ID="LbCodigo" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>

Contabilidad/RepBalanzaComprobacion.aspx.vb

@@ -155,10 +155,13 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
             Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo", TipoMensaje.MsgError)
         End If
         ObjConta.Dispose()
+
         If DdlVista.SelectedValue = "1" Then
-            GvDatos.Columns(6).Visible = True
+            GvDatos.Columns(7).Visible = True
+            GvDatos.Columns(0).Visible = True
         Else
-            GvDatos.Columns(6).Visible = False
+            GvDatos.Columns(7).Visible = False
+            GvDatos.Columns(0).Visible = False
         End If
 
         CargaGrid()
@@ -220,7 +223,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
                 e.Row.FCLabel("LbSaldoActual").Visible = True
                 e.Row.FCLabel("LbSaldoActual").Text = String.Format("{0}           <br/>{1}", e.Row.DBCampo("SaldoAD").FormatoNumero, e.Row.DBCampo("SaldoAA").FormatoNumero)
             Else
-                If ModoImpresion Then e.Row.Cells(5).Text = e.Row.FCHyperLink("HLSaldoActual").Text Else e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto)
+                If ModoImpresion Then e.Row.Cells(6).Text = e.Row.FCHyperLink("HLSaldoActual").Text Else e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto)
             End If
         End If
     End Sub
@@ -247,8 +250,14 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
     End Sub
 
     Private Sub ImprimirReporte(Optional Formato As String = "PDF")
+
+        Dim reportpath As String = "Contabilidad/Reportes/RepBalanzaComprobacion.rdlc"  'Contable
+
         'ubicacion del rdlc
-        Dim reportpath As String = "Contabilidad/Reportes/RepBalanzaComprobacion.rdlc"
+        If DdlVista.SelectedValue.ToEntero = 1 Then 'SAT
+            reportpath = "Contabilidad/Reportes/RepBalanzaComprobacionSAT.rdlc"  'Contable
+        End If
+
         'nombre del reporte
         Dim fileName As String = "BalanzaComprobacion"
         'parametros a enviar al reporte                     
@@ -273,6 +282,12 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
 
     Function WSDocumento(SubProyecto As String, DtDatos As DataTable) As IXLWorksheet
 
+        Dim ColumnaAumento As Integer = 0
+
+        If DdlVista.SelectedValue.ToEntero = 1 Then
+            ColumnaAumento = 1
+        End If
+
 
         Dim WBAnexoSalvar = New ClosedXML.Excel.XLWorkbook
         Dim WBReporte = New ClosedXML.Excel.XLWorkbook()

OC/OC.aspx

@@ -168,6 +168,9 @@
             .select2anothertable > table > tbody > tr.active {
                 background-color: #5897fb;
             }
+            #C_TrDescuentoProntoPago > td:nth-child(3) > span:nth-child(1) > label:nth-child(2){
+                 white-space: nowrap;
+            }
     </style>
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
@@ -446,7 +449,7 @@
                                     </tr>
                                     <tr>
                                         <td><b>Capturó:</b></td>
-                                        <td>
+                                        <td colspan="2">
                                             <asp:Label ID="lblNombreUsuario" runat="server"></asp:Label>
                                         </td>
                                     </tr>
@@ -492,6 +495,9 @@
                                         <td>
                                             <asp:TextBox ID="TxtDescuentoEscalonado" runat="server" Width="80px" Height="28px"></asp:TextBox>
                                             <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtDescuentoEscalonado" ValidChars="1234567890+." />
+                                            
+                                        </td>
+                                        <td>
                                             <asp:Button runat="server" ID="BtnDescuenEscalonado" Text="Aplicar" CssClass="btn btn-primary" OnClick="BtnDescuenEscalonado_Click" />
                                         </td>
                                     </tr>
@@ -501,6 +507,7 @@
                                             <asp:TextBox ID="TxtPorcentajeProntoPago" CssClass="form-control " runat="server" MaxLength="50" Width="80px" Height="28px"></asp:TextBox>
                                             <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtPorcentajeProntoPago" ValidChars="1234567890." />
                                         </td>
+                                         <td><asp:CheckBox runat="server" ID="ChkEsTemporal" Text=" Es Temporal" Width="100px" /></td>
                                     </tr>
 
 

OC/OC.aspx.vb

@@ -2918,7 +2918,7 @@ Partial Class OC_OC
                                      RequiereCotizacion:=ChkCotizacion.Checked, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal,
                                      RetISR:=TxtRetISR.Text.ToDecimal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim,
                                      IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto, NumRemision:=TxtNumRemision.Text.Trim(), MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero(),
-                                     CveSubProyectoEntrega:=DdlSubProyectoEntrega.SelectedValue.ToEntero, PorcentajeProntoPago:=PorcentajeProntoPago) Then
+                                     CveSubProyectoEntrega:=DdlSubProyectoEntrega.SelectedValue.ToEntero, PorcentajeProntoPago:=PorcentajeProntoPago, EsTemporal:=ChkEsTemporal.Checked) Then
 
                         CveOrdenCompraPadre = OC.CveOrdenCompra
                         If CveOrdenCompraPadre > 0 Then
@@ -2965,7 +2965,7 @@ Partial Class OC_OC
                                  PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1),
                                  CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
                                  Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto, NumRemision:=TxtNumRemision.Text, MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero(), CveSubProyectoEntrega:=DdlSubProyectoEntrega.SelectedValue.ToEntero,
-                                PorcentajeProntoPago:=PorcentajeProntoPago) Then
+                                PorcentajeProntoPago:=PorcentajeProntoPago, EsTemporal:=ChkEsTemporal.Checked) Then
                     CveOrdenCompra = OC.CveOrdenCompra
                     CveEstatus = CboE.SelectedValue.ToEntero
 
@@ -3635,7 +3635,7 @@ Partial Class OC_OC
                                                         PorcentajeIVA:=PorIVA, IVA:=IVACot, RetIVA:=RetIVA.ToString.ToDecimal, RetISR:=RetISR.ToString.ToDecimal, IDPoliza:=IdPoliza, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
                                                         EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal,
                                                         CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, Promocion:=Promocion, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, NumRemision:=TxtNumRemision.Text.Trim, MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero(),
-                                                        CveSubProyectoEntrega:=DdlSubProyectoEntrega.SelectedValue.ToEntero, PorcentajeProntoPago:=PorcentajeProntoPago) Then
+                                                        CveSubProyectoEntrega:=DdlSubProyectoEntrega.SelectedValue.ToEntero, PorcentajeProntoPago:=PorcentajeProntoPago, EsTemporal:=ChkEsTemporal.Checked) Then
 
                             'CREA POLIZA POR CADA PROVEEDOR
 
@@ -3717,7 +3717,9 @@ Partial Class OC_OC
                                                  CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero(), CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
                                                  PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, IDPoliza:=IDPolizaPresupuestal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
                                                  EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
-                                                 Promocion:=Promocion, NumRemision:=TxtNumRemision.Text.Trim, MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero(), CveSubProyectoEntrega:=DdlSubProyectoEntrega.SelectedValue.ToEntero, PorcentajeProntoPago:=PorcentajeProntoPago) Then
+                                                 Promocion:=Promocion, NumRemision:=TxtNumRemision.Text.Trim, MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero(), CveSubProyectoEntrega:=DdlSubProyectoEntrega.SelectedValue.ToEntero, PorcentajeProntoPago:=PorcentajeProntoPago,
+                                                 EsTemporal:=ChkEsTemporal.Checked) Then
+
 
 
                     'USA AC

Ventas/RepProductosServiciosPeriodo.aspx

@@ -239,6 +239,14 @@
                         <div class="col-md-2">
                             <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
                         </div>
+
+                        <label class="col-md-1 truncate">Vista:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList runat="server" ID="DdlVista" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Value="1" >Importe</asp:ListItem>
+                                <asp:ListItem Value="2">Cantidad</asp:ListItem>
+                            </asp:DropDownList>                           
+                        </div>
                     </div>
                 </div>
             </div>

Ventas/RepProductosServiciosPeriodo.aspx.cs

@@ -270,7 +270,7 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
         if (txtFechaI.Text.Trim() != "") { FechaI = txtFechaI.Text.ToDate(); } else { FechaI = MinFecha; }
         if (txtFechaF.Text.Trim() != "") { FechaF = txtFechaF.Text.ToDate(); } else { FechaF = MaxFecha; }
         if (TxtFechaIEjec.Text.Trim() != "") { FechaIEjec = TxtFechaIEjec.Text.ToDate(); } else { FechaIEjec = MinFecha; }
-        if (TxtFechaFEjec.Text.Trim() != "") { FechaFEjec = TxtFechaFEjec.Text.ToDate(); } else { FechaFEjec = MaxFecha; }
+        if (TxtFechaFEjec.Text.Trim() != "") { FechaFEjec = TxtFechaFEjec.Text.ToDate(); } else { FechaFEjec = MaxFecha; }
 
         if (ObjVentas.GetRepPSPeriodo(FechaI, FechaF, FechaIEjec, FechaFEjec, DdlClientes.SelectedValue.ToEntero(), DdlSubProyectoEjecucion.SelectedValue.ToEntero(),
             DdlVendedor.SelectedValue.ToEntero(), DdlUsuario.SelectedValue.ToEntero(), DdlEstatus.SelectedValue.ToEntero(), "-1", UsuarioActual.CveEmpresa,