eFacturas Observaciones, Compras prorrateo validacion IVA, Proveedores Abonar aplicacion de mas en pago RNC
This commit is contained in:
rakcsle
@@ -1169,6 +1169,7 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
IDPoliza = 0
|
||||
End If
|
||||
|
||||
TieneError = True
|
||||
If Not TieneError Then
|
||||
|
||||
ObjIE.Commit()
|
||||
@@ -2022,12 +2023,12 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
Dim IVARNC As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2)
|
||||
Dim TotalRNC As Decimal = (ImporteRNC + IVARNC).RoundSQL(2)
|
||||
|
||||
CompraRNC.ConfiguraRegistroRapido(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNC.RoundSQL(2), IVARNC, TotalRNC, PorcentajeIVA)
|
||||
CompraRNC.ConfiguraRegistroRapido(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNC, IVARNC, TotalRNC, PorcentajeIVA)
|
||||
|
||||
If CompraRNC.AddCompra(sqltransaccion) Then
|
||||
Dim tImporteRNC = (ImporteRNC + IVARNC).RoundSQL(2) ' le agrego el importe del iva
|
||||
'Dim tImporteRNC = (ImporteRNC + IVARNC).RoundSQL(2) ' le agrego el importe del iva
|
||||
Dim Pago As New CompraPago
|
||||
Pago.ImportePago = tImporteRNC
|
||||
Pago.ImportePago = TotalRNC
|
||||
Pago.CveMonedaPago = CompraActual.CveMoneda
|
||||
Pago.CveCompraAmortizacion = CompraRNC.CveCompra
|
||||
Pago.Referencia = CompraRNC.SerieFolio
|
||||
@@ -2713,7 +2714,7 @@ Public Class ClsCompraManagerComprasCA
|
||||
Me.CveRetISRConcepto = -1
|
||||
Me.CveTipoPoliza = 3
|
||||
Me.NumeroReembolso = ""
|
||||
Me.SubTotal = SubTotal
|
||||
Me.SubTotal = SubTotal.RoundSQL
|
||||
Me.IVA = IVA
|
||||
Me.Total = Total
|
||||
Me.PorcentajeIVA = PorcentajeIVA
|
||||
@@ -3664,7 +3665,7 @@ Public Class ClsCompraManagerComprasCA
|
||||
'HACEMOS CALCULOS
|
||||
LocalSubTotalIVA = TmpDT.SUMD("IVA")
|
||||
LocalSubTotalIEPSIVA = TmpDT.SUMD("IEPSPSIVA")
|
||||
LocalSubTotal = (TmpDT.SUMD("Total") + TmpDT.SUMD("Descuento")).RoundSQL(8)
|
||||
LocalSubTotal = (TmpDT.SUMD("Total") + TmpDT.SUMD("Descuento")).RoundSQL(2)
|
||||
LocalRetIVA = TmpDT.SUMD("RetIVA")
|
||||
LocalRetISR = TmpDT.SUMD("RetISR")
|
||||
LocalIEPSPS = TmpDT.SUMD("IEPSPS")
|
||||
|
||||
@@ -22668,7 +22668,20 @@ Partial Class Compras_Compras
|
||||
nRow("SubTotal") = subtotalParcial.RoundSQL(4)
|
||||
|
||||
nRow("Total") = totalParcialDeseado.RoundSQL(4)
|
||||
nRow("PorcentajeIVA") = (ivaParcial / subtotalParcial).RoundSQL(2)
|
||||
|
||||
|
||||
Dim tmpPorcentajeIVA As Decimal = 0
|
||||
If ivaParcial > 0 Then
|
||||
tmpPorcentajeIVA = (ivaParcial / subtotalParcial).RoundSQL(2)
|
||||
If tmpPorcentajeIVA = 0.17 Or tmpPorcentajeIVA = 0.15 Then
|
||||
tmpPorcentajeIVA = 0.16D
|
||||
End If
|
||||
If tmpPorcentajeIVA = 0.07 Or tmpPorcentajeIVA = 0.09 Then
|
||||
tmpPorcentajeIVA = 0.16D
|
||||
End If
|
||||
End If
|
||||
|
||||
nRow("PorcentajeIVA") = tmpPorcentajeIVA
|
||||
nRow("Porcentaje") = ((totalParcialDeseado.RoundSQL(4) * 100) / TotalOriginal).RoundSQL(2)
|
||||
|
||||
nRow("RetIVAPorcentaje") = (retIvaParcial / subtotalParcial).RoundSQL(4)
|
||||
|
||||
@@ -311,7 +311,7 @@
|
||||
|
||||
<div class="col-md-4">
|
||||
<div class="form-group form-md-line-input input-iconright" >
|
||||
<asp:TextBox ID="TxtNumeroReembolso" runat="server" Width="100%" CssClass=" form-control input-sm " />
|
||||
<asp:TextBox ID="TxtNumeroReembolso" runat="server" Width="100%" CssClass=" form-control " />
|
||||
<label runat="server" id="LblNumeroReembolso" for="<%= TxtNumeroReembolso.ClientID.ToString()%>">Número de Reembolso:</label>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtNumeroReembolso" runat="server" ControlToValidate="TxtNumeroReembolso" InitialValue="" Display="Dynamic"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Num. Reembolso''</b> es necesario, por favor ingreselo." ValidationGroup="GrpRegistraCompra">
|
||||
@@ -319,9 +319,18 @@
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="col-md-4">
|
||||
|
||||
</div>
|
||||
<div class="col-md-4">
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
|
||||
<asp:TextBox runat="server" ID="TxtObservaciones" CssClass="form-control" MaxLength="50" Width="100%" ></asp:TextBox>
|
||||
<label runat="server" id="Label3" for="<%= TxtObservaciones.ClientID.ToString()%>">Observaciones:</label>
|
||||
|
||||
<%--<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtObservaciones" InitialValue="" Display="Dynamic"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingreselo." ValidationGroup="GrpRegistraCompra">
|
||||
</asp:RequiredFieldValidator>--%>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
@@ -448,15 +457,7 @@
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
<div class="col-md-4" style="text-align: center;">
|
||||
<asp:Button ID="BtnGuardarFacturas" runat="server" Text="Guardar" class="btn btn-primary" OnClick="BtnGuardarFacturas_Click" ValidationGroup="GrpRegistraCompra"
|
||||
Style="margin: 0; position: absolute; top: 50%; transform: translateY(30%);" />
|
||||
|
||||
@@ -5801,7 +5801,7 @@ Partial Class Compras_eFacturas
|
||||
|
||||
If CompraActual.ConfiguraRegistroCompra(DdlPS.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, CveCajachica, CvePersonal,
|
||||
DdlRetIVAConcepto.SelectedValue.ToEntero, DdlRetISRConcepto.SelectedValue.ToEntero, NumeroReembolso:=TxtNumeroReembolso.Text,
|
||||
DTProrrateo:=DTProrrateo, DTPagosDeudores:=DTPagosDeudores) Then
|
||||
DTProrrateo:=DTProrrateo, DTPagosDeudores:=DTPagosDeudores, Observaciones:=TxtObservaciones.Text) Then
|
||||
If CompraActual.AddCompra(Objcompras.IniciaTransacSQL()) Then
|
||||
Contador = Contador + 1
|
||||
Else
|
||||
@@ -6874,7 +6874,7 @@ Public Class ClsCompraManager
|
||||
End Sub
|
||||
|
||||
Public Function ConfiguraRegistroCompra(CvePS As Integer, CveSubProyecto As Integer, CveCajaChica As Integer, CvePersonal As Integer, CveRetIVAConcepto As Integer, CveRetISRConcepto As Integer, NumeroReembolso As String, DTProrrateo As DataTable,
|
||||
DTPagosDeudores As DataTable, Optional TipoComprobante As String = "") As Boolean
|
||||
DTPagosDeudores As DataTable, Optional TipoComprobante As String = "", Optional Observaciones As String = "") As Boolean
|
||||
|
||||
Dim respuesta As Boolean = True
|
||||
Me.CveSubProyecto = CveSubProyecto
|
||||
@@ -6886,6 +6886,7 @@ Public Class ClsCompraManager
|
||||
Me.CveTipoPoliza = 3
|
||||
Me.NumeroReembolso = NumeroReembolso
|
||||
Me.DTPagosDeudores = DTPagosDeudores
|
||||
Me.Observaciones = Observaciones
|
||||
|
||||
If TipoComprobante.Length > 0 Then
|
||||
Me.TipoComprobante = TipoComprobante
|
||||
|
||||
@@ -2042,7 +2042,7 @@
|
||||
<Paragraph>
|
||||
<TextRuns>
|
||||
<TextRun>
|
||||
<Value>Capturo:</Value>
|
||||
<Value>Capturó:</Value>
|
||||
<Style>
|
||||
<FontFamily>Myriad Pro</FontFamily>
|
||||
<FontSize>8pt</FontSize>
|
||||
|
||||
Reference in New Issue
Block a user