--Correciones de facturacion global

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" />
@@ -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 />

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()