diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 46dd4581d..15a385678 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6271,21 +6271,15 @@ Partial Class Compras_Compras If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then If DdlRetIVAConcepto.Items.Count > 0 AndAlso DdlRetIVAConcepto.SelectedValue.ToEntero() > 0 Then - Dim Funcionalidad As Integer = 0 If DdlRetIVAConcepto.SelectedValue.ToEntero = 1 Then - 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 ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 6 Then ConceptoContable = 333 @@ -6302,15 +6296,11 @@ Partial Class Compras_Compras If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then 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 ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 3 Then - funcionalidad = 348 ConceptoContable = 327 End If importeMovimiento = CompraActual.RetISR @@ -6320,33 +6310,33 @@ Partial Class Compras_Compras End If End If - Case 64 'Ganancia + 'Case 64 'Ganancia - 'CveSubProyectoInsertar = CveSubProyecto - If CveSubProyectoInsertar <= 0 Then - ErrorPrepoliza = True - Alert("Concepto ganancia cambiaria sin sub proyecto", TipoMensaje.MsgAdvertencia) - End If + ' 'CveSubProyectoInsertar = CveSubProyecto + ' If CveSubProyectoInsertar <= 0 Then + ' ErrorPrepoliza = True + ' Alert("Concepto ganancia cambiaria sin sub proyecto", TipoMensaje.MsgAdvertencia) + ' End If - If TCPago > 0 AndAlso TCPago <> 1 AndAlso TxtFechaPago.Text <> TxtFecha.Text Then + ' If TCPago > 0 AndAlso TCPago <> 1 AndAlso TxtFechaPago.Text <> TxtFecha.Text Then - If TipoCambioCompra > TCPago Then - ConceptoContable = 64 - TipoMovimiento = True - Else - ConceptoContable = 65 - TipoMovimiento = False - End If - 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 + ' If TipoCambioCompra > TCPago Then + ' ConceptoContable = 64 + ' TipoMovimiento = True + ' Else + ' ConceptoContable = 65 + ' TipoMovimiento = False + ' End If + ' 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 @@ -7033,22 +7023,13 @@ Partial Class Compras_Compras importeMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal OtrosGastosIngresos = rw.FCTextBox("TxtOtrosGastosIngresos").Text.ToDecimal - importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL - Dim OtrosGastosIngresosMN As Decimal = (OtrosGastosIngresos * tipoCambioActual * Multiplicador).RoundSQL Dim importeMNOtrosIngEgs As Decimal = ((importeMovimiento + OtrosGastosIngresos) * tipoCambioActual * Multiplicador).RoundSQL - Dim tCveProveedor As Integer = rw.DataKey("CveProveedor").ToEntero - If OtrosGastosIngresos = 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN, CveConceptoContableDeudor, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then - ErrorPrepoliza = True : Exit For - End If - Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, If(TipoMovimiento, False, True), (importeMovimiento + OtrosGastosIngresos), importeMNOtrosIngEgs, CveConceptoContableDeudor, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, (importeMovimiento + OtrosGastosIngresos)), Contabilizable:=SeContabiliza) Then - ErrorPrepoliza = True : Exit For - End If + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, (importeMovimiento + OtrosGastosIngresos), importeMNOtrosIngEgs, CveConceptoContableDeudor, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, (importeMovimiento + OtrosGastosIngresos)), Contabilizable:=SeContabiliza) Then + ErrorPrepoliza = True : Exit For End If Dim Pago As New CompraPago With { @@ -7399,8 +7380,8 @@ Partial Class Compras_Compras ErrorPrepoliza = True Exit For End If - End If + End If Next 'EMPIEZA REFACTURACION