AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-05-28 10:47:23 -07:00
parent 1f44fd5f03 0c688c9043
commit ad1a97ec0d
8 changed files with 79 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
App_Code/ClsContabilidad.vb
View File

@@ -889,6 +889,7 @@ Public Class ClsContabilidad
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
.Add("@CvePrePolizaOriginal", SqlDbType.Int).Value = CvePrePolizaOriginal .Add("@CvePrePolizaOriginal", SqlDbType.Int).Value = CvePrePolizaOriginal
.Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
.Add("@TipoMovto", SqlDbType.Bit).Value = TipoMovimiento .Add("@TipoMovto", SqlDbType.Bit).Value = TipoMovimiento
.Add("@Importe", SqlDbType.Money).Value = If(CveConceptoContable = 30, Importe, Math.Round(Importe, 2)) .Add("@Importe", SqlDbType.Money).Value = If(CveConceptoContable = 30, Importe, Math.Round(Importe, 2))
.Add("@ImporteMX", SqlDbType.Money).Value = Math.Round(ImporteMX, 2) .Add("@ImporteMX", SqlDbType.Money).Value = Math.Round(ImporteMX, 2)
@@ -896,7 +897,6 @@ Public Class ClsContabilidad
.Add("@TC", SqlDbType.Decimal).Value = TipoCambio .Add("@TC", SqlDbType.Decimal).Value = TipoCambio
.Add("@TCPago", SqlDbType.Decimal).Value = TipoCambioPago .Add("@TCPago", SqlDbType.Decimal).Value = TipoCambioPago
.Add("@Referencia", SqlDbType.VarChar).Value = Referencia .Add("@Referencia", SqlDbType.VarChar).Value = Referencia
.Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
.Add("@Concepto", SqlDbType.VarChar).Value = Concepto .Add("@Concepto", SqlDbType.VarChar).Value = Concepto
.Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento .Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento
.Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
@@ -938,9 +938,15 @@ Public Class ClsContabilidad
Catch ex1 As SqlException Catch ex1 As SqlException
If ex1.Message.Contains("50015;") Then If ex1.Message.Contains("50015;") Then
OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
ElseIf ex1.Message.Contains("50024; La Cuenta no fue detectada") Then
Dim Concepto1 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta", Concepto1), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then
Dim Concepto2 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
Else Else
OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End If End If '
Catch ex As Exception Catch ex As Exception
If ex.Message.Contains("50015;") Then If ex.Message.Contains("50015;") Then
OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)

9
Bancos/DepositosCaja.aspx
View File

@@ -194,7 +194,7 @@
<div class="col-md-1" runat="server" id="Div1" style ="width: 155px"> <div class="col-md-1" runat="server" id="Div1" style ="width: 155px">
<asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" CssClass="checkbox"/> <asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" CssClass="checkbox"/>
</div> </div>
<div class="col-md-10 rowcheckCampos" id="DivDescuento" style="display: none"> <div class="col-md-11 rowcheckCampos" id="DivDescuento" style="display: none">
<div class="col-md-1" style="padding-right: 130px;"> <div class="col-md-1" style="padding-right: 130px;">
<label for="TxtDescuento">Importe:</label> <label for="TxtDescuento">Importe:</label>
@@ -208,11 +208,16 @@
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<div class="col-md-1"> <div class="col-md-2">
<label>Clasificación:</label> <label>Clasificación:</label>
<asp:DropDownList ID="DdlClasificacionDescuento" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion"> <asp:DropDownList ID="DdlClasificacionDescuento" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<div class="col-md-1">
<label>Emp:</label>
<asp:DropDownList ID="DdlPersonal" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal">
</asp:DropDownList>
</div>
</div> </div>
</div> </div>

18
Bancos/DepositosCaja.aspx.vb
View File

