--Correciones de facturacion global

2024-02-12 18:26:16 -07:00
parent 7b909094e5
commit 5261cf1bd3
2 changed files with 47 additions and 7 deletions
--- a/Ventas/FacturacionGlobal.aspx
+++ b/Ventas/FacturacionGlobal.aspx
@@ -111,6 +111,8 @@
                            <label class="col-md-1">Sucursal: </label>
                            <div class="col-md-2">
                                <asp:DropDownList ID="DdlSubProyecto" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:DropDownList>
+                                <asp:RequiredFieldValidator ID="RFVSubProyecto" runat="server" InitialValue="-1" ControlToValidate="DdlSubProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sucursal''</b> es necesario, por favor ingréselo." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="VCESubproyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="350px"></ajax:ValidatorCalloutExtender>
                            </div>
                            <label class="col-md-1 truncate">Fecha Inicial:</label>
                            <div class="col-md-1">
@@ -185,7 +187,7 @@
                                                    <asp:CheckBox runat="server" ID="chkSelectAll" CssClass="ChkAllClick" />
                                                </HeaderTemplate>
                                                <ItemTemplate>
-                                                    <asp:CheckBox runat="server" ID="chkDis" Visible="false" CssClass="ChkAllEvt" />
+                                                    <asp:CheckBox runat="server" ID="chkDis" />
                                                </ItemTemplate>
                                            </asp:TemplateField>
                                            <asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="100px" DataTextField="Folio" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataNavigateUrlFields="CveVenta" Target="_blank" />
@@ -210,7 +212,7 @@
                            </div>
                        </div>
                    </div>
-                </div>
+                </div>    
                <div class="col-md-2" style="padding-bottom: 15px; display: flex; align-items: flex-end; justify-content: flex-end;">
                    <asp:UpdatePanel ID="UpFacturar" runat="server" class="portlet light xspadding bordered " style="min-width: 100%;" UpdateMode="Conditional">
                        <ContentTemplate>
@@ -233,7 +235,7 @@
                                    <div class="col-md-9">
                                        <asp:DropDownList ID="DdlPeriodo" DataTextField="Descripcion" DataValueField="CveSATPeriodicidad" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlPeriodo_SelectedIndexChanged"></asp:DropDownList>
                                        <asp:RequiredFieldValidator ID="RFVPeriodo" runat="server" InitialValue="-1" ControlToValidate="DdlPeriodo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Periodo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEmitir"></asp:RequiredFieldValidator>
-                                        <ajax:ValidatorCalloutExtender ID="VCEPerido" runat="server" HighlightCssClass="vco" TargetControlID="RFVPeriodo" Width="350px"></ajax:ValidatorCalloutExtender>
+                                        <ajax:ValidatorCalloutExtender ID="VCEPerido" runat="server" HighlightCssClass="vco" TargetControlID="RFVPeriodo" Width="150px" PopupPosition="BottomRight"></ajax:ValidatorCalloutExtender>
                                    </div>
                                </div>
                                <br />
@@ -242,7 +244,7 @@
                                    <div class="col-md-9">
                                        <asp:DropDownList ID="DdlMes" DataTextField="Descripcion" DataValueField="CveSATMes" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:DropDownList>
                                        <asp:RequiredFieldValidator ID="RFVMes" runat="server" InitialValue="-1" ControlToValidate="DdlMes" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Mes''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEmitir"></asp:RequiredFieldValidator>
-                                        <ajax:ValidatorCalloutExtender ID="VCEMes" runat="server" HighlightCssClass="vco" TargetControlID="RFVMes" Width="350px"></ajax:ValidatorCalloutExtender>
+                                        <ajax:ValidatorCalloutExtender ID="VCEMes" runat="server" HighlightCssClass="vco" TargetControlID="RFVMes" Width="150px" PopupPosition="BottomRight"></ajax:ValidatorCalloutExtender>
                                    </div>
                                </div>
                                <br />
@@ -252,7 +254,7 @@
                                        <asp:DropDownList ID="DdlAnio" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server">
                                        </asp:DropDownList>
                                        <asp:RequiredFieldValidator ID="RFVAnio" runat="server" InitialValue="-1" ControlToValidate="DdlAnio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Mes''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEmitir"></asp:RequiredFieldValidator>
