From 21bc9c576d58a7c3604139fc2445cd42f35b08f1 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 9 Nov 2020 19:24:47 -0700
Subject: [PATCH] Agregar gastos desde trayectos

---
 GPS/TrayectoDetalle.aspx    | 71 +++++++++++++++++++++++++++++++++----
 GPS/TrayectoDetalle.aspx.vb | 30 ++++++++++++++++
 2 files changed, 95 insertions(+), 6 deletions(-)

diff --git a/GPS/TrayectoDetalle.aspx b/GPS/TrayectoDetalle.aspx
index 1721b3034..c38fa69ef 100644
--- a/GPS/TrayectoDetalle.aspx
+++ b/GPS/TrayectoDetalle.aspx
@@ -34,13 +34,16 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <li>
-        <asp:UpdatePanel runat="server" UpdateMode="conditional">
-            <ContentTemplate>
+    <asp:UpdatePanel runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <li> 
                 <asp:LinkButton runat="server" ID="BtnTerminarTrayeto" OnClick="BtnTerminarTrayeto_Click"><i class="fa fa-map-marker"></i>Terminar Trayecto</asp:LinkButton>
-            </ContentTemplate>
-        </asp:UpdatePanel>
-    </li>
+            </li> 
+            <li>
+                <asp:LinkButton ID="LnkAgregar" OnClick="LnkAgregar_Click" runat="server"><i class="fa fa-plus"></i>Agregar Gasto</asp:LinkButton>
+            </li>
+        </ContentTemplate>
+    </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
@@ -488,6 +491,62 @@
             </ContentTemplate>
         </ajax:TabPanel>
     </ajax:TabContainer>
+    <div id="DModal" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModal" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header ">
+                        <h4 class="modal-title">
+                            <asp:Literal ID="ltlMotititulo" Text="Modelo" runat="server"> </asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtCantidad" runat="server" CssClass="form-control"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFCCantidad" runat="server" ControlToValidate="TxtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor seleccione uno." ValidationGroup="VgmGuardar"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCECantidad" runat="server" HighlightCssClass="vco" TargetControlID="RFCCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
+                            <label for="<%= TxtCantidad.ClientID.ToString()%>">Cantidad:</label>
+                        </div>
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtPrecio" runat="server" CssClass="form-control"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVPrecio" runat="server" ControlToValidate="TxtPrecio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio''</b> es necesario, por favor seleccione uno." ValidationGroup="VgmGuardar"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCEPrecio" runat="server" HighlightCssClass="vco" TargetControlID="RFVPrecio" Width="300px"></ajax:ValidatorCalloutExtender>
+                            <label for="<%= TxtPrecio.ClientID.ToString()%>">Precio:</label>
+                        </div>
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtDescripcion" runat="server" CssClass="form-control"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVModelo" runat="server" ControlToValidate="TxtDescripcion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor seleccione uno." ValidationGroup="VgmGuardar"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCOModelo" runat="server" HighlightCssClass="vco" TargetControlID="RFVModelo" Width="300px"></ajax:ValidatorCalloutExtender>
+                            <label for="<%= TxtDescripcion.ClientID.ToString()%>">Descripción:</label>
+                        </div>
+                        <div class="row">
+                            <div class="col-md-12">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtObs" runat="server" CssClass="form-control"></asp:TextBox>
+                                    <label for="<%= TxtObs.ClientID.ToString()%>">Observaciones:</label>
+                                </div>
+                            </div>
+                        </div>
+                        <div class="row v-center">
+                            <label class="col-md-12" style="color: gray">Fecha:</label>
+                        </div>
+                        <div class="row">
+                            <div class="col-md-12">
+                                <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy hh:mm">
+                                    <asp:TextBox ID="TxtFecha" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px "></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RFVFecha" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor seleccione uno." ValidationGroup="VgmGuardar"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCEI" runat="server" HighlightCssClass="vco" TargetControlID="RFVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
+                                </div>
+                            </div>
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnGuardar" OnClick="BtnGuardar_Click" runat="server" Text="Agregar" CssClass="btn btn-primary" ValidationGroup="VgmGuardar" />
+                        <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript">
diff --git a/GPS/TrayectoDetalle.aspx.vb b/GPS/TrayectoDetalle.aspx.vb
index 3df27cc25..6f19f02af 100644
--- a/GPS/TrayectoDetalle.aspx.vb
+++ b/GPS/TrayectoDetalle.aspx.vb
@@ -226,4 +226,34 @@ Partial Class GPS_TrayectoDetalle
             End If
         End If
     End Sub
+    Protected Sub LimpiaModal()
        TxtCantidad.Text = ""
+        TxtPrecio.Text = ""
+        TxtDescripcion.Text = ""
+        TxtObs.Text = ""
+        TxtFecha.Text = ""
    End Sub
+    Protected Sub LnkAgregar_Click(sender As Object, e As EventArgs)
+        LimpiaModal()
+        'Modalidad = "A"
+        BtnGuardar.Text = "Agregar"
+        ltlMotititulo.Text = "Agregar Gasto"
+
        UpModal.Update()
+        RegistraScript("$('#DModal').modal()")
    End Sub
+    Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
+        Dim ObjPS As New ClsGPS
+        'If Modalidad = "A" Then
+
+        'ElseIf Modalidad = "U" Then
+        '    If ObjPS.UpdateGasto(CveGPSGasto, TxtCantidad.Text.ToDecimal(), TxtPrecio.Text.Trim().ToDecimal(), TxtDescripcion.Text.Trim(), TxtObs.Text.Trim(), TxtFecha.Text.ToDateTime(), UsuarioActual.CveUsuario) Then
+        '        RegistraScript("$('#DModal').modal('hide')")
+        '        Alert("El Gasto se agregó correctamente.", TipoMensaje.MsgInformacion)
+        '    End If
+        'End If
+        If ObjPS.AddGasto(TxtCantidad.Text.ToDecimal(), TxtPrecio.Text.Trim().ToDecimal(), TxtDescripcion.Text.Trim(), TxtObs.Text.Trim(), TxtFecha.Text.ToDateTime(),
+                              2, UsuarioActual.CveUsuario, UsuarioActual.CveCliente, CveTrayecto:=Me.CveTrayecto) Then
+            RegistraScript("$('#DModal').modal('hide')")
+            Alert("El Gasto se agregó correctamente.", TipoMensaje.MsgInformacion)
+        End If
+        ObjPS.Dispose()
+        'CargaDatos()
+    End Sub
 End Class