@@ -63,6 +63,9 @@ Partial Class Bancos_DepositosCaja
DdlClasificacionDescuento.DataBind() DdlClasificacionDescuento.DataBind()
DdlClasificacionDescuento.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClasificacionDescuento.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
DdlPersonal.DataBind()
'intermediario 'intermediario
DdlProveedorIntermediario.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedor in ({0})", 73343)) DdlProveedorIntermediario.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedor in ({0})", 73343))
DdlProveedorIntermediario.DataBind() DdlProveedorIntermediario.DataBind()
@@ -119,7 +122,7 @@ Partial Class Bancos_DepositosCaja
TotalImportePrePoliza = TotalImporte TotalImportePrePoliza = TotalImporte
If Comision <> 0 Then If Comision <> 0 Then
TotalImporte = TotalImporte + Comision - Descuento TotalImporte = TotalImporte + Comision
'Comision = -(Comision) ' se inverte el valor, va cargada 'Comision = -(Comision) ' se inverte el valor, va cargada
'Descuento = -(Descuento) ' se inverte el valor, va cargada 'Descuento = -(Descuento) ' se inverte el valor, va cargada
If DdlSubProyectoDeposito.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then If DdlSubProyectoDeposito.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then
@@ -128,6 +131,15 @@ Partial Class Bancos_DepositosCaja
End If End If
End If End If
If Descuento <> 0 Then
TotalImporte = TotalImporte - Descuento
'Descuento = -(Descuento) ' se inverte el valor, va cargada
If DdlSubProyectoDescuento.SelectedValue.ToEntero = -1 Or DdlClasificacionDescuento.SelectedValue.ToEntero = -1 Then
Alert("Debes Seleccionar un Subproyecto y una Clasificación de descuento", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End If
If TxtComisionIntermediario.Text.ToDecimal <> 0 Then If TxtComisionIntermediario.Text.ToDecimal <> 0 Then
TotalImporte = TotalImporte - TxtComisionIntermediario.Text.ToDecimal - IVA TotalImporte = TotalImporte - TxtComisionIntermediario.Text.ToDecimal - IVA
End If End If
@@ -230,7 +242,7 @@ Partial Class Bancos_DepositosCaja
CveSubProyectoDescuento = DdlSubProyectoDescuento.SelectedValue.ToEntero CveSubProyectoDescuento = DdlSubProyectoDescuento.SelectedValue.ToEntero
CveClasificacionDescuento = DdlClasificacionDescuento.SelectedValue.ToEntero CveClasificacionDescuento = DdlClasificacionDescuento.SelectedValue.ToEntero
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio) Then If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text & " " & DdlPersonal.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyectoDescuento, ImporteMX:=Descuento * TipoCambio, CvePersonal:=DdlPersonal.SelectedValue.ToEntero) Then
OcurrioError = True OcurrioError = True
End If End If
End If End If
@@ -263,7 +275,7 @@ Partial Class Bancos_DepositosCaja
CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveVenta:=CveVenta, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
OcurrioError = True OcurrioError = True
Exit For Exit For
End If End If

4
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -1743,11 +1743,9 @@ Partial Class Bancos_ProveedoresAbonar
Dim ImporteNOIVA As Decimal = gvr.DataKey("IVAPorPagarNoDeducible").ToDecimal * PorcentajePago Dim ImporteNOIVA As Decimal = gvr.DataKey("IVAPorPagarNoDeducible").ToDecimal * PorcentajePago
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, FechaMovimiento, IdCtaContableNoIVA, -1, CveIE, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedor, ImporteMX:=ImporteNOIVA, ImporteME:=If(TipoCambioPago = 1, 0, ImporteMovimiento), TipoCambio:=TipoCambioGeneral, PorcentajeImpuesto:=PorcentajeImpuesto) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, FechaMovimiento, IdCtaContableNoIVA, -1, CveIE, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedor, ImporteMX:=ImporteNOIVA, ImporteME:=If(TipoCambioPago = 1, 0, ImporteMovimiento), TipoCambio:=TipoCambioGeneral, CveSubProyecto:=CveSubProyecto, PorcentajeImpuesto:=PorcentajeImpuesto) Then
MsgError = "No se pudo insertar la póliza" MsgError = "No se pudo insertar la póliza"
Exit For Exit For
End If End If
End If End If

2
Contabilidad/RegPrePoliza.aspx.vb
View File

