merge
This commit is contained in:
@@ -6138,125 +6138,100 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
Case 22 'RetIVA Acreditable Honorarios/Serv. Prof.
|
||||
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
If DdlRetIVAConcepto.Items.Count > 0 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
|
||||
importeMovimiento = importeRetIVAAcreditable
|
||||
importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
If CtaProveedorRetIVA > 0 Then
|
||||
IdCtaContable = CtaProveedorRetIVA
|
||||
ElseIf UsuarioActual.Empresa.Funcionalidad(308).ToEntero > 0 Then
|
||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(308).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
|
||||
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
|
||||
|
||||
'Codigo anterior
|
||||
'If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
|
||||
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
|
||||
'End If
|
||||
ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 4 Then
|
||||
Funcionalidad = 314
|
||||
ConceptoContable = 249
|
||||
ConceptoContableContra = 248
|
||||
|
||||
If DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
|
||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
|
||||
End If
|
||||
ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
|
||||
Funcionalidad = 578
|
||||
ConceptoContable = 286
|
||||
ConceptoContableContra = 285
|
||||
|
||||
|
||||
'Agregamos el Opuesto del 22 -> 15
|
||||
If importeMovimiento <> 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 15, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, 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
|
||||
|
||||
importeMovimiento = importeRetIVAAcreditable
|
||||
importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
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
|
||||
|
||||
|
||||
'Codigo anterior
|
||||
'If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
|
||||
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
|
||||
''End If
|
||||
|
||||
'If DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
|
||||
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
|
||||
'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, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, 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 15 'RetIVA X Acreditar Honorarios/Serv. Prof.
|
||||
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
If DdlRetIVAConcepto.Items.Count > 0 Then
|
||||
If DdlRetIVAConcepto.Items.Count > 0 AndAlso DdlRetIVAConcepto.SelectedValue.ToEntero() > 0 Then
|
||||
Dim Funcionalidad As Integer = 0
|
||||
If DdlRetIVAConcepto.SelectedValue.ToEntero = 1 Then
|
||||
importeMovimiento = importeRetIVAxAcreditar
|
||||
importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||
If CtaProveedorRetIVA > 0 Then
|
||||
IdCtaContable = CtaProveedorRetIVA
|
||||
ElseIf UsuarioActual.Empresa.Funcionalidad(307).ToEntero > 0 Then
|
||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(307).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
|
||||
Funcionalidad = 307
|
||||
ConceptoContable = 15
|
||||
ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 2 Then
|
||||
Funcionalidad = 309
|
||||
ConceptoContable = 183
|
||||
ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 3 Then
|
||||
Funcionalidad = 311
|
||||
ConceptoContable = 185
|
||||
ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 4 Then
|
||||
Funcionalidad = 313
|
||||
ConceptoContable = 248
|
||||
ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
|
||||
Funcionalidad = 578
|
||||
ConceptoContable = 285
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Case 184 'RetIVA Acreditable Fletes P.F
|
||||
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
If DdlRetIVAConcepto.Items.Count > 0 Then
|
||||
If DdlRetIVAConcepto.SelectedValue.ToEntero = 2 Then
|
||||
importeMovimiento = importeRetIVAAcreditable
|
||||
importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
If CtaProveedorRetIVA > 0 Then
|
||||
IdCtaContable = CtaProveedorRetIVA
|
||||
ElseIf UsuarioActual.Empresa.Funcionalidad(310).ToEntero > 0 Then
|
||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(310).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
|
||||
|
||||
'Agregamos el Opuesto del 184 -> 183
|
||||
If importeMovimiento <> 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 183, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, 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
|
||||
End If
|
||||
Case 183 'RetIVA X Acreditar Fletes P.F
|
||||
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
If DdlRetIVAConcepto.Items.Count > 0 Then
|
||||
If DdlRetIVAConcepto.SelectedValue.ToEntero = 2 Then
|
||||
importeMovimiento = importeRetIVAxAcreditar
|
||||
importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||
If CtaProveedorRetIVA > 0 Then
|
||||
IdCtaContable = CtaProveedorRetIVA
|
||||
ElseIf UsuarioActual.Empresa.Funcionalidad(309).ToEntero > 0 Then
|
||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(309).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
|
||||
End If
|
||||
End If
|
||||
Case 248 'RetIVA X Acreditar Arrendamiento
|
||||
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
If DdlRetIVAConcepto.Items.Count > 0 AndAlso DdlRetIVAConcepto.SelectedValue.ToEntero = 4 Then
|
||||
importeMovimiento = importeRetIVAxAcreditar
|
||||
importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||
If CtaProveedorRetIVA > 0 Then
|
||||
IdCtaContable = CtaProveedorRetIVA
|
||||
ElseIf UsuarioActual.Empresa.Funcionalidad(313).ToEntero > 0 Then
|
||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(313).ToEntero
|
||||
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
|
||||
@@ -6267,143 +6242,78 @@ Partial Class Compras_Compras
|
||||
|
||||
End If
|
||||
End If
|
||||
Case 186 'RetIVA Acreditable Fletes P.M.
|
||||
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") AndAlso TxtRetIVA.Text.ToDecimal > 0 Then
|
||||
If DdlRetIVAConcepto.Items.Count > 0 Then
|
||||
If DdlRetIVAConcepto.SelectedValue.ToEntero = 3 Then
|
||||
importeMovimiento = importeRetIVAAcreditable
|
||||
importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
If CtaProveedorRetIVA > 0 Then
|
||||
IdCtaContable = CtaProveedorRetIVA
|
||||
ElseIf UsuarioActual.Empresa.Funcionalidad(312).ToEntero > 0 Then
|
||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(312).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
|
||||
|
||||
'Agregamos el Opuesto del 186 -> 185
|
||||
If importeMovimiento <> 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 185, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
|
||||
ErrorPrepoliza = True
|
||||
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
|
||||
|
||||
If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Case 185 'RetIVA X Acreditar Fletes P.M.
|
||||
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") AndAlso TxtRetIVA.Text.ToDecimal > 0 Then
|
||||
If DdlRetIVAConcepto.Items.Count > 0 Then
|
||||
If DdlRetIVAConcepto.SelectedValue.ToEntero = 3 Then
|
||||
importeMovimiento = importeRetIVAxAcreditar
|
||||
importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||
If CtaProveedorRetIVA > 0 Then
|
||||
IdCtaContable = CtaProveedorRetIVA
|
||||
ElseIf UsuarioActual.Empresa.Funcionalidad(311).ToEntero > 0 Then
|
||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(311).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
|
||||
End If
|
||||
End If
|
||||
Case 249 'RetIVA Acreditable Arrendamiento
|
||||
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") AndAlso TxtRetIVA.Text.ToDecimal > 0 Then
|
||||
If DdlRetIVAConcepto.Items.Count > 0 AndAlso DdlRetIVAConcepto.SelectedValue.ToEntero = 4 Then
|
||||
importeMovimiento = importeRetIVAAcreditable
|
||||
|
||||
importeMovimiento = importeRetISRAcreditable
|
||||
importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
If CtaProveedorRetIVA > 0 Then
|
||||
IdCtaContable = CtaProveedorRetIVA
|
||||
ElseIf UsuarioActual.Empresa.Funcionalidad(314).ToEntero > 0 Then
|
||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(314).ToEntero
|
||||
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)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
||||
IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
||||
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, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, 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 23 'RetISR Acreditable
|
||||
' If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
' If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero = 1 Then
|
||||
' importeMovimiento = importeRetISRAcreditable
|
||||
' importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
' If CtaProveedorRetISR > 0 Then
|
||||
' IdCtaContable = CtaProveedorRetISR
|
||||
' ElseIf UsuarioActual.Empresa.Funcionalidad(316).ToEntero > 0 Then
|
||||
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(316).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
|
||||
|
||||
' 'Agregamos el Opuesto del 23 -> 16
|
||||
' If importeMovimiento <> 0 Then
|
||||
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 15, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, 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 = 1 Then
|
||||
importeMovimiento = importeRetISRxAcreditar
|
||||
importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||
If CtaProveedorRetISR > 0 Then
|
||||
IdCtaContable = CtaProveedorRetISR
|
||||
ElseIf UsuarioActual.Empresa.Funcionalidad(315).ToEntero > 0 Then
|
||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(315).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
|
||||
End If
|
||||
Case 243 'RetISR X Acreditar Terceros y Arrendamiento
|
||||
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero = 2 Then
|
||||
importeMovimiento = importeRetISRxAcreditar
|
||||
importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
If CtaProveedorRetISR > 0 Then
|
||||
IdCtaContable = CtaProveedorRetISR
|
||||
ElseIf UsuarioActual.Empresa.Funcionalidad(317).ToEntero > 0 Then
|
||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(317).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
|
||||
If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero > 0 Then
|
||||
Dim funcionalidad As Integer = 0
|
||||
If DdlRetISRConcepto.SelectedValue.ToEntero = 1 Then
|
||||
funcionalidad = 315
|
||||
ConceptoContable = 16
|
||||
ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 2 Then
|
||||
funcionalidad = 317
|
||||
ConceptoContable = 243
|
||||
|
||||
End If
|
||||
importeMovimiento = importeRetISRxAcreditar
|
||||
importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||
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
|
||||
End If
|
||||
|
||||
'Case 244 'RetISR Acreditable Terceros y Arrendamiento
|
||||
' If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
' If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero = 2 Then
|
||||
@@ -9238,39 +9148,50 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
Case 22 'RetIVA Acreditable Honorarios/Serv. Prof.
|
||||
If Not gvr.DataKey("TipoDocto").Contiene("NC", "DEV", "Ant") Then
|
||||
If DdlRetIVAConcepto.Items.Count > 0 Then
|
||||
If DdlRetIVAConcepto.Items.Count > 0 AndAlso DdlRetIVAConcepto.SelectedValue.ToEntero > 0 Then
|
||||
Dim Funcionalidad As Integer = 0
|
||||
If DdlRetIVAConcepto.SelectedValue.ToEntero = 1 Then
|
||||
ImporteMovimiento = Math.Round(PorcentajePago * TxtRetIVA.Text.ToDecimal, 2)
|
||||
importeMN = ImporteMovimiento * tipoCambio
|
||||
Funcionalidad = 307
|
||||
ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 2 Then
|
||||
Funcionalidad = 310
|
||||
ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 3 Then
|
||||
Funcionalidad = 312
|
||||
ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 4 Then
|
||||
Funcionalidad = 314
|
||||
ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
|
||||
Funcionalidad = 578
|
||||
End If
|
||||
|
||||
ImporteMovimiento = Math.Round(PorcentajePago * TxtRetIVA.Text.ToDecimal, 2)
|
||||
importeMN = ImporteMovimiento * tipoCambio
|
||||
|
||||
|
||||
If CtaProveedorRetIVA > 0 Then
|
||||
IdCtaContable = CtaProveedorRetIVA
|
||||
ElseIf UsuarioActual.Empresa.Funcionalidad(308).ToEntero > 0 Then
|
||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(308).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
|
||||
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
|
||||
|
||||
|
||||
'If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
|
||||
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
|
||||
'End If
|
||||
|
||||
If DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
|
||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
|
||||
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
|
||||
'End If
|
||||
|
||||
'If DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
|
||||
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
|
||||
'End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Case 183 'RetIVA x Acreditar Fletes P.F.
|
||||
If Not gvr.DataKey("TipoDocto").Contiene("NC", "DEV", "Ant") Then
|
||||
If DdlRetIVAConcepto.Items.Count > 0 Then
|
||||
@@ -12505,6 +12426,7 @@ Partial Class Compras_Compras
|
||||
TmpDT.AcceptChanges()
|
||||
|
||||
|
||||
dr("CveCompraDetalle") = -1
|
||||
dr("CveActivoFijo") = 0
|
||||
dr("CodAF") = ""
|
||||
dr("Cantidad") = Cantidad.ToDecimal
|
||||
|
||||
Reference in New Issue
Block a user