--
This commit is contained in:
@@ -2175,24 +2175,7 @@ Partial Class Compras_Compras
|
|||||||
If Cambio Then
|
If Cambio Then
|
||||||
DdlRetIVAConcepto.Items.Clear()
|
DdlRetIVAConcepto.Items.Clear()
|
||||||
|
|
||||||
If RFCProv.Length = 13 Then ' personal moral
|
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
|
|
||||||
|
|
||||||
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 DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales
|
If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales
|
||||||
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
|
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
|
||||||
End If
|
End If
|
||||||
@@ -2205,10 +2188,26 @@ Partial Class Compras_Compras
|
|||||||
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
|
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
|
||||||
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
|
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
|
||||||
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2"))
|
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
|
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
|
End If
|
||||||
|
|
||||||
@@ -5936,8 +5935,6 @@ Partial Class Compras_Compras
|
|||||||
|
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Dim CveClasificacionDT As Integer = -1
|
Dim CveClasificacionDT As Integer = -1
|
||||||
Dim CveSubProyectoDT As Integer = -1
|
Dim CveSubProyectoDT As Integer = -1
|
||||||
Dim CveTipoGastoDT As Integer = -1
|
Dim CveTipoGastoDT As Integer = -1
|
||||||
@@ -6022,54 +6019,6 @@ Partial Class Compras_Compras
|
|||||||
IdCtaContable = IdCuentaBancaria
|
IdCtaContable = IdCuentaBancaria
|
||||||
End If
|
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
|
Case 14 'IVA X Acreditar
|
||||||
importeMovimiento = CompraActual.IVA
|
importeMovimiento = CompraActual.IVA
|
||||||
importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL
|
importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL
|
||||||
@@ -6109,21 +6058,6 @@ Partial Class Compras_Compras
|
|||||||
importeMN = 0
|
importeMN = 0
|
||||||
End If
|
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
|
Case 25 'IEPS X Acreditar
|
||||||
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||||
CveSubProyectoInsertar = CveSubProyecto
|
CveSubProyectoInsertar = CveSubProyecto
|
||||||
@@ -6144,33 +6078,7 @@ Partial Class Compras_Compras
|
|||||||
If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||||
IdCtaContable = If(UsuarioActual.CveEmpresa = 119, 1171, -1)
|
IdCtaContable = If(UsuarioActual.CveEmpresa = 119, 1171, -1)
|
||||||
End If
|
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.
|
Case 15 'RetIVA X Acreditar Honorarios/Serv. Prof.
|
||||||
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||||
If DdlRetIVAConcepto.Items.Count > 0 AndAlso DdlRetIVAConcepto.SelectedValue.ToEntero() > 0 Then
|
If DdlRetIVAConcepto.Items.Count > 0 AndAlso DdlRetIVAConcepto.SelectedValue.ToEntero() > 0 Then
|
||||||
@@ -6217,119 +6125,6 @@ Partial Class Compras_Compras
|
|||||||
End If
|
End If
|
||||||
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
|
Case 16 'Ret ISR X Acreditar
|
||||||
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||||
If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero > 0 Then
|
If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero > 0 Then
|
||||||
@@ -6397,27 +6192,6 @@ Partial Class Compras_Compras
|
|||||||
importeMovimiento = 0
|
importeMovimiento = 0
|
||||||
End If
|
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
|
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"
|
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