AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-03-12 13:56:55 -07:00
parent 02a1def92d db9fe097b1
commit ad844b48e4
5 changed files with 37 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -1169,6 +1169,7 @@ Partial Class Bancos_ProveedoresAbonar
IDPoliza = 0 IDPoliza = 0
End If End If
If Not TieneError Then If Not TieneError Then
ObjIE.Commit() ObjIE.Commit()
@@ -2022,12 +2023,12 @@ Partial Class Bancos_ProveedoresAbonar
Dim IVARNC As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2) Dim IVARNC As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2)
Dim TotalRNC As Decimal = (ImporteRNC + IVARNC).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 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 Dim Pago As New CompraPago
Pago.ImportePago = tImporteRNC Pago.ImportePago = TotalRNC
Pago.CveMonedaPago = CompraActual.CveMoneda Pago.CveMonedaPago = CompraActual.CveMoneda
Pago.CveCompraAmortizacion = CompraRNC.CveCompra Pago.CveCompraAmortizacion = CompraRNC.CveCompra
Pago.Referencia = CompraRNC.SerieFolio Pago.Referencia = CompraRNC.SerieFolio
@@ -2713,7 +2714,7 @@ Public Class ClsCompraManagerComprasCA
Me.CveRetISRConcepto = -1 Me.CveRetISRConcepto = -1
Me.CveTipoPoliza = 3 Me.CveTipoPoliza = 3
Me.NumeroReembolso = "" Me.NumeroReembolso = ""
Me.SubTotal = SubTotal Me.SubTotal = SubTotal.RoundSQL
Me.IVA = IVA Me.IVA = IVA
Me.Total = Total Me.Total = Total
Me.PorcentajeIVA = PorcentajeIVA Me.PorcentajeIVA = PorcentajeIVA
@@ -3664,7 +3665,7 @@ Public Class ClsCompraManagerComprasCA
'HACEMOS CALCULOS 'HACEMOS CALCULOS
LocalSubTotalIVA = TmpDT.SUMD("IVA") LocalSubTotalIVA = TmpDT.SUMD("IVA")
LocalSubTotalIEPSIVA = TmpDT.SUMD("IEPSPSIVA") 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") LocalRetIVA = TmpDT.SUMD("RetIVA")
LocalRetISR = TmpDT.SUMD("RetISR") LocalRetISR = TmpDT.SUMD("RetISR")
LocalIEPSPS = TmpDT.SUMD("IEPSPS") LocalIEPSPS = TmpDT.SUMD("IEPSPS")

15
Compras/Compras.aspx.vb
View File

@@ -22668,7 +22668,20 @@ Partial Class Compras_Compras
nRow("SubTotal") = subtotalParcial.RoundSQL(4) nRow("SubTotal") = subtotalParcial.RoundSQL(4)
nRow("Total") = totalParcialDeseado.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("Porcentaje") = ((totalParcialDeseado.RoundSQL(4) * 100) / TotalOriginal).RoundSQL(2)
nRow("RetIVAPorcentaje") = (retIvaParcial / subtotalParcial).RoundSQL(4) nRow("RetIVAPorcentaje") = (retIvaParcial / subtotalParcial).RoundSQL(4)

25
Compras/eFacturas.aspx
View File

@@ -311,7 +311,7 @@
<div class="col-md-4"> <div class="col-md-4">
<div class="form-group form-md-line-input input-iconright" > <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> <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" <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"> 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> </div>
<div class="col-md-4"> <div class="col-md-4">
</div> <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> </div>
@@ -448,15 +457,7 @@
</div> </div>
</div> </div>
</div> </div>
<div class="col-md-4" style="text-align: center;"> <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" <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%);" /> Style="margin: 0; position: absolute; top: 50%; transform: translateY(30%);" />

5
Compras/eFacturas.aspx.vb
View File

@@ -5801,7 +5801,7 @@ Partial Class Compras_eFacturas
If CompraActual.ConfiguraRegistroCompra(DdlPS.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, CveCajachica, CvePersonal, If CompraActual.ConfiguraRegistroCompra(DdlPS.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, CveCajachica, CvePersonal,
DdlRetIVAConcepto.SelectedValue.ToEntero, DdlRetISRConcepto.SelectedValue.ToEntero, NumeroReembolso:=TxtNumeroReembolso.Text, 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 If CompraActual.AddCompra(Objcompras.IniciaTransacSQL()) Then
Contador = Contador + 1 Contador = Contador + 1
Else Else
@@ -6874,7 +6874,7 @@ Public Class ClsCompraManager
End Sub 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, 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 Dim respuesta As Boolean = True
Me.CveSubProyecto = CveSubProyecto Me.CveSubProyecto = CveSubProyecto
@@ -6886,6 +6886,7 @@ Public Class ClsCompraManager
Me.CveTipoPoliza = 3 Me.CveTipoPoliza = 3
Me.NumeroReembolso = NumeroReembolso Me.NumeroReembolso = NumeroReembolso
Me.DTPagosDeudores = DTPagosDeudores Me.DTPagosDeudores = DTPagosDeudores
Me.Observaciones = Observaciones
If TipoComprobante.Length > 0 Then If TipoComprobante.Length > 0 Then
Me.TipoComprobante = TipoComprobante Me.TipoComprobante = TipoComprobante

2
Empresas/189/Formatos/Entradas.rdlc
View File

@@ -2042,7 +2042,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Capturo:</Value> <Value>Capturó:</Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>