Compras pago deudores otros egresos ingresos, correciones efacturas, correciones redireccion anexo auxiliar 119, inicio ver inconcistencias en acciones
This commit is contained in:
Oscar Irigoyen
@@ -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("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
|
||||
CuentasContablesInvalidas.Append("<br>" & 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("<br>" & 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
|
||||
@@ -10169,7 +10253,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)
|
||||
@@ -10713,6 +10797,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
|
||||
@@ -10888,6 +10975,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
|
||||
|
||||
Reference in New Issue
Block a user