Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git
This commit is contained in:
Rakcsle Supertramp
@@ -1102,12 +1102,12 @@ Partial Class Compras_Compras
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveConceptoContable As Integer
|
||||
Private Property CveTipoConcepto As Integer
|
||||
Get
|
||||
Return ViewState("CveConceptoContable").ToString.ToEntero
|
||||
Return ViewState("CveTipoConcepto").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveConceptoContable") = value
|
||||
ViewState("CveTipoConcepto") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
@@ -1130,7 +1130,7 @@ Partial Class Compras_Compras
|
||||
SubTotalOriginal = 0
|
||||
CveConceptoContableAlmacen = 0
|
||||
EsNoDeducible = False
|
||||
|
||||
CveTipoConcepto = 1
|
||||
'******** Prorrateo ********************************************
|
||||
If UsuarioActual.Empresa.Funcionalidad(117) <> "" Then
|
||||
btnProrateo.Visible = True
|
||||
@@ -1595,23 +1595,20 @@ Partial Class Compras_Compras
|
||||
|
||||
HplAddClasificacion.Visible = False
|
||||
ImgClasificacion.Visible = False
|
||||
End If
|
||||
CveConceptoContable = 5
|
||||
|
||||
|
||||
|
||||
'If CargoFactura Then
|
||||
' 'If UsuarioActual.Empresa.Funcionalidad(128) = "1" Then
|
||||
' ' If TmpDT.MAX("CvePS").ToEntero > 0 Then
|
||||
' ' BtnGuardar.Enabled = False
|
||||
' ' RegistraScript($"AbrirVentana('/OC/PopUpBuscarReq.aspx?V=VOCCOMP&P={CveProveedor}&Masterimpoup=true',1000,600,'S'); return false;")
|
||||
|
||||
' ' End If
|
||||
' 'End If
|
||||
'End If
|
||||
|
||||
|
||||
'RegistraScript("ScrollVentanaAddProducto();")
|
||||
End If
|
||||
|
||||
'If CargoFactura Then
|
||||
' 'If UsuarioActual.Empresa.Funcionalidad(128) = "1" Then
|
||||
' ' If TmpDT.MAX("CvePS").ToEntero > 0 Then
|
||||
' ' BtnGuardar.Enabled = False
|
||||
' ' RegistraScript($"AbrirVentana('/OC/PopUpBuscarReq.aspx?V=VOCCOMP&P={CveProveedor}&Masterimpoup=true',1000,600,'S'); return false;")
|
||||
|
||||
' ' End If
|
||||
' 'End If
|
||||
'End If
|
||||
|
||||
|
||||
'RegistraScript("ScrollVentanaAddProducto();")
|
||||
End Sub
|
||||
|
||||
#Region "C A R G A S"
|
||||
@@ -2244,7 +2241,7 @@ Partial Class Compras_Compras
|
||||
TxtDocumentoImporteCaja.Text = TotalTemp.FormatoNumero
|
||||
TxtOtrosImpuestos.Text = OtrosImpuestos.FormatoNumero
|
||||
If OtrosImpuestos > 0 Then TrOtrosImpuestos.Visible = True
|
||||
If OtrosImpuestosRetenciones > 0 Then TrOtrosImpuestos.Visible = True : TxtOtrosImpuestos.Text = OtrosImpuestosRetenciones.FormatoNumero
|
||||
If OtrosImpuestosRetenciones > 0 Then TrOtrosImpuestos.Visible = True : TxtOtrosImpuestos.Text = (-OtrosImpuestosRetenciones).FormatoNumero
|
||||
HFDiferenciaCompra.Value = TxtTotal.Text
|
||||
HdnCompraSaldo.Value = TotalTemp.ToString
|
||||
CompraSaldo = TotalTemp
|
||||
@@ -2501,7 +2498,8 @@ Partial Class Compras_Compras
|
||||
|
||||
|
||||
DdlRetIVAConcepto.SelectedValueExist(dr("CveRetIVAConcepto").ToString)
|
||||
DdlRetISRConcepto.SelectedValueExist(dr("CveRetISRConcepto").ToString)
|
||||
DdlRetISRConcepto.SelectedValueExist(dr("CveRetISRConcepto").ToString)
|
||||
If dr("CveTipoConcepto").ToString.ToEntero = 1 Then LblProveedor.Text = "Proveedor:" Else LblProveedor.Text = "Acreedor:"
|
||||
|
||||
HdnCveEstatusFactura.Value = dr("CveEstatusFactura").ToString
|
||||
LblCompraEstatus.Text = dr("EstatusFactura").ToString
|
||||
@@ -4417,7 +4415,7 @@ Partial Class Compras_Compras
|
||||
TxtRedondeo.Text.ToDouble, TxtTotal.Text.ToDouble, TxtFecha.Text.Trim.ToDate, DdlMoneda.SelectedValue.ToEntero, TipoCambio, TxtFechaPago.Text.Trim.ToDate, ChkAplicaNotaCredito.Checked, TxtObsFact.Text.Trim, CveEstatusFactura,
|
||||
CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, IdPoliza, CveCajaChica:=CveCajaChica, CvePersonal:=CvePersonal, NumeroReembolso:=NumeroReembolso, CveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero,
|
||||
AplicoPromocion:=ChkOCPromocion.Checked, PorcentajeIVA:=PorcentajeIVA, CveMetodoPago:=CveMetodoPago, CveRetIVAConcepto:=If(DdlRetIVAConcepto.Items.Count > 0, DdlRetIVAConcepto.SelectedValue.ToEntero, -1), CveConceptoContableAlmacen:=CveConceptoContableAlmacen,
|
||||
CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=EsNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveConceptoContable:=CveConceptoContable) Then
|
||||
CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=EsNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveTipoConcepto:=CveTipoConcepto) Then
|
||||
|
||||
ViewState("CveCompra") = ObjCompras.CveCompra
|
||||
If ObjCompras.DtResultados.Rows.Count > 0 Then ViewState("CompraFolio") = ObjCompras.DtResultados.Rows(0)("vFolio").ToString
|
||||
@@ -6624,32 +6622,36 @@ Partial Class Compras_Compras
|
||||
IdCtaContable = 0
|
||||
CveCuenta = 0
|
||||
End If
|
||||
Case 5 'Proveedores
|
||||
Case 5 'Proveedores
|
||||
If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor
|
||||
If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
|
||||
|
||||
importeMovimiento = importeProv
|
||||
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
|
||||
|
||||
If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||
|
||||
If tipoCambioActual = 1 Then
|
||||
IdCtaContable = CtaProveedor
|
||||
CveCuenta = CveCuentaProveedor
|
||||
Else
|
||||
IdCtaContable = CtaProveedorComplementaria
|
||||
CveCuenta = CveCuentaProveedorComplementaria
|
||||
If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 Or UsuarioActual.CveEmpresa = 119) Then 'Cuando tiene complementaria lo dividimos en dos Then
|
||||
importeMN = importeMovimiento
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, 201, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * tipoCambioActual - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
End If
|
||||
IdCtaContable = CtaProveedorExtranjera
|
||||
CveCuenta = CveCuentaProveedorExtranjera
|
||||
End If
|
||||
End If
|
||||
|
||||
Case 59 'Documentos
|
||||
Dim CveConceptoComplementario As Integer = 201
|
||||
If CveTipoConcepto = 2 Then CveConceptoComplementario = 310
|
||||
|
||||
If tipoCambioActual = 1 Then
|
||||
IdCtaContable = CtaProveedor
|
||||
CveCuenta = CveCuentaProveedor
|
||||
Else
|
||||
IdCtaContable = CtaProveedorComplementaria
|
||||
CveCuenta = CveCuentaProveedorComplementaria
|
||||
If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 Or UsuarioActual.CveEmpresa = 119) Then 'Cuando tiene complementaria lo dividimos en dos Then
|
||||
importeMN = importeMovimiento
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, CveConceptoComplementario, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * tipoCambioActual - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
End If
|
||||
IdCtaContable = CtaProveedorExtranjera
|
||||
CveCuenta = CveCuentaProveedorExtranjera
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Case 59 'Documentos
|
||||
importeMovimiento = importeCreditos
|
||||
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
|
||||
If ObjConta.GetRetCuenta(ConceptoContable, CveProveedor) Then
|
||||
@@ -7452,7 +7454,7 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
If TxtOtrosImpuestos.Text.ToDouble > 0 Then
|
||||
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, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtOtrosImpuestos.Text.ToDecimal) Then
|
||||
ErrorMovtosRetISR = True
|
||||
End If
|
||||
@@ -11958,7 +11960,7 @@ Partial Class Compras_Compras
|
||||
SubTotalConceptos = SubTotal
|
||||
GvPS.DataSource = TmpDT : GvPS.DataBind()
|
||||
|
||||
If TxtOtrosImpuestos.Text.ToDouble > 0 Then TxtOtrosImpuestos.Text = "" : TrOtrosImpuestos.Visible = False
|
||||
'If TxtOtrosImpuestos.Text.ToDouble > 0 Then TxtOtrosImpuestos.Text = "" : TrOtrosImpuestos.Visible = False
|
||||
|
||||
'EN ESPERA DE ALGUN CASO QUE LO NECESITE - IPP 5 DICIEMBRE 2016
|
||||
'TempSubTotal = TempSubTotal - SubTotal
|
||||
@@ -16471,7 +16473,7 @@ Partial Class Compras_Compras
|
||||
TempIEPS = TxtIEPS.Text.ToDouble
|
||||
TempRetIVA = TxtRetIVA.Text.ToDouble
|
||||
TempRetISR = TxtRetISR.Text.ToDouble
|
||||
TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR + TxtOtrosImpuestos.Text.ToDouble, 2)
|
||||
TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR - TxtOtrosImpuestos.Text.ToDouble, 2)
|
||||
DifTotales = TxtTotal.Text.ToDouble - TempTotal
|
||||
Dim DiferenciaPermitida = 0.6
|
||||
|
||||
@@ -19367,12 +19369,12 @@ Partial Class Compras_Compras
|
||||
End Sub
|
||||
|
||||
Public Sub LblProveedor_OnClick(sender As Object, e As EventArgs) Handles LblProveedor.Click
|
||||
If LblProveedor.Text = "Proveedor:" Then
|
||||
If CveTipoConcepto = 1 Then
|
||||
LblProveedor.Text = "Acreedor:"
|
||||
CveConceptoContable = 305
|
||||
CveTipoConcepto = 2
|
||||
Else
|
||||
LblProveedor.Text = "Proveedor:"
|
||||
CveConceptoContable = 5
|
||||
CveTipoConcepto = 1
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user