-- quitar variable, Empresaprueba
This commit is contained in:
@@ -747,14 +747,7 @@ Partial Class Compras_Compras
|
||||
ViewState("CveCompraRefacturacion") = value
|
||||
End Set
|
||||
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
|
||||
Get
|
||||
Return ViewState("StringProrrateo").ToString
|
||||
@@ -1252,19 +1245,13 @@ Partial Class Compras_Compras
|
||||
'VALIDACION DE XML
|
||||
NuevaValidacionXML = IfNull(Request("NuevaValidacionXML"), 0).ToString.ToEntero
|
||||
|
||||
|
||||
IdVale = New List(Of Integer)
|
||||
|
||||
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
|
||||
CompraSaldo = 0
|
||||
ViewState("CvePersonal") = -1
|
||||
IdCuentaBancaria = 0
|
||||
End If
|
||||
|
||||
IdCuentaBancariaComplementaria = 0
|
||||
|
||||
@@ -2761,10 +2748,8 @@ Partial Class Compras_Compras
|
||||
ImgAddObs.Visible = True
|
||||
ChkAplicaNotaCredito.Checked = CBool(dr("AplicaNotaCredito").ToString)
|
||||
|
||||
CompraSaldo = TotalGeneral - LblAmortizacion.Text.ToDouble
|
||||
If EmpresaPrueba Then
|
||||
'CompraSaldo = TotalGeneral - LblAmortizacion.Text.ToDouble
|
||||
CompraSaldo = dr("Saldo").ToString.ToDouble
|
||||
End If
|
||||
|
||||
If CompraSaldo > dr("Saldo").ToString.ToDouble Then
|
||||
CompraSaldo = dr("Saldo").ToString.ToDouble
|
||||
@@ -4643,31 +4628,20 @@ Partial Class Compras_Compras
|
||||
Alert("El Importe seleccionado es mayor a la compra", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If RBLContado.SelectedValue = "2" AndAlso DdlFuncionarioEmpleado.SelectedValue.ToEntero > 0 Then
|
||||
If EmpresaPrueba Then
|
||||
If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
|
||||
CvePlantillaPrePoliza = 60
|
||||
Else
|
||||
CvePlantillaPrePoliza = 1
|
||||
End If
|
||||
Else
|
||||
CvePlantillaPrePoliza = 9
|
||||
End If
|
||||
End If
|
||||
|
||||
'If RBLPago.SelectedValue.ToEntero = 4 And UsuarioActual.CveEmpresa.Contiene(1, 7) Then
|
||||
' CvePlantillaPrePoliza = 69
|
||||
'End If
|
||||
|
||||
TmpDT.AcceptChanges()
|
||||
If Correcto Then
|
||||
|
||||
|
||||
|
||||
|
||||
Dim ObjCompras As New ClsCompras()
|
||||
Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
|
||||
Dim ObjIE As New ClsBancos(ObjCompras.IniciaTransacSQL)
|
||||
@@ -5732,9 +5706,8 @@ Partial Class Compras_Compras
|
||||
CveProveedorConcepto = DdlAcreedor.SelectedValue.ToEntero
|
||||
CveConceptoAfectacion = 41
|
||||
|
||||
If EmpresaPrueba Then
|
||||
CveIE = If(DdlAcreedorDetalle.SelectedValue.ToEntero = -2, -1, DdlAcreedorDetalle.SelectedValue.ToEntero)
|
||||
End If
|
||||
|
||||
End Select
|
||||
End If
|
||||
|
||||
@@ -5833,8 +5806,6 @@ Partial Class Compras_Compras
|
||||
TipoMovimientoImpuestos = Not TipoMovimientoImpuestos
|
||||
End If
|
||||
|
||||
If EmpresaPrueba Then 'Empresa Prueba
|
||||
|
||||
Dim PorcentajePagos As Decimal = 0
|
||||
Dim sumaPagos As Decimal = 0
|
||||
Dim tipoCambioActual As Decimal
|
||||
@@ -7428,8 +7399,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If TxtTotal.Text.ToDouble > 0 AndAlso TieneAnticiposXML = False Then
|
||||
|
||||
Dim Pago As New CompraPago
|
||||
@@ -7445,20 +7414,6 @@ Partial Class Compras_Compras
|
||||
|
||||
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
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(83) Then
|
||||
@@ -7627,260 +7582,6 @@ Partial Class Compras_Compras
|
||||
|
||||
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
|
||||
@@ -8040,15 +7741,13 @@ Partial Class Compras_Compras
|
||||
Dim Msg As New StringBuilder
|
||||
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
|
||||
GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
|
||||
ErrorPrepolizaDescuadre = True
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'ACTUALIZA CVEFACTURA
|
||||
If Request("CveFactura") IsNot Nothing Then
|
||||
|
||||
@@ -9443,19 +9142,14 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
If RBLContado.SelectedValue = "2" AndAlso DdlFuncionarioEmpleado.SelectedValue.ToEntero > 0 Then
|
||||
If EmpresaPrueba Then
|
||||
|
||||
If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
|
||||
CvePlantillaPrePoliza = 60
|
||||
Else
|
||||
CvePlantillaPrePoliza = 1
|
||||
End If
|
||||
Else
|
||||
CvePlantillaPrePoliza = 9
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim CveMovimientoInventario As Integer = CveMovimientoAlmacen
|
||||
|
||||
|
||||
@@ -12113,7 +11807,6 @@ Partial Class Compras_Compras
|
||||
RBLContado.Items(4).Enabled = True
|
||||
RBLContado.Items(5).Enabled = True
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.CvePlataforma = 2 Then
|
||||
RBLContado.Items.Clear()
|
||||
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.SelectedIndex = 0
|
||||
|
||||
|
||||
'RBLContado.Items.Item(2).Enabled = False
|
||||
'RBLContado.Items.Item(4).Enabled = False
|
||||
'RBLContado.Items.Item(5).Enabled = False
|
||||
End If
|
||||
|
||||
'If EmpresaPrueba Then
|
||||
' RBLContado.Items(5).Enabled = False
|
||||
'End If
|
||||
|
||||
EsContado = True
|
||||
romCreditosTabla.Visible = False
|
||||
Case "3" 'Reembolso/Comprobacion
|
||||
|
||||
Reference in New Issue
Block a user