-- quitar variable, Empresaprueba
This commit is contained in:
@@ -747,14 +747,7 @@ Partial Class Compras_Compras
|
|||||||
ViewState("CveCompraRefacturacion") = value
|
ViewState("CveCompraRefacturacion") = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
Private Property EmpresaPrueba As Boolean
|
|
||||||
Get
|
|
||||||
Return CBool(ViewState("EmpresaPrueba"))
|
|
||||||
End Get
|
|
||||||
Set(value As Boolean)
|
|
||||||
ViewState("EmpresaPrueba") = value
|
|
||||||
End Set
|
|
||||||
End Property
|
|
||||||
Private Property StringProrrateo As String
|
Private Property StringProrrateo As String
|
||||||
Get
|
Get
|
||||||
Return ViewState("StringProrrateo").ToString
|
Return ViewState("StringProrrateo").ToString
|
||||||
@@ -1252,19 +1245,13 @@ Partial Class Compras_Compras
|
|||||||
'VALIDACION DE XML
|
'VALIDACION DE XML
|
||||||
NuevaValidacionXML = IfNull(Request("NuevaValidacionXML"), 0).ToString.ToEntero
|
NuevaValidacionXML = IfNull(Request("NuevaValidacionXML"), 0).ToString.ToEntero
|
||||||
|
|
||||||
|
|
||||||
IdVale = New List(Of Integer)
|
IdVale = New List(Of Integer)
|
||||||
|
|
||||||
ListaDocumentos = New List(Of String)
|
ListaDocumentos = New List(Of String)
|
||||||
|
|
||||||
'If UsuarioActual.Empresa.Funcionalidad(207) = "1" Then 'Esquema nuevo PrePolizas
|
|
||||||
If Not UsuarioActual.Empresa.UsaAC Then
|
|
||||||
EmpresaPrueba = True
|
|
||||||
TotalGeneral = 0
|
TotalGeneral = 0
|
||||||
CompraSaldo = 0
|
CompraSaldo = 0
|
||||||
ViewState("CvePersonal") = -1
|
ViewState("CvePersonal") = -1
|
||||||
IdCuentaBancaria = 0
|
IdCuentaBancaria = 0
|
||||||
End If
|
|
||||||
|
|
||||||
IdCuentaBancariaComplementaria = 0
|
IdCuentaBancariaComplementaria = 0
|
||||||
|
|
||||||
@@ -2761,10 +2748,8 @@ Partial Class Compras_Compras
|
|||||||
ImgAddObs.Visible = True
|
ImgAddObs.Visible = True
|
||||||
ChkAplicaNotaCredito.Checked = CBool(dr("AplicaNotaCredito").ToString)
|
ChkAplicaNotaCredito.Checked = CBool(dr("AplicaNotaCredito").ToString)
|
||||||
|
|
||||||
CompraSaldo = TotalGeneral - LblAmortizacion.Text.ToDouble
|
'CompraSaldo = TotalGeneral - LblAmortizacion.Text.ToDouble
|
||||||
If EmpresaPrueba Then
|
|
||||||
CompraSaldo = dr("Saldo").ToString.ToDouble
|
CompraSaldo = dr("Saldo").ToString.ToDouble
|
||||||
End If
|
|
||||||
|
|
||||||
If CompraSaldo > dr("Saldo").ToString.ToDouble Then
|
If CompraSaldo > dr("Saldo").ToString.ToDouble Then
|
||||||
CompraSaldo = dr("Saldo").ToString.ToDouble
|
CompraSaldo = dr("Saldo").ToString.ToDouble
|
||||||
@@ -4643,31 +4628,20 @@ Partial Class Compras_Compras
|
|||||||
Alert("El Importe seleccionado es mayor a la compra", TipoMensaje.MsgAdvertencia)
|
Alert("El Importe seleccionado es mayor a la compra", TipoMensaje.MsgAdvertencia)
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If RBLContado.SelectedValue = "2" AndAlso DdlFuncionarioEmpleado.SelectedValue.ToEntero > 0 Then
|
If RBLContado.SelectedValue = "2" AndAlso DdlFuncionarioEmpleado.SelectedValue.ToEntero > 0 Then
|
||||||
If EmpresaPrueba Then
|
|
||||||
If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
|
If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
|
||||||
CvePlantillaPrePoliza = 60
|
CvePlantillaPrePoliza = 60
|
||||||
Else
|
Else
|
||||||
CvePlantillaPrePoliza = 1
|
CvePlantillaPrePoliza = 1
|
||||||
End If
|
End If
|
||||||
Else
|
|
||||||
CvePlantillaPrePoliza = 9
|
|
||||||
End If
|
End If
|
||||||
End If
|
|
||||||
|
|
||||||
'If RBLPago.SelectedValue.ToEntero = 4 And UsuarioActual.CveEmpresa.Contiene(1, 7) Then
|
|
||||||
' CvePlantillaPrePoliza = 69
|
|
||||||
'End If
|
|
||||||
|
|
||||||
TmpDT.AcceptChanges()
|
TmpDT.AcceptChanges()
|
||||||
If Correcto Then
|
If Correcto Then
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Dim ObjCompras As New ClsCompras()
|
Dim ObjCompras As New ClsCompras()
|
||||||
Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
|
Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
|
||||||
Dim ObjIE As New ClsBancos(ObjCompras.IniciaTransacSQL)
|
Dim ObjIE As New ClsBancos(ObjCompras.IniciaTransacSQL)
|
||||||
@@ -5732,9 +5706,8 @@ Partial Class Compras_Compras
|
|||||||
CveProveedorConcepto = DdlAcreedor.SelectedValue.ToEntero
|
CveProveedorConcepto = DdlAcreedor.SelectedValue.ToEntero
|
||||||
CveConceptoAfectacion = 41
|
CveConceptoAfectacion = 41
|
||||||
|
|
||||||
If EmpresaPrueba Then
|
|
||||||
CveIE = If(DdlAcreedorDetalle.SelectedValue.ToEntero = -2, -1, DdlAcreedorDetalle.SelectedValue.ToEntero)
|
CveIE = If(DdlAcreedorDetalle.SelectedValue.ToEntero = -2, -1, DdlAcreedorDetalle.SelectedValue.ToEntero)
|
||||||
End If
|
|
||||||
End Select
|
End Select
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -5833,8 +5806,6 @@ Partial Class Compras_Compras
|
|||||||
TipoMovimientoImpuestos = Not TipoMovimientoImpuestos
|
TipoMovimientoImpuestos = Not TipoMovimientoImpuestos
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If EmpresaPrueba Then 'Empresa Prueba
|
|
||||||
|
|
||||||
Dim PorcentajePagos As Decimal = 0
|
Dim PorcentajePagos As Decimal = 0
|
||||||
Dim sumaPagos As Decimal = 0
|
Dim sumaPagos As Decimal = 0
|
||||||
Dim tipoCambioActual As Decimal
|
Dim tipoCambioActual As Decimal
|
||||||
@@ -7428,8 +7399,6 @@ Partial Class Compras_Compras
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If TxtTotal.Text.ToDouble > 0 AndAlso TieneAnticiposXML = False Then
|
If TxtTotal.Text.ToDouble > 0 AndAlso TieneAnticiposXML = False Then
|
||||||
|
|
||||||
Dim Pago As New CompraPago
|
Dim Pago As New CompraPago
|
||||||
@@ -7445,20 +7414,6 @@ Partial Class Compras_Compras
|
|||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'** PRUEBA CUANDO SE AMORTIZA NC ANTES DE QUE SE REGISTRE NO DEBE TENER CONCEPTO 19 ** JM 01/06/2017 SE HIZO ESTO PARA LA FACTURA HRFA-8012831 DE VIGILANCIA
|
|
||||||
'[IPP] NC NO DEBE REGISTRAR IMPUESTOS EN AMORTIZACIÓN 27/Agosto/2018
|
|
||||||
|
|
||||||
'If Not Ant.TipoMovto.Contiene("NC", "DEV") Then
|
|
||||||
|
|
||||||
' Dim Pago As New CompraPago
|
|
||||||
' Pago.ImportePago = importeMovimiento
|
|
||||||
' Pago.CveIE = Ant.CveIE
|
|
||||||
' Pago.CveMonedaPago = 1
|
|
||||||
|
|
||||||
' ErrorPrepoliza = AplicaPrePolizaPago(CompraActual, Pago, ObjConta)
|
|
||||||
|
|
||||||
'End If
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If UsuarioActual.CveEmpresa.Contiene(83) Then
|
If UsuarioActual.CveEmpresa.Contiene(83) Then
|
||||||
@@ -7627,260 +7582,6 @@ Partial Class Compras_Compras
|
|||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Else 'Empresa Prueba
|
|
||||||
|
|
||||||
If RBLPago.SelectedValue.ToEntero = 2 AndAlso (RBLContado.SelectedValue = "1" Or RBLContado.SelectedValue = "6") Then 'Contado - Bancos y Caja Chica
|
|
||||||
'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 = 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
|
|
||||||
ErrorMovtosCxP = True
|
|
||||||
End If
|
|
||||||
|
|
||||||
'Se agregan las CxP
|
|
||||||
If CveConceptoAfectacion = 37 Then
|
|
||||||
For Each rw As GridViewRow In GvDeudores.Rows
|
|
||||||
If rw.FCCheckBox("Chk").Checked Then
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoCompra, rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal, " ", CveConceptoAfectacion, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal) Then
|
|
||||||
ErrorMovtosCxP = True
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
Else
|
|
||||||
If ImporteCompra > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoCompra, ImporteCompra, " ", CveConceptoAfectacion, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=ImporteCompra) Then
|
|
||||||
ErrorMovtosCxP = True
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
If CvePlantillaPrePoliza = 1 Or CvePlantillaPrePoliza = 60 Then
|
|
||||||
|
|
||||||
'Siempre: Se agrega IVA aunque sea cero
|
|
||||||
' If TxtIVA.Text.Replace(", ", "").Trim.ToDouble <> 0 Then
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoImpuestos, TxtIVA.Text.ToDecimal, " ", CveConceptoIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIVA.Text.ToDecimal) Then
|
|
||||||
ErrorMovtosIVA = True
|
|
||||||
End If
|
|
||||||
'End If
|
|
||||||
|
|
||||||
'Se agregan las Ret IVA
|
|
||||||
If TxtRetIVA.Text.ToDouble <> 0 Then
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtRetIVA.Text.ToDecimal, " ", CveConceptoRetIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetIVA.Text.ToDecimal) Then
|
|
||||||
ErrorMovtosRetIVA = True
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
'Se agregan las Ret ISR
|
|
||||||
If TxtRetISR.Text.ToDouble > 0 Then
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtRetISR.Text.ToDecimal, " ", CveConceptoRetISR, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetISR.Text.ToDecimal) Then
|
|
||||||
ErrorMovtosRetISR = True
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
If TxtIEPS.Text.ToDouble > 0 Then
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtIEPS.Text.ToDecimal, " ", CveConceptoRetIEPS, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIEPS.Text.ToDecimal) Then
|
|
||||||
ErrorMovtosRetISR = True
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
If TxtOtrosImpuestos.Text.ToDouble <> 0 Then
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtOtrosImpuestos.Text.ToDecimal, " ", CveConceptoRetOtrosImpuestos, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtOtrosImpuestos.Text.ToDecimal) Then
|
|
||||||
ErrorMovtosRetISR = True
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
'' A N T I C I P O S
|
|
||||||
If ArrAnticipos.Count > 0 Then
|
|
||||||
|
|
||||||
Dim TotalIVA As Double = TxtIVA.Text.ToDouble
|
|
||||||
|
|
||||||
'Inserto otra poliza del mo
|
|
||||||
'Dim CvePrePolizaAnticipo As Integer = ObjConta.AddPrePolizas("Banc", 10, ImporteAnticipo, ImporteAnticipo, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
|
||||||
|
|
||||||
' CveConceptoAfectacion = 21 'Cancelacion Anticipo Proveedores
|
|
||||||
Dim PorcentajePago As Decimal
|
|
||||||
Dim CveConceptoAnt As Integer = 21
|
|
||||||
Dim CveCompraNC As Integer
|
|
||||||
For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
|
|
||||||
CveCompraNC = CveCompra
|
|
||||||
|
|
||||||
Dim CveConceptoPago As Integer = 17
|
|
||||||
If CveTipoConcepto = 2 Then CveConceptoPago = 308 'cuando es acreedor
|
|
||||||
If CveMoneda > 1 Then
|
|
||||||
Select Case CveConceptoPago
|
|
||||||
Case 17
|
|
||||||
CveConceptoPago = 312
|
|
||||||
Case 308
|
|
||||||
CveConceptoPago = 309
|
|
||||||
Case Else
|
|
||||||
End Select
|
|
||||||
End If
|
|
||||||
|
|
||||||
Select Case Ant.TipoMovto
|
|
||||||
Case "NC", "DEV"
|
|
||||||
CveConceptoAnt = 60
|
|
||||||
CveCompraNC = Ant.CveCompra ' cuando es NC, se utiliza la clave de compra de la nota de credito
|
|
||||||
CveConceptoPago = 272
|
|
||||||
Case "Egsc"
|
|
||||||
CveConceptoAnt = 21
|
|
||||||
Case "DD"
|
|
||||||
CveConceptoAnt = 37
|
|
||||||
|
|
||||||
End Select
|
|
||||||
|
|
||||||
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Ant.Importe, " ", CveConceptoAnt, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, ImporteMX:=Ant.Importe) Then
|
|
||||||
' ImporteAnticipo += Ant.Importe ' RESTO DEL IMPORTE POR SI QUEDA DIFERENCIA DE LA SUMA DE LOS ANTICIPOS Y EL PROVEEDOR TIENE QUE PAGAR
|
|
||||||
'movimiento de pago proveedor, --no se regisra porque no se registra el total de la compra como deuda del proveedor, solo lo que queda a deber
|
|
||||||
'si es l moviemiento es de amortizacion con descuento, no registra el pago, ya esta descontado
|
|
||||||
'If TieneAnticiposXML = False AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, Ant.Importe, " ", CveConceptoPago, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, ImporteMX:=Ant.Importe, CveCompraAmortizacion:=CveCompraNC) Then
|
|
||||||
' ErrorMovtosCxP = True
|
|
||||||
'End If
|
|
||||||
|
|
||||||
Dim Pago As New CompraPago
|
|
||||||
Pago.ImportePago = Ant.Importe
|
|
||||||
Pago.CveIE = Ant.CveIE
|
|
||||||
Pago.CveMonedaPago = 1
|
|
||||||
Pago.CveCompraAmortizacion = CveCompraNC
|
|
||||||
Pago.CveConceptoPago = CveConceptoPago
|
|
||||||
Pago.AplicaAcreditable = If(Ant.TipoMovto.Contiene("NC", "DEV"), False, True) 'SI ES NC, no se acredita
|
|
||||||
|
|
||||||
ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
|
||||||
|
|
||||||
Else
|
|
||||||
ErrorMovtosCxP = True
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
|
|
||||||
Dim ConceptoRenglon As String
|
|
||||||
|
|
||||||
|
|
||||||
'si hay una diferencia entre lo amortizado y el total, se registra la diferencia a proveedores y los ivas por acreditar
|
|
||||||
If TxtTotal.Text.ToDouble - ImporteAnticipo > 0 Then
|
|
||||||
PorcentajePago = (TxtTotal.Text.ToDecimal - ImporteAnticipo) / TxtTotal.Text.ToDecimal
|
|
||||||
|
|
||||||
|
|
||||||
If UsuarioActual.Empresa.UsaAC Then
|
|
||||||
If CtaProveedor > 0 Then
|
|
||||||
ConceptoRenglon = String.Format("GD Fact {0}-{1} {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
|
|
||||||
If Not ObjContaAC.AddMovimiento(IdPoliza, CtaProveedor, True, TxtTotal.Text.ToDouble - ImporteAnticipo, "", ConceptoRenglon, 0, TxtFechaPago.Text.ToDate, "") Then
|
|
||||||
ErrorAC = True
|
|
||||||
ErrorACMEnsaje.Append("- CtaProveedor > 0 ObjContaAC.AddMovimiento")
|
|
||||||
End If
|
|
||||||
Else
|
|
||||||
Alert(" - El proveedor no tiene cuenta contable.", TipoMensaje.MsgAdvertencia)
|
|
||||||
|
|
||||||
ErrorAC = True
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
'una vez amortizado, se generan los movimientos presupuestales
|
|
||||||
|
|
||||||
If UsuarioActual.Empresa.UsaAC AndAlso ImporteAnticipo > 0 Then
|
|
||||||
|
|
||||||
|
|
||||||
PorcentajePago = ImporteAnticipo / TxtTotal.Text.ToDecimal
|
|
||||||
|
|
||||||
If ObjCompras.GetPresupuestosCompras(CveCompra) AndAlso ObjCompras.DtResultados.Rows.Count > 0 Then
|
|
||||||
'DtAC.Merge(ObjConta.DtResultados)
|
|
||||||
|
|
||||||
For Each dr As DataRow In ObjCompras.DtResultados.Rows
|
|
||||||
Total = dr("TotalPresupuesto").ToString.ToDecimal * PorcentajePago
|
|
||||||
|
|
||||||
If Total > 0 Then
|
|
||||||
|
|
||||||
'EJERCIDO
|
|
||||||
If True Then
|
|
||||||
|
|
||||||
ConceptoRenglon = String.Format("GE {0} F{1}-{2}", DdlProveedor.SelectedItem.Text, TxtSerie.Text, TxtFolio.Text)
|
|
||||||
If ObjContaAC.AddMovimiento(IdPoliza, dr("IdCuentaEjercido").ToString.ToEntero, False, MultiplicadorNC * Total, "", ConceptoRenglon, 0, TxtFechaPago.Text.ToDate, "") Then
|
|
||||||
'actualizo el idcuenta del presupuesto
|
|
||||||
If Not ObjContaAC.AddMovimiento(IdPoliza, dr("IdCuentaDevengado").ToString.ToEntero, True, MultiplicadorNC * Total, "", ConceptoRenglon, 0, TxtFechaPago.Text.ToDate, "") Then
|
|
||||||
TieneError = True
|
|
||||||
Exit For
|
|
||||||
End If
|
|
||||||
|
|
||||||
Else
|
|
||||||
TieneError = True
|
|
||||||
Exit For
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
'PAGADO
|
|
||||||
ConceptoRenglon = String.Format("GP {0} F{1}-{2}", DdlProveedor.SelectedItem.Text, TxtSerie.Text, TxtFolio.Text)
|
|
||||||
If ObjContaAC.AddMovimiento(IdPoliza, dr("IdCuentaPagado").ToString.ToEntero, False, MultiplicadorNC * Total, "", ConceptoRenglon, 0, TxtFechaPago.Text.ToDate, "") Then
|
|
||||||
'actualizo el idcuenta del presupuesto
|
|
||||||
If Not ObjContaAC.AddMovimiento(IdPoliza, dr("IdCuentaEjercido").ToString.ToEntero, True, MultiplicadorNC * Total, "", ConceptoRenglon, 0, TxtFechaPago.Text.ToDate, "") Then
|
|
||||||
TieneError = True
|
|
||||||
Exit For
|
|
||||||
End If
|
|
||||||
Else
|
|
||||||
TieneError = True
|
|
||||||
Exit For
|
|
||||||
End If
|
|
||||||
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
|
|
||||||
Else
|
|
||||||
ErrorACMEnsaje.Append("- Error al obtener presupuestos 2")
|
|
||||||
ErrorAC = True
|
|
||||||
End If
|
|
||||||
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
|
|
||||||
'Si es con funcionarios empleados Ya existe un registro en Bancos de Ingresos Egresos
|
|
||||||
TxtDocumentoImporte.Text = TxtDocumentoImporteFE.Text
|
|
||||||
TxtDocumentoImporteCaja.Text = TxtDocumentoImporteFE.Text
|
|
||||||
|
|
||||||
Dim ImportePagadoFE As Decimal = 0
|
|
||||||
Dim ImporteAPagarFE As Decimal = TxtDocumentoImporteFE.Text.ToDecimal
|
|
||||||
Dim ImportePagar As Decimal = ImporteAPagarFE
|
|
||||||
|
|
||||||
If CvePrePoliza > 0 Then
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImportePagar, ImportePagar, 29, " ", " ", 0, CveCompra:=CveCompra, CvePersonal:=DdlFuncionarioEmpleado.SelectedValue.ToEntero, CveProveedor:=CveProveedorLocal, CveIE:=CveIE) Then
|
|
||||||
ErrorMovtosCxP = True
|
|
||||||
End If
|
|
||||||
|
|
||||||
Dim Pago As New CompraPago
|
|
||||||
Pago.ImportePago = ImportePagar
|
|
||||||
Pago.CvePersonal = CvePersonal
|
|
||||||
Pago.CveIE = CveIE
|
|
||||||
Pago.CveMonedaPago = 1
|
|
||||||
|
|
||||||
ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
|
||||||
|
|
||||||
Else
|
|
||||||
ErrorMovtosCxP = True
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
End If 'Empresa Prueba
|
|
||||||
|
|
||||||
'************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
|
'************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
|
||||||
|
|
||||||
'End If
|
'End If
|
||||||
@@ -8040,15 +7741,13 @@ Partial Class Compras_Compras
|
|||||||
Dim Msg As New StringBuilder
|
Dim Msg As New StringBuilder
|
||||||
Msg.Append("La compra se registró correctamente")
|
Msg.Append("La compra se registró correctamente")
|
||||||
|
|
||||||
If Not ErrorPrepoliza AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then
|
If Not ErrorPrepoliza AndAlso UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then
|
||||||
If ObjConta.ValorPolizaDescuadre > 0 Then
|
If ObjConta.ValorPolizaDescuadre > 0 Then
|
||||||
GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
|
GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
|
||||||
ErrorPrepolizaDescuadre = True
|
ErrorPrepolizaDescuadre = True
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
'ACTUALIZA CVEFACTURA
|
'ACTUALIZA CVEFACTURA
|
||||||
If Request("CveFactura") IsNot Nothing Then
|
If Request("CveFactura") IsNot Nothing Then
|
||||||
|
|
||||||
@@ -9443,19 +9142,14 @@ Partial Class Compras_Compras
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
If RBLContado.SelectedValue = "2" AndAlso DdlFuncionarioEmpleado.SelectedValue.ToEntero > 0 Then
|
If RBLContado.SelectedValue = "2" AndAlso DdlFuncionarioEmpleado.SelectedValue.ToEntero > 0 Then
|
||||||
If EmpresaPrueba Then
|
|
||||||
If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
|
If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
|
||||||
CvePlantillaPrePoliza = 60
|
CvePlantillaPrePoliza = 60
|
||||||
Else
|
Else
|
||||||
CvePlantillaPrePoliza = 1
|
CvePlantillaPrePoliza = 1
|
||||||
End If
|
End If
|
||||||
Else
|
|
||||||
CvePlantillaPrePoliza = 9
|
|
||||||
End If
|
End If
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Dim CveMovimientoInventario As Integer = CveMovimientoAlmacen
|
Dim CveMovimientoInventario As Integer = CveMovimientoAlmacen
|
||||||
|
|
||||||
|
|
||||||
@@ -12113,7 +11807,6 @@ Partial Class Compras_Compras
|
|||||||
RBLContado.Items(4).Enabled = True
|
RBLContado.Items(4).Enabled = True
|
||||||
RBLContado.Items(5).Enabled = True
|
RBLContado.Items(5).Enabled = True
|
||||||
|
|
||||||
|
|
||||||
If UsuarioActual.Empresa.CvePlataforma = 2 Then
|
If UsuarioActual.Empresa.CvePlataforma = 2 Then
|
||||||
RBLContado.Items.Clear()
|
RBLContado.Items.Clear()
|
||||||
RBLContado.Items.Insert(0, New ListItem("Bancos", "1"))
|
RBLContado.Items.Insert(0, New ListItem("Bancos", "1"))
|
||||||
@@ -12121,16 +11814,8 @@ Partial Class Compras_Compras
|
|||||||
RBLContado.Items.Insert(2, New ListItem("Deudores", "4"))
|
RBLContado.Items.Insert(2, New ListItem("Deudores", "4"))
|
||||||
RBLContado.SelectedIndex = 0
|
RBLContado.SelectedIndex = 0
|
||||||
|
|
||||||
|
|
||||||
'RBLContado.Items.Item(2).Enabled = False
|
|
||||||
'RBLContado.Items.Item(4).Enabled = False
|
|
||||||
'RBLContado.Items.Item(5).Enabled = False
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'If EmpresaPrueba Then
|
|
||||||
' RBLContado.Items(5).Enabled = False
|
|
||||||
'End If
|
|
||||||
|
|
||||||
EsContado = True
|
EsContado = True
|
||||||
romCreditosTabla.Visible = False
|
romCreditosTabla.Visible = False
|
||||||
Case "3" 'Reembolso/Comprobacion
|
Case "3" 'Reembolso/Comprobacion
|
||||||
|
|||||||
Reference in New Issue
Block a user