diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index a3c44fd31..5fc0f6dcc 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -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"