-- quitar combo de cuentas IdCta
This commit is contained in:
@@ -887,334 +887,7 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div id="divCuentasContp" runat="server" visible="false">
|
<div id="divCuentasContp" runat="server" visible="false">
|
||||||
<table>
|
</div>
|
||||||
<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>
|
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,6 @@ Option Strict On
|
|||||||
Imports System.Data
|
Imports System.Data
|
||||||
Imports Extensiones
|
Imports Extensiones
|
||||||
Imports System.Xml
|
Imports System.Xml
|
||||||
'Imports msExcel = Microsoft.Office.Interop.Excel
|
|
||||||
Imports Microsoft.Reporting.WebForms
|
Imports Microsoft.Reporting.WebForms
|
||||||
Imports System.IO
|
Imports System.IO
|
||||||
Imports System.Globalization
|
Imports System.Globalization
|
||||||
@@ -606,7 +605,6 @@ Partial Class Compras_Proveedores
|
|||||||
|
|
||||||
If UsuarioActual.Empresa.CvePlataforma = 2 Then
|
If UsuarioActual.Empresa.CvePlataforma = 2 Then
|
||||||
DivFiscal.Visible = False
|
DivFiscal.Visible = False
|
||||||
TrFondoGarantia.Visible = False
|
|
||||||
'divportalusuarios.Visible = False
|
'divportalusuarios.Visible = False
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -803,9 +801,6 @@ Partial Class Compras_Proveedores
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
DdlCtaContProveedores.Attributes.Add("onclick", "CargaCuentas(1);")
|
|
||||||
|
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
Alert(String.Format("No se pudo cargar la información ({0})", ex.Message), TipoMensaje.MsgAdvertencia)
|
Alert(String.Format("No se pudo cargar la información ({0})", ex.Message), TipoMensaje.MsgAdvertencia)
|
||||||
Return 0
|
Return 0
|
||||||
@@ -915,59 +910,6 @@ Partial Class Compras_Proveedores
|
|||||||
divCuentasContp.Visible = True
|
divCuentasContp.Visible = True
|
||||||
End If
|
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
|
'CxP
|
||||||
TxtLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero
|
TxtLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero
|
||||||
TxtPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString
|
TxtPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString
|
||||||
@@ -1385,96 +1327,6 @@ Partial Class Compras_Proveedores
|
|||||||
|
|
||||||
End Sub
|
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"
|
#Region "LL E N A R - C O M B O S"
|
||||||
Private Sub CargaResponsable()
|
Private Sub CargaResponsable()
|
||||||
'DdlCveUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, DistinctColumns:={"CveUsuario", "Nombre"})
|
'DdlCveUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, DistinctColumns:={"CveUsuario", "Nombre"})
|
||||||
@@ -3884,272 +3736,272 @@ Partial Class Compras_Proveedores
|
|||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "CUENTAS CONTABLES"
|
#Region "CUENTAS CONTABLES"
|
||||||
Private Sub ActivarRegistroAutomatico()
|
'Private Sub ActivarRegistroAutomatico()
|
||||||
|
|
||||||
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC) Then
|
' If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC) Then
|
||||||
Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
|
' Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
|
||||||
|
|
||||||
'' 17/03/2017 FUNCIONALIDADES 249,250,251
|
' '' 17/03/2017 FUNCIONALIDADES 249,250,251
|
||||||
''
|
' ''
|
||||||
Dim ClaveFuncionalidad As Integer = UsuarioActual.Empresa.Funcionalidad(201).ToEntero
|
' Dim ClaveFuncionalidad As Integer = UsuarioActual.Empresa.Funcionalidad(201).ToEntero
|
||||||
If DdlCveTipoProveedor.SelectedValue = "2" Then ClaveFuncionalidad = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
|
' If DdlCveTipoProveedor.SelectedValue = "2" Then ClaveFuncionalidad = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
|
||||||
If DdlCtaContProveedores.SelectedValue.ToEntero <= 0 And ClaveFuncionalidad > 0 Then
|
' If DdlCtaContProveedores.SelectedValue.ToEntero <= 0 And ClaveFuncionalidad > 0 Then
|
||||||
DdlCtaContProveedores.Width = 175
|
' DdlCtaContProveedores.Width = 175
|
||||||
BtnActivaRegistroProveedores.Visible = True
|
' BtnActivaRegistroProveedores.Visible = True
|
||||||
|
|
||||||
'' Agrega Cuenta de la funcionalidad 249
|
' '' Agrega Cuenta de la funcionalidad 249
|
||||||
If UsuarioActual.Empresa.Funcionalidad(249).ToEntero > 0 Then
|
' If UsuarioActual.Empresa.Funcionalidad(249).ToEntero > 0 Then
|
||||||
|
|
||||||
If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(249).ToEntero, "-1", 1) Then
|
' If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(249).ToEntero, "-1", 1) Then
|
||||||
DdlCtaContProveedores.DataSource = ObjContabilidad.DtResultados
|
' DdlCtaContProveedores.DataSource = ObjContabilidad.DtResultados
|
||||||
DdlCtaContProveedores.DataBind()
|
' DdlCtaContProveedores.DataBind()
|
||||||
End If
|
' End If
|
||||||
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
|
' '' Agrega Cuenta de la funcionalidad 250
|
||||||
If UsuarioActual.Empresa.Funcionalidad(250).ToEntero > 0 Then
|
' If UsuarioActual.Empresa.Funcionalidad(250).ToEntero > 0 Then
|
||||||
|
|
||||||
If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(250).ToEntero, "-1", 1) Then
|
' If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(250).ToEntero, "-1", 1) Then
|
||||||
DdlCtaContExtranjera.DataSource = ObjContabilidad.DtResultados
|
' DdlCtaContExtranjera.DataSource = ObjContabilidad.DtResultados
|
||||||
DdlCtaContExtranjera.DataBind()
|
' DdlCtaContExtranjera.DataBind()
|
||||||
End If
|
' End If
|
||||||
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
|
' '' Agrega Cuenta de la funcionalidad 251
|
||||||
If UsuarioActual.Empresa.Funcionalidad(251).ToEntero > 0 Then
|
' If UsuarioActual.Empresa.Funcionalidad(251).ToEntero > 0 Then
|
||||||
|
|
||||||
If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(251).ToEntero, "-1", 1) Then
|
' If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(251).ToEntero, "-1", 1) Then
|
||||||
DdlCtaContComplementaria.DataSource = ObjContabilidad.DtResultados
|
' DdlCtaContComplementaria.DataSource = ObjContabilidad.DtResultados
|
||||||
DdlCtaContComplementaria.DataBind()
|
' DdlCtaContComplementaria.DataBind()
|
||||||
End If
|
' End If
|
||||||
End If
|
' End If
|
||||||
|
|
||||||
End If
|
' End If
|
||||||
|
|
||||||
'' 17/03/2017 FUNCIONALIDADES 252,253, 254
|
' '' 17/03/2017 FUNCIONALIDADES 252,253, 254
|
||||||
'Acreedores
|
' 'Acreedores
|
||||||
If DdlCtaContAcreedores.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(202).ToEntero > 0 Then
|
' If DdlCtaContAcreedores.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(202).ToEntero > 0 Then
|
||||||
DdlCtaContAcreedores.Width = 175
|
' DdlCtaContAcreedores.Width = 175
|
||||||
BtnActivaRegistroAcreedores.Visible = True
|
' BtnActivaRegistroAcreedores.Visible = True
|
||||||
|
|
||||||
'' Agrega Cuenta de la funcionalidad 252
|
' '' Agrega Cuenta de la funcionalidad 252
|
||||||
If UsuarioActual.Empresa.Funcionalidad(252).ToEntero > 0 Then
|
' If UsuarioActual.Empresa.Funcionalidad(252).ToEntero > 0 Then
|
||||||
|
|
||||||
If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(252).ToEntero, "-1", 1) Then
|
' If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(252).ToEntero, "-1", 1) Then
|
||||||
DdlCtaContAcreedores.DataSource = ObjContabilidad.DtResultados
|
' DdlCtaContAcreedores.DataSource = ObjContabilidad.DtResultados
|
||||||
DdlCtaContAcreedores.DataBind()
|
' DdlCtaContAcreedores.DataBind()
|
||||||
End If
|
' End If
|
||||||
End If
|
' End If
|
||||||
End If
|
' End If
|
||||||
|
|
||||||
'' Agrega Cuenta de la funcionalidad 253
|
' '' Agrega Cuenta de la funcionalidad 253
|
||||||
If DdlCtaContAcreedoresExtranjera.SelectedValue.ToEntero <= 0 Then
|
' If DdlCtaContAcreedoresExtranjera.SelectedValue.ToEntero <= 0 Then
|
||||||
If UsuarioActual.Empresa.Funcionalidad(253).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.DataSource = ObjContabilidad.DtResultados
|
||||||
DdlCtaContAcreedoresExtranjera.DataBind()
|
' DdlCtaContAcreedoresExtranjera.DataBind()
|
||||||
End If
|
' End If
|
||||||
End If
|
' End If
|
||||||
End If
|
' End If
|
||||||
|
|
||||||
'' Agrega Cuenta de la funcionalidad 254
|
' '' Agrega Cuenta de la funcionalidad 254
|
||||||
If DdlCtaContAcreedoresComplementaria.SelectedValue.ToEntero <= 0 Then
|
' If DdlCtaContAcreedoresComplementaria.SelectedValue.ToEntero <= 0 Then
|
||||||
If UsuarioActual.Empresa.Funcionalidad(254).ToEntero > 0 Then
|
' If UsuarioActual.Empresa.Funcionalidad(254).ToEntero > 0 Then
|
||||||
|
|
||||||
If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(254).ToEntero, "-1", 1) Then
|
' If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(254).ToEntero, "-1", 1) Then
|
||||||
DdlCtaContAcreedoresComplementaria.DataSource = ObjContabilidad.DtResultados
|
' DdlCtaContAcreedoresComplementaria.DataSource = ObjContabilidad.DtResultados
|
||||||
DdlCtaContAcreedoresComplementaria.DataBind()
|
' DdlCtaContAcreedoresComplementaria.DataBind()
|
||||||
End If
|
' End If
|
||||||
End If
|
' End If
|
||||||
End If
|
' End If
|
||||||
|
|
||||||
|
|
||||||
'Documentos X Pagar
|
' 'Documentos X Pagar
|
||||||
If DdlCtaContDocsXPagar.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(203).ToEntero > 0 Then
|
' If DdlCtaContDocsXPagar.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(203).ToEntero > 0 Then
|
||||||
DdlCtaContDocsXPagar.Width = 175
|
' DdlCtaContDocsXPagar.Width = 175
|
||||||
BtnActivaRegistroDocsXPagar.Visible = True
|
' BtnActivaRegistroDocsXPagar.Visible = True
|
||||||
End If
|
' End If
|
||||||
|
|
||||||
'Anticipos
|
' 'Anticipos
|
||||||
If DdlCtaContAnticipos.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(204).ToEntero > 0 Then
|
' If DdlCtaContAnticipos.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(204).ToEntero > 0 Then
|
||||||
DdlCtaContAnticipos.Width = 175
|
' DdlCtaContAnticipos.Width = 175
|
||||||
BtnActivaRegistroAnticipos.Visible = True
|
' BtnActivaRegistroAnticipos.Visible = True
|
||||||
End If
|
' End If
|
||||||
|
|
||||||
'Deudores
|
' 'Deudores
|
||||||
If DdlCtaContDeudor.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(205).ToEntero > 0 Then
|
' If DdlCtaContDeudor.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(205).ToEntero > 0 Then
|
||||||
DdlCtaContDeudor.Width = 175
|
' DdlCtaContDeudor.Width = 175
|
||||||
BtnActivaRegistroDeudores.Visible = True
|
' BtnActivaRegistroDeudores.Visible = True
|
||||||
End If
|
' End If
|
||||||
End If
|
' End If
|
||||||
End Sub
|
'End Sub
|
||||||
|
|
||||||
Private Sub BtnActivaRegistroProveedores_Click(sender As Object, e As EventArgs) Handles BtnActivaRegistroProveedores.Click
|
'Private Sub BtnActivaRegistroProveedores_Click(sender As Object, e As EventArgs) Handles BtnActivaRegistroProveedores.Click
|
||||||
'Dim IdCuentaContable As Integer = -1
|
' 'Dim IdCuentaContable As Integer = -1
|
||||||
'Dim CtaCodigo As String
|
' 'Dim CtaCodigo As String
|
||||||
'Dim TieneError = False
|
' 'Dim TieneError = False
|
||||||
|
|
||||||
'Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa)
|
' 'Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa)
|
||||||
'Dim ObjProveedores As New ClsCompProveedores()
|
' 'Dim ObjProveedores As New ClsCompProveedores()
|
||||||
'ObjContaAC.IniciaTransacSQL()
|
' 'ObjContaAC.IniciaTransacSQL()
|
||||||
'ObjProveedores.IniciaTransacSQL()
|
' 'ObjProveedores.IniciaTransacSQL()
|
||||||
|
|
||||||
'IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(UsuarioActual.Empresa.Funcionalidad(109).ToEntero, TxtRazonSocial.Text.Trim)
|
' 'IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(UsuarioActual.Empresa.Funcionalidad(109).ToEntero, TxtRazonSocial.Text.Trim)
|
||||||
'ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1)
|
' 'ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1)
|
||||||
|
|
||||||
'Dim dt = ObjContaAC.DtResultados
|
' 'Dim dt = ObjContaAC.DtResultados
|
||||||
'Dim row As DataRow = dt.Rows(dt.Rows.Count - 1)
|
' 'Dim row As DataRow = dt.Rows(dt.Rows.Count - 1)
|
||||||
'CtaCodigo = CStr(row("CtaCodigo"))
|
' 'CtaCodigo = CStr(row("CtaCodigo"))
|
||||||
|
|
||||||
'If IdCuentaContable > 0 Then
|
' 'If IdCuentaContable > 0 Then
|
||||||
' If Not ObjProveedores.VincularCuentasContables(IdCuentaContable, CtaCodigo, -1, "-1", -1, "-1", -1, "-1", -1, "-1", CveProveedor) Then
|
' ' If Not ObjProveedores.VincularCuentasContables(IdCuentaContable, CtaCodigo, -1, "-1", -1, "-1", -1, "-1", -1, "-1", CveProveedor) Then
|
||||||
' TieneError = True
|
' ' TieneError = True
|
||||||
' End If
|
' ' End If
|
||||||
'Else
|
' 'Else
|
||||||
' TieneError = True
|
' ' TieneError = True
|
||||||
'End If
|
' 'End If
|
||||||
|
|
||||||
|
|
||||||
'If Not TieneError Then
|
' 'If Not TieneError Then
|
||||||
' Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
|
' ' Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
|
||||||
' DdlCtaContProveedores.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : DdlCtaContProveedores.SelectedValueExist(IdCuentaContable.ToString)
|
' ' DdlCtaContProveedores.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : DdlCtaContProveedores.SelectedValueExist(IdCuentaContable.ToString)
|
||||||
' BtnActivaRegistroProveedores.Visible = False
|
' ' BtnActivaRegistroProveedores.Visible = False
|
||||||
' DdlCtaContProveedores.Width = 206
|
' ' DdlCtaContProveedores.Width = 206
|
||||||
' ObjProveedores.Commit()
|
' ' ObjProveedores.Commit()
|
||||||
' ObjContaAC.Commit()
|
' ' ObjContaAC.Commit()
|
||||||
'Else
|
' 'Else
|
||||||
' Alert("error", TipoMensaje.MsgError)
|
' ' Alert("error", TipoMensaje.MsgError)
|
||||||
' ObjProveedores.RollBack()
|
' ' ObjProveedores.RollBack()
|
||||||
' ObjContaAC.RollBack()
|
' ' ObjContaAC.RollBack()
|
||||||
'End If
|
' 'End If
|
||||||
|
|
||||||
|
|
||||||
'ObjContaAC.Dispose()
|
' 'ObjContaAC.Dispose()
|
||||||
'ObjProveedores.Dispose()
|
' 'ObjProveedores.Dispose()
|
||||||
'UPPContable.Update()
|
' 'UPPContable.Update()
|
||||||
|
|
||||||
End Sub
|
'End Sub
|
||||||
|
|
||||||
Protected Sub BtnAgregaCuentaContable(ByVal sender As Object, ByVal e As EventArgs)
|
'Protected Sub BtnAgregaCuentaContable(ByVal sender As Object, ByVal e As EventArgs)
|
||||||
Dim CuentaContable As String = DirectCast(sender, Button).CommandArgument.ToString
|
' Dim CuentaContable As String = DirectCast(sender, Button).CommandArgument.ToString
|
||||||
Dim Button As Button = DirectCast(sender, Button)
|
' Dim Button As Button = DirectCast(sender, Button)
|
||||||
Select Case CuentaContable
|
' Select Case CuentaContable
|
||||||
Case "Proveedores"
|
' Case "Proveedores"
|
||||||
AgregarCuentaContable(Button, DdlCtaContProveedores)
|
' AgregarCuentaContable(Button, DdlCtaContProveedores)
|
||||||
Case "Acreedores"
|
' Case "Acreedores"
|
||||||
AgregarCuentaContable(Button, DdlCtaContAcreedores)
|
' AgregarCuentaContable(Button, DdlCtaContAcreedores)
|
||||||
Case "DocsXPagar"
|
' Case "DocsXPagar"
|
||||||
AgregarCuentaContable(Button, DdlCtaContDocsXPagar)
|
' AgregarCuentaContable(Button, DdlCtaContDocsXPagar)
|
||||||
Case "Anticipos"
|
' Case "Anticipos"
|
||||||
AgregarCuentaContable(Button, DdlCtaContAnticipos)
|
' AgregarCuentaContable(Button, DdlCtaContAnticipos)
|
||||||
Case "Deudores"
|
' Case "Deudores"
|
||||||
AgregarCuentaContable(Button, DdlCtaContDeudor)
|
' AgregarCuentaContable(Button, DdlCtaContDeudor)
|
||||||
End Select
|
' 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
|
' If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad = True Then
|
||||||
Dim IdCuentaContable As Integer = -1
|
' Dim IdCuentaContable As Integer = -1
|
||||||
Dim CtaCodigo As String = ""
|
' Dim CtaCodigo As String = ""
|
||||||
Dim TieneError As Boolean = False
|
' Dim TieneError As Boolean = False
|
||||||
Dim CveConceptoContable As Integer = -1
|
' Dim CveConceptoContable As Integer = -1
|
||||||
Dim Codigo As String = ""
|
' Dim Codigo As String = ""
|
||||||
|
|
||||||
Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa)
|
' Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa)
|
||||||
Dim ObjProveedores As New ClsCompProveedores()
|
' Dim ObjProveedores As New ClsCompProveedores()
|
||||||
|
|
||||||
ObjContaAC.IniciaTransacSQL()
|
' ObjContaAC.IniciaTransacSQL()
|
||||||
ObjProveedores.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
|
' Select Case btn.CommandArgument.ToString
|
||||||
Case "Proveedores"
|
' Case "Proveedores"
|
||||||
CuentaPadre = If(DdlCveTipoProveedor.SelectedValue = "2", UsuarioActual.Empresa.Funcionalidad(202).ToEntero, UsuarioActual.Empresa.Funcionalidad(201).ToEntero)
|
' CuentaPadre = If(DdlCveTipoProveedor.SelectedValue = "2", UsuarioActual.Empresa.Funcionalidad(202).ToEntero, UsuarioActual.Empresa.Funcionalidad(201).ToEntero)
|
||||||
|
|
||||||
If DdlCveTipoProveedor.SelectedValue.ToEntero.Contiene(1, 3) Then
|
' If DdlCveTipoProveedor.SelectedValue.ToEntero.Contiene(1, 3) Then
|
||||||
CveConceptoContable = 5
|
' CveConceptoContable = 5
|
||||||
Else
|
' Else
|
||||||
CveConceptoContable = 305
|
' CveConceptoContable = 305
|
||||||
End If
|
' End If
|
||||||
|
|
||||||
Case "Acreedores"
|
' Case "Acreedores"
|
||||||
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
|
' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
|
||||||
CveConceptoContable = 305
|
' CveConceptoContable = 305
|
||||||
Case "DocsXPagar"
|
' Case "DocsXPagar"
|
||||||
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(203).ToEntero
|
' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(203).ToEntero
|
||||||
CveConceptoContable = 50
|
' CveConceptoContable = 50
|
||||||
Case "Anticipos"
|
' Case "Anticipos"
|
||||||
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(204).ToEntero
|
' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(204).ToEntero
|
||||||
TipoCuenta = "A"
|
' TipoCuenta = "A"
|
||||||
CveConceptoContable = 10
|
' CveConceptoContable = 10
|
||||||
Case "Deudores"
|
' Case "Deudores"
|
||||||
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(205).ToEntero
|
' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(205).ToEntero
|
||||||
CveConceptoContable = 10
|
' CveConceptoContable = 10
|
||||||
|
|
||||||
End Select
|
' End Select
|
||||||
|
|
||||||
'SI EL NOMBRE DEL PROVEEDOR ES MAYOR DE 50 LO CORTAMOS
|
' '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)
|
' 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)
|
' IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(CuentaPadre, NombreCuenta, "D", 2)
|
||||||
If IdCuentaContable > 0 Then
|
' If IdCuentaContable > 0 Then
|
||||||
|
|
||||||
ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1)
|
' ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1)
|
||||||
Dim dt As DataTable = ObjContaAC.DtResultados
|
' 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)
|
' Dim row As DataRow = dt.Rows(0)
|
||||||
CtaCodigo = CStr(row("CtaCodigo"))
|
' CtaCodigo = CStr(row("CtaCodigo"))
|
||||||
Codigo = CStr(row("Codigo"))
|
' Codigo = CStr(row("Codigo"))
|
||||||
Else
|
' Else
|
||||||
TieneError = True
|
' TieneError = True
|
||||||
End If
|
' End If
|
||||||
|
|
||||||
Else
|
' Else
|
||||||
TieneError = True
|
' TieneError = True
|
||||||
End If
|
' End If
|
||||||
'If Not AltaCuentaContabilidadSIG(Codigo, NombreCuenta, IdCuentaContable, CveConceptoContable, ObjProveedores.IniciaTransacSQL, IdCompaqPadre:=CuentaPadre, CveProveedorCuenta:=CveProveedor) Then
|
' 'If Not AltaCuentaContabilidadSIG(Codigo, NombreCuenta, IdCuentaContable, CveConceptoContable, ObjProveedores.IniciaTransacSQL, IdCompaqPadre:=CuentaPadre, CveProveedorCuenta:=CveProveedor) Then
|
||||||
' TieneError = True
|
' ' TieneError = True
|
||||||
'End If
|
' 'End If
|
||||||
|
|
||||||
|
|
||||||
If Not TieneError Then
|
' If Not TieneError Then
|
||||||
Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
|
' Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
|
||||||
ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : ddl.SelectedValueExist(IdCuentaContable.ToString)
|
' ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : ddl.SelectedValueExist(IdCuentaContable.ToString)
|
||||||
btn.Visible = False
|
' btn.Visible = False
|
||||||
ddl.Width = 206
|
' ddl.Width = 206
|
||||||
ObjProveedores.Commit()
|
' ObjProveedores.Commit()
|
||||||
ObjContaAC.Commit()
|
' ObjContaAC.Commit()
|
||||||
Else
|
' Else
|
||||||
Alert("error", TipoMensaje.MsgError)
|
' Alert("error", TipoMensaje.MsgError)
|
||||||
ObjProveedores.RollBack()
|
' ObjProveedores.RollBack()
|
||||||
ObjContaAC.RollBack()
|
' ObjContaAC.RollBack()
|
||||||
End If
|
' End If
|
||||||
|
|
||||||
ObjContaAC.Dispose()
|
' ObjContaAC.Dispose()
|
||||||
ObjProveedores.Dispose()
|
' ObjProveedores.Dispose()
|
||||||
|
|
||||||
End If
|
' End If
|
||||||
|
|
||||||
UPPContable.Update()
|
' UPPContable.Update()
|
||||||
End Sub
|
'End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
|
Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
|
||||||
|
|||||||
Reference in New Issue
Block a user