Modalidad Contable en RepVentas

App_Code/ClsVentas.vb

@@ -1346,7 +1346,7 @@ Public Class ClsVentas
     Public Function GetRepVentas(FechaI As Date, FechaF As Date, FechaIEjec As Date, FechaFEjec As Date, CveCliente As Integer, CveSubProyectoEjecucion As Integer,
                                  CveVendedor As String, CveUsuario As Integer, CveEstatus As String, IVA As String, CveEmpresa As Integer, Gpo As Integer, Optional TipoDocto As String = "-1",
                                  Optional CveProyecto As Integer = -1, Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveUsuarioConsulta As Integer = -1,
-                                 Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1) As Boolean
+                                 Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasGetRep")
 
@@ -1373,6 +1373,7 @@ Public Class ClsVentas
             .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
             .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
             .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
+            .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable
         End With
 
         Try
@@ -1477,7 +1478,7 @@ Public Class ClsVentas
                                         Vendedor As String, CveUsuario As Integer, CveEstatus As String, FechaI As Date, FechaF As Date, CveCorte As Integer, TipoDocto As String,
                                         CveSubProyectoEjecucion As Integer, CveEmpresa As Integer, FechaIEjec As Date, FechaFEjec As Date, Optional CveProyecto As Integer = -1,
                                         Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveMoneda As Integer = -1, Optional CveUsuarioConsulta As Integer = -1,
-                                         Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1) As Boolean
+                                         Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasGetRepDetalle")
 
@@ -1509,6 +1510,7 @@ Public Class ClsVentas
             .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
             .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
             .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
+            .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable
         End With
 
         Try

Ventas/RepVentaDetalle.aspx

@@ -303,6 +303,12 @@
                         </div>
 
                     </div>
+                    <div class="row">
+                        <label class="col-md-1 truncate">Modalidad Contable:</label>
+                        <div class="col-md-2">
+                            <asp:CheckBox ID="ChkModalidadContable" runat="server" Checked="false" CssClass="input-sm" />
+                        </div>
+                    </div>
                 </div>
             </div>
         </ContentTemplate>

Ventas/RepVentaDetalle.aspx.vb

@@ -451,7 +451,7 @@ Partial Class RepVentaDetalle
         UPDatos.Update()
     End Sub
     Private Sub CargaDatos()
-        Dim ObjVentas As New ClsVentas()
+
         Dim AnioMes = If(Request("AnioMes") IsNot Nothing, Request("AnioMes").ToString, "-1").ToString
         Dim Fecha = If(Request("Fecha") IsNot Nothing, Request("Fecha").ToString, "-1").ToString
         Dim IVA = If(Request("IVA") IsNot Nothing, Request("IVA").ToString, "-1").ToString
@@ -478,12 +478,15 @@ Partial Class RepVentaDetalle
         FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim.ToDate, MinFecha)
         FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim.ToDate, MaxFecha)
 
+        Dim ModalidadContable As Boolean = CBool(If(Request("ModalidadContable") IsNot Nothing, Request("ModalidadContable").ToEntero(), 0))
+
+        Dim ObjVentas As New ClsVentas()
         'FechaI, FechaF, -1, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero
         If ObjVentas.GetRepVentasDetalle(DdlGrupo.SelectedValue.ToEntero, Anio.ToEntero, Mes.ToEntero, AnioMes, Fecha, CveCliente,
                                          IVA, Vendedores, DdlUsuario.SelectedValue.ToEntero, Estatus, FechaI, FechaF,
                                          CveCorte.ToEntero, TipoComprobante, DdlSubProyectoEjecucion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FechaIEjec, FechaFEjec,
                                          CveProyecto, Sucursales, TipoCambio, TCEspecifico, CveMoneda, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
-                                         CveCondicionesPago:=CveCondicionesPago, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero) Then
+                                         CveCondicionesPago:=CveCondicionesPago, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable) Then
             DtVentas = AddRows(ObjVentas.DtResultados)
             ImgImprimir.Enabled = True
             GvDatos.DataSource = AddRows(ObjVentas.DtResultados)
@@ -492,8 +495,10 @@ Partial Class RepVentaDetalle
             GvDatos.DataSource = Nothing
             GvVsh.DataSource = Nothing
         End If
-        Agrupador = DdlGrupo.SelectedItem.Text
         ObjVentas.Dispose()
