--cambios en TC al registrar
This commit is contained in:
@@ -86,7 +86,7 @@
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
|
||||
<asp:LinkButton ID="LnkAddConcepto" runat="server" OnClick="LnkAddConcepto_Click" Visible="true"><i class="fa fa-plus" ></i> Agregar Concepto</asp:LinkButton>
|
||||
<asp:LinkButton ID="LnkAddConcepto" runat="server" OnClick="LnkAddConcepto_Click" ><i class="fa fa-plus" ></i> Agregar Concepto</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkCrearAPartirDe" runat="server" Visible="false" OnClick="LnkCrearAPartirDe_Click" Style="color: #686868;"><i class="fa fa-plus" style="color:#686868;" ></i>Crear a partir de</asp:LinkButton>
|
||||
@@ -178,14 +178,7 @@
|
||||
<label for="<%= TxtConcepto.ClientID.ToString()%>">Concepto:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
@@ -226,9 +219,7 @@
|
||||
<label for="<%= DdlPlantilla.ClientID.ToString()%>">Movimiento:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
@@ -249,101 +240,22 @@
|
||||
<asp:DropDownList ID="DdlTipoGasto" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoGasto_SelectedIndexChanged" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" Width="100%" ValidationGroup="GrpGuardar" DataTextField="TipoGasto" DataValueField="CveTipoGasto">
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<asp:UpdatePanel ID="UPPDocumento" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
|
||||
|
||||
<div id="DivConceptoPrePoliza" runat="server" class="chequesie22">
|
||||
<%-- <div class="chequesie12" runat="server" id="divDatosPrincipales">
|
||||
<div class="row">
|
||||
<label class="col-md-2 control-label text-left">Fecha: </label>
|
||||
<div class="col-md-4">
|
||||
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy">
|
||||
<asp:TextBox ID="TxtFecha" runat="server" CssClass="form-control" MaxLength="10"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton runat="server" ID="ImgCalendario" class="btn default"><i class="fa fa-calendar"></i></asp:LinkButton>
|
||||
</span>
|
||||
</div>
|
||||
|
||||
<ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender ID="Calendario" runat="server" TargetControlID="TxtFecha" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="RFVFechaDocumento" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVFechaDocumento" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaDocumento1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaDocumento2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
<div class="col-md-1" style="width: 5px;">
|
||||
<asp:CheckBox ID="ChkAutoConta" runat="server"></asp:CheckBox>
|
||||
</div>
|
||||
<label class="col-md-2">AutoContabilizar</label>
|
||||
|
||||
</div>
|
||||
|
||||
<div class="row" runat="server" id="divTipoPolAdd">
|
||||
<label class="col-md-2">Tipo Póliza:</label>
|
||||
<div class="col-md-4">
|
||||
<asp:DropDownList ID="DdlTipoPolizaAdd" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" Width="150px" ValidationGroup="GrpGuardar">
|
||||
<asp:ListItem Text="Ingreso" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Text="Egreso" Value="2"></asp:ListItem>
|
||||
<asp:ListItem Text="Diario" Value="3"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
</div>--%>
|
||||
|
||||
<%-- <div class="chequesie22" runat="server" id="divObservaciones">
|
||||
|
||||
|
||||
<div class="row">
|
||||
<label class="col-md-2">Observaciones:</label>
|
||||
<div class="col-md-5">
|
||||
<asp:TextBox ID="TxtObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="100" Width="400px" Rows="2" TextMode="MultiLine"></asp:TextBox>
|
||||
</div>
|
||||
|
||||
<label class="col-md-1">Movimiento:</label>
|
||||
<div class="col-md-4">
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
<div class="row" id="trCuentaDeposito" runat="server" visible="False">
|
||||
<label class="col-md-2">Cuenta Depósito:</label>
|
||||
<div class="col-md-10">
|
||||
<asp:DropDownList ID="DdlCuentaDeposito" CssClass="form-control input-sm select2me" runat="server" DataTextField="CuentaDeposito" DataValueField="CveCuentaDeposito" Width="400px" AppendDataBoundItems="True"></asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVCuentaDeposito" runat="server" ControlToValidate="DdlCuentaDeposito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta de Depósito''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCECuentaDeposito" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuentaDeposito" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>--%>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</asp:UpdatePanel>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
|
||||
<asp:UpdatePanel ID="UPMovs" runat="server" UpdateMode="Conditional" >
|
||||
<ContentTemplate>
|
||||
|
||||
<div id="divMovtos" runat="server" visible="false" >
|
||||
<div id="DivConceptoPrePoliza" >
|
||||
|
||||
|
||||
<div class="chequesie22">
|
||||
<div class="row" id="DivAgregarConceptos" runat="server" visible="true">
|
||||
<div class="row" id="DivAgregarConceptos" runat="server" >
|
||||
<div class="col-md-12">
|
||||
<table border="0" rules="none" style="border-collapse: collapse; min-width: 980px;" class="table table-striped GvSize mygvps Widthall">
|
||||
<tr class="Titulos TextTab">
|
||||
@@ -402,22 +314,8 @@
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
|
||||
<asp:UpdatePanel ID="UPMovs" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<input id="HdnCveCuenta" runat="server" type="hidden" value="-1" clientidmode="Static" />
|
||||
|
||||
<input id="HdnCveCuenta" runat="server" type="hidden" value="-1" clientidmode="Static" />
|
||||
<table style="width: 100%;" class="table GvSize table-striped table-advance table-hover">
|
||||
<tr class="Titulos">
|
||||
<th>Cuenta</th>
|
||||
@@ -434,7 +332,7 @@
|
||||
</tr>
|
||||
</table>
|
||||
|
||||
<div style="width: 100%; min-height: 200px; overflow-scrolling: auto;">
|
||||
<div style="width: 100%; min-height: 200px; overflow-scrolling: auto;">
|
||||
|
||||
|
||||
<div class="portlet light xspadding bordered " id="pnldl2">
|
||||
@@ -546,6 +444,7 @@
|
||||
</asp:GridView>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
@@ -557,7 +456,7 @@
|
||||
<div class="portlet-title">
|
||||
<div class="caption ">
|
||||
<i class="fa fa-bookmark font-green"></i>
|
||||
<span class="caption-subject font-green bold uppercase">Movimientos</span>
|
||||
<span class="caption-subject font-green bold uppercase">Movimientos2</span>
|
||||
</div>
|
||||
|
||||
<div class="tools">
|
||||
@@ -576,7 +475,7 @@
|
||||
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
|
||||
|
||||
<asp:GridView ID="GvPrePoliza" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover mysmallbtn GvPrePoliza" GridLines="None"
|
||||
DataKeyNames="CvePrePolizaDetalle, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC" Width="100%" >
|
||||
DataKeyNames="CvePrePolizaDetalle,IdMov, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,EsComplementaria" Width="100%" >
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Movimiento</HeaderTemplate>
|
||||
@@ -888,8 +787,7 @@
|
||||
<div class="col-xs-2" style="text-align: left">Cliente:</div>
|
||||
<div class="col-xs-4" style="text-align: left">
|
||||
<ADS:Dropdownlost ID="DdlClientesE" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="405px" AutoPostBack="true"></ADS:Dropdownlost>
|
||||
<asp:RequiredFieldValidator ID="RfvDdlClientesE" InitialValue="-1" runat="server" ControlToValidate="DdlClientesE" Display="None" ErrorMessage="El campo <b>''Cliente''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="CeRfvDdlClientesE" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlClientesE" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
<i></i>
|
||||
</div>
|
||||
</div>
|
||||
@@ -920,7 +818,7 @@
|
||||
|
||||
<div class="row" runat="server" id="DvModalconceptoProcentajeIVA" visible="false">
|
||||
|
||||
<div class="col-xs-2" style="text-align: left">Procentaje IVA:</div>
|
||||
<div class="col-xs-2" style="text-align: left">Porcentaje IVA:</div>
|
||||
<div class="col-xs-4" style="text-align: left">
|
||||
|
||||
<asp:DropDownList ID="DdlPorcentajeIVAE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" Visible="false" Width="160px">
|
||||
@@ -934,6 +832,16 @@
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" runat="server" visible="false" id="DVmodalConceptoTipoCambio">
|
||||
<div class="col-xs-2" style="text-align: left">
|
||||
TC:
|
||||
</div>
|
||||
<div class="col-xs-3">
|
||||
<asp:TextBox ID="TxtTipoCambio" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox><br />
|
||||
<asp:CompareValidator ID="RfvTxtModalConceptoTipoCambio" runat="server" ControlToValidate="TxtTipoCambio" Display="None" ErrorMessage="El campo <b>''Tipo de Cambio''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpMocalConceptoGuardar"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VceRfvTxtModalConceptoTipoCambio" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtModalConceptoTipoCambio" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<br />
|
||||
<div class="row">
|
||||
@@ -990,6 +898,15 @@
|
||||
</div>
|
||||
</div>
|
||||
<br />
|
||||
</div>
|
||||
<div class="row" runat="server" visible="false" id="DivMonedaExtranjera">
|
||||
<div class="col-xs-2" style="text-align: left">
|
||||
Mon Extrajera:
|
||||
</div>
|
||||
<div class="col-xs-3">
|
||||
<asp:TextBox ID="TxtME" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox><br />
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-xs-2" style="text-align: left">
|
||||
@@ -1010,16 +927,7 @@
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row" runat="server" visible="false" id="DVmodalConceptoTipoCambio">
|
||||
<div class="col-xs-2" style="text-align: left">
|
||||
Tipo de Cambio:
|
||||
</div>
|
||||
<div class="col-xs-3">
|
||||
<asp:TextBox ID="TxtModalConceptoTipoCambio" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox><br />
|
||||
<asp:CompareValidator ID="RfvTxtModalConceptoTipoCambio" runat="server" ControlToValidate="TxtCargo" Display="None" ErrorMessage="El campo <b>''Tipo de Cambio''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpMocalConceptoGuardar"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VceRfvTxtModalConceptoTipoCambio" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtModalConceptoTipoCambio" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
<div class="col-md-6" runat="server" id="DvMoldalConceptoSeccion2" visible="false">
|
||||
|
||||
@@ -276,7 +276,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
End If
|
||||
ValidaCrearAPartirDe()
|
||||
DvPlantilla.Visible = False
|
||||
UPPDocumento.Visible = False
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||
|
||||
@@ -318,9 +318,9 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
TxtConcepto.Enabled = True
|
||||
TxtUsuarioElaboro.Text = UsuarioActual.Usuario
|
||||
DvPlantilla.Visible = True
|
||||
LnkAddConcepto.Visible = False
|
||||
'LnkAddConcepto.Visible = False
|
||||
|
||||
UpPrePoliza.Visible = False
|
||||
'UpPrePoliza.Visible = False
|
||||
|
||||
End If
|
||||
|
||||
@@ -366,7 +366,9 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
.Add("Concepto", Type.GetType("System.String"))
|
||||
.Add("Cargo", Type.GetType("System.Double"))
|
||||
.Add("Abono", Type.GetType("System.Double"))
|
||||
.Add("TipoMovto", Type.GetType("System.Int32"))
|
||||
.Add("TipoMovto", Type.GetType("System.Boolean"))
|
||||
.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"))
|
||||
@@ -384,6 +386,10 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
.Add("IdCtaContable", Type.GetType("System.Int32"))
|
||||
.Add("ConceptoContable", Type.GetType("System.String"))
|
||||
.Add("CveCuenta", Type.GetType("System.Int32"))
|
||||
.Add("CodigoNombreCuenta", Type.GetType("System.String"))
|
||||
.Add("SubProyecto", Type.GetType("System.String"))
|
||||
.Add("FolioFactura", Type.GetType("System.String"))
|
||||
.Add("TipoGasto", Type.GetType("System.String"))
|
||||
|
||||
.Add("ContadoTipoTransaccion", Type.GetType("System.Int32"))
|
||||
.Add("ContadoCuenta", Type.GetType("System.Int32"))
|
||||
@@ -396,6 +402,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
.Add("EsComplementaria", Type.GetType("System.Boolean"))
|
||||
.Add("TC", Type.GetType("System.Decimal"))
|
||||
|
||||
|
||||
End With
|
||||
|
||||
|
||||
@@ -547,9 +554,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
DtMovimientos.Columns.Add("Abono", GetType(Decimal))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
GvPrePoliza.DataBind()
|
||||
|
||||
If UsuarioActual.CveRol = 1 AndAlso DtMovimientos.COUNT("TC", "TC > 1") > 0 Then
|
||||
@@ -584,9 +588,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
|
||||
'divDatosPrincipales.Visible = False
|
||||
'divObservaciones.Visible = False
|
||||
UPMovs.Visible = False
|
||||
UPMovs.Update()
|
||||
UPPDocumento.Update()
|
||||
|
||||
UpPrePoliza.Update()
|
||||
|
||||
RegistraScript("comparar();")
|
||||
@@ -847,12 +849,25 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
|
||||
If DdlPlantilla.SelectedValue.ToEntero = 53 Then 'Plantilla Personalizada
|
||||
DivAgregarConceptos.Visible = True
|
||||
LnkAddConcepto.Visible = True
|
||||
If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then
|
||||
'DivAgregarConceptos.Visible = True
|
||||
LnkAddConcepto.Visible = True
|
||||
CargaConceptos()
|
||||
CargaSubProyectos()
|
||||
CargaCuentasContables()
|
||||
End If
|
||||
GvPrePoliza.Visible = True
|
||||
DivAgregarConceptos.Visible = False
|
||||
divMovtos.Visible = False
|
||||
UPMovs.Update()
|
||||
|
||||
Else
|
||||
DivAgregarConceptos.Visible = False
|
||||
divMovtos.Visible = True
|
||||
UPMovs.Update()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero
|
||||
|
||||
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden")
|
||||
@@ -919,7 +934,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
e.Row.Height = Unit.Pixel(1)
|
||||
e.Row.Cells(0).ToolTip = e.Row.DBCampo("CveCuenta")
|
||||
|
||||
If e.Row.DBCampo("TipoMovto") = "1" Then
|
||||
If e.Row.DBCampo("TipoMovto") = "True" Then
|
||||
e.Row.FCTextBox("TxtAbono").Visible = True
|
||||
Else
|
||||
e.Row.FCTextBox("TxtCargo").Visible = True
|
||||
@@ -957,8 +972,8 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
End If
|
||||
|
||||
If e.Row.DBCampo("EsComplementaria") = "True" Then
|
||||
If e.Row.DBCampo("TipoMovto") = "0" Then e.Row.FindControl("divCargoME").Visible = True
|
||||
If e.Row.DBCampo("TipoMovto") = "1" Then e.Row.FindControl("divAbonoME").Visible = True
|
||||
If e.Row.DBCampo("TipoMovto") = "False" Then e.Row.FindControl("divCargoME").Visible = True
|
||||
If e.Row.DBCampo("TipoMovto") = "True" Then e.Row.FindControl("divAbonoME").Visible = True
|
||||
End If
|
||||
|
||||
|
||||
@@ -1000,7 +1015,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
Dim CvePrePolizaInsertada As Integer = -1
|
||||
|
||||
If CvePrePolizaOrigen > 0 Then
|
||||
CrarPrePolizaApartirDe()
|
||||
CrearPrePolizaApartirDe()
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
@@ -1039,9 +1054,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
'terminan validaciones
|
||||
|
||||
If CvePrePoliza > 0 Then
|
||||
@@ -1102,7 +1114,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
ImporteME = 0
|
||||
TipoCambio = 1
|
||||
|
||||
If gvr.DataKey("TipoMovto").ToDouble > 0 Then
|
||||
If gvr.DataKey("TipoMovto") = "True" Then
|
||||
Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
|
||||
TmpAbono = TmpAbono + Importe
|
||||
TipoMovto = True
|
||||
@@ -1173,9 +1185,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
Else
|
||||
MsgError = "No se pudo insertar la póliza"
|
||||
End If
|
||||
@@ -1204,8 +1213,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
ObjIE.Commit()
|
||||
If Conta IsNot Nothing Then Conta.Commit()
|
||||
|
||||
UPPDocumento.Update()
|
||||
|
||||
TxtConcepto.Text = ""
|
||||
'GvMov.DataBind()
|
||||
DdlPlantilla_SelectedIndexChanged(Nothing, Nothing)
|
||||
@@ -1331,7 +1338,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
DdlConceptosContablesE.SelectedValueExist(CveConceptoContable)
|
||||
DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e)
|
||||
|
||||
TxtModalConceptoTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDouble.ToString("###,###,###.00")
|
||||
TxtTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDouble.ToString("###,###,###.00")
|
||||
DdlModalConceptoTipoTransaccion.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoTipoTransaccion"))
|
||||
DdlModalConceptoCuenta.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta"))
|
||||
TxtModalConceptoDocumentoFolio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoNumeroFolio")
|
||||
@@ -1341,16 +1348,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
|
||||
DdlPorcentajeIVAE.SelectedValueExist(PorcentajeImpuesto)
|
||||
|
||||
'GvPrePoliza.Rows(IndiceGrid).DataKey("")
|
||||
|
||||
'dr("ContadoTipoTransaccion") = DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero
|
||||
'dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero
|
||||
'dr("ContadoNumeroFolio") = TxtModalConceptoDocumentoFolio.Text
|
||||
'dr("ContadoBeneficiario") = TxtModalConceptoDocumentoBeneficiario.Text
|
||||
'dr("ContadoObservaciones") = TxtModalConceptoDocumentoObservaciones.Text
|
||||
'dr("ContadoImporte") = TxtModalConceptoDocumentoImporte.Text.ToDecimal
|
||||
|
||||
|
||||
DdlProveedoresE.SelectedValueExist(CveProveedor)
|
||||
DdlProveedoresE_SelectedIndexChanged(DdlProveedoresE, e)
|
||||
DdlComprasE.SelectedValueExist(CveCompra)
|
||||
@@ -1358,12 +1355,16 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
DdlPersonalE.SelectedValueExist(CvePersonal)
|
||||
|
||||
If CveCliente > 0 Then
|
||||
DvModalconceptoCliente.Visible = True
|
||||
DdlClientesE.SelectedValue = CveCliente
|
||||
DdlClientesE.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NombreComercial", $"CveCliente={CveCliente}")
|
||||
DdlClientesE.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", "")
|
||||
DdlClientesE_SelectedIndexChanged(DdlClientesE, e)
|
||||
|
||||
End If
|
||||
DdlVentasE.SelectedValueExist(CveVenta)
|
||||
If CveVenta > 0 Then
|
||||
DdlVentasE.SelectedValueExist(CveVenta)
|
||||
End If
|
||||
|
||||
|
||||
If CveClasificacion > 0 Then
|
||||
DdlClasificacionesE.SelectedValue = CveClasificacion
|
||||
@@ -1391,10 +1392,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
Else
|
||||
CargaModalConceptoTipoTransaccion("Egs")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
UpModalConcepto.Update()
|
||||
|
||||
End Sub
|
||||
@@ -1457,6 +1454,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
Dim AplicaSubProyecto As Boolean = False
|
||||
Dim AplicaTC As Boolean = False 'ok
|
||||
Dim AplicaVenta As Boolean = False
|
||||
Dim AplicaComplementaria As Boolean = False 'ok
|
||||
|
||||
AplicaActivoFijo = Boolean.Parse(DT_Concepto.Rows(0)("AplicaActivoFijo").ToString)
|
||||
AplicaAlmacen = Boolean.Parse(DT_Concepto.Rows(0)("AplicaAlmacen").ToString)
|
||||
@@ -1473,7 +1471,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
AplicaSubProyecto = Boolean.Parse(DT_Concepto.Rows(0)("AplicaSubProyecto").ToString)
|
||||
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)
|
||||
|
||||
|
||||
If AplicaImpuesto Then
|
||||
@@ -1514,26 +1512,19 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
'DdlClasificacionesE.Visible = False
|
||||
End If
|
||||
|
||||
If AplicaVenta Then
|
||||
DvModalconceptoVenta.Visible = True
|
||||
Else
|
||||
DvModalconceptoVenta.Visible = False
|
||||
End If
|
||||
|
||||
If AplicaCliente Then
|
||||
CargaClientesE()
|
||||
|
||||
DvModalconceptoCliente.Visible = True
|
||||
DvModalconceptoVenta.Visible = True
|
||||
|
||||
|
||||
'DdlClientesE.Visible = True
|
||||
'DdlVentasE.Visible = True
|
||||
Else
|
||||
|
||||
DvModalconceptoCliente.Visible = False
|
||||
DvModalconceptoVenta.Visible = False
|
||||
|
||||
'DdlClientesE.Visible = False
|
||||
'DdlVentasE.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
If AplicaBancos Then
|
||||
CargaModalConceptoTipoTransaccion("Egs")
|
||||
'DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px")
|
||||
@@ -1553,71 +1544,15 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
DVmodalConceptoTipoCambio.Visible = False
|
||||
End If
|
||||
|
||||
If AplicaComplementaria Then
|
||||
DivMonedaExtranjera.Visible = True
|
||||
Else
|
||||
DivMonedaExtranjera.Visible = False
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
'Dim dr As DataRow = GlobalDTContaConceptosContables(DdlConceptosContablesE.SelectedValue.ToEntero).FiltroPrimero("")
|
||||
|
||||
'If dr IsNot Nothing Then
|
||||
' DdlPorcentajeIVAE.Visible = dr("AplicaImpuesto") = "True"
|
||||
|
||||
'End If
|
||||
|
||||
'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then
|
||||
' CargaProveedoresE()
|
||||
' DdlProveedoresE.Visible = True
|
||||
' DdlComprasE.Visible = True
|
||||
'Else
|
||||
' DdlProveedoresE.Visible = False
|
||||
' DdlComprasE.Visible = False
|
||||
'End If
|
||||
|
||||
'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(28, 29) Then
|
||||
' CargaPersonalE()
|
||||
' DdlPersonalE.Visible = True
|
||||
'Else
|
||||
' DdlPersonalE.Visible = False
|
||||
'End If
|
||||
|
||||
'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(51) Then
|
||||
' CargaClasificacionesE()
|
||||
' DdlClasificacionesE.Visible = True
|
||||
'Else
|
||||
' DdlClasificacionesE.Visible = False
|
||||
'End If
|
||||
|
||||
'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91) Then
|
||||
' CargaClientesE()
|
||||
' DdlClientesE.Visible = True
|
||||
' DdlVentasE.Visible = True
|
||||
'Else
|
||||
' DdlClientesE.Visible = False
|
||||
' DdlVentasE.Visible = False
|
||||
'End If
|
||||
|
||||
'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(30) Then
|
||||
|
||||
' DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px")
|
||||
' DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-6")
|
||||
' DvMoldalConceptoSeccion2.Visible = True
|
||||
'Else
|
||||
|
||||
' DvMoldalConceptoAncho.Attributes.Add("style", "width:450px")
|
||||
' DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-12")
|
||||
' DvMoldalConceptoSeccion2.Visible = False
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
UpModalConcepto.Update()
|
||||
|
||||
|
||||
End Sub
|
||||
Private Sub CargaProveedoresE()
|
||||
DdlProveedoresE.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
||||
@@ -1648,12 +1583,18 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
DdlClientesE.DataBind()
|
||||
' DdlClientes.Items.Insert(0, New ListItem(" - ", "-1"))
|
||||
End Sub
|
||||
Private Sub CargaVentasE(CveCliente As Integer)
|
||||
Private Sub CargaVentasE(CveCliente As Integer, Optional CveMoneda As Integer = -1)
|
||||
DvModalconceptoVenta.Visible = True
|
||||
Dim ObjVentas As New ClsVentas
|
||||
|
||||
DdlVentasE.ClearSelection()
|
||||
If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
|
||||
DdlVentasE.DataSource = ObjVentas.DtResultados '.FiltraParametros("Saldo > 0")
|
||||
If CveMoneda = 2 Then
|
||||
DdlVentasE.DataSource = ObjVentas.DtResultados.FiltraParametros("CveMoneda = 2")
|
||||
Else
|
||||
DdlVentasE.DataSource = ObjVentas.DtResultados '.FiltraParametros("Saldo > 0")
|
||||
End If
|
||||
|
||||
DdlVentasE.DataBind()
|
||||
DdlVentasE.Items.Insert(0, New ListItem(" - ", "-1"))
|
||||
Else
|
||||
@@ -1678,7 +1619,8 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
CargaComprasE(DdlProveedoresE.SelectedValue.ToEntero)
|
||||
End Sub
|
||||
Private Sub DdlClientesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientesE.selectedindexchange
|
||||
CargaVentasE(DdlClientesE.SelectedValue.ToEntero)
|
||||
|
||||
CargaVentasE(DdlClientesE.SelectedValue.ToEntero, IIf(DdlConceptosContablesE.SelectedValue.Contiene("291", "292"), 2, -1))
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -1691,181 +1633,121 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
|
||||
If DtMovimientos Is Nothing Then CreaDT()
|
||||
|
||||
If CvePrePoliza > 0 Then
|
||||
|
||||
Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
|
||||
Dim dr As DataRow = DtMovimientos.NewRow
|
||||
dr("IdCtaContable") = IdCtaContable
|
||||
dr("CveCuenta") = DdlCuentaContableE.SelectedValue
|
||||
'dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
|
||||
dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text
|
||||
dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
|
||||
dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
|
||||
dr("Concepto") = TxtConceptoE.Text
|
||||
dr("Referencia") = TxtReferenciaE.Text
|
||||
dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, 0, 1)
|
||||
dr("Cargo") = TxtCargoE.Text.ToDouble
|
||||
dr("Abono") = TxtAbonoE.Text.ToDouble
|
||||
dr("ImporteMN") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, TxtCargoE.Text.ToDouble, TxtAbonoE.Text.ToDouble)
|
||||
dr("CveSubProyecto") = DdlSubProyectoE.SelectedValue
|
||||
dr("SubProyecto") = DdlSubProyectoE.SelectedItem.Text
|
||||
dr("CveProveedor") = DdlProveedoresE.SelectedValue.ToEntero
|
||||
dr("CveCompra") = DdlComprasE.SelectedValue.ToEntero
|
||||
dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
|
||||
dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
|
||||
dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
|
||||
If DdlComprasE.Visible = True AndAlso DdlComprasE.SelectedValue.ToEntero > 0 Then dr("FolioFactura") = DdlComprasE.SelectedItem.ToString()
|
||||
If DdlVentasE.Visible = True AndAlso DdlVentasE.SelectedValue.ToEntero > 0 Then dr("FolioFactura") = DdlVentasE.SelectedItem.ToString()
|
||||
dr("Modificado") = True
|
||||
|
||||
If DdlPorcentajeIVAE.Visible Then
|
||||
dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal
|
||||
End If
|
||||
|
||||
|
||||
|
||||
DtMovimientos.Rows.Add(dr)
|
||||
DtMovimientos.AcceptChanges()
|
||||
|
||||
If CvePrePoliza > 0 Or CvePrePolizaOrigen Then
|
||||
GvPrePoliza.DataSource = DtMovimientos
|
||||
GvPrePoliza.DataBind()
|
||||
UpPrePoliza.Update()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
|
||||
TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
|
||||
UpTotalCargo.Update()
|
||||
UpTotalAbono.Update()
|
||||
Else
|
||||
'Dim dr As DataRow = DtMovimientos.NewRow
|
||||
'Dim CodigoCuenta As String = ""
|
||||
'Dim NombreCuenta As String = ""
|
||||
|
||||
'dr("IdCuenta") = DdlCtaContableE.SelectedValue
|
||||
|
||||
'If DdlCtaContableE.SelectedValue.ToEntero > 0 Then
|
||||
' Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", DdlCtaContableE.SelectedValue))
|
||||
' If drr IsNot Nothing Then
|
||||
' CodigoCuenta = drr("CuentaFormato").ToString()
|
||||
' NombreCuenta = drr("Nombre").ToString()
|
||||
' End If
|
||||
'End If
|
||||
|
||||
'dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
|
||||
'dr("Cuenta") = DdlConceptosContablesE.SelectedItem.Text
|
||||
'dr("Referencia") = TxtReferenciaE.Text
|
||||
'dr("Concepto") = TxtConceptoE.Text
|
||||
'dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, 0, 1)
|
||||
'dr("EsComodin") = 0
|
||||
'dr("CveConcepto") = DdlConceptosContablesE.SelectedValue
|
||||
'dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
|
||||
'dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
|
||||
'dr("Cargo") = TxtCargoE.Text.ToDouble
|
||||
'dr("Abono") = TxtAbonoE.Text.ToDouble
|
||||
''dr("Descripcion") = TxtDescripcionE.Text
|
||||
'dr("CveSubProyecto") = DdlSubProyectoE.SelectedValue
|
||||
'dr("CveProveedor") = DdlProveedoresE.SelectedValue.ToEntero
|
||||
'dr("CveCompra") = DdlComprasE.SelectedValue.ToEntero
|
||||
'dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
|
||||
'dr("CveClasificacion") = -1
|
||||
'dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
|
||||
'dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
|
||||
|
||||
'TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbonoE.Text.ToDouble).ToString.FormatoNumero
|
||||
'TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargoE.Text.ToDouble).ToString.FormatoNumero
|
||||
'DtMovimientos.Rows.Add(dr)
|
||||
'DtMovimientos.AcceptChanges()
|
||||
|
||||
'GvMov.DataSource = DtMovimientos
|
||||
'GvMov.DataBind()
|
||||
'UPMovs.Update()
|
||||
'Actualizar = False
|
||||
Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
|
||||
Dim dr As DataRow = DtMovimientos.NewRow
|
||||
dr("IdCtaContable") = IdCtaContable
|
||||
dr("CveCuenta") = DdlCuentaContableE.SelectedValue
|
||||
'dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
|
||||
dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text
|
||||
dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
|
||||
dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
|
||||
dr("Concepto") = TxtConceptoE.Text
|
||||
dr("Referencia") = TxtReferenciaE.Text
|
||||
dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, False, True)
|
||||
dr("Cargo") = TxtCargoE.Text.ToDouble
|
||||
dr("Abono") = TxtAbonoE.Text.ToDouble
|
||||
dr("ImporteMN") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, TxtCargoE.Text.ToDouble, TxtAbonoE.Text.ToDouble)
|
||||
dr("CveSubProyecto") = DdlSubProyectoE.SelectedValue
|
||||
dr("SubProyecto") = DdlSubProyectoE.SelectedItem.Text
|
||||
dr("CveProveedor") = DdlProveedoresE.SelectedValue.ToEntero
|
||||
dr("CveCompra") = DdlComprasE.SelectedValue.ToEntero
|
||||
dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
|
||||
dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
|
||||
dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
|
||||
If DdlComprasE.Visible = True AndAlso DdlComprasE.SelectedValue.ToEntero > 0 Then dr("FolioFactura") = DdlComprasE.SelectedItem.ToString()
|
||||
If DdlVentasE.Visible = True AndAlso DdlVentasE.SelectedValue.ToEntero > 0 Then dr("FolioFactura") = DdlVentasE.SelectedItem.ToString()
|
||||
dr("Modificado") = True
|
||||
|
||||
If DdlPorcentajeIVAE.Visible Then
|
||||
dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal
|
||||
End If
|
||||
|
||||
DtMovimientos.Rows.Add(dr)
|
||||
DtMovimientos.AcceptChanges()
|
||||
|
||||
If CvePrePoliza > 0 Or CvePrePolizaOrigen Then
|
||||
GvPrePoliza.DataSource = DtMovimientos
|
||||
GvPrePoliza.DataBind()
|
||||
UpPrePoliza.Visible = True
|
||||
End If
|
||||
|
||||
TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
|
||||
TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
|
||||
UpTotalCargo.Update()
|
||||
UpTotalAbono.Update()
|
||||
RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal")
|
||||
|
||||
Else
|
||||
Dim CvePrePolizaDetalle As Integer = GvPrePoliza.DataKeys(IndiceGrid).Value.ToString.ToEntero
|
||||
|
||||
Dim Rows As DataRow() = DtMovimientos.Select("CvePrePolizaDetalle = " & CvePrePolizaDetalle)
|
||||
|
||||
If Rows.Count > 0 Then
|
||||
Dim dr As DataRow = Rows(0)
|
||||
Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
|
||||
dr("IdCtaContable") = IdCtaContable
|
||||
dr("CveCuenta") = DdlCuentaContableE.SelectedValue
|
||||
dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text
|
||||
dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
|
||||
dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
|
||||
dr("Concepto") = TxtConceptoE.Text
|
||||
dr("Referencia") = TxtReferenciaE.Text
|
||||
dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, 0, 1)
|
||||
dr("ImporteMN") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, TxtCargoE.Text.ToDouble, TxtAbonoE.Text.ToDouble)
|
||||
dr("CveSubProyecto") = DdlSubProyectoE.SelectedValue
|
||||
dr("SubProyecto") = DdlSubProyectoE.SelectedItem.Text
|
||||
dr("CveProveedor") = DdlProveedoresE.SelectedValue.ToEntero
|
||||
dr("CveCompra") = DdlComprasE.SelectedValue.ToEntero
|
||||
dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
|
||||
dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
|
||||
dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
|
||||
dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
|
||||
dr("Modificado") = True
|
||||
|
||||
dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero
|
||||
dr("ContadoTipoTransaccion") = DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero
|
||||
dr("ContadoNumeroFolio") = TxtModalConceptoDocumentoFolio.Text
|
||||
dr("ContadoBeneficiario") = TxtModalConceptoDocumentoBeneficiario.Text
|
||||
dr("ContadoObservaciones") = TxtModalConceptoDocumentoObservaciones.Text
|
||||
dr("ContadoImporte") = TxtModalConceptoDocumentoImporte.Text.ToDecimal
|
||||
|
||||
dr("TC") = TxtModalConceptoTipoCambio.Text.ToDecimal
|
||||
|
||||
dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToString.ToDecimal
|
||||
|
||||
|
||||
|
||||
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnConceptoContable").Value = DdlConceptosContablesE.SelectedValue.ToEntero
|
||||
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnProveedor").Value = DdlProveedoresE.SelectedValue.ToEntero
|
||||
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCompra").Value = DdlComprasE.SelectedValue.ToEntero
|
||||
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnPersonal").Value = DdlPersonalE.SelectedValue.ToEntero
|
||||
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCliente").Value = DdlClientesE.SelectedValue.ToEntero
|
||||
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnVenta").Value = DdlVentasE.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
|
||||
dr("Cargo") = TxtCargoE.Text.ToDouble
|
||||
dr("Abono") = "".ToDouble
|
||||
Else
|
||||
dr("Abono") = TxtAbonoE.Text.ToDouble
|
||||
dr("Cargo") = "".ToDouble
|
||||
End If
|
||||
|
||||
|
||||
DtMovimientos.AcceptChanges()
|
||||
GvPrePoliza.EditIndex = -1
|
||||
|
||||
If CvePrePoliza > 0 Or CvePrePolizaOrigen > 0 Then
|
||||
GvPrePoliza.DataSource = DtMovimientos
|
||||
GvPrePoliza.DataBind()
|
||||
UpPrePoliza.Update()
|
||||
End If
|
||||
GvPrePoliza.Columns(11).Visible = True
|
||||
GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True
|
||||
|
||||
TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
|
||||
TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
|
||||
UpTotalCargo.Update()
|
||||
UpTotalAbono.Update()
|
||||
|
||||
If CvePrePolizaDetalle <= 0 Then
|
||||
Dim IdMov As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("IdMov").ToEntero
|
||||
Rows = DtMovimientos.Select("IdMov = " & IdMov)
|
||||
End If
|
||||
RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal")
|
||||
End If
|
||||
If Rows.Count > 0 Then
|
||||
Dim dr As DataRow = Rows(0)
|
||||
Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
|
||||
dr("IdCtaContable") = IdCtaContable
|
||||
dr("CveCuenta") = DdlCuentaContableE.SelectedValue
|
||||
dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text
|
||||
dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
|
||||
dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
|
||||
dr("Concepto") = TxtConceptoE.Text
|
||||
dr("Referencia") = TxtReferenciaE.Text
|
||||
dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, False, True)
|
||||
dr("ImporteMN") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, TxtCargoE.Text.ToDouble, TxtAbonoE.Text.ToDouble)
|
||||
dr("CveSubProyecto") = DdlSubProyectoE.SelectedValue
|
||||
dr("SubProyecto") = DdlSubProyectoE.SelectedItem.Text
|
||||
dr("CveProveedor") = DdlProveedoresE.SelectedValue.ToEntero
|
||||
dr("CveCompra") = DdlComprasE.SelectedValue.ToEntero
|
||||
dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
|
||||
dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
|
||||
dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
|
||||
dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
|
||||
dr("Modificado") = True
|
||||
|
||||
dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero
|
||||
dr("ContadoTipoTransaccion") = DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero
|
||||
dr("ContadoNumeroFolio") = TxtModalConceptoDocumentoFolio.Text
|
||||
dr("ContadoBeneficiario") = TxtModalConceptoDocumentoBeneficiario.Text
|
||||
dr("ContadoObservaciones") = TxtModalConceptoDocumentoObservaciones.Text
|
||||
dr("ContadoImporte") = TxtModalConceptoDocumentoImporte.Text.ToDecimal
|
||||
|
||||
UpPrePoliza.Update()
|
||||
dr("TC") = TxtTipoCambio.Text.ToDecimal
|
||||
|
||||
dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal
|
||||
|
||||
If TxtCargoE.Text <> "" Then
|
||||
dr("Cargo") = TxtCargoE.Text.ToDouble
|
||||
dr("Abono") = "".ToDouble
|
||||
Else
|
||||
dr("Abono") = TxtAbonoE.Text.ToDouble
|
||||
dr("Cargo") = "".ToDouble
|
||||
End If
|
||||
|
||||
DtMovimientos.AcceptChanges()
|
||||
GvPrePoliza.EditIndex = -1
|
||||
|
||||
'If CvePrePoliza > 0 Or CvePrePolizaOrigen > 0 Then
|
||||
GvPrePoliza.DataSource = DtMovimientos
|
||||
GvPrePoliza.DataBind()
|
||||
UpPrePoliza.Update()
|
||||
GvPrePoliza.Visible = True
|
||||
'End If
|
||||
|
||||
GvPrePoliza.Columns(11).Visible = True
|
||||
GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True
|
||||
|
||||
TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
|
||||
TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
|
||||
UpTotalCargo.Update()
|
||||
UpTotalAbono.Update()
|
||||
|
||||
End If
|
||||
RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal")
|
||||
End If
|
||||
UpPrePoliza.Update()
|
||||
|
||||
End Sub
|
||||
Protected Sub GvMov_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvMov.RowDeleting
|
||||
@@ -1913,7 +1795,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
dr("Cuenta") = DdlConceptosContables.SelectedItem
|
||||
dr("Referencia") = TxtReferencia.Text
|
||||
dr("Concepto") = TxtConcepto.Text
|
||||
dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1)
|
||||
dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True)
|
||||
dr("EsComodin") = 0
|
||||
dr("CveConcepto") = DdlConceptosContables.SelectedValue
|
||||
dr("Cargo") = TxtCargo.Text.ToDouble
|
||||
@@ -1943,7 +1825,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
|
||||
dr("Concepto") = TxtDescripcion.Text
|
||||
dr("Referencia") = TxtReferencia.Text
|
||||
dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1)
|
||||
dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True)
|
||||
dr("Cargo") = TxtCargo.Text.ToDouble
|
||||
dr("Abono") = TxtAbono.Text.ToDouble
|
||||
dr("ImporteMN") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, TxtCargo.Text.ToDouble, TxtAbono.Text.ToDouble)
|
||||
@@ -1985,7 +1867,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
dr("Cuenta") = DdlConceptosContables.SelectedItem.Text
|
||||
dr("Referencia") = TxtReferencia.Text
|
||||
dr("Concepto") = TxtConcepto.Text
|
||||
dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1)
|
||||
dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True)
|
||||
dr("EsComodin") = 0
|
||||
dr("CveConcepto") = DdlConceptosContables.SelectedValue
|
||||
dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
|
||||
@@ -2006,12 +1888,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
DtMovimientos.Rows.Add(dr)
|
||||
DtMovimientos.AcceptChanges()
|
||||
|
||||
'If CvePrePoliza > 0 Then
|
||||
' GvPrePoliza.DataSource = DtMovimientos
|
||||
' GvPrePoliza.DataBind()
|
||||
' UpPrePoliza.Update()
|
||||
'End If
|
||||
|
||||
GvMov.DataSource = DtMovimientos
|
||||
GvMov.DataBind()
|
||||
UPMovs.Update()
|
||||
@@ -2140,7 +2016,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
Next
|
||||
UpPrePoliza.Update()
|
||||
End If
|
||||
If UPMovs.Visible Then
|
||||
If divMovtos.Visible Then
|
||||
For Each Gvr As GridViewRow In GvMov.Rows
|
||||
Gvr.FCDropDownList("DdlTipoGasto").SelectedValueExist(DdlTipoGasto.SelectedValue)
|
||||
Next
|
||||
@@ -2217,58 +2093,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
|
||||
End If
|
||||
|
||||
UPPDocumento.Update()
|
||||
DivAgregarConceptos.Visible = True
|
||||
|
||||
'If DtMovimientos Is Nothing Then CreaDT()
|
||||
|
||||
'Dim dr As DataRow = DtMovimientos.NewRow
|
||||
'Dim CodigoCuenta As String = ""
|
||||
'Dim NombreCuenta As String = ""
|
||||
|
||||
'dr("IdCuenta") = DdlCtaContable.SelectedValue
|
||||
|
||||
'If DdlCtaContable.SelectedValue.ToEntero > 0 Then
|
||||
' Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", DdlCtaContable.SelectedValue))
|
||||
' If drr IsNot Nothing Then
|
||||
' CodigoCuenta = drr("CuentaFormato").ToString()
|
||||
' NombreCuenta = drr("Nombre").ToString()
|
||||
' End If
|
||||
'End If
|
||||
|
||||
'dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
|
||||
'dr("Cuenta") = DdlConceptosContables.SelectedItem
|
||||
'dr("Referencia") = TxtReferencia.Text
|
||||
'dr("Concepto") = TxtObservaciones.Text
|
||||
'dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1)
|
||||
'dr("EsComodin") = 0
|
||||
'dr("CveConcepto") = DdlConceptosContables.SelectedValue
|
||||
'dr("Cargo") = TxtCargo.Text.ToDouble
|
||||
'dr("Abono") = TxtAbono.Text.ToDouble
|
||||
'dr("Descripcion") = TxtDescripcion.Text
|
||||
'dr("CveSubProyecto") = DdlSubProyecto.SelectedValue
|
||||
'dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero
|
||||
'dr("CveCompra") = DdlCompras.SelectedValue.ToEntero
|
||||
'dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
|
||||
'dr("CveClasificacion") = -1
|
||||
'dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
|
||||
'dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
|
||||
|
||||
'TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero
|
||||
'TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero
|
||||
'DtMovimientos.Rows.Add(dr)
|
||||
|
||||
'If CvePrePoliza > 0 Then
|
||||
' GvPrePoliza.DataSource = DtMovimientos
|
||||
' GvPrePoliza.DataBind()
|
||||
'End If
|
||||
|
||||
|
||||
'GvMov.DataSource = DtMovimientos
|
||||
'GvMov.DataBind()
|
||||
'UPMovs.Update()
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LbCancelarEdicion_Click(sender As Object, e As EventArgs) Handles LbCancelarEdicion.Click
|
||||
@@ -2956,9 +2780,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
|
||||
'divDatosPrincipales.Visible = False
|
||||
'divObservaciones.Visible = False
|
||||
UPMovs.Visible = False
|
||||
UPMovs.Update()
|
||||
UPPDocumento.Update()
|
||||
|
||||
UpPrePoliza.Update()
|
||||
|
||||
RegistraScript("comparar();")
|
||||
@@ -2988,7 +2810,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CrarPrePolizaApartirDe()
|
||||
Private Sub CrearPrePolizaApartirDe()
|
||||
Dim CvePrePoliza As Integer
|
||||
Dim FolioPoliza As Integer
|
||||
|
||||
@@ -3131,9 +2953,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
MsgError = ObjMov.MensajePolizaDescuadre
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Else
|
||||
MsgError = "No se pudo insertar la póliza"
|
||||
End If
|
||||
@@ -3157,8 +2976,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
ObjIE.Commit()
|
||||
If Conta IsNot Nothing Then Conta.Commit()
|
||||
|
||||
UPPDocumento.Update()
|
||||
|
||||
TxtConcepto.Text = ""
|
||||
GvMov.DataBind()
|
||||
TxtFechaDocumento.Text = ""
|
||||
|
||||
Reference in New Issue
Block a user