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

-- pago de ventas, con compras

Browse Source
This commit is contained in:
rrene
2023-11-16 13:31:12 -07:00
parent 00bfedf785
commit 78f81faa65
3 changed files with 31 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Bancos/PopIECompras.aspx.vb
View File

@@ -1456,7 +1456,6 @@ Partial Class Bancos_PopIECompras
If MsgError = "" Then
Dim VentaActual As New Venta(UsuarioActual) With {.CveVenta = rw.DataKey("CveVenta").ToEntero, .ClienteNombre = NombreCliente, .SerieFolio = rw.DataKey("SerieFolio"), .CveCliente = rw.DataKey("CveCliente").ToEntero, .IVA = rw.DataKey("IVA").ToDecimal, .IEPS = rw.DataKey("IEPS").ToDecimal, .RetIVA = rw.DataKey("RetIVA").ToDecimal, .RetISR = rw.DataKey("RetISR").ToDecimal, .Total = rw.DataKey("Total").ToDecimal, .PorcentajeIVA = rw.DataKey("PorcentajeIVA").ToDecimal, .CveSubProyecto = rw.DataKey("CveSubProyecto").ToEntero, .CveMoneda = rw.DataKey("CveMoneda").ToEntero}
Dim PagoVenta As New VentaPago
PagoVenta.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
PagoVenta.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
PagoVenta.ImportePagoVenta = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal

2
Bancos/PopIEVentas.aspx
View File

@@ -350,7 +350,7 @@
<div class="col-xs-12">
<asp:UpdatePanel ID="UpCompras" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvCompras" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveCompra,Saldo,Folio,CveProveedor,CveMoneda,RetISR,RetIVA,IVA,IVADeducible,IVANoDeducible,IEPS,TipoCambio,Total,CveRetIVAConcepto,CveRetISRConcepto,PorcentajeIVA"
<asp:GridView ID="GvCompras" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveCompra,Saldo,SerieFolio,CveProveedor,CveMoneda,RetISR,RetIVA,IVA,IVADeducible,IVANoDeducible,IEPS,TipoCambio,Total,CveRetIVAConcepto,CveRetISRConcepto,PorcentajeIVA,CveSubProyecto,CveTipoConcepto"
ToolTip="Listado de Movimientos" data-height="300" Style="width: 100%; height: 100%; text-align: center;" GridLines="None" HeaderStyle-ForeColor="Black">
<Columns>
<asp:TemplateField>

36
Bancos/PopIEVentas.aspx.vb
View File

@@ -118,7 +118,7 @@ Partial Class Bancos_PopIEVentas
Private Property TipoTransaccion As String
Get
Return ViewState("TipoTransaccion").ToString
Return IfNull(ViewState("TipoTransaccion"), "").ToString
End Get
Set(value As String)
ViewState("TipoTransaccion") = value
@@ -772,7 +772,7 @@ Partial Class Bancos_PopIEVentas
Dim Folio As Long
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
Dim TCveMoneda = -1
Dim TCveMoneda As Integer = -1
If dr IsNot Nothing Then
If ChkPagarPesos.Checked Then
@@ -1175,7 +1175,7 @@ Partial Class Bancos_PopIEVentas
Dim CvePlantillaPoliza As Integer = 11
Dim ConceptoPoliza As String = String.Format("{0} {1}", NombreCliente, SerieFolio)
Dim CveCuentaDeposito As Integer = If(DdlCuentaDeposito.Items.Count > 0, DdlCuentaDeposito.SelectedValue.ToEntero, 0)
Dim FechaDocumento = FechaVenta
Dim FechaDocumento As Date = FechaVenta
Dim StrMsg As New StringBuilder
'Saca moneda en que se va a pagar segun metodo de pago
@@ -1310,9 +1310,33 @@ Partial Class Bancos_PopIEVentas
Case "5" 'Compras
If CveVenta > 0 Then
ImportePagado = TxtImporte.Text.Trim.ToDecimal
CveConceptoPrePoliza = 2
'CveConcepto2 = 43
CveIE = -1
For Each rw As GridViewRow In GvCompras.Rows
If rw.FCCheckBox("Chk").Checked AndAlso rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal <> 0 Then
Pago.CveMonedaPago = 1
Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
Pago.ImportePagoVenta = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
Pago.TipoPago = "Compra"
If AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
MsgError = "No se pudo insertar la póliza"
End If
If MsgError = "" Then
Dim CompraActual As New Compra() With {.CveCompra = rw.DataKey("CveCompra").ToEntero, .ProveedorNombre = NombreCliente, .SerieFolio = rw.DataKey("SerieFolio"), .CveProveedor = rw.DataKey("CveProveedor").ToEntero, .IVA = rw.DataKey("IVA").ToDecimal, .IEPS = rw.DataKey("IEPS").ToDecimal, .RetIVA = rw.DataKey("RetIVA").ToDecimal, .RetISR = rw.DataKey("RetISR").ToDecimal, .Total = rw.DataKey("Total").ToDecimal, .PorcentajeIVA = rw.DataKey("PorcentajeIVA").ToDecimal, .CveSubProyecto = rw.DataKey("CveSubProyecto").ToEntero, .CveMoneda = rw.DataKey("CveMoneda").ToEntero, .CveTipoConceptoProveedor = rw.DataKey("CveTipoConcepto").ToEntero}
Dim PagoCompra As New CompraPago
PagoCompra.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
PagoCompra.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
PagoCompra.TCPago = rw.DataKey("TipoCambio").ToDecimal
PagoCompra.CveProveedor = rw.DataKey("CveProveedor").ToEntero
PagoCompra.CveVentaRelacionada = CveVenta
PagoCompra.TipoPago = "Venta"
If AplicaPrePolizaPagoCompra(CompraActual, PagoCompra, CvePrePoliza, ObjMov) Then
MsgError = "No se pudo insertar la póliza"
End If
End If
End If
Next
End If
Case Else
'NO SE HA DEFINIDO PARA FUNCIONARIO Y EMPLEADO
@@ -1350,7 +1374,7 @@ Partial Class Bancos_PopIEVentas
'07-05-2018 - Timbra Complemento de pago
Dim TextoComplementoPago As String = ""
StrMsg.AppendFormat("Folio <b>{0}</b><br/>", ObjIE.Folio)
If ObjIE.Folio <> "" Then StrMsg.AppendFormat("Folio <b>{0}</b><br/>", ObjIE.Folio)
If RBLContado.SelectedValue = "1" And ChkComplementoPago.Checked Then
Dim SeriesPago As New List(Of String)