Energía Eléctrica 2024-12-20
This commit is contained in:
rakcsle
@@ -383,7 +383,7 @@
|
||||
</div>
|
||||
<div class="portlet-body form-horizontal form-row-sepe formnombottom label12">
|
||||
<div class="form-body">
|
||||
<table width="400px" border="0" cellpadding="0">
|
||||
<table width="500px" border="0" cellpadding="0">
|
||||
<tr>
|
||||
<td colspan="3" style="text-align: center;"><b>Usuarios con acceso a la cuenta</b></td>
|
||||
</tr>
|
||||
@@ -398,12 +398,16 @@
|
||||
<td colspan="3" style="vertical-align: top;">
|
||||
<asp:GridView ID="GVU" runat="server" Width="400px" DataKeyNames="CveCuenta,CveUsuario" AutoGenerateColumns="False" GridLines="None" CssClass="mysmallbtn">
|
||||
<Columns>
|
||||
<asp:BoundField HeaderText="Nombre" DataField="Nombre" ItemStyle-HorizontalAlign="Left" />
|
||||
|
||||
<asp:TemplateField HeaderText="Nombre" ItemStyle-HorizontalAlign="Left" >
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
|
||||
(<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>)
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ShowHeader="False">
|
||||
<ItemTemplate>
|
||||
<%--<asp:ImageButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" ImageUrl="/Imagenes/Btn_Delete.png" OnClientClick="javascript:return C();" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />--%>
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="ImageButton4" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
|
||||
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
|
||||
@@ -478,8 +478,12 @@ Partial Class Bancos_CuentasBancariasDetalle
|
||||
For Each row As DataRow In DTUsuarios.Rows
|
||||
sUsuarios = $"{sUsuarios} {row("CveUsuario").ToString},"
|
||||
Next
|
||||
If sUsuarios <> "" Then
|
||||
DdlUsuarios.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario NOT IN ({sUsuarios.Substring(0, sUsuarios.Length - 1)})", "Nombre")
|
||||
If sUsuarios <> "" Then
|
||||
|
||||
' Dim tablaUsuariosAux As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre", DistinctColumns:={"CveUsuario", "Nombre", "Usuario"})
|
||||
Dim tablaUsuariosAux As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario NOT IN ({sUsuarios.Substring(0, sUsuarios.Length - 1)})", "Nombre")
|
||||
DdlUsuarios.DataSource = CargarDdlUsuarios(tablaUsuariosAux)
|
||||
'DdlUsuarios.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario NOT IN ({sUsuarios.Substring(0, sUsuarios.Length - 1)})", "Nombre")
|
||||
DdlUsuarios.DataBind()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -219,111 +219,147 @@
|
||||
</asp:UpdatePanel>
|
||||
<asp:UpdatePanel ID="UpComisiones" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="row rowcheck truncate" id="DivComisioncheck">
|
||||
|
||||
<div class="row rowcheck truncate " id="DivComisioncheck" style="padding:0px!important;margin:0px!important">
|
||||
<div class="col-md-1 truncate" runat="server" id="DivFaltante" style="width: 155px;">
|
||||
<asp:CheckBox ID="ChkFaltante" runat="server" Text="Faltante/Sobrante" CssClass="checkbox" />
|
||||
</div>
|
||||
<div class="col-md-10 rowcheckCampos" id="DivComision" style="display: none;">
|
||||
<div class="col-md-1" style="padding-right: 130px;">
|
||||
<label>Importe:</label>
|
||||
<asp:TextBox runat="server" ID="TxtComision" Class=" input-sm " Width="100px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="Numeros"></asp:TextBox>
|
||||
|
||||
<div class="col-md-2 DivComision" style="display: none">
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" style="width: 100px">
|
||||
<asp:TextBox runat="server" ID="TxtComision"
|
||||
Width="100px" onkeypress="return numericOnly(this);"
|
||||
ondrop="return false;" onpaste="return false;" CssClass="form-control Numeros"></asp:TextBox>
|
||||
<label for="<%= TxtComision.ClientID.ToString()%>">Importe:</label>
|
||||
</div>
|
||||
|
||||
<div class="col-md-1" style="padding-right: 190px;">
|
||||
<label>SubProyecto:</label>
|
||||
<asp:DropDownList ID="DdlSubProyectoDeposito" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
|
||||
</div>
|
||||
|
||||
<div class="col-md-2 DivComision" style="display: none">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlSubProyectoDeposito" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="form-control select2me" Width="100%">
|
||||
</asp:DropDownList>
|
||||
<label for="<%= DdlSubProyectoDeposito.ClientID.ToString()%>">SubProyecto:</label>
|
||||
</div>
|
||||
|
||||
<div class="col-md-1">
|
||||
<label>Clasificación:</label>
|
||||
<asp:DropDownList ID="DdlClasificacion" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
|
||||
|
||||
</div>
|
||||
|
||||
<div class="col-md-2 DivComision" style="display: none">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlClasificacion" AutoPostBack="false" Class="form-control select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%">
|
||||
</asp:DropDownList>
|
||||
<label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación:</label>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
<div class="row rowcheck truncate" id="DivDescuentocheck" style="margin-top: -25px;" runat="server">
|
||||
|
||||
<div class="row rowcheck truncate" id="DivDescuentocheck" runat="server" style="padding:0px!important;margin:0px!important" >
|
||||
<div class="col-md-1" runat="server" id="Div1" style="width: 155px">
|
||||
<asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" CssClass="checkbox" />
|
||||
</div>
|
||||
<div class="col-md-10 rowcheckCampos" id="DivDescuento" style="display: none">
|
||||
<div class="col-md-1" style="padding-right: 130px;">
|
||||
<label for="TxtDescuento">Importe:</label>
|
||||
<asp:TextBox runat="server" ID="TxtDescuento" Class=" input-sm " Width="100px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="Numeros"></asp:TextBox>
|
||||
<div class="col-md-1 DivDescuento" style="display:none" >
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox runat="server" ID="TxtDescuento" Width="100px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="form-control Numeros"></asp:TextBox>
|
||||
<label for="<%= TxtDescuento.ClientID.ToString()%>">Importe:</label>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
<div class="col-md-1 DivDescuento" style="display:none" >
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlSubProyectoDescuento" Width="100px" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control select2me" >
|
||||
</asp:DropDownList>
|
||||
<label for="<%= DdlSubProyectoDescuento.ClientID.ToString()%>">SubProyecto:</label>
|
||||
</div>
|
||||
|
||||
<div class="col-md-1" style="padding-right: 190px;">
|
||||
<label>SubProyecto:</label>
|
||||
<asp:DropDownList ID="DdlSubProyectoDescuento" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="col-md-2">
|
||||
<label>Clasificación:</label>
|
||||
<asp:DropDownList ID="DdlClasificacionDescuento" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<div class="col-md-1">
|
||||
<label>Emp:</label>
|
||||
<asp:DropDownList ID="DdlPersonal" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal">
|
||||
<div class="col-md-2 DivDescuento" style="display:none">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlClasificacionDescuento" Width="100%" AutoPostBack="false" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" CssClass="form-control select2me">
|
||||
</asp:DropDownList>
|
||||
<label for="<%= DdlClasificacionDescuento.ClientID.ToString()%>">Clasificación:</label>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="col-md-2 DivDescuento" style="display:none">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlPersonal" AutoPostBack="false" Width="100%" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control select2me">
|
||||
</asp:DropDownList>
|
||||
<label for="<%= DdlPersonal.ClientID.ToString()%>">Emp:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row rowcheck truncate" id="DivIntercheck" style="margin-top: -15px;" runat="server">
|
||||
|
||||
<div class="row rowcheck truncate" id="DivIntercheck" runat="server" style="padding:0px!important;margin:0px!important">
|
||||
|
||||
<div class="col-md-1" runat="server" id="Div2" style="width: 155px">
|
||||
<asp:CheckBox ID="ChkIntermediario" runat="server" Text="Intermediario" CssClass="checkbox" />
|
||||
</div>
|
||||
<div class="col-md-10 rowcheckCampos" id="DivInter" style="display: none">
|
||||
<div class="col-md-1" id="dd" style="padding-right: 130px;">
|
||||
<label>Intermediario:</label>
|
||||
<asp:DropDownList ID="DdlProveedorIntermediario" CssClassDdl="select2me" Width="100px" CssStyle="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" runat="server"></asp:DropDownList>
|
||||
</div>
|
||||
<div class="col-md-2" style="width: 205px;">
|
||||
<div class="col-md-6" id="DivinterImporte" style="padding-left: 0px; padding-right: 0px;">
|
||||
<label>Importe:</label>
|
||||
<asp:TextBox runat="server" ID="TxtComisionIntermediario" Class=" input-sm " Width="75px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="Numeros"></asp:TextBox>
|
||||
<div class="col-md-10 rowcheckCampos xspadding" id="DivInter" style="display: none">
|
||||
<div class="col-md-1" id="dd" >
|
||||
<div class="form-group form-md-line-input input-iconright" >
|
||||
<asp:DropDownList ID="DdlProveedorIntermediario" CssClass="form-control select2me" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" runat="server"></asp:DropDownList>
|
||||
<label for="<%= DdlProveedorIntermediario.ClientID.ToString()%>">Intermediario:</label>
|
||||
</div>
|
||||
<div class="col-md-6" id="DivIVA">
|
||||
<label>IVA:</label>
|
||||
<asp:TextBox runat="server" ID="TxtIVA" Class=" input-sm " Width="75px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="Numeros"></asp:TextBox>
|
||||
</div>
|
||||
|
||||
<div class="col-md-1" id="DivinterImporte" >
|
||||
<div class="form-group form-md-line-input input-iconright" >
|
||||
<asp:TextBox runat="server" ID="TxtComisionIntermediario" Width="75px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass=" form-control Numeros"></asp:TextBox>
|
||||
<label for="<%= TxtComisionIntermediario.ClientID.ToString()%>">Importe:</label>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="col-md-1" id="DivIVA">
|
||||
<div class="form-group form-md-line-input input-iconright" >
|
||||
<asp:TextBox runat="server" ID="TxtIVA" Width="75px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="form-control Numeros"></asp:TextBox>
|
||||
<label for="<%= TxtIVA.ClientID.ToString()%>">IVA:</label>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="col-md-1" id="dd2" style="margin-right: 100px;">
|
||||
<label id="LblClasificacion3">Gasto:</label>
|
||||
<asp:DropDownList ID="DdlClasificacionIntermediario" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<div class="col-md-1" id="divSubProyectoIntermediario">
|
||||
<label id="LblSubproyectoIntermediario">SubProyecto:</label>
|
||||
|
||||
<asp:DropDownList ID="DdlSubProyectoIntermediario" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
|
||||
</asp:DropDownList>
|
||||
<div class="form-group form-md-line-input input-iconright" >
|
||||
<asp:DropDownList ID="DdlClasificacionIntermediario" AutoPostBack="false" Class=" form-control select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
|
||||
</asp:DropDownList>
|
||||
<label for="<%= DdlClasificacionIntermediario.ClientID.ToString()%>"><label id="LblClasificacion3">Gasto:</label></label>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
<div class="col-md-2" id="divSubProyectoIntermediario">
|
||||
<div class="form-group form-md-line-input input-iconright" >
|
||||
<asp:DropDownList ID="DdlSubProyectoIntermediario" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control select2me" >
|
||||
</asp:DropDownList>
|
||||
<label for="<%= DdlSubProyectoIntermediario.ClientID.ToString()%>"><label id="LblSubproyectoIntermediario">SubProyecto:</label></label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row rowcheck truncate" id="DivRowCuenta" style="margin-top: -15px;" runat="server" visible="false" >
|
||||
|
||||
<div class="row rowcheck truncate" id="DivRowCuenta" style="padding:0px!important;margin:0px!important" runat="server" visible="false" >
|
||||
|
||||
<div class="col-md-1" runat="server" id="Div3" style="width: 155px">
|
||||
<asp:CheckBox ID="ChkCuentaRetorno" runat="server" Text="Caja" CssClass="checkbox" />
|
||||
</div>
|
||||
<div class="col-md-10 rowcheckCampos" id="DivRowCuenta2" style="display: none">
|
||||
<div class="row">
|
||||
<div class="col-md-2" id="DivCuentaImporte" style="padding-left: 0px; padding-right: 0px;">
|
||||
<label>Importe:</label>
|
||||
<asp:TextBox runat="server" ID="TxtCuentaRetorno" Class=" input-sm " Width="75px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="Numeros"></asp:TextBox>
|
||||
</div>
|
||||
<div class="col-md-2 DivRowCuenta2" id="DivCuentaImporte" style="display:none">
|
||||
<div class="form-group form-md-line-input input-iconright" >
|
||||
<asp:TextBox runat="server" ID="TxtCuentaRetorno" Width="100px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass=" form-control Numeros"></asp:TextBox>
|
||||
<label for="<%= TxtCuentaRetorno.ClientID.ToString()%>">Importe:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6" style="padding-left: 0px; padding-right: 0px;">
|
||||
<label>Obs:</label>
|
||||
<asp:TextBox runat="server" ID="TxtCuentaRetornoObs" Class=" input-sm " Width="250px" ></asp:TextBox>
|
||||
<div class="col-md-6 DivRowCuenta2" style="display:none">
|
||||
<div class="form-group form-md-line-input input-iconright" >
|
||||
<asp:TextBox runat="server" ID="TxtCuentaRetornoObs" Width="100%" CssClass=" form-control" ></asp:TextBox>
|
||||
<label for="<%= TxtCuentaRetornoObs.ClientID.ToString()%>">Obs:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
</ContentTemplate>
|
||||
@@ -671,13 +707,13 @@
|
||||
|
||||
function CheckFaltante(chk) {
|
||||
if (chk.checked == true) {
|
||||
$('#DivComision').css("display", "block");
|
||||
$('.DivComision').css("display", "block");
|
||||
$('#DivComisioncheck').removeClass("truncate");
|
||||
$("#DivDescuentocheck").css("margin-top", 0);
|
||||
} else {
|
||||
$('#C_TxtComision').val(0);
|
||||
Recalcular();
|
||||
$('#DivComision').css("display", "none");
|
||||
$('.DivComision').css("display", "none");
|
||||
$('#DivComisioncheck').addClass("truncate");
|
||||
$("#DivDescuentocheck").css("margin-top", -25);
|
||||
|
||||
@@ -687,7 +723,7 @@
|
||||
|
||||
function CheckDescuento(chk) {
|
||||
if (chk.checked == true) {
|
||||
$('#DivDescuento').css("display", "block");
|
||||
$('.DivDescuento').css("display", "block");
|
||||
$('#DivDescuentocheck').removeClass("truncate");
|
||||
$("#DivIntercheck").css("margin-top", 0);
|
||||
|
||||
@@ -695,7 +731,7 @@
|
||||
} else {
|
||||
$('#C_TxtDescuento').val(0);
|
||||
Recalcular();
|
||||
$('#DivDescuento').css("display", "none");
|
||||
$('.DivDescuento').css("display", "none");
|
||||
$('#DivDescuentocheck').addClass("truncate");
|
||||
$("#DivIntercheck").css("margin-top", -25);
|
||||
|
||||
@@ -719,13 +755,13 @@
|
||||
}
|
||||
function CheckRowCuenta(chk) {
|
||||
if (chk.checked == true) {
|
||||
$('#DivRowCuenta2').css("display", "block");
|
||||
$('.DivRowCuenta2').css("display", "block");
|
||||
$('#DivRowCuenta').removeClass("truncate");
|
||||
|
||||
} else {
|
||||
|
||||
Recalcular();
|
||||
$('#DivRowCuenta2').css("display", "none");
|
||||
$('.DivRowCuenta2').css("display", "none");
|
||||
$('#DivRowCuenta').addClass("truncate");
|
||||
}
|
||||
}
|
||||
|
||||
Binary file not shown.
@@ -1316,6 +1316,7 @@ Partial Class General_SaldosIniciales
|
||||
Dim ErrorClientes As Boolean = False
|
||||
Dim ExisteCliente As Boolean = False
|
||||
Dim Contador As Integer = 0
|
||||
Dim CountRFCGenerico As Integer = 0
|
||||
Dim NumRow As Integer = 0
|
||||
|
||||
|
||||
@@ -1376,7 +1377,17 @@ Partial Class General_SaldosIniciales
|
||||
|
||||
Dim Vendedor As String = If(dt.Columns.Contains("Vendedor"), Row("Vendedor").ToString(), "").Trim
|
||||
Dim Clasificacion As String = If(dt.Columns.Contains("ClasificacionCliente"), Row("ClasificacionCliente").ToString(), "").Trim
|
||||
Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString().ToEntero()
|
||||
|
||||
Dim CveCliente As Integer = -1 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString().ToEntero()
|
||||
|
||||
Dim EsRFCGenerico As Boolean = If(RFC.ToUpper = "XAXX010101000" Or RFC.ToUpper = "XEXX010101000" Or RFC.ToUpper = "AAA010101AAA", True, False)
|
||||
|
||||
'If CveCliente <= 0 And Not EsRFCGenerico Then
|
||||
' If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1) Then
|
||||
' CveCliente = ObjClientes.DtResultados.Copy().FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString().ToEntero()
|
||||
' End If
|
||||
'End If
|
||||
|
||||
|
||||
Dim CveVendedor As Integer = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveVendedor", $"Vendedor = '{Vendedor}'").ToString().ToEntero()
|
||||
Dim CveClasificación As Integer = GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClienteClasificacion", $"ClienteClasificacion = '{Clasificacion}'").ToEntero()
|
||||
@@ -1400,6 +1411,8 @@ Partial Class General_SaldosIniciales
|
||||
Dim CveRegimenFiscal As Integer = 0
|
||||
Dim TipoPersona As Boolean = If(RFC.Length = 12, True, False)
|
||||
|
||||
|
||||
|
||||
If CodigoRegimenFiscal.Trim.Length > 0 Then
|
||||
CveRegimenFiscal = GlobalDTRegimenesFiscales.FiltroPrimeroValor("CveRegimenFiscal", $"CodigoRegimenFiscal= '{CodigoRegimenFiscal}' ").ToEntero()
|
||||
If Not CveRegimenFiscal > 0 Then
|
||||
@@ -1500,10 +1513,57 @@ Partial Class General_SaldosIniciales
|
||||
'Contacto
|
||||
|
||||
If CveCliente > 0 Then
|
||||
|
||||
ExisteCliente = True
|
||||
Contador = Contador + 1
|
||||
|
||||
'PermiteCredito As Boolean, CveSubProyecto As Integer, CveClienteCorporativo As Integer,
|
||||
|
||||
Dim CveSATEstado As Integer = GlobalDTGralEstados("-1").FiltroPrimeroValor("CveSATEstado", String.Format(" NombreEstado ='{0}'", Estado.ToUpper)).ToEntero()
|
||||
CveSATEstado = If(CveSATEstado > 0, CveSATEstado, -1)
|
||||
Dim PermiteCredito As Boolean = If(LimiteCredito > 0, True, False)
|
||||
|
||||
|
||||
|
||||
If EsRFCGenerico Then
|
||||
CountRFCGenerico = CountRFCGenerico + 1
|
||||
End If
|
||||
|
||||
Codigo = If(Codigo.Trim.Length = 0, "-1", Codigo)
|
||||
|
||||
If Not EsRFCGenerico AndAlso Not ObjClientes.UpdateCliente(RazonSocial, RazonSocial, Calle, NumExt.ToString(), NumInt, Colonia, Poblacion, Poblacion, Estado, Pais, RFC, CodigoPostal, Telefono, Contacto, Correo,
|
||||
"-1", "-1", Pagina, "-1", -1, False, -1, -1, False, True, "-1", CveVendedor, PlazoCobranza, -1,
|
||||
"-1", "-1", "-1", Codigo, LimiteCredito, False, "-1", "-1", "-1", False, "-1", "-1", "-1", "-1", "-1", False, "-1", UsuarioActual.CveUsuario, CveCliente, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
|
||||
"-1", "-1", PermiteCredito, -1, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación, CargoUsado:=CargoUsado,
|
||||
BonificacionUsado:=BonificacionUsado, CobranzaContacto:=CobranzaContacto, CobranzaCorreo:=CobranzaCorreo, DiasEspecifico:=DiasPagoEspecifico, DiasRevision:=DìaVisita, CobranzaTelefono:=CobranzaTelefono, CveFormaPago:=CveFormaPago33, CveUsoCFDI:=CveUsoCFDI, CveSATEstado:=CveSATEstado, CveAdminTrayecto:=0,
|
||||
RegimenSociedad:=RegimenSociedad, CveRegimenFiscal:=CveRegimenFiscal, TipoPersona:=TipoPersona) Then
|
||||
|
||||
ErrorClientes = True
|
||||
RFC.GuardaLog
|
||||
Exit For
|
||||
Else
|
||||
If EsRFCGenerico Then
|
||||
CountRFCGenerico = CountRFCGenerico + 1
|
||||
Else
|
||||
Contador = Contador + 1
|
||||
End If
|
||||
End If
|
||||
|
||||
If CveCuentaContable > 0 Then
|
||||
|
||||
Dim ObjConta As New ClsContabilidad(ObjClientes.IniciaTransacSQL)
|
||||
|
||||
If Not ObjConta.AddCuentasAsignaciones(1, UsuarioActual.CveEmpresa, CveCuentaContable,
|
||||
-1, ObjClientes.CveCliente, -1, -1, -1, 0, CveBancoCuenta:=-1, CveConceptoNomina:=-1, CveSubProyecto:=-1, CveActivoFijo:=-1,
|
||||
CveTipoGasto:=-1, RegeneraCuenta:=False) Then
|
||||
ErrorClientes = True
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Else
|
||||
Dim CveSATEstado As Integer = GlobalDTGralEstados("-1").FiltroPrimeroValor("CveSATEstado", String.Format(" NombreEstado ='{0}'", Estado.ToUpper)).ToEntero()
|
||||
CveSATEstado = If(CveSATEstado > 0, CveSATEstado, 26)
|
||||
|
||||
If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, NumExt.ToString(), NumInt, Colonia, Poblacion, Poblacion, Estado, Pais, RFC, CodigoPostal, Telefono, Contacto, Correo, "", "", Pagina, "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CveVendedor, PlazoCobranza, -1,
|
||||
"-1", "-1", "-1", Codigo, LimiteCredito, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación, CargoUsado:=CargoUsado,
|
||||
@@ -1513,6 +1573,8 @@ Partial Class General_SaldosIniciales
|
||||
ErrorClientes = True
|
||||
RFC.GuardaLog
|
||||
Exit For
|
||||
Else
|
||||
GlobalDTCliente(UsuarioActual.CveEmpresa) = Nothing
|
||||
End If
|
||||
|
||||
If CveCuentaContable > 0 Then
|
||||
@@ -1533,7 +1595,7 @@ Partial Class General_SaldosIniciales
|
||||
'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCliente") = ObjClientes.DtResultados
|
||||
GlobalDTCliente(UsuarioActual.CveEmpresa) = Nothing
|
||||
If Contador > 0 Then
|
||||
Alert(String.Format("Se agregaron: <b>{0}</b> Clientes correctamente. <br>Se Omitieron: <b>{1}</b> Clientes ya que ya se encontraban registrados.", NumRows - Contador, Contador), TipoMensaje.MsgInformacion)
|
||||
Alert(String.Format("Se agregaron: <b>{0}</b> Clientes correctamente. <br>Se Omitieron: <b>{1}</b> Clientes ya que ya se encontraban registrados. RFC Genericos Omitidos {2}", NumRows - Contador, Contador, CountRFCGenerico), TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Alert(String.Format("Se agregaron: <b>{0}</b> Clientes correctamente.", NumRows), TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
|
||||
@@ -1527,7 +1527,9 @@ Partial Class Clientes
|
||||
TxtRetISR.Text = ObjClientes.RetISR.ToString()
|
||||
ChkRetIVAFletesAcarreos.Checked = ObjClientes.RetieneIVAFletes
|
||||
If ObjClientes.CveSubProyecto > 0 Then
|
||||
DdlSubProyecto.SelectedValueExistInsert(ObjClientes.CveSubProyecto.ToString(), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=ObjClientes.CveSubProyecto).FiltroPrimeroValor("SubProyecto"))
|
||||
DdlSubProyecto.SelectedValueExistInsert(ObjClientes.CveSubProyecto.ToString(), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=ObjClientes.CveSubProyecto).FiltroPrimeroValor("SubProyecto"))
|
||||
ElseIf UsuarioActual.CveSubProyecto > 0 Then
|
||||
DdlSubProyecto.SelectedValueExistInsert(UsuarioActual.CveSubProyecto, GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=UsuarioActual.CveSubProyecto).FiltroPrimeroValor("SubProyecto"))
|
||||
End If
|
||||
TxtGastosEnvio.Text = ObjClientes.GastosEnvio.FormatoNumero
|
||||
DdlZonaHoraria.SelectedValueExist(ObjClientes.DtResultados(0)("CveZonaHoraria").ToString())
|
||||
|
||||
Reference in New Issue
Block a user