cambio nombre aplicapgo compra
This commit is contained in:
@@ -5965,7 +5965,7 @@ Partial Class Compras_Compras
|
||||
Pago.CveCompraAmortizacion = -1
|
||||
Pago.CveCreditoDetalle = CveCreditoDetalle
|
||||
|
||||
ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
End If
|
||||
|
||||
@@ -6036,7 +6036,7 @@ Partial Class Compras_Compras
|
||||
Pago.CveCompraAmortizacion = -1
|
||||
'Pago.CveConceptoPago = CveConceptoPago
|
||||
|
||||
ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
End If
|
||||
|
||||
Case 14 'IVA X Acreditar
|
||||
@@ -6091,14 +6091,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
'Case 224 'Otros impuestos
|
||||
' If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
' importeMovimiento = OtrosImpuestos
|
||||
' importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
' If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||
' IdCtaContable = If(UsuarioActual.CveEmpresa = 119, 1171, -1)
|
||||
' End If
|
||||
|
||||
Case 15 'RetIVA X Acreditar Honorarios/Serv. Prof.
|
||||
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
If DdlRetIVAConcepto.Items.Count > 0 AndAlso DdlRetIVAConcepto.SelectedValue.ToEntero() > 0 Then
|
||||
@@ -7044,7 +7036,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
@@ -7093,7 +7084,7 @@ Partial Class Compras_Compras
|
||||
Pago.CveIE = -1
|
||||
Pago.CvePersonal = CvePersonal
|
||||
|
||||
ErrorPrepoliza = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
End If
|
||||
|
||||
@@ -7247,7 +7238,7 @@ Partial Class Compras_Compras
|
||||
Pago.CveIE = Ant.CveIE
|
||||
Pago.CveMonedaPago = 1
|
||||
|
||||
ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
End If
|
||||
|
||||
@@ -7290,7 +7281,7 @@ Partial Class Compras_Compras
|
||||
Pago.TCPago = Ant.TCCompra
|
||||
Pago.CveMonedaPago = If(Ant.TCCompra > 1, 2, 1)
|
||||
|
||||
ErrorPrepoliza = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
End If
|
||||
|
||||
@@ -7402,9 +7393,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
'' A N T I C I P O S
|
||||
If UsuarioActual.Empresa.UsaAC Then
|
||||
If ArrAnticipos.Count > 0 Then
|
||||
@@ -7472,7 +7460,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'' F U N C I O N A R I O S Y E M P L E A D O S
|
||||
If RBLContado.SelectedValue = "2" AndAlso DdlFuncionarioEmpleado.SelectedValue.ToEntero > 0 Then
|
||||
TxtDocumentoImporte.Text = TxtDocumentoImporteFE.Text
|
||||
@@ -7486,25 +7473,20 @@ Partial Class Compras_Compras
|
||||
'se agrego un movimiento de pago
|
||||
|
||||
If CveIE > 0 Then
|
||||
|
||||
If ImporteCompra <> 0 Then
|
||||
'inserto los movimientos de la conta para abonar al saldo
|
||||
Dim Pago As New CompraPago
|
||||
Pago.ImportePago = ImporteCompra
|
||||
Pago.CveIE = CveIE
|
||||
Pago.CveMonedaPago = 1
|
||||
|
||||
ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
ErrorMovtosIE = True
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'movimiento de compra
|
||||
'[IPP] PARCHE PROVISIONAL DE CLASIFICACION Y SUBPROYECTO [CveClasificacion:=TmpDT.FiltroPrimeroValor("CveClasificacion").ToString.ToEntero] [CveSubProyecto:=TmpDT.FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero]
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, TxtSubTotal2.Text.ToDecimal, " ", CveConceptoCompra, " ", TxtFechaPago.Text.ToDate, 0, -1, CveClasificacion:=TmpDT.FiltroPrimeroValor("CveClasificacion").ToString.ToEntero, CveSubProyecto:=TmpDT.FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtSubTotal2.Text.ToDecimal) Then
|
||||
@@ -7619,7 +7601,7 @@ Partial Class Compras_Compras
|
||||
Pago.CveCompraAmortizacion = CveCompraNC
|
||||
Pago.CveConceptoPago = CveConceptoPago
|
||||
|
||||
ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
Else
|
||||
ErrorMovtosCxP = True
|
||||
@@ -7727,7 +7709,7 @@ Partial Class Compras_Compras
|
||||
Pago.CveIE = CveIE
|
||||
Pago.CveMonedaPago = 1
|
||||
|
||||
ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
Else
|
||||
ErrorMovtosCxP = True
|
||||
|
||||
@@ -113,6 +113,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
CveCuentaBancaria = -1
|
||||
ViewState("CveMoneda") = 1
|
||||
CveMonedaPago = 1
|
||||
TipoCambioPago = 1
|
||||
Folio = ""
|
||||
|
||||
'Cargar Filtros
|
||||
@@ -547,7 +548,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
End If
|
||||
Else
|
||||
If drp IsNot Nothing Then
|
||||
If drp("IdPoliza").ToString.ToEntero > 0 Then
|
||||
If drp("FolioPoliza").ToString.ToEntero > 0 Then
|
||||
CvePrePolizaIERegistrado = ObjMov.AddPrePolizas("Compras/Comprobaciones2", 9, TxtImporteVinculado.Text.ToDecimal, TxtImporteVinculado.Text.ToDecimal, CveMoneda, TxtFechaPrePoliza.Text.ToDate, If(TxtObservaciones.Text.Trim = "", concepto, TxtObservaciones.Text.Trim), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
IdPoliza = drp("IdPoliza").ToString.ToEntero
|
||||
Else
|
||||
@@ -749,7 +750,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
End If
|
||||
End If
|
||||
|
||||
If AplicaPrePolizaPago(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
|
||||
If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
|
||||
MsgError = "Detalle"
|
||||
End If
|
||||
End If
|
||||
@@ -798,6 +799,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
CveIEPago = 0
|
||||
Dim FolioIENew = ObjIE.GetNextFolio(CveCajaChica, 6).ToString
|
||||
CveIEPago = ObjIE.AddBancos_IE(CveCajaChica, 6, TxtFechaPrePoliza.Text.ToDate, FolioIENew, gvr.DataKey("Proveedor"), ImporteMovto, CveMoneda, 0.0, $"{gvr.DataKey("Proveedor")} F:{gvr.DataKey("SerieFolio")} {If(DdlPersonal.Visible, DdlPersonal.SelectedItem.Text, DdlCajaChica.SelectedItem.Text)}", "", False, True, -1, CvePrePolizaPago, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False))
|
||||
TipoCambioPago = 1
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -811,7 +813,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
MsgError = "no se pudo insertar el detalle de la poliza"
|
||||
End If
|
||||
|
||||
If Not AplicaPrePolizaPago(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
|
||||
If Not AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
|
||||
MsgError = "Detalle"
|
||||
End If
|
||||
|
||||
|
||||
Reference in New Issue
Block a user