--cambios en TC al registrar
This commit is contained in:
@@ -86,7 +86,7 @@
|
|||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
<li>
|
<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>
|
||||||
<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>
|
<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>
|
<label for="<%= TxtConcepto.ClientID.ToString()%>">Concepto:</label>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
@@ -226,9 +219,7 @@
|
|||||||
<label for="<%= DdlPlantilla.ClientID.ToString()%>">Movimiento:</label>
|
<label for="<%= DdlPlantilla.ClientID.ToString()%>">Movimiento:</label>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</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 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>
|
</asp:DropDownList>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<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 ID="UPMovs" runat="server" UpdateMode="Conditional" >
|
||||||
|
<ContentTemplate>
|
||||||
|
|
||||||
|
<div id="divMovtos" runat="server" visible="false" >
|
||||||
|
<div id="DivConceptoPrePoliza" >
|
||||||
|
|
||||||
|
|
||||||
<div class="chequesie22">
|
<div class="chequesie22">
|
||||||
<div class="row" id="DivAgregarConceptos" runat="server" visible="true">
|
<div class="row" id="DivAgregarConceptos" runat="server" >
|
||||||
<div class="col-md-12">
|
<div class="col-md-12">
|
||||||
<table border="0" rules="none" style="border-collapse: collapse; min-width: 980px;" class="table table-striped GvSize mygvps Widthall">
|
<table border="0" rules="none" style="border-collapse: collapse; min-width: 980px;" class="table table-striped GvSize mygvps Widthall">
|
||||||
<tr class="Titulos TextTab">
|
<tr class="Titulos TextTab">
|
||||||
@@ -402,22 +314,8 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</ContentTemplate>
|
|
||||||
</asp:UpdatePanel>
|
<input id="HdnCveCuenta" runat="server" type="hidden" value="-1" clientidmode="Static" />
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
</td>
|
|
||||||
</tr>
|
|
||||||
</table>
|
|
||||||
|
|
||||||
<asp:UpdatePanel ID="UPMovs" runat="server" UpdateMode="Conditional">
|
|
||||||
<ContentTemplate>
|
|
||||||
|
|
||||||
<input id="HdnCveCuenta" runat="server" type="hidden" value="-1" clientidmode="Static" />
|
|
||||||
<table style="width: 100%;" class="table GvSize table-striped table-advance table-hover">
|
<table style="width: 100%;" class="table GvSize table-striped table-advance table-hover">
|
||||||
<tr class="Titulos">
|
<tr class="Titulos">
|
||||||
<th>Cuenta</th>
|
<th>Cuenta</th>
|
||||||
@@ -434,7 +332,7 @@
|
|||||||
</tr>
|
</tr>
|
||||||
</table>
|
</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">
|
<div class="portlet light xspadding bordered " id="pnldl2">
|
||||||
@@ -546,6 +444,7 @@
|
|||||||
</asp:GridView>
|
</asp:GridView>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
@@ -557,7 +456,7 @@
|
|||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption ">
|
<div class="caption ">
|
||||||
<i class="fa fa-bookmark font-green"></i>
|
<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>
|
||||||
|
|
||||||
<div class="tools">
|
<div class="tools">
|
||||||
@@ -576,7 +475,7 @@
|
|||||||
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
|
<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"
|
<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>
|
<Columns>
|
||||||
<asp:TemplateField>
|
<asp:TemplateField>
|
||||||
<HeaderTemplate>Movimiento</HeaderTemplate>
|
<HeaderTemplate>Movimiento</HeaderTemplate>
|
||||||
@@ -888,8 +787,7 @@
|
|||||||
<div class="col-xs-2" style="text-align: left">Cliente:</div>
|
<div class="col-xs-2" style="text-align: left">Cliente:</div>
|
||||||
<div class="col-xs-4" style="text-align: left">
|
<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>
|
<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>
|
<i></i>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
@@ -920,7 +818,7 @@
|
|||||||
|
|
||||||
<div class="row" runat="server" id="DvModalconceptoProcentajeIVA" visible="false">
|
<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">
|
<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">
|
<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>
|
</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 />
|
<br />
|
||||||
<div class="row">
|
<div class="row">
|
||||||
@@ -990,6 +898,15 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<br />
|
<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>
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-xs-2" style="text-align: left">
|
<div class="col-xs-2" style="text-align: left">
|
||||||
@@ -1010,16 +927,7 @@
|
|||||||
</div>
|
</div>
|
||||||
</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>
|
||||||
<div class="col-md-6" runat="server" id="DvMoldalConceptoSeccion2" visible="false">
|
<div class="col-md-6" runat="server" id="DvMoldalConceptoSeccion2" visible="false">
|
||||||
|
|||||||
@@ -276,7 +276,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
End If
|
End If
|
||||||
ValidaCrearAPartirDe()
|
ValidaCrearAPartirDe()
|
||||||
DvPlantilla.Visible = False
|
DvPlantilla.Visible = False
|
||||||
UPPDocumento.Visible = False
|
|
||||||
|
|
||||||
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||||
|
|
||||||
@@ -318,9 +318,9 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
TxtConcepto.Enabled = True
|
TxtConcepto.Enabled = True
|
||||||
TxtUsuarioElaboro.Text = UsuarioActual.Usuario
|
TxtUsuarioElaboro.Text = UsuarioActual.Usuario
|
||||||
DvPlantilla.Visible = True
|
DvPlantilla.Visible = True
|
||||||
LnkAddConcepto.Visible = False
|
'LnkAddConcepto.Visible = False
|
||||||
|
|
||||||
UpPrePoliza.Visible = False
|
'UpPrePoliza.Visible = False
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -366,7 +366,9 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
.Add("Concepto", Type.GetType("System.String"))
|
.Add("Concepto", Type.GetType("System.String"))
|
||||||
.Add("Cargo", Type.GetType("System.Double"))
|
.Add("Cargo", Type.GetType("System.Double"))
|
||||||
.Add("Abono", 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("EsComodin", Type.GetType("System.Int32"))
|
||||||
.Add("CveConcepto", Type.GetType("System.Int32"))
|
.Add("CveConcepto", Type.GetType("System.Int32"))
|
||||||
.Add("CveSubProyecto", 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("IdCtaContable", Type.GetType("System.Int32"))
|
||||||
.Add("ConceptoContable", Type.GetType("System.String"))
|
.Add("ConceptoContable", Type.GetType("System.String"))
|
||||||
.Add("CveCuenta", Type.GetType("System.Int32"))
|
.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("ContadoTipoTransaccion", Type.GetType("System.Int32"))
|
||||||
.Add("ContadoCuenta", 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("EsComplementaria", Type.GetType("System.Boolean"))
|
||||||
.Add("TC", Type.GetType("System.Decimal"))
|
.Add("TC", Type.GetType("System.Decimal"))
|
||||||
|
|
||||||
|
|
||||||
End With
|
End With
|
||||||
|
|
||||||
|
|
||||||
@@ -547,9 +554,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
DtMovimientos.Columns.Add("Abono", GetType(Decimal))
|
DtMovimientos.Columns.Add("Abono", GetType(Decimal))
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
GvPrePoliza.DataBind()
|
GvPrePoliza.DataBind()
|
||||||
|
|
||||||
If UsuarioActual.CveRol = 1 AndAlso DtMovimientos.COUNT("TC", "TC > 1") > 0 Then
|
If UsuarioActual.CveRol = 1 AndAlso DtMovimientos.COUNT("TC", "TC > 1") > 0 Then
|
||||||
@@ -584,9 +588,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
|
|
||||||
'divDatosPrincipales.Visible = False
|
'divDatosPrincipales.Visible = False
|
||||||
'divObservaciones.Visible = False
|
'divObservaciones.Visible = False
|
||||||
UPMovs.Visible = False
|
|
||||||
UPMovs.Update()
|
|
||||||
UPPDocumento.Update()
|
|
||||||
UpPrePoliza.Update()
|
UpPrePoliza.Update()
|
||||||
|
|
||||||
RegistraScript("comparar();")
|
RegistraScript("comparar();")
|
||||||
@@ -847,12 +849,25 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
|
|
||||||
If DdlPlantilla.SelectedValue.ToEntero = 53 Then 'Plantilla Personalizada
|
If DdlPlantilla.SelectedValue.ToEntero = 53 Then 'Plantilla Personalizada
|
||||||
DivAgregarConceptos.Visible = True
|
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
|
Else
|
||||||
DivAgregarConceptos.Visible = False
|
DivAgregarConceptos.Visible = False
|
||||||
|
divMovtos.Visible = True
|
||||||
|
UPMovs.Update()
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero
|
Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero
|
||||||
|
|
||||||
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden")
|
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.Height = Unit.Pixel(1)
|
||||||
e.Row.Cells(0).ToolTip = e.Row.DBCampo("CveCuenta")
|
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
|
e.Row.FCTextBox("TxtAbono").Visible = True
|
||||||
Else
|
Else
|
||||||
e.Row.FCTextBox("TxtCargo").Visible = True
|
e.Row.FCTextBox("TxtCargo").Visible = True
|
||||||
@@ -957,8 +972,8 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
If e.Row.DBCampo("EsComplementaria") = "True" Then
|
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") = "False" 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") = "True" Then e.Row.FindControl("divAbonoME").Visible = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
@@ -1000,7 +1015,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
Dim CvePrePolizaInsertada As Integer = -1
|
Dim CvePrePolizaInsertada As Integer = -1
|
||||||
|
|
||||||
If CvePrePolizaOrigen > 0 Then
|
If CvePrePolizaOrigen > 0 Then
|
||||||
CrarPrePolizaApartirDe()
|
CrearPrePolizaApartirDe()
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -1039,9 +1054,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
'terminan validaciones
|
'terminan validaciones
|
||||||
|
|
||||||
If CvePrePoliza > 0 Then
|
If CvePrePoliza > 0 Then
|
||||||
@@ -1102,7 +1114,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
ImporteME = 0
|
ImporteME = 0
|
||||||
TipoCambio = 1
|
TipoCambio = 1
|
||||||
|
|
||||||
If gvr.DataKey("TipoMovto").ToDouble > 0 Then
|
If gvr.DataKey("TipoMovto") = "True" Then
|
||||||
Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
|
Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
|
||||||
TmpAbono = TmpAbono + Importe
|
TmpAbono = TmpAbono + Importe
|
||||||
TipoMovto = True
|
TipoMovto = True
|
||||||
@@ -1173,9 +1185,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Else
|
Else
|
||||||
MsgError = "No se pudo insertar la póliza"
|
MsgError = "No se pudo insertar la póliza"
|
||||||
End If
|
End If
|
||||||
@@ -1204,8 +1213,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
ObjIE.Commit()
|
ObjIE.Commit()
|
||||||
If Conta IsNot Nothing Then Conta.Commit()
|
If Conta IsNot Nothing Then Conta.Commit()
|
||||||
|
|
||||||
UPPDocumento.Update()
|
|
||||||
|
|
||||||
TxtConcepto.Text = ""
|
TxtConcepto.Text = ""
|
||||||
'GvMov.DataBind()
|
'GvMov.DataBind()
|
||||||
DdlPlantilla_SelectedIndexChanged(Nothing, Nothing)
|
DdlPlantilla_SelectedIndexChanged(Nothing, Nothing)
|
||||||
@@ -1331,7 +1338,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
DdlConceptosContablesE.SelectedValueExist(CveConceptoContable)
|
DdlConceptosContablesE.SelectedValueExist(CveConceptoContable)
|
||||||
DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e)
|
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"))
|
DdlModalConceptoTipoTransaccion.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoTipoTransaccion"))
|
||||||
DdlModalConceptoCuenta.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta"))
|
DdlModalConceptoCuenta.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta"))
|
||||||
TxtModalConceptoDocumentoFolio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoNumeroFolio")
|
TxtModalConceptoDocumentoFolio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoNumeroFolio")
|
||||||
@@ -1341,16 +1348,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
|
|
||||||
DdlPorcentajeIVAE.SelectedValueExist(PorcentajeImpuesto)
|
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.SelectedValueExist(CveProveedor)
|
||||||
DdlProveedoresE_SelectedIndexChanged(DdlProveedoresE, e)
|
DdlProveedoresE_SelectedIndexChanged(DdlProveedoresE, e)
|
||||||
DdlComprasE.SelectedValueExist(CveCompra)
|
DdlComprasE.SelectedValueExist(CveCompra)
|
||||||
@@ -1358,12 +1355,16 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
DdlPersonalE.SelectedValueExist(CvePersonal)
|
DdlPersonalE.SelectedValueExist(CvePersonal)
|
||||||
|
|
||||||
If CveCliente > 0 Then
|
If CveCliente > 0 Then
|
||||||
|
DvModalconceptoCliente.Visible = True
|
||||||
DdlClientesE.SelectedValue = CveCliente
|
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)
|
DdlClientesE_SelectedIndexChanged(DdlClientesE, e)
|
||||||
|
|
||||||
End If
|
End If
|
||||||
DdlVentasE.SelectedValueExist(CveVenta)
|
If CveVenta > 0 Then
|
||||||
|
DdlVentasE.SelectedValueExist(CveVenta)
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
If CveClasificacion > 0 Then
|
If CveClasificacion > 0 Then
|
||||||
DdlClasificacionesE.SelectedValue = CveClasificacion
|
DdlClasificacionesE.SelectedValue = CveClasificacion
|
||||||
@@ -1391,10 +1392,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
Else
|
Else
|
||||||
CargaModalConceptoTipoTransaccion("Egs")
|
CargaModalConceptoTipoTransaccion("Egs")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
UpModalConcepto.Update()
|
UpModalConcepto.Update()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
@@ -1457,6 +1454,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
Dim AplicaSubProyecto As Boolean = False
|
Dim AplicaSubProyecto As Boolean = False
|
||||||
Dim AplicaTC As Boolean = False 'ok
|
Dim AplicaTC As Boolean = False 'ok
|
||||||
Dim AplicaVenta As Boolean = False
|
Dim AplicaVenta As Boolean = False
|
||||||
|
Dim AplicaComplementaria As Boolean = False 'ok
|
||||||
|
|
||||||
AplicaActivoFijo = Boolean.Parse(DT_Concepto.Rows(0)("AplicaActivoFijo").ToString)
|
AplicaActivoFijo = Boolean.Parse(DT_Concepto.Rows(0)("AplicaActivoFijo").ToString)
|
||||||
AplicaAlmacen = Boolean.Parse(DT_Concepto.Rows(0)("AplicaAlmacen").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)
|
AplicaSubProyecto = Boolean.Parse(DT_Concepto.Rows(0)("AplicaSubProyecto").ToString)
|
||||||
AplicaTC = Boolean.Parse(DT_Concepto.Rows(0)("AplicaTC").ToString)
|
AplicaTC = Boolean.Parse(DT_Concepto.Rows(0)("AplicaTC").ToString)
|
||||||
AplicaVenta = Boolean.Parse(DT_Concepto.Rows(0)("AplicaVenta").ToString)
|
AplicaVenta = Boolean.Parse(DT_Concepto.Rows(0)("AplicaVenta").ToString)
|
||||||
|
AplicaComplementaria = Boolean.Parse(DT_Concepto.Rows(0)("EsComplementaria").ToString)
|
||||||
|
|
||||||
|
|
||||||
If AplicaImpuesto Then
|
If AplicaImpuesto Then
|
||||||
@@ -1514,26 +1512,19 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
'DdlClasificacionesE.Visible = False
|
'DdlClasificacionesE.Visible = False
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
If AplicaVenta Then
|
||||||
|
DvModalconceptoVenta.Visible = True
|
||||||
|
Else
|
||||||
|
DvModalconceptoVenta.Visible = False
|
||||||
|
End If
|
||||||
|
|
||||||
If AplicaCliente Then
|
If AplicaCliente Then
|
||||||
CargaClientesE()
|
CargaClientesE()
|
||||||
|
|
||||||
DvModalconceptoCliente.Visible = True
|
DvModalconceptoCliente.Visible = True
|
||||||
DvModalconceptoVenta.Visible = True
|
|
||||||
|
|
||||||
|
|
||||||
'DdlClientesE.Visible = True
|
|
||||||
'DdlVentasE.Visible = True
|
|
||||||
Else
|
Else
|
||||||
|
|
||||||
DvModalconceptoCliente.Visible = False
|
DvModalconceptoCliente.Visible = False
|
||||||
DvModalconceptoVenta.Visible = False
|
|
||||||
|
|
||||||
'DdlClientesE.Visible = False
|
|
||||||
'DdlVentasE.Visible = False
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
If AplicaBancos Then
|
If AplicaBancos Then
|
||||||
CargaModalConceptoTipoTransaccion("Egs")
|
CargaModalConceptoTipoTransaccion("Egs")
|
||||||
'DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px")
|
'DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px")
|
||||||
@@ -1553,71 +1544,15 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
DVmodalConceptoTipoCambio.Visible = False
|
DVmodalConceptoTipoCambio.Visible = False
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
If AplicaComplementaria Then
|
||||||
|
DivMonedaExtranjera.Visible = True
|
||||||
|
Else
|
||||||
|
DivMonedaExtranjera.Visible = False
|
||||||
|
End If
|
||||||
|
|
||||||
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()
|
UpModalConcepto.Update()
|
||||||
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Private Sub CargaProveedoresE()
|
Private Sub CargaProveedoresE()
|
||||||
DdlProveedoresE.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
DdlProveedoresE.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
||||||
@@ -1648,12 +1583,18 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
DdlClientesE.DataBind()
|
DdlClientesE.DataBind()
|
||||||
' DdlClientes.Items.Insert(0, New ListItem(" - ", "-1"))
|
' DdlClientes.Items.Insert(0, New ListItem(" - ", "-1"))
|
||||||
End Sub
|
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
|
Dim ObjVentas As New ClsVentas
|
||||||
|
|
||||||
DdlVentasE.ClearSelection()
|
DdlVentasE.ClearSelection()
|
||||||
If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
|
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.DataBind()
|
||||||
DdlVentasE.Items.Insert(0, New ListItem(" - ", "-1"))
|
DdlVentasE.Items.Insert(0, New ListItem(" - ", "-1"))
|
||||||
Else
|
Else
|
||||||
@@ -1678,7 +1619,8 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
CargaComprasE(DdlProveedoresE.SelectedValue.ToEntero)
|
CargaComprasE(DdlProveedoresE.SelectedValue.ToEntero)
|
||||||
End Sub
|
End Sub
|
||||||
Private Sub DdlClientesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientesE.selectedindexchange
|
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
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
@@ -1691,181 +1633,121 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
|
|
||||||
If DtMovimientos Is Nothing Then CreaDT()
|
If DtMovimientos Is Nothing Then CreaDT()
|
||||||
|
|
||||||
If CvePrePoliza > 0 Then
|
Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
|
||||||
|
Dim dr As DataRow = DtMovimientos.NewRow
|
||||||
Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
|
dr("IdCtaContable") = IdCtaContable
|
||||||
Dim dr As DataRow = DtMovimientos.NewRow
|
dr("CveCuenta") = DdlCuentaContableE.SelectedValue
|
||||||
dr("IdCtaContable") = IdCtaContable
|
'dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
|
||||||
dr("CveCuenta") = DdlCuentaContableE.SelectedValue
|
dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text
|
||||||
'dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
|
dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
|
||||||
dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text
|
dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
|
||||||
dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
|
dr("Concepto") = TxtConceptoE.Text
|
||||||
dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
|
dr("Referencia") = TxtReferenciaE.Text
|
||||||
dr("Concepto") = TxtConceptoE.Text
|
dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, False, True)
|
||||||
dr("Referencia") = TxtReferenciaE.Text
|
dr("Cargo") = TxtCargoE.Text.ToDouble
|
||||||
dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, 0, 1)
|
dr("Abono") = TxtAbonoE.Text.ToDouble
|
||||||
dr("Cargo") = TxtCargoE.Text.ToDouble
|
dr("ImporteMN") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, TxtCargoE.Text.ToDouble, TxtAbonoE.Text.ToDouble)
|
||||||
dr("Abono") = TxtAbonoE.Text.ToDouble
|
dr("CveSubProyecto") = DdlSubProyectoE.SelectedValue
|
||||||
dr("ImporteMN") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, TxtCargoE.Text.ToDouble, TxtAbonoE.Text.ToDouble)
|
dr("SubProyecto") = DdlSubProyectoE.SelectedItem.Text
|
||||||
dr("CveSubProyecto") = DdlSubProyectoE.SelectedValue
|
dr("CveProveedor") = DdlProveedoresE.SelectedValue.ToEntero
|
||||||
dr("SubProyecto") = DdlSubProyectoE.SelectedItem.Text
|
dr("CveCompra") = DdlComprasE.SelectedValue.ToEntero
|
||||||
dr("CveProveedor") = DdlProveedoresE.SelectedValue.ToEntero
|
dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
|
||||||
dr("CveCompra") = DdlComprasE.SelectedValue.ToEntero
|
dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
|
||||||
dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
|
dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
|
||||||
dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
|
If DdlComprasE.Visible = True AndAlso DdlComprasE.SelectedValue.ToEntero > 0 Then dr("FolioFactura") = DdlComprasE.SelectedItem.ToString()
|
||||||
dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
|
If DdlVentasE.Visible = True AndAlso DdlVentasE.SelectedValue.ToEntero > 0 Then dr("FolioFactura") = DdlVentasE.SelectedItem.ToString()
|
||||||
If DdlComprasE.Visible = True AndAlso DdlComprasE.SelectedValue.ToEntero > 0 Then dr("FolioFactura") = DdlComprasE.SelectedItem.ToString()
|
dr("Modificado") = True
|
||||||
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
|
|
||||||
|
|
||||||
|
If DdlPorcentajeIVAE.Visible Then
|
||||||
|
dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal
|
||||||
End If
|
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
|
Else
|
||||||
Dim CvePrePolizaDetalle As Integer = GvPrePoliza.DataKeys(IndiceGrid).Value.ToString.ToEntero
|
Dim CvePrePolizaDetalle As Integer = GvPrePoliza.DataKeys(IndiceGrid).Value.ToString.ToEntero
|
||||||
|
|
||||||
Dim Rows As DataRow() = DtMovimientos.Select("CvePrePolizaDetalle = " & CvePrePolizaDetalle)
|
Dim Rows As DataRow() = DtMovimientos.Select("CvePrePolizaDetalle = " & CvePrePolizaDetalle)
|
||||||
|
If CvePrePolizaDetalle <= 0 Then
|
||||||
If Rows.Count > 0 Then
|
Dim IdMov As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("IdMov").ToEntero
|
||||||
Dim dr As DataRow = Rows(0)
|
Rows = DtMovimientos.Select("IdMov = " & IdMov)
|
||||||
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()
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal")
|
If Rows.Count > 0 Then
|
||||||
End If
|
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
|
End Sub
|
||||||
Protected Sub GvMov_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvMov.RowDeleting
|
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("Cuenta") = DdlConceptosContables.SelectedItem
|
||||||
dr("Referencia") = TxtReferencia.Text
|
dr("Referencia") = TxtReferencia.Text
|
||||||
dr("Concepto") = TxtConcepto.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("EsComodin") = 0
|
||||||
dr("CveConcepto") = DdlConceptosContables.SelectedValue
|
dr("CveConcepto") = DdlConceptosContables.SelectedValue
|
||||||
dr("Cargo") = TxtCargo.Text.ToDouble
|
dr("Cargo") = TxtCargo.Text.ToDouble
|
||||||
@@ -1943,7 +1825,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
|
dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
|
||||||
dr("Concepto") = TxtDescripcion.Text
|
dr("Concepto") = TxtDescripcion.Text
|
||||||
dr("Referencia") = TxtReferencia.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("Cargo") = TxtCargo.Text.ToDouble
|
||||||
dr("Abono") = TxtAbono.Text.ToDouble
|
dr("Abono") = TxtAbono.Text.ToDouble
|
||||||
dr("ImporteMN") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, TxtCargo.Text.ToDouble, 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("Cuenta") = DdlConceptosContables.SelectedItem.Text
|
||||||
dr("Referencia") = TxtReferencia.Text
|
dr("Referencia") = TxtReferencia.Text
|
||||||
dr("Concepto") = TxtConcepto.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("EsComodin") = 0
|
||||||
dr("CveConcepto") = DdlConceptosContables.SelectedValue
|
dr("CveConcepto") = DdlConceptosContables.SelectedValue
|
||||||
dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
|
dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
|
||||||
@@ -2006,12 +1888,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
DtMovimientos.Rows.Add(dr)
|
DtMovimientos.Rows.Add(dr)
|
||||||
DtMovimientos.AcceptChanges()
|
DtMovimientos.AcceptChanges()
|
||||||
|
|
||||||
'If CvePrePoliza > 0 Then
|
|
||||||
' GvPrePoliza.DataSource = DtMovimientos
|
|
||||||
' GvPrePoliza.DataBind()
|
|
||||||
' UpPrePoliza.Update()
|
|
||||||
'End If
|
|
||||||
|
|
||||||
GvMov.DataSource = DtMovimientos
|
GvMov.DataSource = DtMovimientos
|
||||||
GvMov.DataBind()
|
GvMov.DataBind()
|
||||||
UPMovs.Update()
|
UPMovs.Update()
|
||||||
@@ -2140,7 +2016,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
Next
|
Next
|
||||||
UpPrePoliza.Update()
|
UpPrePoliza.Update()
|
||||||
End If
|
End If
|
||||||
If UPMovs.Visible Then
|
If divMovtos.Visible Then
|
||||||
For Each Gvr As GridViewRow In GvMov.Rows
|
For Each Gvr As GridViewRow In GvMov.Rows
|
||||||
Gvr.FCDropDownList("DdlTipoGasto").SelectedValueExist(DdlTipoGasto.SelectedValue)
|
Gvr.FCDropDownList("DdlTipoGasto").SelectedValueExist(DdlTipoGasto.SelectedValue)
|
||||||
Next
|
Next
|
||||||
@@ -2217,58 +2093,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
|
|
||||||
End If
|
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
|
End Sub
|
||||||
|
|
||||||
Private Sub LbCancelarEdicion_Click(sender As Object, e As EventArgs) Handles LbCancelarEdicion.Click
|
Private Sub LbCancelarEdicion_Click(sender As Object, e As EventArgs) Handles LbCancelarEdicion.Click
|
||||||
@@ -2956,9 +2780,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
|
|
||||||
'divDatosPrincipales.Visible = False
|
'divDatosPrincipales.Visible = False
|
||||||
'divObservaciones.Visible = False
|
'divObservaciones.Visible = False
|
||||||
UPMovs.Visible = False
|
|
||||||
UPMovs.Update()
|
|
||||||
UPPDocumento.Update()
|
|
||||||
UpPrePoliza.Update()
|
UpPrePoliza.Update()
|
||||||
|
|
||||||
RegistraScript("comparar();")
|
RegistraScript("comparar();")
|
||||||
@@ -2988,7 +2810,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
Private Sub CrarPrePolizaApartirDe()
|
Private Sub CrearPrePolizaApartirDe()
|
||||||
Dim CvePrePoliza As Integer
|
Dim CvePrePoliza As Integer
|
||||||
Dim FolioPoliza As Integer
|
Dim FolioPoliza As Integer
|
||||||
|
|
||||||
@@ -3131,9 +2953,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
MsgError = ObjMov.MensajePolizaDescuadre
|
MsgError = ObjMov.MensajePolizaDescuadre
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Else
|
Else
|
||||||
MsgError = "No se pudo insertar la póliza"
|
MsgError = "No se pudo insertar la póliza"
|
||||||
End If
|
End If
|
||||||
@@ -3157,8 +2976,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
ObjIE.Commit()
|
ObjIE.Commit()
|
||||||
If Conta IsNot Nothing Then Conta.Commit()
|
If Conta IsNot Nothing Then Conta.Commit()
|
||||||
|
|
||||||
UPPDocumento.Update()
|
|
||||||
|
|
||||||
TxtConcepto.Text = ""
|
TxtConcepto.Text = ""
|
||||||
GvMov.DataBind()
|
GvMov.DataBind()
|
||||||
TxtFechaDocumento.Text = ""
|
TxtFechaDocumento.Text = ""
|
||||||
|
|||||||
Reference in New Issue
Block a user