-- idcta de proveedores para emd
This commit is contained in:
@@ -402,7 +402,9 @@ Public Class ClsCompProveedores
|
|||||||
CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, Estatus As Boolean, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveProveedor As Integer,
|
CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, Estatus As Boolean, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveProveedor As Integer,
|
||||||
Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "", Optional CveUsuarioModifico As Integer = -1,
|
Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "", Optional CveUsuarioModifico As Integer = -1,
|
||||||
Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "",
|
Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "",
|
||||||
Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1) As Boolean
|
Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1,
|
||||||
|
Optional IdCtaContProveedores As Integer = -1, Optional CtaContProveedores As String = "", Optional IdCtaContExtranjera As Integer = -1, Optional CtaContExtranjera As String = "", Optional IdCtaContComplementaria As Integer = -1, Optional CtaContComplementaria As String = "",
|
||||||
|
Optional IdCtaContAnticipos As Integer = -1, Optional CtaContAnticipos As String = "", Optional IdCtaContAnticiposExtranjera As Integer = -1, Optional CtaContAnticiposExtranjera As String = "", Optional IdCtaContAnticiposComplementaria As Integer = -1, Optional CtaContAnticiposComplementaria As String = "") As Boolean
|
||||||
|
|
||||||
Dim Retorno As Boolean = False
|
Dim Retorno As Boolean = False
|
||||||
DataAdapter("PA_Comp_ProveedorUpdate")
|
DataAdapter("PA_Comp_ProveedorUpdate")
|
||||||
@@ -456,6 +458,22 @@ Public Class ClsCompProveedores
|
|||||||
.Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor
|
.Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor
|
||||||
.Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
|
.Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
|
||||||
|
|
||||||
|
'Proveedores
|
||||||
|
.Add("@IdCtaContProveedores", SqlDbType.Int).Value = IdCtaContProveedores
|
||||||
|
.Add("@CtaContProveedores", SqlDbType.VarChar).Value = CtaContProveedores
|
||||||
|
.Add("@IdCtaContExtranjera", SqlDbType.Int).Value = IdCtaContExtranjera
|
||||||
|
.Add("@CtaContExtranjera", SqlDbType.VarChar).Value = CtaContExtranjera
|
||||||
|
.Add("@IdCtaContComplementaria", SqlDbType.Int).Value = IdCtaContComplementaria
|
||||||
|
.Add("@CtaContComplementaria", SqlDbType.VarChar).Value = CtaContComplementaria
|
||||||
|
|
||||||
|
'Anticipos
|
||||||
|
.Add("@IdCtaContAnticipos", SqlDbType.Int).Value = IdCtaContAnticipos
|
||||||
|
.Add("@CtaContAnticipos", SqlDbType.VarChar).Value = CtaContAnticipos
|
||||||
|
.Add("@IdCtaContAnticiposExtranjera", SqlDbType.Int).Value = IdCtaContAnticiposExtranjera
|
||||||
|
.Add("@CtaContAnticiposExtranjera", SqlDbType.VarChar).Value = CtaContAnticiposExtranjera
|
||||||
|
.Add("@IdCtaContAnticiposComplementaria", SqlDbType.Int).Value = IdCtaContAnticiposComplementaria
|
||||||
|
.Add("@CtaContAnticiposComplementaria", SqlDbType.VarChar).Value = CtaContAnticiposComplementaria
|
||||||
|
|
||||||
End With
|
End With
|
||||||
|
|
||||||
Try
|
Try
|
||||||
|
|||||||
@@ -931,7 +931,7 @@
|
|||||||
</div>
|
</div>
|
||||||
</td>
|
</td>
|
||||||
<td>
|
<td>
|
||||||
<div class="portlet light xspadding bordered ">
|
<div class="portlet light xspadding bordered " style="display:none;">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<i class="icon-pin font-green"></i>
|
||||||
@@ -981,106 +981,108 @@
|
|||||||
</div>
|
</div>
|
||||||
</td>
|
</td>
|
||||||
<td>
|
<td>
|
||||||
<div class="portlet light xspadding bordered ">
|
<div class="portlet light xspadding bordered ">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<i class="icon-pin font-green"></i>
|
||||||
<span class="caption-subject bold uppercase">Cuentas Contables Doctos. X Pagar</span>
|
<span class="caption-subject bold uppercase">Cuentas Contables Anticipos</span>
|
||||||
</div>
|
</div>
|
||||||
<div class="actions">
|
<div class="actions">
|
||||||
<div class="btn-group">
|
<div class="btn-group">
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="tools">
|
<div class="tools">
|
||||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||||
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
|
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
|
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom " >
|
||||||
<table border="0">
|
<table border="0">
|
||||||
<tr>
|
<tr>
|
||||||
<td>Doctos. x Pagar:</td>
|
<td>Anticipos:</td>
|
||||||
<td>
|
<td>
|
||||||
<asp:DropDownList ID="DdlCtaContDocsXPagar" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
<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:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
</td>
|
</td>
|
||||||
<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" />
|
<asp:Button ID="BtnActivaRegistroAnticipos" runat="server" CssClass="btn btn-primary btn-sm" Text="+" Visible="false" Style="margin-left: -35px;" CommandArgument="Anticipos" OnClick="BtnAgregaCuentaContable" />
|
||||||
</td>
|
</td>
|
||||||
</tr>
|
</tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td>Extranjera:</td>
|
<td>Extranjera:</td>
|
||||||
<td>
|
<td>
|
||||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContDocsXPagarExtranjera" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
<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:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
</td>
|
</td>
|
||||||
</tr>
|
</tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td>
|
<td>
|
||||||
<asp:Label runat="server" ToolTip="Complementaria" Text="Complem..."></asp:Label></td>
|
<asp:Label runat="server" ToolTip="Complementaria" Text="Complem..."></asp:Label></td>
|
||||||
<td>
|
<td>
|
||||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContDocsXPagarComplementaria" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
<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:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
</td>
|
</td>
|
||||||
</tr>
|
</tr>
|
||||||
</table>
|
</table>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
</td>
|
</td>
|
||||||
</tr>
|
</tr>
|
||||||
<tr>
|
<tr style="display:none;">
|
||||||
<td>
|
<td>
|
||||||
<div class="portlet light xspadding bordered ">
|
<div class="portlet light xspadding bordered " style="display:none;">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<i class="icon-pin font-green"></i>
|
||||||
<span class="caption-subject bold uppercase">Cuentas Contables Anticipos</span>
|
<span class="caption-subject bold uppercase">Cuentas Contables Doctos. X Pagar</span>
|
||||||
</div>
|
</div>
|
||||||
<div class="actions">
|
<div class="actions">
|
||||||
<div class="btn-group">
|
<div class="btn-group">
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="tools">
|
<div class="tools">
|
||||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||||
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
|
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
|
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
|
||||||
<table border="0">
|
<table border="0">
|
||||||
<tr>
|
<tr>
|
||||||
<td>Anticipos:</td>
|
<td>Doctos. x Pagar:</td>
|
||||||
<td>
|
<td>
|
||||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContAnticipos" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
<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:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
</td>
|
</td>
|
||||||
<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" />
|
<asp:Button ID="BtnActivaRegistroDocsXPagar" runat="server" CssClass="btn btn-primary btn-sm" Text="+" Visible="false" Style="margin-left: -35px;" CommandArgument="DocsXPagar" OnClick="BtnAgregaCuentaContable" />
|
||||||
</td>
|
</td>
|
||||||
</tr>
|
</tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td>Extranjera:</td>
|
<td>Extranjera:</td>
|
||||||
<td>
|
<td>
|
||||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContAnticiposExtranjera" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
<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:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
</td>
|
</td>
|
||||||
</tr>
|
</tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td>
|
<td>
|
||||||
<asp:Label runat="server" ToolTip="Complementaria" Text="Complem..."></asp:Label></td>
|
<asp:Label runat="server" ToolTip="Complementaria" Text="Complem..."></asp:Label></td>
|
||||||
<td>
|
<td>
|
||||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlCtaContAnticiposComplementaria" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="206px">
|
<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:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
</td>
|
</td>
|
||||||
</tr>
|
</tr>
|
||||||
</table>
|
</table>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
</td>
|
</td>
|
||||||
<td>
|
<td>
|
||||||
<div class="portlet light xspadding bordered ">
|
<div class="portlet light xspadding bordered ">
|
||||||
|
|||||||
@@ -946,6 +946,12 @@ Partial Class Compras_Proveedores
|
|||||||
DdlCtaContDocsXPagarComplementaria.AutoPostBack = True
|
DdlCtaContDocsXPagarComplementaria.AutoPostBack = True
|
||||||
DdlCtaContRetISRAcreditable.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
|
||||||
|
|
||||||
DdlCtaContProveedores.Attributes.Add("onclick", "CargaCuentas(1);")
|
DdlCtaContProveedores.Attributes.Add("onclick", "CargaCuentas(1);")
|
||||||
DdlCtaContAcreedores.Attributes.Add("onclick", "CargaCuentas(6);")
|
DdlCtaContAcreedores.Attributes.Add("onclick", "CargaCuentas(6);")
|
||||||
DdlCtaContAnticipos.Attributes.Add("onclick", "CargaCuentas(2);")
|
DdlCtaContAnticipos.Attributes.Add("onclick", "CargaCuentas(2);")
|
||||||
@@ -968,68 +974,68 @@ Partial Class Compras_Proveedores
|
|||||||
DdlCtaContRetIVAAcreditable.Attributes.Add("onclick", "CargaCuentas(20);")
|
DdlCtaContRetIVAAcreditable.Attributes.Add("onclick", "CargaCuentas(20);")
|
||||||
|
|
||||||
|
|
||||||
End If
|
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
|
||||||
LblLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero
|
LblLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero
|
||||||
LblPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString
|
LblPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString
|
||||||
|
|
||||||
'Sistema
|
'Sistema
|
||||||
ChkEstado.Checked = ObjProveedor.Estatus = "Activo"
|
ChkEstado.Checked = ObjProveedor.Estatus = "Activo"
|
||||||
LblFechaCaptura.Text = ObjProveedor.FechaIng.ToShortDateString
|
LblFechaCaptura.Text = ObjProveedor.FechaIng.ToShortDateString
|
||||||
LblUsuarioCapturo.Text = ObjProveedor.Usuario
|
LblUsuarioCapturo.Text = ObjProveedor.Usuario
|
||||||
TxtObservaciones.Text = ObjProveedor.Observaciones
|
TxtObservaciones.Text = ObjProveedor.Observaciones
|
||||||
|
|
||||||
CargaCombos()
|
CargaCombos()
|
||||||
|
|
||||||
ChkAplicarEvaluacion.Checked = If(ObjProveedor.DtResultados.Rows(0)("AplicarEvaluacion").ToString = "True", True, False)
|
ChkAplicarEvaluacion.Checked = If(ObjProveedor.DtResultados.Rows(0)("AplicarEvaluacion").ToString = "True", True, False)
|
||||||
TxtFechaEva.Text = If(IsDate(ObjProveedor.DtResultados.Rows(0)("FechaEvaluacion").ToString()), ObjProveedor.DtResultados.Rows(0)("FechaEvaluacion").ToString().ToDate().ToString("dd/MM/yyyy"), "")
|
TxtFechaEva.Text = If(IsDate(ObjProveedor.DtResultados.Rows(0)("FechaEvaluacion").ToString()), ObjProveedor.DtResultados.Rows(0)("FechaEvaluacion").ToString().ToDate().ToString("dd/MM/yyyy"), "")
|
||||||
LblFechaUltimaEvaluacion.Text = If(IsDate(ObjProveedor.DtResultados.Rows(0)("FechaUltimaEvaluacion").ToString()), ObjProveedor.DtResultados.Rows(0)("FechaUltimaEvaluacion").ToString().ToDate().ToString("dd/MM/yyyy"), "")
|
LblFechaUltimaEvaluacion.Text = If(IsDate(ObjProveedor.DtResultados.Rows(0)("FechaUltimaEvaluacion").ToString()), ObjProveedor.DtResultados.Rows(0)("FechaUltimaEvaluacion").ToString().ToDate().ToString("dd/MM/yyyy"), "")
|
||||||
DdlCicloEvaluacion.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CicloEvaluacion").ToString())
|
DdlCicloEvaluacion.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CicloEvaluacion").ToString())
|
||||||
DdlUsuarioEvaluador.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveUsuarioEvaluador").ToString())
|
DdlUsuarioEvaluador.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveUsuarioEvaluador").ToString())
|
||||||
|
|
||||||
DdlConfianzaProveedor.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveConfianzaProveedor"))
|
DdlConfianzaProveedor.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveConfianzaProveedor"))
|
||||||
|
|
||||||
DdlCveClasificacionProveedor.SelectedValue = ObjProveedor.CveProveedorClasificacion.ToString()
|
DdlCveClasificacionProveedor.SelectedValue = ObjProveedor.CveProveedorClasificacion.ToString()
|
||||||
DdlCveUsuarioResponsable.SelectedValue = ObjProveedor.CveUsuarioResponsable.ToString
|
DdlCveUsuarioResponsable.SelectedValue = ObjProveedor.CveUsuarioResponsable.ToString
|
||||||
DdlCveTipoProveedor.SelectedValue = ObjProveedor.CveTipoProveedor.ToString
|
DdlCveTipoProveedor.SelectedValue = ObjProveedor.CveTipoProveedor.ToString
|
||||||
|
|
||||||
'EMD: Si no es prisila desablita este campo
|
'EMD: Si no es prisila desablita este campo
|
||||||
If UsuarioActual.CveEmpresa = 13 AndAlso Not UsuarioActual.CveUsuario.Contiene(58, 100) Then
|
If UsuarioActual.CveEmpresa = 13 AndAlso Not UsuarioActual.CveUsuario.Contiene(58, 100) Then
|
||||||
DdlCveTipoProveedor.Enabled = False
|
DdlCveTipoProveedor.Enabled = False
|
||||||
DdlCveTipoProveedor.Attributes.Add("disabled", "disabled")
|
DdlCveTipoProveedor.Attributes.Add("disabled", "disabled")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If TxtRazonSocial.Text.Trim = TxtNombreComercial.Text.Trim Then TxtRazonSocial.Attributes.Add("onKeyUp", "SetText(" & TxtRazonSocial.ClientID & ", " & TxtNombreComercial.ClientID & ")")
|
If TxtRazonSocial.Text.Trim = TxtNombreComercial.Text.Trim Then TxtRazonSocial.Attributes.Add("onKeyUp", "SetText(" & TxtRazonSocial.ClientID & ", " & TxtNombreComercial.ClientID & ")")
|
||||||
|
|
||||||
If UsuarioActual.TienePermisoProceso(87) Then BtnGuardar.Visible = True 'Actualizar Proveedor
|
If UsuarioActual.TienePermisoProceso(87) Then BtnGuardar.Visible = True 'Actualizar Proveedor
|
||||||
If UsuarioActual.TienePermisoProceso(86) Then BtnEliminar.Visible = True ' Eliminar Proveedor
|
If UsuarioActual.TienePermisoProceso(86) Then BtnEliminar.Visible = True ' Eliminar Proveedor
|
||||||
If UsuarioActual.TienePermisoProceso(256) Then LnkParametros.Visible = True 'Actualizar Límite de Crédito
|
If UsuarioActual.TienePermisoProceso(256) Then LnkParametros.Visible = True 'Actualizar Límite de Crédito
|
||||||
|
|
||||||
Retorno = True
|
Retorno = True
|
||||||
|
|
||||||
' enviaractivacion()
|
' enviaractivacion()
|
||||||
|
|
||||||
|
|
||||||
CargaEventoBitacora()
|
CargaEventoBitacora()
|
||||||
|
|
||||||
Else
|
Else
|
||||||
Alert("El Proveedor Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
|
Alert("El Proveedor Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
|
||||||
BtnGuardar.Enabled = False
|
BtnGuardar.Enabled = False
|
||||||
' LbAgregarSucursal.Enabled = False
|
' LbAgregarSucursal.Enabled = False
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
CargaProveedorSucursales()
|
CargaProveedorSucursales()
|
||||||
|
|
||||||
CargaContactos(ObjProveedor)
|
CargaContactos(ObjProveedor)
|
||||||
|
|
||||||
ObjProveedor.Dispose()
|
ObjProveedor.Dispose()
|
||||||
Return Retorno
|
Return Retorno
|
||||||
End Function
|
End Function
|
||||||
Private Sub CargaUsuarioEvaluacionProveedor()
|
Private Sub CargaUsuarioEvaluacionProveedor()
|
||||||
DdlUsuarioEvaluador.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
|
DdlUsuarioEvaluador.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
|
||||||
DdlUsuarioEvaluador.DataBind()
|
DdlUsuarioEvaluador.DataBind()
|
||||||
@@ -1115,7 +1121,7 @@ Partial Class Compras_Proveedores
|
|||||||
CountAnticipos = ObjMovtos.DtResultados.FiltraParametros(" Tipo = 'Act' AND TipoDocto <> '' AND (CveCompra > 0 OR CveIE > 0) ").Rows.Count
|
CountAnticipos = ObjMovtos.DtResultados.FiltraParametros(" Tipo = 'Act' AND TipoDocto <> '' AND (CveCompra > 0 OR CveIE > 0) ").Rows.Count
|
||||||
|
|
||||||
|
|
||||||
LblVencidoPesosAnt.Text = String.Format("{0}", ObjMovtos.DtResultados.SUM("Saldo", "CveMoneda = 1 And DiasVencidos > 0")).FormatoNumero
|
LblVencidoPesosAnt.Text = String.Format("{0}", ObjMovtos.DtResultados.SUM("Saldo", "CveMoneda = 1 And DiasVencidos > 0")).FormatoNumero
|
||||||
LblTotalPesosAnt.Text = String.Format("{0}", ObjMovtos.DtResultados.SUM("Saldo", "CveMoneda = 1 ")).FormatoNumero
|
LblTotalPesosAnt.Text = String.Format("{0}", ObjMovtos.DtResultados.SUM("Saldo", "CveMoneda = 1 ")).FormatoNumero
|
||||||
LblPorVencerPesosAnt.Text = CType(LblTotalPesosAnt.Text.ToDouble - LblVencidoPesosAnt.Text.ToDouble, String).FormatoNumero
|
LblPorVencerPesosAnt.Text = CType(LblTotalPesosAnt.Text.ToDouble - LblVencidoPesosAnt.Text.ToDouble, String).FormatoNumero
|
||||||
|
|
||||||
@@ -1848,7 +1854,10 @@ Partial Class Compras_Proveedores
|
|||||||
DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, ChkEstado.Checked, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, CveProveedor,
|
DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, ChkEstado.Checked, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, CveProveedor,
|
||||||
DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario,
|
DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario,
|
||||||
DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, AplicarEvaluacion:=ChkAplicarEvaluacion.Checked, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
|
DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, AplicarEvaluacion:=ChkAplicarEvaluacion.Checked, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
|
||||||
CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then
|
CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero,
|
||||||
|
IdCtaContProveedores:=DdlCtaContProveedores.SelectedValue.ToEntero, CtaContProveedores:=DdlCtaContProveedores.SelectedItem.Text,
|
||||||
|
IdCtaContExtranjera:=DdlCtaContExtranjera.SelectedValue.ToEntero, CtaContExtranjera:=DdlCtaContExtranjera.SelectedItem.Text,
|
||||||
|
IdCtaContComplementaria:=DdlCtaContComplementaria.SelectedValue.ToEntero, CtaContComplementaria:=DdlCtaContComplementaria.SelectedItem.Text) Then
|
||||||
|
|
||||||
GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
|
GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user