+ Importe en dólares, en Cargo/Abono, su proporcional
@@ -925,10 +925,7 @@
-
-
-
-
+
@@ -990,8 +987,18 @@
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 7fc9b2cc2..eb0523e61 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -59,15 +59,15 @@ Partial Class ContabilidadC_RegPrePolizaS
End Get
End Property
- 'PARA CREAR IE
- Private Property CveConcepto As Integer
+ Public Property DrConceptoContable As DataRow
Get
- Return ViewState("CveConcepto").ToString.ToEntero
+ Return CType(ViewState("ArregloMovs"), DataRow)
End Get
- Set(value As Integer)
- ViewState("CveConcepto") = value
+ Set(value As DataRow)
+ ViewState("ArregloMovs") = value
End Set
End Property
+
Private Property CveTipoTransaccion As Integer
Get
Return ViewState("CveTipoTransaccion").ToString.ToEntero
@@ -244,7 +244,7 @@ Partial Class ContabilidadC_RegPrePolizaS
CveMoneda = 1
ViewState("CvePrePoliza") = 0
ViewState("CvePeriodo") = "0"
- CveConcepto = -1
+
CveTipoTransaccion = -1
CveCuenta = -1
Folio = "-1"
@@ -370,7 +370,6 @@ Partial Class ContabilidadC_RegPrePolizaS
.Add("ImporteMN", Type.GetType("System.Decimal"))
.Add("ImporteME", Type.GetType("System.Decimal"))
.Add("EsComodin", Type.GetType("System.Int32"))
- .Add("CveConcepto", Type.GetType("System.Int32"))
.Add("CveSubProyecto", Type.GetType("System.Int32"))
.Add("Descripcion", Type.GetType("System.String"))
.Add("CveProveedor", Type.GetType("System.Int32"))
@@ -402,7 +401,6 @@ Partial Class ContabilidadC_RegPrePolizaS
.Add("EsComplementaria", Type.GetType("System.Boolean"))
.Add("TC", Type.GetType("System.Decimal"))
-
End With
@@ -901,11 +899,11 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("CodigoCuenta") = drt("Codigo").ToString & " " & drt("Nombre").ToString
dr("Cuenta") = Cuenta 'TxtCuentaContable.Text
- dr("Referencia") = If(drt("CveConcepto").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial"))
+ dr("Referencia") = If(drt("CveConceptoContable").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial"))
dr("Concepto") = TxtConcepto.Text
dr("TipoMovto") = If(drt("TipoMovto").ToString = "False", 0, 1)
dr("EsComodin") = EsComodin
- dr("CveConcepto") = drt("CveConcepto")
+ dr("CveConceptoContable") = drt("CveConceptoContable")
dr("CveSubProyecto") = drt("CveSubProyectoNegativo")
dr("Cargo") = TxtCargo.Text.ToDouble
dr("Abono") = TxtAbono.Text.ToDouble
@@ -978,11 +976,11 @@ Partial Class ContabilidadC_RegPrePolizaS
'Agregamos la opcion para vincular los movimientos bancarios
- If e.Row.DataKey("CveConcepto").ToEntero.Contiene(41) Then
+ If e.Row.DataKey("CveConceptoContable").ToEntero.Contiene(41) Then
Dim ObjMovimientos As New ClsMovimientos
Dim DdlSaldos As DropDownList = e.Row.FCDropDownList("DdlSaldos")
- Select Case e.Row.DataKey("CveConcepto").ToEntero
+ Select Case e.Row.DataKey("CveConceptoContable").ToEntero
'Acreedores
Case 41
@@ -998,7 +996,7 @@ Partial Class ContabilidadC_RegPrePolizaS
ObjMovimientos.Dispose()
End If
- If e.Row.DataKey("CveConcepto").ToEntero.Contiene(30) Then
+ If e.Row.DataKey("CveConceptoContable").ToEntero.Contiene(30) Then
e.Row.FCLinkButton("ImgBancos").Visible = True
If e.Row.DataKey("ContadoTipoTransaccion").ToEntero > 0 And e.Row.DataKey("ContadoCuenta").ToEntero > 0 And e.Row.DataKey("ContadoNumeroFolio").ToString.Length > 0 And
@@ -1032,8 +1030,6 @@ Partial Class ContabilidadC_RegPrePolizaS
End If
'validaciones
-
-
If Not (TotalCargos = TotalAbonos AndAlso (GvPrePoliza.Rows.Count > 0 Or GvMov.Rows.Count > 0)) AndAlso UsuarioActual.CveRol <> 1 Then
Alert($"La suma de los movimientos no son iguales ({TotalCargos}-{TotalAbonos})", TipoMensaje.MsgAdvertencia)
Exit Sub
@@ -1049,9 +1045,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Exit Sub
End If
End If
-
Next
-
End If
'terminan validaciones
@@ -1073,6 +1067,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Dim TmpCargo As Decimal = 0D
Dim TmpAbono As Decimal = 0D
Dim DifCargoAbono As Decimal = 0D
+ Dim TipoGrid As Integer = 0 ' 0 - GvMov, 1 - GvPrePoliza
Try
@@ -1090,40 +1085,54 @@ Partial Class ContabilidadC_RegPrePolizaS
FolioPoliza = ObjMov.FolioPoliza
+ Dim Gv As GridView = GvMov
+ If DdlPlantilla.SelectedValue = "53" Then
+ Gv = GvPrePoliza
+ TipoGrid = 1
+ End If
+
'inserto las compras que voy a pagarDdlSaldos
- For Each gvr As GridViewRow In GvMov.Rows
+ For Each gvr As GridViewRow In Gv.Rows
'If gvr.DataKey("IDCuenta").ToEntero > 0 Then
' IdCtaContable = gvr.DataKey("IDCuenta")
'End If
'Registra movimieno bancario
- If gvr.DataKey("CveConcepto").ToEntero = 30 AndAlso gvr.DataKey("ContadoImporte").ToString.ToDecimal <> 0 Then
+ If gvr.DataKey("CveConceptoContable").ToEntero = 30 AndAlso gvr.DataKey("ContadoImporte").ToDecimal <> 0 Then
- CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, gvr.DataKey("ContadoNumeroFolio").ToString,
- gvr.DataKey("ContadoBeneficiario").ToString, gvr.DataKey("ContadoImporte").ToString.ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "",
+ CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, gvr.DataKey("ContadoNumeroFolio"),
+ gvr.DataKey("ContadoBeneficiario"), gvr.DataKey("ContadoImporte").ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones"), "",
False, False, 0, CvePrePolizaInsertada, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CveIE < 0 Then
MsgError = "No se pudo registrar movimiento bancario"
Exit For
End If
- 'If ObjIE.GetBancosIE(CveIE, -1, -1, "-1", -1, "-1", "-1", -1, -1, -1, -1, -1, MinFecha, MaxFecha, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then
- ' FolioIE = ObjIE.Folio
- 'End If
+
End If
ImporteME = 0
TipoCambio = 1
If gvr.DataKey("TipoMovto") = "True" Then
- Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
- TmpAbono = TmpAbono + Importe
- TipoMovto = True
+ If TipoGrid = "0" Then 'gvprep
+ Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
+ TmpAbono = TmpAbono + Importe
+ TipoMovto = True
- If gvr.DataKey("EsComplementaria") = "True" Then
- ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal
- TipoCambio = gvr.FCTextBox("TipoCambio").Text.ToDecimal
+ If gvr.DataKey("EsComplementaria") = "True" Then
+ ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal
+ TipoCambio = gvr.FCTextBox("TipoCambio").Text.ToDecimal
+ End If
+ Else
+ Importe = gvr.DataKey("Abono").ToDecimal
+ TmpAbono = TmpAbono + Importe
+ TipoMovto = True
+
+ If gvr.DataKey("EsComplementaria") = "True" Then
+ ImporteME = gvr.DataKey("MonedaExtranjera").ToDecimal
+ TipoCambio = gvr.DataKey("TipoCambio").ToDecimal
+ End If
End If
-
Else
Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble
@@ -1137,9 +1146,9 @@ Partial Class ContabilidadC_RegPrePolizaS
End If
- If Not gvr.DataKey("CveConcepto").Contiene("30", "10") Then ' 30-bancos, 10-anticipos proveedores
+ If Not gvr.DataKey("CveConceptoContable").Contiene("30", "10") Then ' 30-bancos, 10-anticipos proveedores
- If gvr.DataKey("CveConcepto").ToEntero = 41 Then
+ If gvr.DataKey("CveConceptoContable").ToEntero = 41 Then
CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero
Else
CveIE = -1
@@ -1158,7 +1167,7 @@ Partial Class ContabilidadC_RegPrePolizaS
' tCveCuenta = gvr.DataKey("CveCuenta").ToEntero
'End If
- If ObjMov.AddPrePolizasDetalle(CvePrePolizaInsertada, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text,
+ If ObjMov.AddPrePolizasDetalle(CvePrePolizaInsertada, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConceptoContable").ToEntero, gvr.FCTextBox("TxtConcepto").Text,
TxtFechaDocumento.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=CveIE,
CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero,
CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
@@ -1172,7 +1181,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Exit For
End If
End If
- If CveIE > 0 AndAlso gvr.DataKey("CveConcepto").ToEntero = 30 Then
+ If CveIE > 0 AndAlso gvr.DataKey("CveConceptoContable").ToEntero = 30 Then
MensajeAlert.AppendFormat("
Folio Bancario: {1}", CveIE, FolioIE)
End If
@@ -1428,8 +1437,6 @@ Partial Class ContabilidadC_RegPrePolizaS
End Sub
-
-
Private Sub DdlConceptosContablesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContablesE.SelectedIndexChanged
'Aquii hay que consultar el concepto y determinar que es lo que se vba aplicar
@@ -1440,6 +1447,7 @@ Partial Class ContabilidadC_RegPrePolizaS
If CveConceptoContableInsertar > 0 Then
DT_Concepto = GlobalDTContaConceptosContables(CveConceptoContableInsertar)
+ DrConceptoContable = GlobalDTContaConceptosContables(CveConceptoContableInsertar).FiltroPrimero("")
Dim AplicaActivoFijo As Boolean = False
Dim AplicaAlmacen As Boolean = False
@@ -1455,6 +1463,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Dim AplicaTC As Boolean = False 'ok
Dim AplicaVenta As Boolean = False
Dim AplicaComplementaria As Boolean = False 'ok
+ Dim AplicaME As Boolean = False 'ok
AplicaActivoFijo = Boolean.Parse(DT_Concepto.Rows(0)("AplicaActivoFijo").ToString)
AplicaAlmacen = Boolean.Parse(DT_Concepto.Rows(0)("AplicaAlmacen").ToString)
@@ -1472,6 +1481,7 @@ Partial Class ContabilidadC_RegPrePolizaS
AplicaTC = Boolean.Parse(DT_Concepto.Rows(0)("AplicaTC").ToString)
AplicaVenta = Boolean.Parse(DT_Concepto.Rows(0)("AplicaVenta").ToString)
AplicaComplementaria = Boolean.Parse(DT_Concepto.Rows(0)("EsComplementaria").ToString)
+ 'AplicaME = Boolean.Parse(DT_Concepto.Rows(0)("EsMonedaExtranjera").ToString)
If AplicaImpuesto Then
@@ -1549,11 +1559,31 @@ Partial Class ContabilidadC_RegPrePolizaS
Else
DivMonedaExtranjera.Visible = False
End If
+ CargaCuentaConcepto(CveConceptoContableInsertar)
End If
UpModalConcepto.Update()
End Sub
+
+ Private Sub CargaCuentaConcepto(CveConcepto As Integer)
+ Dim ObjConta As New ClsContabilidad
+ If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, -1, 1, CveConcepto) Then
+ Dim dr As DataRow = ObjConta.DtResultados.FiltroPrimero("")
+ If dr IsNot Nothing Then
+ DdlCuentaContableE.SelectedValueExist(dr("CveCuenta"))
+ Else
+ If ObjConta.GetCuentasGlobales(UsuarioActual.CveEmpresa, CveConcepto) Then
+ Dim drY As DataRow = ObjConta.DtResultados.FiltroPrimero("")
+ If drY IsNot Nothing Then
+ DdlCuentaContableE.SelectedValueExist(drY("CveCuenta"))
+ End If
+ End If
+ End If
+ End If
+ ObjConta.Dispose()
+
+ End Sub
Private Sub CargaProveedoresE()
DdlProveedoresE.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedoresE.DataBind()
@@ -1592,7 +1622,7 @@ Partial Class ContabilidadC_RegPrePolizaS
If CveMoneda = 2 Then
DdlVentasE.DataSource = ObjVentas.DtResultados.FiltraParametros("CveMoneda = 2")
Else
- DdlVentasE.DataSource = ObjVentas.DtResultados '.FiltraParametros("Saldo > 0")
+ DdlVentasE.DataSource = ObjVentas.DtResultados.FiltraParametros("CveMoneda = 1")
End If
DdlVentasE.DataBind()
@@ -1619,18 +1649,52 @@ Partial Class ContabilidadC_RegPrePolizaS
CargaComprasE(DdlProveedoresE.SelectedValue.ToEntero)
End Sub
Private Sub DdlClientesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientesE.selectedindexchange
+ Dim tCveMoneda As Integer = 1
- CargaVentasE(DdlClientesE.SelectedValue.ToEntero, IIf(DdlConceptosContablesE.SelectedValue.Contiene("291", "292"), 2, -1))
+ If DrConceptoContable IsNot Nothing Then
+ Dim AplicaME = Boolean.Parse(DrConceptoContable("EsMonedaExtranjera").ToString)
+ If AplicaME Then
+ tCveMoneda = 2
+ End If
+ End If
+
+ CargaVentasE(DdlClientesE.SelectedValue.ToEntero, tCveMoneda)
End Sub
+ Private Function CargaValidacionesConcepto() As Boolean
+ Dim Retorno As Boolean = true
+
+ If DrConceptoContable IsNot Nothing Then
+ Dim AplicaComplementaria = Boolean.Parse(DrConceptoContable("EsComplementaria").ToString)
+
+ If AplicaComplementaria Then
+ Dim Importe As Decimal = IIf(TxtCargoE.Text.ToDecimal <> 0, TxtCargoE.Text.ToDecimal, TxtAbonoE.Text.ToDecimal)
+ 'valida Mon Extranjera por el TC - Mon Extranjera
+ Dim dif As Decimal = ((TxtME.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal) - TxtME.Text.ToDecimal).RoundSQL - Importe
+
+ If dif <> 0 Then
+ Alert("El importe moneda extranjera no coinciden con el TC ")
+ Retorno = False
+ Else
+ Retorno = True
+ End If
+ End If
+
+ End If
+ Return Retorno
+ End Function
Protected Sub BtnAceptar_Click(sender As Object, e As EventArgs) Handles BtnAceptar.Click
'asdasdasd
+ If Not CargaValidacionesConcepto() Then
+ Exit Sub
+ End If
+ ChkSeguir.Visible = False
If IndiceGrid = -1 Then
-
+ ChkSeguir.Visible = True
If DtMovimientos Is Nothing Then CreaDT()
Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
@@ -1675,7 +1739,7 @@ Partial Class ContabilidadC_RegPrePolizaS
TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
UpTotalCargo.Update()
UpTotalAbono.Update()
- RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal")
+ If Not ChkSeguir.Checked Then RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal")
Else
Dim CvePrePolizaDetalle As Integer = GvPrePoliza.DataKeys(IndiceGrid).Value.ToString.ToEntero
@@ -1797,7 +1861,7 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("Concepto") = TxtConcepto.Text
dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True)
dr("EsComodin") = 0
- dr("CveConcepto") = DdlConceptosContables.SelectedValue
+ dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
dr("Cargo") = TxtCargo.Text.ToDouble
dr("Abono") = TxtAbono.Text.ToDouble
dr("Descripcion") = TxtDescripcion.Text
@@ -1869,7 +1933,6 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("Concepto") = TxtConcepto.Text
dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True)
dr("EsComodin") = 0
- dr("CveConcepto") = DdlConceptosContables.SelectedValue
dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
dr("ConceptoContable") = DdlConceptosContables.SelectedItem.Text
dr("Cargo") = TxtCargo.Text.ToDouble
@@ -2074,7 +2137,7 @@ Partial Class ContabilidadC_RegPrePolizaS
TxtConcepto.Text = DrM("Concepto")
' (Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) = dr("TipoMovto")
DrM("EsComodin") = 0
- DdlConceptosContables.SelectedValueExist(DrM("CveConcepto").ToString)
+ DdlConceptosContables.SelectedValueExist(DrM("CveConceptoContable").ToString)
TxtCargo.Text = DrM("Cargo").ToString
TxtAbono.Text = DrM("Abono").ToString
TxtDescripcion.Text = DrM("Descripcion").ToString
@@ -2203,7 +2266,7 @@ Partial Class ContabilidadC_RegPrePolizaS
.SubProyecto = row.Item("SubProyecto"),
.Folio = "",
.TipoTransferencia = "",
- .CveConceptoContable = row.Item("CveConcepto"),
+ .CveConceptoContable = row.Item("CveConceptoContable"),
.CveSubProyecto = IIf(row.Item("CveSubProyecto").ToString.ToEntero > 0, row.Item("CveSubProyecto"), -1),
.IdCtaContable = IIf(row.Item("IdCtaContable").ToString.ToEntero > 0, row.Item("IdCtaContable"), -1),
.CveCuenta = row.Item("CveCuenta")
@@ -2432,7 +2495,6 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("Concepto") = Row("Concepto").ToString
dr("TipoMovto") = TipoMovto
dr("EsComodin") = 0
- dr("CveConcepto") = CveConceptoContable
dr("CveConceptoContable") = CveConceptoContable
dr("ConceptoContable") = Row("ConceptoAdministrativo").ToString
dr("Cargo") = Row("Cargo").ToString.ToDecimal.RoundSQL
@@ -3060,8 +3122,6 @@ Partial Class ContabilidadC_RegPrePolizaS
UpPoliza.Update()
UpGuardar.Update()
-
-
End Sub
Private Sub LnkFolioManual_Click(sender As Object, e As EventArgs) Handles LnkFolioManual.Click
@@ -3071,5 +3131,17 @@ Partial Class ContabilidadC_RegPrePolizaS
UpPoliza.Update()
End Sub
+
+ Protected Sub DdlVentasE_SelectedIndexChanged(sender As Object, e As EventArgs)
+ Dim Venta As New ClsVentas
+ If Venta.GetVenta(DdlVentasE.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+ Dim dr As DataRow = Venta.DtResultados.FiltroPrimero("")
+ If dr IsNot Nothing Then
+ TxtTipoCambio.Text = dr("TipoCambioValuacion")
+ End If
+ End If
+
+ Venta.Dispose()
+ End Sub
End Class