-                                        <ajax:ValidatorCalloutExtender ID="VCEAnio" runat="server" HighlightCssClass="vco" TargetControlID="RFVAnio" Width="350px"></ajax:ValidatorCalloutExtender>
+                                        <ajax:ValidatorCalloutExtender ID="VCEAnio" runat="server" HighlightCssClass="vco" TargetControlID="RFVAnio" Width="150px" PopupPosition="BottomRight"></ajax:ValidatorCalloutExtender>
                                    </div>
                                </div>
                                <br />
--- a/Ventas/FacturacionGlobal.aspx.vb
+++ b/Ventas/FacturacionGlobal.aspx.vb
@@ -49,6 +49,10 @@ Partial Class Ventas_FacturacionGlobal

        DdlAnio.Items.Add(New ListItem(Anio.ToString(), Anio.ToString()))
        DdlAnio.Items.Add(New ListItem(AnioAnterior.ToString(), AnioAnterior.ToString()))
+
+        txtFechaI.Text = Now.AddDays(-1).ToString("dd/MM/yyyy")
+        txtFechaF.Text = Now.ToString("dd/MM/yyyy")
+
    End Sub

    Protected Sub DdlPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs)
@@ -58,6 +62,7 @@ Partial Class Ventas_FacturacionGlobal
            DdlMes.DataSource = GlobalDTGralSATMeses().FiltraParametros("ISNULL(CveSATPeriodicidad,0) <> 5")
        End If
        DdlMes.DataBind()
+        DdlMes.Items.Insert(0, New ListItem("Seleccione", "-1"))

        UPFiltros.Update()
    End Sub
@@ -128,8 +133,15 @@ Partial Class Ventas_FacturacionGlobal
    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.DBCampo("CveVenta").ToEntero() > 0 Then
-                e.Row.FCCheckBox("chkDis").Visible = True
+                If e.Row.DBCampo("Saldo").ToDecimal() > 0 Then
+                    e.Row.FCCheckBox("chkDis").Enabled = False
+                    e.Row.FCCheckBox("chkDis").ToolTip = "No se puede seleccionar esta remisión porque no ha sido pagada"
+                Else
+                    e.Row.FCCheckBox("chkDis").Enabled = True
+                    e.Row.FCCheckBox("chkDis").CssClass = "ChkAllEvt"
+                End If
            Else
+                e.Row.FCCheckBox("chkDis").Visible = False
                e.Row.CssClass = "Totales"
            End If
        End If
@@ -137,7 +149,7 @@ Partial Class Ventas_FacturacionGlobal

    Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
        Dim CveCliente As Integer = UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
-        Dim CveMoneda As Integer = -1
+        Dim CveMoneda As Integer = 1

        Dim SbRemisiones As New StringBuilder()
        Dim RemisionesLista As New List(Of Integer)
@@ -171,6 +183,26 @@ Partial Class Ventas_FacturacionGlobal
        End If
        ObjClientes.Dispose()

+        If DtRemisionesPS Is Nothing OrElse DtRemisionesPS.Rows.Count = 0 Then
+            Alert("No se pudieron cargar las remsiones para facturar", TipoMensaje.MsgError)
+            Exit Sub
+        End If
+
+        If DtPagos Is Nothing OrElse DtPagos.Rows.Count = 0 Then
+            Alert("No se pudieron cargar los pagos", TipoMensaje.MsgError)
+            Exit Sub
+        End If
+
+        If Me.CveSubProyecto <= 0 Then
+            Alert("No se pudo cargar la sucursal", TipoMensaje.MsgError)
+            Exit Sub
+        End If
+
+        If CveCliente <= 0 Then
+            Alert("No se pudo cargar el cliente", TipoMensaje.MsgError)
+            Exit Sub
+        End If
+
        Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, Me.CveSubProyecto, CveCliente, CveMoneda, "Ing")
        ObjFactura.EsFacturaGlobal = True
        ObjFactura.CveSATPeriodicidad = DdlPeriodo.SelectedValue.ToEntero()
@@ -188,6 +220,12 @@ Partial Class Ventas_FacturacionGlobal

        ObjFactura.CalculaTotales()
        ObjFactura.PreparaTimbre()
+
+        If ObjFactura.Total <> DtPagos.SUMD("Importe") Then
+            Alert("Los pagos no coinciden con el total de la factura", TipoMensaje.MsgError)
+            Exit Sub
+        End If
+
        'ObjFactura.DtInventario = ObjFactura.DtDetalle.FiltraParametros("CveTipoPs = 2")

        Dim SbAlert As New StringBuilder()