+
+        Agrupador = DdlGrupo.SelectedItem.Text
+
         GvDatos.DataBind()
         GvVsh.DataBind()
     End Sub

Ventas/RepVentas.aspx

@@ -293,8 +293,12 @@
                                 <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-
+                    </div>
-
+                    <div class="row">
+                        <label class="col-md-1 truncate">Modalidad Contable:</label>
+                        <div class="col-md-2">
+                            <asp:CheckBox ID="ChkModalidadContable" runat="server" Checked="false" CssClass="input-sm" />
+                        </div>
                     </div>
                 </div>
             </div>

Ventas/RepVentas.aspx.vb

@@ -321,7 +321,7 @@ Partial Class Ventas_RepVentas
 
         If ObjVentas.GetRepVentas(FechaI, FechaF, FechaIEjec, FechaFEjec, CveCliente, DdlSubProyectoEjecucion.SelectedValue.ToEntero, Vendedores,
                                   DdlUsuario.SelectedValue.ToEntero, Estatus, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, TipoComprobante, DdlProyecto.SelectedValue.ToEntero, Sucursales, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
-                                  CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero) Then
+                                  CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ChkModalidadContable.Checked) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             DtVentas = ObjVentas.DtResultados
         Else
@@ -419,9 +419,58 @@ Partial Class Ventas_RepVentas
                 CveProyecto = e.Row.DBCampo("CveProyecto")
             End If
 
+            Dim FechaInicial As String = FechaI
+            Dim FechaFinal As String = FechaF
+
+            If Not e.Row.DBCampo("GPO").Contains("Total") Then
+                Select Case DdlGrupo.SelectedValue.ToEntero()
+                    Case 2 ' MES
+                        Dim FechaIRef As DateTime = FechaI.ToDateTime()
+                        Dim FechaFRef As DateTime = FechaF.ToDateTime()
+
+                        Dim Anio As Integer = FechaFRef.Year
+                        Dim Mes As Integer = e.Row.DBCampo("Mes").ToEntero()
+                        Dim lastDayOfMonth = DateTime.DaysInMonth(Anio, Mes)
+
+                        Dim Dia As Integer = FechaFRef.Day
+
+                        If e.Row.DBCampo("Mes").ToEntero() <> FechaFRef.Month Then
+                            Dia = lastDayOfMonth
+                        End If
+
+                        If e.Row.DBCampo("Mes").ToEntero() <> FechaIRef.Month Then
+                            FechaInicial = New DateTime(Anio, Mes, 1).ToString("dd/MM/yyyy")
+                        End If
+
+                        FechaFinal = New DateTime(Anio, Mes, Dia).ToString("dd/MM/yyyy")
+                    Case 3 ' AÑO/MES
+                        Dim FechaIRef As DateTime = FechaI.ToDateTime()
+                        Dim FechaFRef As DateTime = FechaF.ToDateTime()
+
+                        Dim Anio As Integer = e.Row.DBCampo("Anio").ToEntero()
+                        Dim Mes As Integer = e.Row.DBCampo("Mes").ToEntero()
+                        Dim lastDayOfMonth = DateTime.DaysInMonth(Anio, Mes)
+
+                        Dim Dia As Integer = FechaFRef.Day
+
+                        If e.Row.DBCampo("Mes").ToEntero() <> FechaFRef.Month Then
+                            Dia = lastDayOfMonth
+                        End If
+
+                        If e.Row.DBCampo("Mes").ToEntero() <> FechaIRef.Month Then
+                            FechaInicial = New DateTime(Anio, Mes, 1).ToString("dd/MM/yyyy")
+                        End If
+
+                        FechaFinal = New DateTime(Anio, Mes, Dia).ToString("dd/MM/yyyy")
+                    Case 4 ' FECHA
+                        FechaInicial = e.Row.DBCampo("Fecha").ToDateTime().ToString("dd/MM/yyyy")
+                        FechaFinal = e.Row.DBCampo("Fecha").ToDateTime().ToString("dd/MM/yyyy")
+                End Select
+            End If
+
 
             'LIGA A DETALLE
-            Dim Liga As String = $"/Ventas/RepVentaDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaI}&FechaF={FechaF}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}"
+            Dim Liga As String = $"/Ventas/RepVentaDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}&ModalidadContable={If(ChkModalidadContable.Checked, 1, 0)}"
 
 
             e.Row.FCLiteral("LtlGrupo").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlGrupo").Text & "</a>"