@@ -1180,7 +1180,7 @@ Partial Class ContabilidadC_RegPrePoliza
'diferencia = $"{diferencia} '{TipoMovto}' <> '{TipoMovtoOld}' OrElse '{ImporteMN}' <> '{row.DataKey("ImporteMN").ToEntero()}' OrElse '{CveTipoGastonew}' <> '{row.DataKey("CveTipoGasto").ToEntero()}'" 'diferencia = $"{diferencia} '{TipoMovto}' <> '{TipoMovtoOld}' OrElse '{ImporteMN}' <> '{row.DataKey("ImporteMN").ToEntero()}' OrElse '{CveTipoGastonew}' <> '{row.DataKey("CveTipoGasto").ToEntero()}'"
If actualizar Then If actualizar Then
contador = contador + 1 contador = contador + 1
If Not ObjContabilidad.UpdatePrepolizasDetalle(CvePrePolizaDetalle, Concepto, CveSubProyecto, If Not ObjContabilidad.UpdatePrePolizasDetalle(CvePrePolizaDetalle, Concepto, CveSubProyecto,
CtaContable, TipoMovto, ImporteMN, CveTipoGasto:=CveTipoGastonew, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then CtaContable, TipoMovto, ImporteMN, CveTipoGasto:=CveTipoGastonew, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
OcurrioError = True OcurrioError = True
Exit For Exit For

4
Contabilidad/RegPrePolizaS.aspx
View File

@@ -709,7 +709,7 @@
<div class="row"> <div class="row">
<div class="col-xs-2" style="text-align: left">Concepto:</div> <div class="col-xs-2" style="text-align: left">Concepto:</div>
<div class="col-xs-4"> <div class="col-xs-4">
<asp:DropDownList ID="DdlConceptosContablesE" CssClass="form-control input-sm select2me" runat="server" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="160px" AutoPostBack="true"> <asp:DropDownList ID="DdlConceptosContablesE" CssClass="form-control input-sm select2me" Width="405px" runat="server" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" AutoPostBack="true">
</asp:DropDownList> </asp:DropDownList>
<asp:DropDownList ID="DdlProveedoresE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true"></asp:DropDownList> <asp:DropDownList ID="DdlProveedoresE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true"></asp:DropDownList>
<asp:DropDownList ID="DdlComprasE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList> <asp:DropDownList ID="DdlComprasE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList>
@@ -726,7 +726,7 @@
Cuenta: Cuenta:
</div> </div>
<div class="col-xs-4"> <div class="col-xs-4">
<asp:DropDownList ID="DdlCtaContableE" runat="server" CssClass="form-control input-sm select2me" DataValueField="CveCuenta" DataTextField="CtaCodigo"></asp:DropDownList><br /> <asp:DropDownList ID="DdlCtaContableE" runat="server" Width="405px" CssClass="form-control input-sm select2me" DataValueField="CveCuenta" DataTextField="CtaCodigo"></asp:DropDownList><br />
</div> </div>
</div> </div>
<br /> <br />

74
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -912,11 +912,11 @@ Partial Class ContabilidadC_RegPrePolizaS
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If Importe > 0 Then If Importe > 0 Then
Dim tCveCuenta As Integer = -1 Dim tCveCuenta As Integer = gvr.DataKey("CveCuenta").ToEntero
If gvr.datakey("CveConcepto") = "299" Then 'If gvr.datakey("CveConcepto") = "299" Then
tCveCuenta = gvr.datakey("CveCuenta").toentero ' tCveCuenta = gvr.DataKey("CveCuenta").ToEntero
End If 'End If
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text, If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text,
TxtFecha.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=CveIE, TxtFecha.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=CveIE,
@@ -1247,7 +1247,7 @@ Partial Class ContabilidadC_RegPrePolizaS
If DtMovimientos Is Nothing Then CreaDT() If DtMovimientos Is Nothing Then CreaDT()
If CvePrePoliza > 0 Then If CvePrePoliza > 0 Then
Dim dr As DataRow = DtMovimientos.NewRow Dim dr As DataRow = DtMovimientos.NewRow
dr("IdCtaContable") = DdlCtaContableE.SelectedValue dr("IdCtaContable") = -1 'DdlCtaContableE.SelectedValue
dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
dr("Concepto") = TxtConceptoE.Text dr("Concepto") = TxtConceptoE.Text
@@ -1328,7 +1328,7 @@ Partial Class ContabilidadC_RegPrePolizaS
If Rows.Count > 0 Then If Rows.Count > 0 Then
Dim dr As DataRow = Rows(0) Dim dr As DataRow = Rows(0)
dr("IdCtaContable") = DdlCtaContableE.SelectedValue dr("IdCtaContable") = -1 'DdlCtaContableE.SelectedValue
dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
dr("Concepto") = TxtConceptoE.Text dr("Concepto") = TxtConceptoE.Text
@@ -1342,19 +1342,21 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, "")) dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
dr("CveCuenta") = DdlCtaContableE.SelectedValue.ToEntero
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnConceptoContable").Value = DdlConceptosContablesE.SelectedValue.ToEntero dr("CodigoNombreCuenta") = DdlCtaContableE.SelectedItem.Text
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnProveedor").Value = DdlProveedoresE.SelectedValue.ToEntero
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCompra").Value = DdlComprasE.SelectedValue.ToEntero 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnConceptoContable").Value = DdlConceptosContablesE.SelectedValue.ToEntero
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnPersonal").Value = DdlPersonalE.SelectedValue.ToEntero 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnProveedor").Value = DdlProveedoresE.SelectedValue.ToEntero
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCliente").Value = DdlClientesE.SelectedValue.ToEntero 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCompra").Value = DdlComprasE.SelectedValue.ToEntero
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnVenta").Value = DdlVentasE.SelectedValue.ToEntero 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnPersonal").Value = DdlPersonalE.SelectedValue.ToEntero
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCliente").Value = DdlClientesE.SelectedValue.ToEntero
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnSubProyecto").Value = DdlSubProyectoE.SelectedValue.ToEntero 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnVenta").Value = DdlVentasE.SelectedValue.ToEntero
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnTipoGasto").Value = DdlTipoGastoE.SelectedValue.ToEntero
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCtaContable").Value = DdlCtaContableE.SelectedValue.ToEntero 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnSubProyecto").Value = DdlSubProyectoE.SelectedValue.ToEntero
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnTipoGasto").Value = DdlTipoGastoE.SelectedValue.ToEntero
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCtaContable").Value = DdlCtaContableE.SelectedValue.ToEntero
If TxtCargoE.Text <> "" Then If TxtCargoE.Text <> "" Then
dr("Cargo") = TxtCargoE.Text.ToDouble dr("Cargo") = TxtCargoE.Text.ToDouble
dr("Abono") = "".ToDouble dr("Abono") = "".ToDouble
@@ -1449,7 +1451,7 @@ Partial Class ContabilidadC_RegPrePolizaS
If CvePrePoliza > 0 Then If CvePrePoliza > 0 Then
Dim dr As DataRow = DtMovimientos.NewRow Dim dr As DataRow = DtMovimientos.NewRow
dr("IdCtaContable") = DdlCtaContable.SelectedValue dr("IdCtaContable") = -1 'DdlCtaContable.SelectedValue
dr("ConceptoContable") = DdlConceptosContables.SelectedItem.Text dr("ConceptoContable") = DdlConceptosContables.SelectedItem.Text
dr("CveConceptoContable") = DdlConceptosContables.SelectedValue dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
dr("Concepto") = TxtDescripcion.Text dr("Concepto") = TxtDescripcion.Text
@@ -1937,31 +1939,42 @@ Partial Class ContabilidadC_RegPrePolizaS
Try Try
For Each Row As DataRow In dt.Rows For Each Row As DataRow In dt.FiltraParametros("ConceptoAdministrativo <> ''").Rows
Dim NombreCuenta As String = Row("NombreCuenta").ToString Dim NombreCuenta As String = Row("NombreCuenta").ToString
Dim Cuenta As String = Row("Cuenta").ToString Dim Cuenta As String = Row("Cuenta").ToString
Dim ConceptoAdministrativo As String = Row("ConceptoAdministrativo").ToString Dim ConceptoAdministrativo As String = Row("ConceptoAdministrativo").ToString
Dim CveSubProyecto As Integer = Row("CveSubProyecto").ToString.ToEntero Dim CveSubProyecto As Integer = -1
Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True) Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True)
Dim CveConceptoContable As Integer = Row("CveConceptoContable").ToString.ToEntero Dim CveConceptoContable As Integer = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable ='{0}'", Row("ConceptoAdministrativo"))).ToEntero ' Row("CveConceptoContable").ToString.ToEntero
Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero
Dim CveClasificacion As Integer = -1 Dim CveClasificacion As Integer = -1
Dim CveCuenta As Integer = -1
Dim ObjConta2 As New ClsContabilidad
If ObjConta2.GetCuentas(-1, Row("Cuenta").ToString, 1, UsuarioActual.CveEmpresa) Then
CveCuenta = ObjConta2.DtResultados.FiltroPrimeroValor("CveCuenta", "").ToEntero
End If
ObjConta2.Dispose()
'sino viene el cveconcepto, busca por le nombre del concepto 'sino viene el cveconcepto, busca por le nombre del concepto
If CveConceptoContable = 0 Then CveConceptoContable = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable = '{0}'", Row("ConceptoAdministrativo"))).ToEntero If CveConceptoContable = 0 Then
Alert(String.Format("El concepto <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("ConceptoAdministrativo")))
DtMovimientos.Clear()
Exit For
End If
If Row("SubProyecto").ToString <> "" Then
CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto"))) 'Row("CveSubProyecto").ToString.ToEntero
End If
If CveConceptoContable = 69 Then If CveConceptoContable = 69 Then
CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", "").ToEntero CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", "").ToEntero
End If End If
If CveSubProyecto = 0 Then CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto"))).ToEntero
Dim dr As DataRow = DtMovimientos.NewRow Dim dr As DataRow = DtMovimientos.NewRow
Dim CodigoCuenta As String = "" Dim CodigoCuenta As String = ""
dr("IdCuenta") = IdCtaContable dr("CodigoCuenta") = NombreCuenta 'Cuenta & "<br>" & NombreCuenta
dr("CodigoCuenta") = Cuenta & "<br>" & NombreCuenta
dr("Cuenta") = ConceptoAdministrativo dr("Cuenta") = ConceptoAdministrativo
dr("Referencia") = Row("Referencia").ToString dr("Referencia") = Row("Referencia").ToString
dr("Concepto") = Row("Concepto").ToString dr("Concepto") = Row("Concepto").ToString
@@ -1969,10 +1982,10 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("EsComodin") = 0 dr("EsComodin") = 0
dr("CveConcepto") = CveConceptoContable dr("CveConcepto") = CveConceptoContable
dr("CveConceptoContable") = CveConceptoContable dr("CveConceptoContable") = CveConceptoContable
dr("ConceptoContable") = "" dr("ConceptoContable") = Row("ConceptoAdministrativo").ToString
dr("Cargo") = Row("Cargo").ToString.ToDecimal dr("Cargo") = Row("Cargo").ToString.ToDecimal
dr("Abono") = Row("Abono").ToString.ToDecimal dr("Abono") = Row("Abono").ToString.ToDecimal
dr("Descripcion") = "" dr("Descripcion") = Row("Concepto").ToString
dr("CveSubProyecto") = CveSubProyecto dr("CveSubProyecto") = CveSubProyecto
dr("CveProveedor") = -1 dr("CveProveedor") = -1
dr("CveCompra") = -1 dr("CveCompra") = -1
@@ -1980,6 +1993,7 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("CveClasificacion") = CveClasificacion dr("CveClasificacion") = CveClasificacion
dr("CveCliente") = -1 dr("CveCliente") = -1
dr("CveVenta") = -1 dr("CveVenta") = -1
dr("CveCuenta") = CveCuenta
TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero
TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero

2
General/SaldosIniciales.aspx.vb
View File

@@ -1227,7 +1227,7 @@ Partial Class General_SaldosIniciales
For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString}'") Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString}'")
Dim TipoDocto As String = Row("Tipo Documento").ToString Dim TipoDocto As String = Row("Tipo Documento").ToString.Trim
Dim RFC As String = Row("RFC").ToString.Trim Dim RFC As String = Row("RFC").ToString.Trim
Dim Serie As String = Row("Serie").ToString Dim Serie As String = Row("Serie").ToString
Dim Folio As Integer = Row("Folio").ToString.ToEntero Dim Folio As Integer = Row("Folio").ToString.ToEntero