Reporte Rembolsos, Compras Actualizar IVA compras manuales
This commit is contained in:
rakcsle
@@ -9911,6 +9911,7 @@ Partial Class Compras_Compras
|
||||
(row1("TipoAF").ToString.ToEntero <> row2("TipoAF").ToString.ToEntero) Or
|
||||
(row1("CvePS").ToString.ToEntero <> row2("CvePS").ToString.ToEntero) Or
|
||||
(row1("Obs").ToString <> row2("Obs").ToString) Or
|
||||
(row1("IVAPorcentaje").ToString <> row2("IVAPorcentaje").ToString AndAlso CveCompra > 0 AndAlso CveCompraFactura = 0) Or
|
||||
(DdlTipoCompra.SelectedValue.ToEntero <> TipoCompraOriginal) Then
|
||||
Return False
|
||||
End If
|
||||
@@ -17409,6 +17410,9 @@ Partial Class Compras_Compras
|
||||
|
||||
If ActualizaTotales And UsuarioActual.CveEmpresa = 72 Or Not CveCompraFactura > 0 Then
|
||||
TxtTotal.Text = Total.ToString.FormatoNumero()
|
||||
If CveCompra > 0 AndAlso CveCompraFactura = 0 Then
|
||||
TxtIVA.Text = IVA.ToString.FormatoNumero()
|
||||
End If
|
||||
End If
|
||||
|
||||
Else
|
||||
@@ -18023,24 +18027,43 @@ Partial Class Compras_Compras
|
||||
|
||||
'HdnIVAPS.Value = If(PS.Rows(0)("IVA").ToString = "-1", ViewState("IVA"), PS.Rows(0)("IVA").ToString).ToString
|
||||
ViewState("IVAPS") = PS("IVA").ToString
|
||||
If ViewState("IVAPS").ToString.ToEntero() = -1 Then
|
||||
If ViewState("IVAPS").ToString.ToEntero() = -1 Or (CveCompra > 0 AndAlso CveCompraFactura = 0) Then
|
||||
|
||||
|
||||
Dim Drr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero())(0)
|
||||
ViewState("IVAPS") = Drr("IVA").ToString().ToDouble()
|
||||
DdlProyecto.SelectedValueExist(Drr("CveProyecto"))
|
||||
|
||||
DdlProyecto.SelectedValueExist(Drr("CveProyecto"))
|
||||
DdlIVA.Enabled = True
|
||||
|
||||
If Not Modalidad = "U" Then
|
||||
|
||||
Select Case ViewState("IVAPS").ToString().ToDouble
|
||||
Case 0
|
||||
DdlIVA.SelectedValue = "1"
|
||||
Case 0.16
|
||||
DdlIVA.SelectedValue = "1.16"
|
||||
Case 0.08
|
||||
DdlIVA.SelectedValue = "1.08"
|
||||
End Select
|
||||
If (CveCompra > 0 AndAlso CveCompraFactura = 0) Then
|
||||
If PS("IVA").ToString.ToEntero = -1 Then
|
||||
ViewState("IVAPS") = 0.16
|
||||
DdlIVA.SelectedValue = "1.16"
|
||||
Else
|
||||
Select Case ViewState("IVAPS").ToString().ToDouble
|
||||
Case 0
|
||||
DdlIVA.SelectedValue = "1"
|
||||
Case 0.16
|
||||
DdlIVA.SelectedValue = "1.16"
|
||||
Case 0.08
|
||||
DdlIVA.SelectedValue = "1.08"
|
||||
End Select
|
||||
End If
|
||||
Else
|
||||
If Not Modalidad = "U" Then
|
||||
Select Case ViewState("IVAPS").ToString().ToDouble
|
||||
Case 0
|
||||
DdlIVA.SelectedValue = "1"
|
||||
Case 0.16
|
||||
DdlIVA.SelectedValue = "1.16"
|
||||
Case 0.08
|
||||
DdlIVA.SelectedValue = "1.08"
|
||||
End Select
|
||||
End If
|
||||
End If
|
||||
|
||||
Else
|
||||
'DdlIVA.SelectedValue = "1"
|
||||
' DdlIVA.Enabled = False
|
||||
@@ -18684,12 +18707,13 @@ Partial Class Compras_Compras
|
||||
If CveFactura > 0 And TxtIVA.Text.ToDecimal = 0 Then
|
||||
DrPS("IVA") = 0
|
||||
DrPS("IVAPorcentaje") = 0
|
||||
ElseIf CveCompra > 0 And CveCompraFactura = 0 Then
|
||||
DrPS("IVA") = (IVA * Total).RoundSQL
|
||||
DrPS("IVAPorcentaje") = IVA
|
||||
Else
|
||||
|
||||
If ActualizarIva Then
|
||||
DrPS("IVA") = (IVA * Total).RoundSQL
|
||||
End If
|
||||
|
||||
DrPS("IVAPorcentaje") = IVA
|
||||
End If
|
||||
|
||||
|
||||
@@ -26,16 +26,11 @@
|
||||
<asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional" RenderMode="Inline">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkExportar" runat="server">
|
||||
<i class="fa fa-ad-excel"></i> Exportar Excel
|
||||
</asp:LinkButton>
|
||||
<asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Exportar Excel </asp:LinkButton>
|
||||
</li>
|
||||
<li runat="server" id="LiImprimir" visible="true">
|
||||
<asp:LinkButton ID="LnkImprimir" runat="server" Visible="false">
|
||||
<i class="fa fa-print"></i> Imprimir Reembolso
|
||||
</asp:LinkButton>
|
||||
<asp:LinkButton ID="LnkImprimir" runat="server" Visible="false"><i class="fa fa-print"></i> Imprimir Reembolso</asp:LinkButton>
|
||||
</li>
|
||||
|
||||
<li>
|
||||
<asp:HyperLink ID="HLAgregarComprobante" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#DivArchivo" runat="server"><i class='fa fa-file-o'></i> Cargar Comprobante</asp:HyperLink>
|
||||
</li>
|
||||
@@ -123,6 +118,13 @@
|
||||
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
<label class="col-md-1" style="margin-top: 10px; margin-left: 5px;">
|
||||
<asp:Label runat="server" ID="LblSubProyecto"></asp:Label>:
|
||||
</label>
|
||||
<div class="col-md-2" style="margin-top: 10px;">
|
||||
<asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%" >
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
@@ -188,7 +190,8 @@
|
||||
</div>
|
||||
|
||||
<asp:HiddenField runat="server" ID="HdnFechasComprasVinculadas" Value="-1" ClientIDMode="Static" />
|
||||
<asp:GridView ID="GvCxP" GridLines="None" CssClass="ScrollAD table table-smallpadding Widthall" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Pagar pendientes" DataKeyNames="CveCompra,FechaCompra,Proveedor,SerieFolio,Original,SubTotal,IVA,RetIVA,RetISR,CvePrePoliza">
|
||||
<asp:GridView ID="GvCxP" GridLines="None" CssClass="ScrollAD table table-smallpadding Widthall" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Pagar pendientes"
|
||||
DataKeyNames="CveCompra,FechaCompra,Proveedor,SerieFolio,Original,SubTotal,IVA,RetIVA,RetISR,CvePrePoliza,Gpo">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Compra</HeaderTemplate>
|
||||
|
||||
@@ -89,6 +89,8 @@ Partial Class Compras_RepRembolsoComprobaciones
|
||||
DdlPersonal.DataBind()
|
||||
txtFechaI.Text = NowADS.AddYears(-1).ToShortDateString
|
||||
|
||||
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, "Todos")
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -133,8 +135,17 @@ Partial Class Compras_RepRembolsoComprobaciones
|
||||
|
||||
Protected Sub GvCxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.RowIndex = 0 Then
|
||||
e.Row.BackColor = Drawing.Color.LightGray
|
||||
|
||||
'If e.Row.RowIndex = 0 Then
|
||||
' e.Row.BackColor = Drawing.Color.LightGray
|
||||
'End If
|
||||
|
||||
If e.Row.DataKey("Gpo").Trim.Length = 0 Then
|
||||
e.Row.CssClass = "Totales"
|
||||
End If
|
||||
|
||||
If e.Row.DataKey("Gpo").Trim.Length > 0 AndAlso e.Row.DataKey("CveCompra").ToEntero = 0 Then
|
||||
e.Row.CssClass = "SubTotales"
|
||||
End If
|
||||
|
||||
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
|
||||
@@ -236,7 +247,8 @@ Partial Class Compras_RepRembolsoComprobaciones
|
||||
If DdlTipoPago.SelectedValue = "2" Then ViewState("CvePersonal") = -2
|
||||
|
||||
|
||||
ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), FechaI:=FechaI, FechaF:=FechaF, OpcionSaldo:=-1)
|
||||
ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), FechaI:=FechaI, FechaF:=FechaF, OpcionSaldo:=-1,
|
||||
CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero)
|
||||
DtDatos = ObjMovtos.DtResultados
|
||||
GvCxP.DataSource = DtDatos
|
||||
|
||||
|
||||
Reference in New Issue
Block a user