--
This commit is contained in:
@@ -2175,24 +2175,7 @@ Partial Class Compras_Compras
|
||||
If Cambio Then
|
||||
DdlRetIVAConcepto.Items.Clear()
|
||||
|
||||
If RFCProv.Length = 13 Then ' personal moral
|
||||
If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales
|
||||
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
|
||||
End If
|
||||
|
||||
If DIOTCveTipoOperacion = 2 Then ' 06 - Arrendamiento de inmuebles
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
|
||||
End If
|
||||
|
||||
If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros
|
||||
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
|
||||
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.M.", "3"))
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("General", "6"))
|
||||
End If
|
||||
|
||||
|
||||
ElseIf RFCProv.Length = 12 Then
|
||||
If RFCProv.Length = 13 Then ' personal fisica
|
||||
If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales
|
||||
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
|
||||
End If
|
||||
@@ -2205,10 +2188,26 @@ Partial Class Compras_Compras
|
||||
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
|
||||
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2"))
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("General.", "6"))
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("Resico", "5"))
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("General", "6"))
|
||||
End If
|
||||
|
||||
ElseIf RFCProv.Length = 12 Then ' persona moral
|
||||
If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales
|
||||
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
|
||||
End If
|
||||
|
||||
If DIOTCveTipoOperacion = 2 Then ' 06 - Arrendamiento de inmuebles
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
|
||||
End If
|
||||
|
||||
If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros
|
||||
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
|
||||
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.M.", "3"))
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("Resico", "5"))
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("General.", "6"))
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
@@ -5936,8 +5935,6 @@ Partial Class Compras_Compras
|
||||
|
||||
Next
|
||||
|
||||
|
||||
|
||||
Dim CveClasificacionDT As Integer = -1
|
||||
Dim CveSubProyectoDT As Integer = -1
|
||||
Dim CveTipoGastoDT As Integer = -1
|
||||
@@ -6022,54 +6019,6 @@ Partial Class Compras_Compras
|
||||
IdCtaContable = IdCuentaBancaria
|
||||
End If
|
||||
|
||||
|
||||
'Case 19 'IVA Acreditable
|
||||
' If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
|
||||
' If importePagoProv = importeProv Then
|
||||
' importeMovimiento = TxtIVA.Text.ToDecimal
|
||||
' Else
|
||||
' importeMovimiento = 0
|
||||
' End If
|
||||
' Else
|
||||
' importeMovimiento = importeIVAAcreditable
|
||||
' End If
|
||||
|
||||
' importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
|
||||
' PorcentajeImpuesto = PorcentajeIVA
|
||||
' IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0)
|
||||
' If chkImportacion.Checked Then
|
||||
' ConceptoContable = 288
|
||||
' End If
|
||||
|
||||
' If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
|
||||
' If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' 'Agregamos el Opuesto del 19 -> 14
|
||||
' If importeMovimiento <> 0 Then
|
||||
' Dim IdCtaIva As Integer = 0
|
||||
' IdCtaIva = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
|
||||
' Dim ttConceptoContable As Integer = 14
|
||||
|
||||
' If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(ttConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaIva > 0 Then
|
||||
' If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
' IdCtaIva = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' If chkImportacion.Checked Then
|
||||
' ttConceptoContable = 287
|
||||
' End If
|
||||
|
||||
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, ttConceptoContable, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaIva, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
|
||||
' ErrorPrepoliza = True
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||
Case 14 'IVA X Acreditar
|
||||
importeMovimiento = CompraActual.IVA
|
||||
importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL
|
||||
@@ -6109,21 +6058,6 @@ Partial Class Compras_Compras
|
||||
importeMN = 0
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'Case 287 'IVA X Acreditar
|
||||
' importeMovimiento = CompraActual.IVA
|
||||
' importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
' If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||
' PorcentajeImpuesto = PorcentajeIVA
|
||||
' IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
|
||||
' If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
|
||||
' If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
|
||||
' End If
|
||||
' End If
|
||||
|
||||
|
||||
Case 25 'IEPS X Acreditar
|
||||
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
CveSubProyectoInsertar = CveSubProyecto
|
||||
@@ -6144,33 +6078,7 @@ Partial Class Compras_Compras
|
||||
If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||
IdCtaContable = If(UsuarioActual.CveEmpresa = 119, 1171, -1)
|
||||
End If
|
||||
'Case 26 'IEPS Acreditable
|
||||
' If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
' importeMovimiento = ImporteIEPSAcreditable
|
||||
' importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
' If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||
' If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' 'Agregamos el Opuesto del 26 -> 25
|
||||
' If importeMovimiento <> 0 Then
|
||||
' Dim IdCtaIEPS As Integer = 0
|
||||
' If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(25, UsuarioActual.CveEmpresa) Then
|
||||
' If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
' IdCtaIEPS = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 25, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaIEPS, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
|
||||
' ErrorPrepoliza = True
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||
|
||||
' 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
|
||||
@@ -6217,119 +6125,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
'Case 22 'RetIVA Acreditable Honorarios/Serv. Prof.
|
||||
' If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
' If DdlRetIVAConcepto.Items.Count > 0 AndAlso DdlRetIVAConcepto.SelectedValue.ToEntero > 0 Then
|
||||
' Dim Funcionalidad As Integer = 0
|
||||
' Dim ConceptoContableContra As Integer = 0
|
||||
|
||||
' If DdlRetIVAConcepto.SelectedValue.ToEntero = 1 Then
|
||||
' Funcionalidad = 308
|
||||
' ConceptoContable = 22
|
||||
' ConceptoContableContra = 15
|
||||
' ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 2 Then
|
||||
' Funcionalidad = 310
|
||||
' ConceptoContable = 184
|
||||
' ConceptoContableContra = 183
|
||||
|
||||
' ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 3 Then
|
||||
' Funcionalidad = 312
|
||||
' ConceptoContable = 186
|
||||
' ConceptoContableContra = 185
|
||||
|
||||
' ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 4 Then
|
||||
' Funcionalidad = 314
|
||||
' ConceptoContable = 249
|
||||
' ConceptoContableContra = 248
|
||||
|
||||
' ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
|
||||
' Funcionalidad = 578
|
||||
' ConceptoContable = 286
|
||||
' ConceptoContableContra = 285
|
||||
' ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 6 Then
|
||||
' Funcionalidad = 578
|
||||
' ConceptoContable = 333
|
||||
' ConceptoContableContra = 334
|
||||
' End If
|
||||
|
||||
' importeMovimiento = importeRetIVAAcreditable
|
||||
' importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL
|
||||
|
||||
' If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
|
||||
' If CtaProveedorRetIVA > 0 Then
|
||||
' IdCtaContable = CtaProveedorRetIVA
|
||||
' ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
|
||||
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
|
||||
' Else
|
||||
' If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||
' If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' 'Agregamos el Opuesto del 22 -> 15
|
||||
' If importeMovimiento <> 0 Then
|
||||
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, ConceptoContableContra, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
|
||||
' ErrorPrepoliza = True
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||
' End If
|
||||
' End If
|
||||
|
||||
'Case 23 'RetISR Acreditable
|
||||
' If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
' If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero > 0 Then
|
||||
|
||||
' Dim funcionalidad As Integer = 0
|
||||
' Dim ConceptoContableContra As Integer = 0
|
||||
|
||||
' If DdlRetISRConcepto.SelectedValue.ToEntero = 1 Then
|
||||
' funcionalidad = 316
|
||||
' ConceptoContable = 23
|
||||
' ConceptoContableContra = 16
|
||||
' ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 2 Then
|
||||
' funcionalidad = 318
|
||||
' ConceptoContable = 244
|
||||
' ConceptoContableContra = 243
|
||||
' ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 3 Then
|
||||
' funcionalidad = 348
|
||||
' ConceptoContable = 328
|
||||
' ConceptoContableContra = 327
|
||||
' End If
|
||||
|
||||
' importeMovimiento = importeRetISRAcreditable
|
||||
' importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL
|
||||
|
||||
' If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
' If CtaProveedorRetISR > 0 Then
|
||||
' IdCtaContable = CtaProveedorRetISR
|
||||
' ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
|
||||
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
|
||||
' Else
|
||||
' If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||
' If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
|
||||
|
||||
' 'Agregamos el Opuesto del 23 -> 16
|
||||
' If importeMovimiento <> 0 Then
|
||||
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, ConceptoContableContra, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
|
||||
' ErrorPrepoliza = True
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||
' End If
|
||||
' End If
|
||||
Case 16 'Ret ISR X Acreditar
|
||||
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero > 0 Then
|
||||
@@ -6397,27 +6192,6 @@ Partial Class Compras_Compras
|
||||
importeMovimiento = 0
|
||||
End If
|
||||
|
||||
'Case 65 'Perdida
|
||||
|
||||
' CveSubProyectoInsertar = CveSubProyecto
|
||||
' If CveSubProyectoInsertar <= 0 Then
|
||||
' ErrorPrepoliza = True
|
||||
' Alert("Concepto perdida cambiaria sin sub proyecto", TipoMensaje.MsgAdvertencia)
|
||||
' End If
|
||||
|
||||
' If TCPago > 0 AndAlso TCPago <> 1 AndAlso TxtFechaPago.Text <> TxtFecha.Text Then
|
||||
' IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
|
||||
' If TCPago < TipoCambioCompra Then
|
||||
' importeMovimiento = Math.Abs(TCPago - TipoCambioCompra) * importePagoProv
|
||||
' importeMovimiento -= Math.Abs(TCPago - TipoCambioCompra) * importeIVAAcreditable
|
||||
' importeMovimiento += Math.Abs(TCPago - TipoCambioCompra) * importeRetIVAAcreditable
|
||||
' importeMovimiento += Math.Abs(TCPago - TipoCambioCompra) * importeRetISRAcreditable
|
||||
' importeMN = importeMovimiento
|
||||
' End If
|
||||
' Else
|
||||
' importeMovimiento = 0
|
||||
' End If
|
||||
|
||||
Case 6 'Compra
|
||||
|
||||
Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 145, 141, 152, 153, 154, 158, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
|
||||
|
||||
Reference in New Issue
Block a user