diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index ef844e9a9..31e4184e0 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -4157,6 +4157,7 @@ Public Class ClsContabilidad DataAdapter("PA_Sis_InconsistenciasGet") Try + SqlAdapter.SelectCommand.CommandTimeout = 0 SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 05c4a0abe..4d153e356 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1781,6 +1781,7 @@ Public Class ClsInventarios End With Try + SqlAdapter.SelectCommand.CommandTimeout = 0 SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception diff --git a/Bancos/RepIE.aspx.vb b/Bancos/RepIE.aspx.vb index 79f1f35ea..a1c3dabe8 100644 --- a/Bancos/RepIE.aspx.vb +++ b/Bancos/RepIE.aspx.vb @@ -536,7 +536,7 @@ Partial Class Bancos_RepIE Private Sub Imprimir(Formato As String) Dim LogoRutaFisica As String = String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta) - Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) + 'Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)) Dim params As New List(Of ReportParameter) @@ -551,7 +551,7 @@ Partial Class Bancos_RepIE params.Add(New ReportParameter("CajaChica", ParametrosReporte)) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index d4347bc2b..ab47bc026 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -4069,7 +4069,7 @@ - + D.D @@ -4098,7 +4098,8 @@
- @@ -4143,6 +4144,15 @@ + + + Otros
Gastos/Ingresos +
+ + + + +
<%-- @@ -4158,16 +4168,20 @@
- +
-
+
$
+
+ + +
@@ -5567,13 +5581,14 @@ }); } - function ClickDeudorChk(Chk, Obj, total, saldo) { + function ClickDeudorChk(Chk, Obj, total, saldo,txtOtrIngEgs) { debugger; total = parseFloat(parseFloat(total).toFixed(2)); saldo = parseFloat(parseFloat(saldo).toFixed(2)); if ($("#" + Chk.id).is(":checked")) { $('#' + Obj).attr('disabled', false); + $('#' + txtOtrIngEgs).attr('disabled', false); if (parseFloat($get('TxtContadoDeudor').value) != total) { @@ -5603,15 +5618,14 @@ } } - else { $('#' + Obj).val(0); } } - else { $('#' + Obj).attr('disabled', true); + $('#' + txtOtrIngEgs).attr('disabled', true); if (parseFloat($get(Obj).value) > 0) { $get('TxtContadoDeudor').value = parseFloat(parseFloat($get('TxtContadoDeudor').value) - parseFloat($get(Obj).value)).toFixed(2); if ($get('TxtContadoDeudor').value < 0) { @@ -5619,6 +5633,8 @@ } } $('#' + Obj).val(0); + $('#' + txtOtrIngEgs).val(0); + $('#TxtDeudoresOtrosGastosIngresos').val('0'); } if (parseFloat($('#TxtContadoDeudor').val()) == total) { @@ -6765,6 +6781,11 @@ } + function FnSumOtrosIngEgs(txtOtrIngEgs) { + + $('#TxtDeudoresOtrosGastosIngresos').val(txtOtrIngEgs.value); + } + diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 2319d6748..0770c8976 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -5801,9 +5801,11 @@ Partial Class Compras_Compras 'Deudores (37) Dim importeDD As Decimal = 0 + Dim OtrosGastosIngresos As Decimal = 0 If CveIE > 0 AndAlso RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue = "4" Then ConceptoPersonal = DdlDeudor.SelectedItem.ToString importeDD = TxtContadoDeudor.Text.ToDecimal + OtrosGastosIngresos = TxtDeudoresOtrosGastosIngresos.Text.ToDecimal sumaPagos += importeDD End If @@ -5987,10 +5989,15 @@ Partial Class Compras_Compras End If + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, 41, Referencia, Concepto, CtaProveedorAcreedores, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If + + + + If importeMovimiento <> 0 Then Dim Pago As New CompraPago Pago.ImportePago = importeMovimiento @@ -5998,6 +6005,7 @@ Partial Class Compras_Compras Pago.CveMonedaPago = 1 Pago.CveCompraAmortizacion = -1 Pago.CveCreditoDetalle = CveCreditoDetalle + 'Pago.OtroGastoIngreso = OtrosGastosIngresos ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) @@ -6938,47 +6946,123 @@ Partial Class Compras_Compras End If Case 37 'Deudores - If RBLTipoDeudor.SelectedValue.ToEntero = 1 Then - For Each rw As GridViewRow In GvDeudores.Rows - If rw.FCCheckBox("Chk").Checked Then - importeMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal - importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL - IdCtaContable = CtaProveedorDeudores - Dim tCveProveedor As Integer = rw.DataKey("CveProveedor").ToEntero - 'Conta ContPAQ + + Dim CveConceptoContableDeoudor As Integer = If(RBLTipoDeudor.SelectedValue.ToEntero = 1, 37, 254) + + For Each rw As GridViewRow In GvDeudores.Rows + If rw.FCCheckBox("Chk").Checked Then + + 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 + + IdCtaContable = CtaProveedorDeudores + Dim tCveProveedor As Integer = rw.DataKey("CveProveedor").ToEntero + + 'Conta ContPAQ + If CveConceptoContableDeoudor = 37 Then If IdCtaContable = 0 Then - CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) + CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", CveConceptoContableDeoudor))("ConceptoContable").ToString) idCuentaContabilizacion = 0 End If + End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then + If OtrosGastosIngresos = 0 Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, CveConceptoContableDeoudor, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True : Exit For End If + Else - Dim Pago As New CompraPago With {.ImportePago = importeMovimiento, .CveIE = CveIE, .CveMonedaPago = rw.DataKey("CveMoneda").ToEntero} - AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) - End If - Next - Else - For Each rw As GridViewRow In GvDeudores.Rows - If rw.FCCheckBox("Chk").Checked Then - importeMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal - importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL - IdCtaContable = CtaProveedorDeudores - Dim tCveProveedor As Integer = rw.DataKey("CveProveedor").ToEntero - - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 254, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then - ErrorPrepoliza = True - Exit For + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, (importeMovimiento + OtrosGastosIngresos), Referencia, CveConceptoContableDeoudor, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNOtrosIngEgs, ImporteME:=If(tipoCambioActual = 1, 0, (importeMovimiento + OtrosGastosIngresos)), Contabilizable:=SeContabiliza) Then + ErrorPrepoliza = True : Exit For End If - Dim Pago As New CompraPago With {.ImportePago = importeMovimiento, .CveIE = CveIE, .CveMonedaPago = rw.DataKey("CveMoneda").ToEntero} - AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) End If - Next - End If + + Dim Pago As New CompraPago With { + .ImportePago = importeMovimiento, + .CveIE = CveIE, + .CveMonedaPago = rw.DataKey("CveMoneda").ToEntero, + .OtroGastoIngreso = OtrosGastosIngresos + } + AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) + End If + Next + + 'If RBLTipoDeudor.SelectedValue.ToEntero = 1 Then + ' For Each rw As GridViewRow In GvDeudores.Rows + ' If rw.FCCheckBox("Chk").Checked Then + + ' importeMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal + ' OtrosGastosIngresos = rw.FCTextBox("TxtDeudoresOtrosGastosIngresos").Text.ToDecimal + + ' importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL + ' Dim OtrosGastosIngresosMN As Decimal = (OtrosGastosIngresos * tipoCambioActual * Multiplicador).RoundSQL + ' IdCtaContable = CtaProveedorDeudores + ' Dim tCveProveedor As Integer = rw.DataKey("CveProveedor").ToEntero + + ' 'Conta ContPAQ + ' If IdCtaContable = 0 Then + ' CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) + ' idCuentaContabilizacion = 0 + ' End If + + + ' If OtrosGastosIngresos = 0 Then + ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then + ' ErrorPrepoliza = True : Exit For + ' End If + ' Else + + ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, (importeMovimiento + OtrosGastosIngresos), Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then + ' ErrorPrepoliza = True : Exit For + ' End If + ' End If + + + + ' Dim Pago As New CompraPago With {.ImportePago = importeMovimiento, .CveIE = CveIE, .CveMonedaPago = rw.DataKey("CveMoneda").ToEntero} + ' AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) + ' End If + ' Next + 'Else + ' For Each rw As GridViewRow In GvDeudores.Rows + ' If rw.FCCheckBox("Chk").Checked Then + ' importeMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal + ' OtrosGastosIngresos = rw.FCTextBox("TxtDeudoresOtrosGastosIngresos").Text.ToDecimal + + ' importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL + ' Dim OtrosGastosIngresosMN As Decimal = (OtrosGastosIngresos * tipoCambioActual * Multiplicador).RoundSQL + + ' IdCtaContable = CtaProveedorDeudores + ' Dim tCveProveedor As Integer = rw.DataKey("CveProveedor").ToEntero + + ' If OtrosGastosIngresos = 0 Then + ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 254, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then + ' ErrorPrepoliza = True + ' Exit For + ' End If + ' Else + ' adasdasdasd + ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, (importeMovimiento + OtrosGastosIngresos), Referencia, 254, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then + ' ErrorPrepoliza = True + ' Exit For + ' End If + ' End If + + + ' Dim Pago As New CompraPago With {.ImportePago = importeMovimiento, .CveIE = CveIE, .CveMonedaPago = rw.DataKey("CveMoneda").ToEntero} + ' AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) + ' End If + ' Next + 'End If importeMovimiento = 0 + OtrosGastosIngresos = 0 Case 41 'Acreedores importeMovimiento = importeAcreedores @@ -10167,7 +10251,7 @@ Partial Class Compras_Compras Dim total As Double = TxtTotal.Text.ToString.ToDouble Dim saldo As Double = e.Row.DataKey("Saldo").ToDouble - e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("ClickDeudorChk(this, ""{0}"", ""{1}"", ""{2}"")", e.Row.FCTextBox("TxtSaldoDeudor").ClientID, total, saldo)) + e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("ClickDeudorChk(this, ""{0}"", ""{1}"", ""{2}"",""{3}"")", e.Row.FCTextBox("TxtSaldoDeudor").ClientID, total, saldo, e.Row.FCTextBox("TxtOtrosGastosIngresos").ClientID)) e.Row.FCTextBox("TxtSaldoDeudor").Attributes.Add("onKeyUp", String.Format("AjustaTextboxDeudores(this);")) Dim rv As RangeValidator = CType(e.Row.FindControl("RVSaldoDeudor"), RangeValidator) @@ -10711,6 +10795,9 @@ Partial Class Compras_Compras End Sub Protected Sub GVINV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvInv.RowDataBound + + + If e.Row.RowType = DataControlRowType.DataRow Then 'SI USA SERIE-LOTE INVENTARIO @@ -10886,6 +10973,20 @@ Partial Class Compras_Compras ''CARGA ALMACEN CONSIGNACION e.Row.FCDropDownList("ddlAlmacenConsignacionGeneral").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 4) e.Row.FCDropDownList("ddlAlmacenConsignacionGeneral").DataBind() + + + If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then + If e.Row.FCDropDownList("ddlAlmacen").Items.Count > 1 Then + e.Row.FCDropDownList("ddlAlmacen").SelectedIndex = 1 + e.Row.FCCheckBox("cbAll").Checked = True + + cbAll_CheckedChanged(e.Row.FCCheckBox("cbAll"), Nothing) + ddlAlmacen_SelectedIndexChanged(e.Row.FCDropDownList("ddlAlmacen"), Nothing) + + End If + End If + + End If End Sub diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index 670f7fa0d..24abbf0ce 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -673,10 +673,14 @@