-- quitar combo de cuentas IdCta
This commit is contained in:
@@ -887,334 +887,7 @@
|
||||
</div>
|
||||
</div>
|
||||
<div id="divCuentasContp" runat="server" visible="false">
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
<div class="portlet light xspadding bordered ">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Cuentas Contables Proveedores</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
|
||||
<table border="0">
|
||||
<tr>
|
||||
<td>Proveedores:</td>
|
||||
<td>
|
||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContProveedores" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
|
||||
</td>
|
||||
<td>
|
||||
<asp:Button ID="BtnActivaRegistroProveedores" runat="server" CssClass="btn btn-primary btn-sm" Text="+" Visible="false" CommandArgument="Proveedores" Style="margin-left: -35px;" OnClick="BtnAgregaCuentaContable" />
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Extranjera:</td>
|
||||
<td>
|
||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContExtranjera" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label runat="server" ToolTip="Complementaria" Text="Complem..."></asp:Label></td>
|
||||
<td>
|
||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContComplementaria" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</div>
|
||||
</td>
|
||||
<td>
|
||||
<div class="portlet light xspadding bordered " style="display:none;">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Cuentas Contables Acreedores</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
|
||||
<table border="0">
|
||||
<tr>
|
||||
<td>Acreedores:</td>
|
||||
<td>
|
||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContAcreedores" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Button ID="BtnActivaRegistroAcreedores" runat="server" CssClass="btn btn-primary btn-sm" Text="+" Visible="false" Style="margin-left: -35px;" CommandArgument="Acreedores" OnClick="BtnAgregaCuentaContable" />
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Extranjera:</td>
|
||||
<td>
|
||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContAcreedoresExtranjera" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label runat="server" ToolTip="Complementaria" Text="Complem..."></asp:Label></td>
|
||||
<td>
|
||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContAcreedoresComplementaria" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</div>
|
||||
</td>
|
||||
<td>
|
||||
<div class="portlet light xspadding bordered ">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Cuentas Contables Anticipos</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom " >
|
||||
<table border="0">
|
||||
<tr>
|
||||
<td>Anticipos:</td>
|
||||
<td>
|
||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContAnticipos" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Button ID="BtnActivaRegistroAnticipos" runat="server" CssClass="btn btn-primary btn-sm" Text="+" Visible="false" Style="margin-left: -35px;" CommandArgument="Anticipos" OnClick="BtnAgregaCuentaContable" />
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Extranjera:</td>
|
||||
<td>
|
||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContAnticiposExtranjera" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label runat="server" ToolTip="Complementaria" Text="Complem..."></asp:Label></td>
|
||||
<td>
|
||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContAnticiposComplementaria" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</td>
|
||||
</tr>
|
||||
<tr style="display:none;">
|
||||
<td>
|
||||
<div class="portlet light xspadding bordered " style="display:none;">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Cuentas Contables Doctos. X Pagar</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
|
||||
<table border="0">
|
||||
<tr>
|
||||
<td>Doctos. x Pagar:</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlCtaContDocsXPagar" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Button ID="BtnActivaRegistroDocsXPagar" runat="server" CssClass="btn btn-primary btn-sm" Text="+" Visible="false" Style="margin-left: -35px;" CommandArgument="DocsXPagar" OnClick="BtnAgregaCuentaContable" />
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Extranjera:</td>
|
||||
<td>
|
||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContDocsXPagarExtranjera" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label runat="server" ToolTip="Complementaria" Text="Complem..."></asp:Label></td>
|
||||
<td>
|
||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContDocsXPagarComplementaria" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</td>
|
||||
<td>
|
||||
<div class="portlet light xspadding bordered ">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Cuentas Contables Deudores</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
|
||||
<table border="0">
|
||||
<tr>
|
||||
<td>Deudores:</td>
|
||||
<td>
|
||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContDeudor" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Button ID="BtnActivaRegistroDeudores" runat="server" CssClass="btn btn-primary btn-sm" Text="+" Visible="false" Style="margin-left: -35px;" CommandArgument="Deudores" OnClick="BtnAgregaCuentaContable" />
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Extranjera:</td>
|
||||
<td>
|
||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContDeudorExtranjera" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label runat="server" ToolTip="Complementaria" Text="Complem..."></asp:Label></td>
|
||||
<td>
|
||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContDeudorComplementaria" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</div>
|
||||
</td>
|
||||
<td>
|
||||
<div class="portlet light xspadding bordered ">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Cuentas Contables Otros</span>
|
||||
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
|
||||
<table border="0">
|
||||
<tr>
|
||||
<td>Ret. IVA:</td>
|
||||
<td>
|
||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContRetIVA" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td>Ret. IVA Acreditable:</td>
|
||||
<td>
|
||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContRetIVAAcreditable" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
|
||||
<tr id="TrFondoGarantia" runat="server">
|
||||
<td>Fondo de Garantia:</td>
|
||||
<td>
|
||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContFondoGarantia" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Ret. ISR x Acreditar:</td>
|
||||
<td>
|
||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContRetISR" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td>Ret. ISR Acreditable:</td>
|
||||
<td>
|
||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContRetISRAcreditable" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
|
||||
</table>
|
||||
</div>
|
||||
</div>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
@@ -4,7 +4,6 @@ Option Strict On
|
||||
Imports System.Data
|
||||
Imports Extensiones
|
||||
Imports System.Xml
|
||||
'Imports msExcel = Microsoft.Office.Interop.Excel
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
Imports System.IO
|
||||
Imports System.Globalization
|
||||
@@ -606,7 +605,6 @@ Partial Class Compras_Proveedores
|
||||
|
||||
If UsuarioActual.Empresa.CvePlataforma = 2 Then
|
||||
DivFiscal.Visible = False
|
||||
TrFondoGarantia.Visible = False
|
||||
'divportalusuarios.Visible = False
|
||||
End If
|
||||
|
||||
@@ -803,9 +801,6 @@ Partial Class Compras_Proveedores
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
DdlCtaContProveedores.Attributes.Add("onclick", "CargaCuentas(1);")
|
||||
|
||||
Catch ex As Exception
|
||||
Alert(String.Format("No se pudo cargar la información ({0})", ex.Message), TipoMensaje.MsgAdvertencia)
|
||||
Return 0
|
||||
@@ -915,59 +910,6 @@ Partial Class Compras_Proveedores
|
||||
divCuentasContp.Visible = True
|
||||
End If
|
||||
|
||||
'Contable
|
||||
If UsuarioActual.Empresa.UsaContabilidad Then
|
||||
DdlCtaContAcreedores.AutoPostBack = True
|
||||
DdlCtaContProveedores.AutoPostBack = True
|
||||
DdlCtaContAnticipos.AutoPostBack = True
|
||||
DdlCtaContFondoGarantia.AutoPostBack = True
|
||||
DdlCtaContRetIVA.AutoPostBack = True
|
||||
DdlCtaContRetIVAAcreditable.AutoPostBack = True
|
||||
DdlCtaContRetISR.AutoPostBack = True
|
||||
DdlCtaContComplementaria.AutoPostBack = True
|
||||
DdlCtaContExtranjera.AutoPostBack = True
|
||||
DdlCtaContDeudor.AutoPostBack = True
|
||||
DdlCtaContDeudorExtranjera.AutoPostBack = True
|
||||
DdlCtaContDeudorComplementaria.AutoPostBack = True
|
||||
DdlCtaContDocsXPagar.AutoPostBack = True
|
||||
DdlCtaContDocsXPagarExtranjera.AutoPostBack = True
|
||||
DdlCtaContDocsXPagarComplementaria.AutoPostBack = True
|
||||
DdlCtaContRetISRAcreditable.AutoPostBack = True
|
||||
|
||||
'Proveedores
|
||||
Dim drr As DataRow = ObjProveedor.DtResultados.Rows(0)
|
||||
'If drr("IdCtaContProveedores").ToString <> "" Then DdlCtaContProveedores.Items.Add(New ListItem(drr("CtaContProveedores").ToString, drr("IdCtaContProveedores").ToString)) : DdlCtaContProveedores.SelectedValueExist(drr("IdCtaContProveedores").ToString)
|
||||
'If drr("IdCtaContExtranjera").ToString <> "" Then DdlCtaContExtranjera.Items.Add(New ListItem(drr("CtaContExtranjera").ToString, drr("IdCtaContExtranjera").ToString)) : DdlCtaContExtranjera.SelectedValue = drr("IdCtaContExtranjera").ToString
|
||||
'If drr("IdCtaContComplementaria").ToString <> "" Then DdlCtaContComplementaria.Items.Add(New ListItem(drr("CtaContComplementaria").ToString, drr("IdCtaContComplementaria").ToString)) : DdlCtaContComplementaria.SelectedValue = drr("IdCtaContComplementaria").ToString
|
||||
|
||||
'If drr("IdCtaContAnticipos").ToString <> "" Then DdlCtaContAnticipos.Items.Add(New ListItem(drr("CtaContAnticipos").ToString, drr("IdCtaContAnticipos").ToString)) : DdlCtaContAnticipos.SelectedValueExist(drr("IdCtaContAnticipos").ToString)
|
||||
'If drr("IdCtaContAnticiposExtranjera").ToString <> "" Then DdlCtaContAnticiposExtranjera.Items.Add(New ListItem(drr("CtaContAnticiposExtranjera").ToString, drr("IdCtaContAnticiposExtranjera").ToString)) : DdlCtaContAnticiposExtranjera.SelectedValue = drr("IdCtaContAnticiposExtranjera").ToString
|
||||
'If drr("IdCtaContAnticiposComplementaria").ToString <> "" Then DdlCtaContAnticiposComplementaria.Items.Add(New ListItem(drr("CtaContAnticiposComplementaria").ToString, drr("IdCtaContAnticiposComplementaria").ToString)) : DdlCtaContAnticiposComplementaria.SelectedValue = drr("IdCtaContAnticiposComplementaria").ToString
|
||||
|
||||
DdlCtaContProveedores.Attributes.Add("onclick", "CargaCuentas(1);")
|
||||
DdlCtaContAcreedores.Attributes.Add("onclick", "CargaCuentas(6);")
|
||||
DdlCtaContAnticipos.Attributes.Add("onclick", "CargaCuentas(2);")
|
||||
DdlCtaContFondoGarantia.Attributes.Add("onclick", "CargaCuentas(3);")
|
||||
DdlCtaContRetIVA.Attributes.Add("onclick", "CargaCuentas(4);")
|
||||
DdlCtaContRetISR.Attributes.Add("onclick", "CargaCuentas(5);")
|
||||
DdlCtaContComplementaria.Attributes.Add("onclick", "CargaCuentas(7);")
|
||||
DdlCtaContExtranjera.Attributes.Add("onclick", "CargaCuentas(8);")
|
||||
DdlCtaContAcreedoresExtranjera.Attributes.Add("onclick", "CargaCuentas(9);")
|
||||
DdlCtaContAcreedoresComplementaria.Attributes.Add("onclick", "CargaCuentas(10);")
|
||||
DdlCtaContAnticiposExtranjera.Attributes.Add("onclick", "CargaCuentas(11);")
|
||||
DdlCtaContAnticiposComplementaria.Attributes.Add("onclick", "CargaCuentas(12);")
|
||||
DdlCtaContDeudor.Attributes.Add("onclick", "CargaCuentas(13);")
|
||||
DdlCtaContDeudorExtranjera.Attributes.Add("onclick", "CargaCuentas(14);")
|
||||
DdlCtaContDeudorComplementaria.Attributes.Add("onclick", "CargaCuentas(15);")
|
||||
DdlCtaContDocsXPagar.Attributes.Add("onclick", "CargaCuentas(16);")
|
||||
DdlCtaContDocsXPagarExtranjera.Attributes.Add("onclick", "CargaCuentas(17);")
|
||||
DdlCtaContDocsXPagarComplementaria.Attributes.Add("onclick", "CargaCuentas(18);")
|
||||
DdlCtaContRetISRAcreditable.Attributes.Add("onclick", "CargaCuentas(19);")
|
||||
DdlCtaContRetIVAAcreditable.Attributes.Add("onclick", "CargaCuentas(20);")
|
||||
|
||||
|
||||
End If
|
||||
|
||||
'CxP
|
||||
TxtLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero
|
||||
TxtPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString
|
||||
@@ -1385,96 +1327,6 @@ Partial Class Compras_Proveedores
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
|
||||
|
||||
If DtCuentasContables Is Nothing Then
|
||||
|
||||
End If
|
||||
|
||||
Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
|
||||
Select Case HdnCuenta.Value
|
||||
Case "1"
|
||||
CargaCuentasDDL(DdlCtaContProveedores, If(DdlCveTipoProveedor.SelectedValue = "2", 202, 201))
|
||||
Case "2"
|
||||
CargaCuentasDDL(DdlCtaContAnticipos, 204)
|
||||
Case "3"
|
||||
CargaCuentasDDL(DdlCtaContFondoGarantia, 231)
|
||||
Case "4"
|
||||
CargaCuentasDDL(DdlCtaContRetIVA, 206)
|
||||
Case "5"
|
||||
CargaCuentasDDL(DdlCtaContRetISR, 206)
|
||||
Case "6"
|
||||
CargaCuentasDDL(DdlCtaContAcreedores, 202)
|
||||
Case "7"
|
||||
CargaCuentasDDL(DdlCtaContComplementaria, 201)
|
||||
Case "8"
|
||||
CargaCuentasDDL(DdlCtaContExtranjera, 201)
|
||||
Case "9"
|
||||
CargaCuentasDDL(DdlCtaContAcreedoresExtranjera, 202)
|
||||
Case "10"
|
||||
CargaCuentasDDL(DdlCtaContAcreedoresComplementaria, 202)
|
||||
Case "11"
|
||||
CargaCuentasDDL(DdlCtaContAnticiposExtranjera, 204)
|
||||
Case "12"
|
||||
CargaCuentasDDL(DdlCtaContAnticiposComplementaria, 204)
|
||||
Case "13"
|
||||
CargaCuentasDDL(DdlCtaContDeudor, 205)
|
||||
Case "14"
|
||||
CargaCuentasDDL(DdlCtaContDeudorExtranjera, 205)
|
||||
Case "15"
|
||||
CargaCuentasDDL(DdlCtaContDeudorComplementaria, 205)
|
||||
Case "16"
|
||||
CargaCuentasDDL(DdlCtaContDocsXPagar, 203)
|
||||
Case "17"
|
||||
CargaCuentasDDL(DdlCtaContDocsXPagarExtranjera, 203)
|
||||
Case "18"
|
||||
CargaCuentasDDL(DdlCtaContDocsXPagarComplementaria, 203)
|
||||
Case "19"
|
||||
CargaCuentasDDL(DdlCtaContRetISRAcreditable, 206)
|
||||
Case "20"
|
||||
CargaCuentasDDL(DdlCtaContRetIVAAcreditable, 206)
|
||||
End Select
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaCuentasDDL(Ddl As DropDownList, CveFuncionalidad As Integer)
|
||||
|
||||
'CARGA LO YA SELECCIONADO
|
||||
Dim CveSeleccionado As Integer = -1
|
||||
Dim Seleccionado As String = ""
|
||||
Seleccionado = Ddl.SelectedItem.Text
|
||||
CveSeleccionado = Ddl.SelectedValue.ToEntero
|
||||
|
||||
'VA POR EL CATALOGO DE CUENTAS
|
||||
If Ddl.Attributes("onclick") <> "" Then
|
||||
CargaCuentasContables(If(UsuarioActual.Empresa.Funcionalidad(CveFuncionalidad).ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(CveFuncionalidad).ToEntero, 1))
|
||||
End If
|
||||
|
||||
'RECARGA EL DDL
|
||||
Ddl.Items.Clear()
|
||||
Ddl.DataSource = DtCuentasContables
|
||||
Ddl.Items.Insert(0, New ListItem("Seleccione", "0"))
|
||||
Ddl.DataBind()
|
||||
|
||||
'SELECCIONA EL YA SELECCIONADO - SI NO EXISTE EN EL DATASOURCE LO INSERTA
|
||||
If DtCuentasContables.FiltraParametros($"Id = {CveSeleccionado}").Rows.Count > 0 Then
|
||||
Ddl.SelectedValue = CveSeleccionado.ToString
|
||||
ElseIf CveSeleccionado > 0 Then
|
||||
Ddl.Items.Insert(1, New ListItem(Seleccionado, CveSeleccionado.ToString))
|
||||
Ddl.SelectedValue = CveSeleccionado.ToString
|
||||
End If
|
||||
|
||||
'LIMPIA EVENTOS Y PONE CLASE
|
||||
Ddl.AutoPostBack = False
|
||||
Ddl.Attributes.Remove("onclick")
|
||||
Ddl.CssClass &= " select2me"
|
||||
|
||||
End Sub
|
||||
|
||||
#Region "LL E N A R - C O M B O S"
|
||||
Private Sub CargaResponsable()
|
||||
'DdlCveUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, DistinctColumns:={"CveUsuario", "Nombre"})
|
||||
@@ -3884,272 +3736,272 @@ Partial Class Compras_Proveedores
|
||||
#End Region
|
||||
|
||||
#Region "CUENTAS CONTABLES"
|
||||
Private Sub ActivarRegistroAutomatico()
|
||||
'Private Sub ActivarRegistroAutomatico()
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC) Then
|
||||
Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
' If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC) Then
|
||||
' Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
|
||||
'' 17/03/2017 FUNCIONALIDADES 249,250,251
|
||||
''
|
||||
Dim ClaveFuncionalidad As Integer = UsuarioActual.Empresa.Funcionalidad(201).ToEntero
|
||||
If DdlCveTipoProveedor.SelectedValue = "2" Then ClaveFuncionalidad = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
|
||||
If DdlCtaContProveedores.SelectedValue.ToEntero <= 0 And ClaveFuncionalidad > 0 Then
|
||||
DdlCtaContProveedores.Width = 175
|
||||
BtnActivaRegistroProveedores.Visible = True
|
||||
' '' 17/03/2017 FUNCIONALIDADES 249,250,251
|
||||
' ''
|
||||
' Dim ClaveFuncionalidad As Integer = UsuarioActual.Empresa.Funcionalidad(201).ToEntero
|
||||
' If DdlCveTipoProveedor.SelectedValue = "2" Then ClaveFuncionalidad = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
|
||||
' If DdlCtaContProveedores.SelectedValue.ToEntero <= 0 And ClaveFuncionalidad > 0 Then
|
||||
' DdlCtaContProveedores.Width = 175
|
||||
' BtnActivaRegistroProveedores.Visible = True
|
||||
|
||||
'' Agrega Cuenta de la funcionalidad 249
|
||||
If UsuarioActual.Empresa.Funcionalidad(249).ToEntero > 0 Then
|
||||
' '' Agrega Cuenta de la funcionalidad 249
|
||||
' If UsuarioActual.Empresa.Funcionalidad(249).ToEntero > 0 Then
|
||||
|
||||
If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(249).ToEntero, "-1", 1) Then
|
||||
DdlCtaContProveedores.DataSource = ObjContabilidad.DtResultados
|
||||
DdlCtaContProveedores.DataBind()
|
||||
End If
|
||||
End If
|
||||
' If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(249).ToEntero, "-1", 1) Then
|
||||
' DdlCtaContProveedores.DataSource = ObjContabilidad.DtResultados
|
||||
' DdlCtaContProveedores.DataBind()
|
||||
' End If
|
||||
' End If
|
||||
|
||||
End If
|
||||
' End If
|
||||
|
||||
If DdlCtaContExtranjera.SelectedValue.ToEntero <= 0 Then
|
||||
' If DdlCtaContExtranjera.SelectedValue.ToEntero <= 0 Then
|
||||
|
||||
'' Agrega Cuenta de la funcionalidad 250
|
||||
If UsuarioActual.Empresa.Funcionalidad(250).ToEntero > 0 Then
|
||||
' '' Agrega Cuenta de la funcionalidad 250
|
||||
' If UsuarioActual.Empresa.Funcionalidad(250).ToEntero > 0 Then
|
||||
|
||||
If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(250).ToEntero, "-1", 1) Then
|
||||
DdlCtaContExtranjera.DataSource = ObjContabilidad.DtResultados
|
||||
DdlCtaContExtranjera.DataBind()
|
||||
End If
|
||||
End If
|
||||
' If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(250).ToEntero, "-1", 1) Then
|
||||
' DdlCtaContExtranjera.DataSource = ObjContabilidad.DtResultados
|
||||
' DdlCtaContExtranjera.DataBind()
|
||||
' End If
|
||||
' End If
|
||||
|
||||
End If
|
||||
' End If
|
||||
|
||||
If DdlCtaContComplementaria.SelectedValue.ToEntero <= 0 Then
|
||||
' If DdlCtaContComplementaria.SelectedValue.ToEntero <= 0 Then
|
||||
|
||||
'' Agrega Cuenta de la funcionalidad 251
|
||||
If UsuarioActual.Empresa.Funcionalidad(251).ToEntero > 0 Then
|
||||
' '' Agrega Cuenta de la funcionalidad 251
|
||||
' If UsuarioActual.Empresa.Funcionalidad(251).ToEntero > 0 Then
|
||||
|
||||
If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(251).ToEntero, "-1", 1) Then
|
||||
DdlCtaContComplementaria.DataSource = ObjContabilidad.DtResultados
|
||||
DdlCtaContComplementaria.DataBind()
|
||||
End If
|
||||
End If
|
||||
' If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(251).ToEntero, "-1", 1) Then
|
||||
' DdlCtaContComplementaria.DataSource = ObjContabilidad.DtResultados
|
||||
' DdlCtaContComplementaria.DataBind()
|
||||
' End If
|
||||
' End If
|
||||
|
||||
End If
|
||||
' End If
|
||||
|
||||
'' 17/03/2017 FUNCIONALIDADES 252,253, 254
|
||||
'Acreedores
|
||||
If DdlCtaContAcreedores.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(202).ToEntero > 0 Then
|
||||
DdlCtaContAcreedores.Width = 175
|
||||
BtnActivaRegistroAcreedores.Visible = True
|
||||
' '' 17/03/2017 FUNCIONALIDADES 252,253, 254
|
||||
' 'Acreedores
|
||||
' If DdlCtaContAcreedores.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(202).ToEntero > 0 Then
|
||||
' DdlCtaContAcreedores.Width = 175
|
||||
' BtnActivaRegistroAcreedores.Visible = True
|
||||
|
||||
'' Agrega Cuenta de la funcionalidad 252
|
||||
If UsuarioActual.Empresa.Funcionalidad(252).ToEntero > 0 Then
|
||||
' '' Agrega Cuenta de la funcionalidad 252
|
||||
' If UsuarioActual.Empresa.Funcionalidad(252).ToEntero > 0 Then
|
||||
|
||||
If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(252).ToEntero, "-1", 1) Then
|
||||
DdlCtaContAcreedores.DataSource = ObjContabilidad.DtResultados
|
||||
DdlCtaContAcreedores.DataBind()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
' If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(252).ToEntero, "-1", 1) Then
|
||||
' DdlCtaContAcreedores.DataSource = ObjContabilidad.DtResultados
|
||||
' DdlCtaContAcreedores.DataBind()
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
|
||||
'' Agrega Cuenta de la funcionalidad 253
|
||||
If DdlCtaContAcreedoresExtranjera.SelectedValue.ToEntero <= 0 Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(253).ToEntero > 0 Then
|
||||
' '' Agrega Cuenta de la funcionalidad 253
|
||||
' If DdlCtaContAcreedoresExtranjera.SelectedValue.ToEntero <= 0 Then
|
||||
' If UsuarioActual.Empresa.Funcionalidad(253).ToEntero > 0 Then
|
||||
|
||||
If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(253).ToEntero, "-1", 1) Then
|
||||
' If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(253).ToEntero, "-1", 1) Then
|
||||
|
||||
DdlCtaContAcreedoresExtranjera.DataSource = ObjContabilidad.DtResultados
|
||||
DdlCtaContAcreedoresExtranjera.DataBind()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
' DdlCtaContAcreedoresExtranjera.DataSource = ObjContabilidad.DtResultados
|
||||
' DdlCtaContAcreedoresExtranjera.DataBind()
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
|
||||
'' Agrega Cuenta de la funcionalidad 254
|
||||
If DdlCtaContAcreedoresComplementaria.SelectedValue.ToEntero <= 0 Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(254).ToEntero > 0 Then
|
||||
' '' Agrega Cuenta de la funcionalidad 254
|
||||
' If DdlCtaContAcreedoresComplementaria.SelectedValue.ToEntero <= 0 Then
|
||||
' If UsuarioActual.Empresa.Funcionalidad(254).ToEntero > 0 Then
|
||||
|
||||
If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(254).ToEntero, "-1", 1) Then
|
||||
DdlCtaContAcreedoresComplementaria.DataSource = ObjContabilidad.DtResultados
|
||||
DdlCtaContAcreedoresComplementaria.DataBind()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
' If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(254).ToEntero, "-1", 1) Then
|
||||
' DdlCtaContAcreedoresComplementaria.DataSource = ObjContabilidad.DtResultados
|
||||
' DdlCtaContAcreedoresComplementaria.DataBind()
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
|
||||
|
||||
'Documentos X Pagar
|
||||
If DdlCtaContDocsXPagar.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(203).ToEntero > 0 Then
|
||||
DdlCtaContDocsXPagar.Width = 175
|
||||
BtnActivaRegistroDocsXPagar.Visible = True
|
||||
End If
|
||||
' 'Documentos X Pagar
|
||||
' If DdlCtaContDocsXPagar.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(203).ToEntero > 0 Then
|
||||
' DdlCtaContDocsXPagar.Width = 175
|
||||
' BtnActivaRegistroDocsXPagar.Visible = True
|
||||
' End If
|
||||
|
||||
'Anticipos
|
||||
If DdlCtaContAnticipos.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(204).ToEntero > 0 Then
|
||||
DdlCtaContAnticipos.Width = 175
|
||||
BtnActivaRegistroAnticipos.Visible = True
|
||||
End If
|
||||
' 'Anticipos
|
||||
' If DdlCtaContAnticipos.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(204).ToEntero > 0 Then
|
||||
' DdlCtaContAnticipos.Width = 175
|
||||
' BtnActivaRegistroAnticipos.Visible = True
|
||||
' End If
|
||||
|
||||
'Deudores
|
||||
If DdlCtaContDeudor.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(205).ToEntero > 0 Then
|
||||
DdlCtaContDeudor.Width = 175
|
||||
BtnActivaRegistroDeudores.Visible = True
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
' 'Deudores
|
||||
' If DdlCtaContDeudor.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(205).ToEntero > 0 Then
|
||||
' DdlCtaContDeudor.Width = 175
|
||||
' BtnActivaRegistroDeudores.Visible = True
|
||||
' End If
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
Private Sub BtnActivaRegistroProveedores_Click(sender As Object, e As EventArgs) Handles BtnActivaRegistroProveedores.Click
|
||||
'Dim IdCuentaContable As Integer = -1
|
||||
'Dim CtaCodigo As String
|
||||
'Dim TieneError = False
|
||||
'Private Sub BtnActivaRegistroProveedores_Click(sender As Object, e As EventArgs) Handles BtnActivaRegistroProveedores.Click
|
||||
' 'Dim IdCuentaContable As Integer = -1
|
||||
' 'Dim CtaCodigo As String
|
||||
' 'Dim TieneError = False
|
||||
|
||||
'Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
'Dim ObjProveedores As New ClsCompProveedores()
|
||||
'ObjContaAC.IniciaTransacSQL()
|
||||
'ObjProveedores.IniciaTransacSQL()
|
||||
' 'Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
' 'Dim ObjProveedores As New ClsCompProveedores()
|
||||
' 'ObjContaAC.IniciaTransacSQL()
|
||||
' 'ObjProveedores.IniciaTransacSQL()
|
||||
|
||||
'IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(UsuarioActual.Empresa.Funcionalidad(109).ToEntero, TxtRazonSocial.Text.Trim)
|
||||
'ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1)
|
||||
' 'IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(UsuarioActual.Empresa.Funcionalidad(109).ToEntero, TxtRazonSocial.Text.Trim)
|
||||
' 'ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1)
|
||||
|
||||
'Dim dt = ObjContaAC.DtResultados
|
||||
'Dim row As DataRow = dt.Rows(dt.Rows.Count - 1)
|
||||
'CtaCodigo = CStr(row("CtaCodigo"))
|
||||
' 'Dim dt = ObjContaAC.DtResultados
|
||||
' 'Dim row As DataRow = dt.Rows(dt.Rows.Count - 1)
|
||||
' 'CtaCodigo = CStr(row("CtaCodigo"))
|
||||
|
||||
'If IdCuentaContable > 0 Then
|
||||
' If Not ObjProveedores.VincularCuentasContables(IdCuentaContable, CtaCodigo, -1, "-1", -1, "-1", -1, "-1", -1, "-1", CveProveedor) Then
|
||||
' TieneError = True
|
||||
' End If
|
||||
'Else
|
||||
' TieneError = True
|
||||
'End If
|
||||
' 'If IdCuentaContable > 0 Then
|
||||
' ' If Not ObjProveedores.VincularCuentasContables(IdCuentaContable, CtaCodigo, -1, "-1", -1, "-1", -1, "-1", -1, "-1", CveProveedor) Then
|
||||
' ' TieneError = True
|
||||
' ' End If
|
||||
' 'Else
|
||||
' ' TieneError = True
|
||||
' 'End If
|
||||
|
||||
|
||||
'If Not TieneError Then
|
||||
' Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
|
||||
' DdlCtaContProveedores.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : DdlCtaContProveedores.SelectedValueExist(IdCuentaContable.ToString)
|
||||
' BtnActivaRegistroProveedores.Visible = False
|
||||
' DdlCtaContProveedores.Width = 206
|
||||
' ObjProveedores.Commit()
|
||||
' ObjContaAC.Commit()
|
||||
'Else
|
||||
' Alert("error", TipoMensaje.MsgError)
|
||||
' ObjProveedores.RollBack()
|
||||
' ObjContaAC.RollBack()
|
||||
'End If
|
||||
' 'If Not TieneError Then
|
||||
' ' Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
|
||||
' ' DdlCtaContProveedores.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : DdlCtaContProveedores.SelectedValueExist(IdCuentaContable.ToString)
|
||||
' ' BtnActivaRegistroProveedores.Visible = False
|
||||
' ' DdlCtaContProveedores.Width = 206
|
||||
' ' ObjProveedores.Commit()
|
||||
' ' ObjContaAC.Commit()
|
||||
' 'Else
|
||||
' ' Alert("error", TipoMensaje.MsgError)
|
||||
' ' ObjProveedores.RollBack()
|
||||
' ' ObjContaAC.RollBack()
|
||||
' 'End If
|
||||
|
||||
|
||||
'ObjContaAC.Dispose()
|
||||
'ObjProveedores.Dispose()
|
||||
'UPPContable.Update()
|
||||
' 'ObjContaAC.Dispose()
|
||||
' 'ObjProveedores.Dispose()
|
||||
' 'UPPContable.Update()
|
||||
|
||||
End Sub
|
||||
'End Sub
|
||||
|
||||
Protected Sub BtnAgregaCuentaContable(ByVal sender As Object, ByVal e As EventArgs)
|
||||
Dim CuentaContable As String = DirectCast(sender, Button).CommandArgument.ToString
|
||||
Dim Button As Button = DirectCast(sender, Button)
|
||||
Select Case CuentaContable
|
||||
Case "Proveedores"
|
||||
AgregarCuentaContable(Button, DdlCtaContProveedores)
|
||||
Case "Acreedores"
|
||||
AgregarCuentaContable(Button, DdlCtaContAcreedores)
|
||||
Case "DocsXPagar"
|
||||
AgregarCuentaContable(Button, DdlCtaContDocsXPagar)
|
||||
Case "Anticipos"
|
||||
AgregarCuentaContable(Button, DdlCtaContAnticipos)
|
||||
Case "Deudores"
|
||||
AgregarCuentaContable(Button, DdlCtaContDeudor)
|
||||
End Select
|
||||
'Protected Sub BtnAgregaCuentaContable(ByVal sender As Object, ByVal e As EventArgs)
|
||||
' Dim CuentaContable As String = DirectCast(sender, Button).CommandArgument.ToString
|
||||
' Dim Button As Button = DirectCast(sender, Button)
|
||||
' Select Case CuentaContable
|
||||
' Case "Proveedores"
|
||||
' AgregarCuentaContable(Button, DdlCtaContProveedores)
|
||||
' Case "Acreedores"
|
||||
' AgregarCuentaContable(Button, DdlCtaContAcreedores)
|
||||
' Case "DocsXPagar"
|
||||
' AgregarCuentaContable(Button, DdlCtaContDocsXPagar)
|
||||
' Case "Anticipos"
|
||||
' AgregarCuentaContable(Button, DdlCtaContAnticipos)
|
||||
' Case "Deudores"
|
||||
' AgregarCuentaContable(Button, DdlCtaContDeudor)
|
||||
' End Select
|
||||
|
||||
End Sub
|
||||
'End Sub
|
||||
|
||||
Private Sub AgregarCuentaContable(btn As Button, ddl As DropDownList)
|
||||
'Private Sub AgregarCuentaContable(btn As Button, ddl As DropDownList)
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad = True Then
|
||||
Dim IdCuentaContable As Integer = -1
|
||||
Dim CtaCodigo As String = ""
|
||||
Dim TieneError As Boolean = False
|
||||
Dim CveConceptoContable As Integer = -1
|
||||
Dim Codigo As String = ""
|
||||
' If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad = True Then
|
||||
' Dim IdCuentaContable As Integer = -1
|
||||
' Dim CtaCodigo As String = ""
|
||||
' Dim TieneError As Boolean = False
|
||||
' Dim CveConceptoContable As Integer = -1
|
||||
' Dim Codigo As String = ""
|
||||
|
||||
Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
Dim ObjProveedores As New ClsCompProveedores()
|
||||
' Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
' Dim ObjProveedores As New ClsCompProveedores()
|
||||
|
||||
ObjContaAC.IniciaTransacSQL()
|
||||
ObjProveedores.IniciaTransacSQL()
|
||||
' ObjContaAC.IniciaTransacSQL()
|
||||
' ObjProveedores.IniciaTransacSQL()
|
||||
|
||||
Dim CuentaPadre As Integer = -1
|
||||
' Dim CuentaPadre As Integer = -1
|
||||
|
||||
Dim TipoCuenta As String = "D"
|
||||
' Dim TipoCuenta As String = "D"
|
||||
|
||||
|
||||
Select Case btn.CommandArgument.ToString
|
||||
Case "Proveedores"
|
||||
CuentaPadre = If(DdlCveTipoProveedor.SelectedValue = "2", UsuarioActual.Empresa.Funcionalidad(202).ToEntero, UsuarioActual.Empresa.Funcionalidad(201).ToEntero)
|
||||
' Select Case btn.CommandArgument.ToString
|
||||
' Case "Proveedores"
|
||||
' CuentaPadre = If(DdlCveTipoProveedor.SelectedValue = "2", UsuarioActual.Empresa.Funcionalidad(202).ToEntero, UsuarioActual.Empresa.Funcionalidad(201).ToEntero)
|
||||
|
||||
If DdlCveTipoProveedor.SelectedValue.ToEntero.Contiene(1, 3) Then
|
||||
CveConceptoContable = 5
|
||||
Else
|
||||
CveConceptoContable = 305
|
||||
End If
|
||||
' If DdlCveTipoProveedor.SelectedValue.ToEntero.Contiene(1, 3) Then
|
||||
' CveConceptoContable = 5
|
||||
' Else
|
||||
' CveConceptoContable = 305
|
||||
' End If
|
||||
|
||||
Case "Acreedores"
|
||||
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
|
||||
CveConceptoContable = 305
|
||||
Case "DocsXPagar"
|
||||
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(203).ToEntero
|
||||
CveConceptoContable = 50
|
||||
Case "Anticipos"
|
||||
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(204).ToEntero
|
||||
TipoCuenta = "A"
|
||||
CveConceptoContable = 10
|
||||
Case "Deudores"
|
||||
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(205).ToEntero
|
||||
CveConceptoContable = 10
|
||||
' Case "Acreedores"
|
||||
' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
|
||||
' CveConceptoContable = 305
|
||||
' Case "DocsXPagar"
|
||||
' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(203).ToEntero
|
||||
' CveConceptoContable = 50
|
||||
' Case "Anticipos"
|
||||
' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(204).ToEntero
|
||||
' TipoCuenta = "A"
|
||||
' CveConceptoContable = 10
|
||||
' Case "Deudores"
|
||||
' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(205).ToEntero
|
||||
' CveConceptoContable = 10
|
||||
|
||||
End Select
|
||||
' End Select
|
||||
|
||||
'SI EL NOMBRE DEL PROVEEDOR ES MAYOR DE 50 LO CORTAMOS
|
||||
Dim NombreCuenta As String = If(TxtRazonSocial.Text.Trim.Length > 50, TxtRazonSocial.Text.Trim.Substring(0, 50), TxtRazonSocial.Text.Trim)
|
||||
' 'SI EL NOMBRE DEL PROVEEDOR ES MAYOR DE 50 LO CORTAMOS
|
||||
' Dim NombreCuenta As String = If(TxtRazonSocial.Text.Trim.Length > 50, TxtRazonSocial.Text.Trim.Substring(0, 50), TxtRazonSocial.Text.Trim)
|
||||
|
||||
IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(CuentaPadre, NombreCuenta, "D", 2)
|
||||
If IdCuentaContable > 0 Then
|
||||
' IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(CuentaPadre, NombreCuenta, "D", 2)
|
||||
' If IdCuentaContable > 0 Then
|
||||
|
||||
ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1)
|
||||
Dim dt As DataTable = ObjContaAC.DtResultados
|
||||
' ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1)
|
||||
' Dim dt As DataTable = ObjContaAC.DtResultados
|
||||
|
||||
If dt.Rows.Count = 1 Then
|
||||
' If dt.Rows.Count = 1 Then
|
||||
|
||||
Dim row As DataRow = dt.Rows(0)
|
||||
CtaCodigo = CStr(row("CtaCodigo"))
|
||||
Codigo = CStr(row("Codigo"))
|
||||
Else
|
||||
TieneError = True
|
||||
End If
|
||||
' Dim row As DataRow = dt.Rows(0)
|
||||
' CtaCodigo = CStr(row("CtaCodigo"))
|
||||
' Codigo = CStr(row("Codigo"))
|
||||
' Else
|
||||
' TieneError = True
|
||||
' End If
|
||||
|
||||
Else
|
||||
TieneError = True
|
||||
End If
|
||||
'If Not AltaCuentaContabilidadSIG(Codigo, NombreCuenta, IdCuentaContable, CveConceptoContable, ObjProveedores.IniciaTransacSQL, IdCompaqPadre:=CuentaPadre, CveProveedorCuenta:=CveProveedor) Then
|
||||
' TieneError = True
|
||||
'End If
|
||||
' Else
|
||||
' TieneError = True
|
||||
' End If
|
||||
' 'If Not AltaCuentaContabilidadSIG(Codigo, NombreCuenta, IdCuentaContable, CveConceptoContable, ObjProveedores.IniciaTransacSQL, IdCompaqPadre:=CuentaPadre, CveProveedorCuenta:=CveProveedor) Then
|
||||
' ' TieneError = True
|
||||
' 'End If
|
||||
|
||||
|
||||
If Not TieneError Then
|
||||
Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
|
||||
ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : ddl.SelectedValueExist(IdCuentaContable.ToString)
|
||||
btn.Visible = False
|
||||
ddl.Width = 206
|
||||
ObjProveedores.Commit()
|
||||
ObjContaAC.Commit()
|
||||
Else
|
||||
Alert("error", TipoMensaje.MsgError)
|
||||
ObjProveedores.RollBack()
|
||||
ObjContaAC.RollBack()
|
||||
End If
|
||||
' If Not TieneError Then
|
||||
' Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
|
||||
' ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : ddl.SelectedValueExist(IdCuentaContable.ToString)
|
||||
' btn.Visible = False
|
||||
' ddl.Width = 206
|
||||
' ObjProveedores.Commit()
|
||||
' ObjContaAC.Commit()
|
||||
' Else
|
||||
' Alert("error", TipoMensaje.MsgError)
|
||||
' ObjProveedores.RollBack()
|
||||
' ObjContaAC.RollBack()
|
||||
' End If
|
||||
|
||||
ObjContaAC.Dispose()
|
||||
ObjProveedores.Dispose()
|
||||
' ObjContaAC.Dispose()
|
||||
' ObjProveedores.Dispose()
|
||||
|
||||
End If
|
||||
' End If
|
||||
|
||||
UPPContable.Update()
|
||||
End Sub
|
||||
' UPPContable.Update()
|
||||
'End Sub
|
||||
#End Region
|
||||
|
||||
Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
|
||||
|
||||
Reference in New Issue
Block a user