AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-almacen consignación

Browse Source
This commit is contained in:
rrene
2024-04-24 05:02:03 -07:00
parent 7bbc79102c
commit 24d05833c1
3 changed files with 62 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
App_Code/ClsClientes.vb
View File

@@ -159,6 +159,7 @@ Public Class ClsClientes
Public Property RepresentanteLegal As String Public Property RepresentanteLegal As String
Public Property CveAlmacenAsignado As Integer = -1 Public Property CveAlmacenAsignado As Integer = -1
Public Property CveAlmacenAlterno As Integer = -1 Public Property CveAlmacenAlterno As Integer = -1
Public Property CveAlmacenConsignacion As Integer = -1
Public Property UsaProductoAlterno As Boolean = False Public Property UsaProductoAlterno As Boolean = False
@@ -409,6 +410,8 @@ Public Class ClsClientes
_RepresentanteLegal = Data(0)("RepresentanteLegal").ToString _RepresentanteLegal = Data(0)("RepresentanteLegal").ToString
_CveAlmacenAsignado = Data(0)("CveAlmacenAsignado").ToString.ToEntero _CveAlmacenAsignado = Data(0)("CveAlmacenAsignado").ToString.ToEntero
_CveAlmacenAlterno = Data(0)("CveAlmacenAlterno").ToString.ToEntero _CveAlmacenAlterno = Data(0)("CveAlmacenAlterno").ToString.ToEntero
_CveAlmacenConsignacion = Data(0)("CveAlmacenConsignacion").ToString.ToEntero
_UsaProductoAlterno = CBool(Data(0)("UsaProductoAlterno")) _UsaProductoAlterno = CBool(Data(0)("UsaProductoAlterno"))
End If End If
@@ -527,7 +530,7 @@ Public Class ClsClientes
Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False, Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False,
Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0,
Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional UsaProductoAlterno As Boolean = False) As Boolean Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional UsaProductoAlterno As Boolean = False) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -657,6 +660,7 @@ Public Class ClsClientes
.Add("@Genero", SqlDbType.Bit).Value = Genero .Add("@Genero", SqlDbType.Bit).Value = Genero
.Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado .Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado
.Add("@CveAlmacenAlterno", SqlDbType.Int).Value = CveAlmacenAlterno .Add("@CveAlmacenAlterno", SqlDbType.Int).Value = CveAlmacenAlterno
.Add("@CveAlmacenConsignacion", SqlDbType.Int).Value = CveAlmacenConsignacion
.Add("@UsaProductoAlterno", SqlDbType.Bit).Value = UsaProductoAlterno .Add("@UsaProductoAlterno", SqlDbType.Bit).Value = UsaProductoAlterno
End With End With
Try Try
@@ -703,7 +707,7 @@ Public Class ClsClientes
Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False, Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False,
Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False, Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional UsaProductoAlterno As Boolean = False) As Boolean Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional UsaProductoAlterno As Boolean = False) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -842,6 +846,7 @@ Public Class ClsClientes
.Add("@ComExtCP", SqlDbType.VarChar).Value = ComExtCP .Add("@ComExtCP", SqlDbType.VarChar).Value = ComExtCP
.Add("@Genero", SqlDbType.Bit).Value = Genero .Add("@Genero", SqlDbType.Bit).Value = Genero
.Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado .Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado
.Add("@CveAlmacenConsignacion", SqlDbType.Int).Value = CveAlmacenConsignacion
.Add("@CveAlmacenAlterno", SqlDbType.Int).Value = CveAlmacenAlterno .Add("@CveAlmacenAlterno", SqlDbType.Int).Value = CveAlmacenAlterno
.Add("@UsaProductoAlterno", SqlDbType.Bit).Value = UsaProductoAlterno .Add("@UsaProductoAlterno", SqlDbType.Bit).Value = UsaProductoAlterno
@@ -984,9 +989,12 @@ Public Class ClsClientes
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_SucursalClienteGet") DataAdapter("PA_Vta_SucursalClienteGet")
SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente With SqlAdapter.SelectCommand.Parameters
SqlAdapter.SelectCommand.Parameters.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
@@ -1001,10 +1009,13 @@ Public Class ClsClientes
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_ClientesSucursalesGet") DataAdapter("PA_Vta_ClientesSucursalesGet")
SqlAdapter.SelectCommand.Parameters.Add("@RFC", SqlDbType.VarChar).Value = RFC With SqlAdapter.SelectCommand.Parameters
SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@RFC", SqlDbType.VarChar).Value = RFC
SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
SqlAdapter.SelectCommand.Parameters.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
@@ -1052,7 +1063,7 @@ Public Class ClsClientes
'End Function 'End Function
Public Function AddSucursal(CveCliente As Integer, Sucursal As String, CveUsuario As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer, Public Function AddSucursal(CveCliente As Integer, Sucursal As String, CveUsuario As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer,
LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "", LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "",
Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1) As Boolean Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional CveAlmacenAlterno As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_SucursalClienteAdd") DataAdapter("PA_Vta_SucursalClienteAdd")
@@ -1088,6 +1099,7 @@ Public Class ClsClientes
.Add("@RFC", SqlDbType.VarChar).Value = RFC .Add("@RFC", SqlDbType.VarChar).Value = RFC
.Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado .Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado
.Add("@CveAlmacenConsignacion", SqlDbType.Int).Value = CveAlmacenConsignacion
.Add("@CveAlmacenAlterno", SqlDbType.Int).Value = CveAlmacenAlterno .Add("@CveAlmacenAlterno", SqlDbType.Int).Value = CveAlmacenAlterno
End With End With
@@ -1109,7 +1121,7 @@ Public Class ClsClientes
End Function End Function
Public Function UpdateSucursal(Sucursal As String, Estatus As Boolean, CveCliente As Integer, CveClienteSucursal As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer, Public Function UpdateSucursal(Sucursal As String, Estatus As Boolean, CveCliente As Integer, CveClienteSucursal As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer,
LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI33 As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "-1", LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI33 As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "-1",
Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1) As Boolean Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional CveAlmacenAlterno As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_SucursalClienteUpdate") DataAdapter("PA_Vta_SucursalClienteUpdate")
@@ -1142,12 +1154,12 @@ Public Class ClsClientes
.Add("@CveFormaPago33", SqlDbType.Int).Value = CveFormaPago33 .Add("@CveFormaPago33", SqlDbType.Int).Value = CveFormaPago33
.Add("@CveMetodoPago33", SqlDbType.Int).Value = CveMetodoPago33 .Add("@CveMetodoPago33", SqlDbType.Int).Value = CveMetodoPago33
.Add("@LT", SqlDbType.VarChar).Value = LT .Add("@LT", SqlDbType.VarChar).Value = LT
.Add("@LG", SqlDbType.VarChar).Value = LG .Add("@LG", SqlDbType.VarChar).Value = LG
.Add("@RFC", SqlDbType.VarChar).Value = RFC .Add("@RFC", SqlDbType.VarChar).Value = RFC
.Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado .Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado
.Add("@CveAlmacenConsignacion", SqlDbType.Int).Value = CveAlmacenConsignacion
.Add("@CveAlmacenAlterno", SqlDbType.Int).Value = CveAlmacenAlterno .Add("@CveAlmacenAlterno", SqlDbType.Int).Value = CveAlmacenAlterno
End With End With

23
Ventas/Clientes.aspx
View File

@@ -804,14 +804,21 @@
</div> </div>
</div> </div>
<div class="row" id="divAlmacenAsignado" runat="server" visible="false"> <div class="row" id="divAlmacenAsignado" runat="server" visible="false">
<div class="col-md-6"> <div class="col-md-4">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlAlmacenAsignado" runat="server" CssClass=" form-control input-sm select2me" Width="100%" DataTextField="Almacen" DataValueField="CveAlmacen"> <asp:DropDownList ID="DdlAlmacenAsignado" runat="server" CssClass=" form-control input-sm select2me" Width="100%" DataTextField="Almacen" DataValueField="CveAlmacen">
</asp:DropDownList> </asp:DropDownList>
<label for="<%= DdlAlmacenAsignado.ClientID.ToString()%>">Almacen Asignado:</label> <label for="<%= DdlAlmacenAsignado.ClientID.ToString()%>">Almacen Asignado:</label>
</div> </div>
</div> </div>
<div class="col-md-6"> <div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlAlmacenConsignacion" runat="server" CssClass=" form-control input-sm select2me" Width="100%" DataTextField="Almacen" DataValueField="CveAlmacen">
</asp:DropDownList>
<label for="<%= DdlAlmacenConsignacion.ClientID.ToString()%>">Almacen Consignación:</label>
</div>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlAlmacenAlterno" runat="server" CssClass=" form-control input-sm select2me" Width="100%" DataTextField="Almacen" DataValueField="CveAlmacen"> <asp:DropDownList ID="DdlAlmacenAlterno" runat="server" CssClass=" form-control input-sm select2me" Width="100%" DataTextField="Almacen" DataValueField="CveAlmacen">
</asp:DropDownList> </asp:DropDownList>
@@ -5256,12 +5263,16 @@
</div> </div>
</div> </div>
<div class="row" style="padding-left: 16px"> <div class="row" style="padding-left: 16px" id="DivAlmacenesSucursal" visible="false" runat="server">
<div class="form-group form-md-line-input input-iconright col-xs-6" runat="server" id="DvAlmacenSucursal" visible="false"> <div class="form-group form-md-line-input input-iconright col-xs-4" >
<asp:DropDownList runat="server" ID="ddlAlmacenSucursal" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control select2me" Width="100%"></asp:DropDownList> <asp:DropDownList runat="server" ID="ddlAlmacenSucursal" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control select2me" Width="100%"></asp:DropDownList>
<label for="<%=ddlAlmacenSucursal.ClientID.ToString()%>">Almacén:</label> <label for="<%=ddlAlmacenSucursal.ClientID.ToString()%>">Almacén:</label>
</div>
<div class="form-group form-md-line-input input-iconright col-xs-4" >
<asp:DropDownList runat="server" ID="DdlAlmacenConsignacionSucursal" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control select2me" Width="100%"></asp:DropDownList>
<label for="<%=DdlAlmacenConsignacionSucursal.ClientID.ToString()%>">Almacén Consig:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright col-xs-6" runat="server" id="DvAlmacenAlternoSucursal" visible="false"> <div class="form-group form-md-line-input input-iconright col-xs-4" >
<asp:DropDownList runat="server" ID="DdlAlmacenAlternoSucursal" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control select2me" Width="100%"></asp:DropDownList> <asp:DropDownList runat="server" ID="DdlAlmacenAlternoSucursal" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control select2me" Width="100%"></asp:DropDownList>
<label for="<%=DdlAlmacenAlternoSucursal.ClientID.ToString()%>">Almacén Alt:</label> <label for="<%=DdlAlmacenAlternoSucursal.ClientID.ToString()%>">Almacén Alt:</label>
</div> </div>

27
Ventas/Clientes.aspx.vb
View File

@@ -1579,6 +1579,7 @@ Partial Class Clientes
ChkProductoAlterno.Checked = ObjClientes.UsaProductoAlterno ChkProductoAlterno.Checked = ObjClientes.UsaProductoAlterno
DdlAlmacenAsignado.SelectedValueExist(ObjClientes.CveAlmacenAsignado) DdlAlmacenAsignado.SelectedValueExist(ObjClientes.CveAlmacenAsignado)
DdlAlmacenAlterno.SelectedValueExist(ObjClientes.CveAlmacenAlterno) DdlAlmacenAlterno.SelectedValueExist(ObjClientes.CveAlmacenAlterno)
DdlAlmacenConsignacion.SelectedValueExist(ObjClientes.CveAlmacenConsignacion)
'COMERCIO EXTERIOR 'COMERCIO EXTERIOR
ChkAplicaComercioExterior.Checked = ObjClientes.AplicaComercioExterior ChkAplicaComercioExterior.Checked = ObjClientes.AplicaComercioExterior
@@ -3055,8 +3056,7 @@ Partial Class Clientes
HDMAPOP.Value = "2" HDMAPOP.Value = "2"
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
DvAlmacenSucursal.Visible = True DivAlmacenesSucursal.Visible = True
DvAlmacenAlternoSucursal.Visible = True
ddlAlmacenSucursal.Items.Clear() ddlAlmacenSucursal.Items.Clear()
ddlAlmacenSucursal.ClearSelection() ddlAlmacenSucursal.ClearSelection()
ddlAlmacenSucursal.SelectedValue = Nothing ddlAlmacenSucursal.SelectedValue = Nothing
@@ -3067,12 +3067,19 @@ Partial Class Clientes
DdlAlmacenAlternoSucursal.SelectedValue = Nothing DdlAlmacenAlternoSucursal.SelectedValue = Nothing
DdlAlmacenAlternoSucursal.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa) DdlAlmacenAlternoSucursal.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
DdlAlmacenAlternoSucursal.DataBind() DdlAlmacenAlternoSucursal.DataBind()
DdlAlmacenConsignacionSucursal.Items.Clear()
DdlAlmacenConsignacionSucursal.ClearSelection()
DdlAlmacenConsignacionSucursal.SelectedValue = Nothing
DdlAlmacenConsignacionSucursal.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
DdlAlmacenConsignacionSucursal.DataBind()
End If End If
ddlAlmacenSucursal.Items.Insert(0, New ListItem("Seleccione", "-1")) ddlAlmacenSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
ddlAlmacenSucursal.SelectedValueExist("-1") ddlAlmacenSucursal.SelectedValueExist("-1")
DdlAlmacenAlternoSucursal.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlAlmacenAlternoSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlAlmacenAlternoSucursal.SelectedValueExist("-1") DdlAlmacenAlternoSucursal.SelectedValueExist("-1")
DdlAlmacenConsignacionSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlAlmacenConsignacionSucursal.SelectedValueExist("-1")
UpModalDivMapa.Update() UpModalDivMapa.Update()
RegistraScript("showDivEC();") RegistraScript("showDivEC();")
@@ -3105,6 +3112,7 @@ Partial Class Clientes
Dim RFC As String = If(String.IsNullOrEmpty(TxtRFCSucursal.Text), "-1", TxtRFCSucursal.Text) Dim RFC As String = If(String.IsNullOrEmpty(TxtRFCSucursal.Text), "-1", TxtRFCSucursal.Text)
Dim CveAlmacenAgregadoSucursal As Integer = ddlAlmacenSucursal.SelectedValue.ToEntero Dim CveAlmacenAgregadoSucursal As Integer = ddlAlmacenSucursal.SelectedValue.ToEntero
Dim CveAlmacenAlternoSucursal As Integer = DdlAlmacenAlternoSucursal.SelectedValue.ToEntero Dim CveAlmacenAlternoSucursal As Integer = DdlAlmacenAlternoSucursal.SelectedValue.ToEntero
Dim CveAlmacenConsignacionSucursal As Integer = DdlAlmacenConsignacionSucursal.SelectedValue.ToEntero
If CveCliente > 0 Then If CveCliente > 0 Then
@@ -3124,7 +3132,7 @@ Partial Class Clientes
Dim Estatus As Boolean = ChkEstatusSucursal.Checked Dim Estatus As Boolean = ChkEstatusSucursal.Checked
If ObjCliente.UpdateSucursal(TxtNombreSucursal.Text.Trim, Estatus, CveCliente, CveClienteSuc, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim, If ObjCliente.UpdateSucursal(TxtNombreSucursal.Text.Trim, Estatus, CveCliente, CveClienteSuc, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim,
TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim, DdlVendedorSucursal.SelectedValue.ToEntero(), TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero(), TxtLimiteCreditoSucursal.Text.ToDecimal(), DdlResponsableSucursal.SelectedValue.ToEntero(), TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim, DdlVendedorSucursal.SelectedValue.ToEntero(), TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero(), TxtLimiteCreditoSucursal.Text.ToDecimal(), DdlResponsableSucursal.SelectedValue.ToEntero(),
DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC, CveAlmacenAsignado:=CveAlmacenAgregadoSucursal, CveAlmacenAlterno:=CveAlmacenAlternoSucursal) Then DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC, CveAlmacenAsignado:=CveAlmacenAgregadoSucursal, CveAlmacenConsignacion:=CveAlmacenConsignacionSucursal, CveAlmacenAlterno:=CveAlmacenAlternoSucursal) Then
GVSucursales.EditIndex = -1 GVSucursales.EditIndex = -1
ViewState("DTSucursalesCliente") = ObjCliente.DtResultados ViewState("DTSucursalesCliente") = ObjCliente.DtResultados
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
@@ -3136,7 +3144,7 @@ Partial Class Clientes
Else Else
If ObjCliente.AddSucursal(CveCliente, TxtNombreSucursal.Text.Trim, UsuarioActual.CveUsuario, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim, TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim, If ObjCliente.AddSucursal(CveCliente, TxtNombreSucursal.Text.Trim, UsuarioActual.CveUsuario, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim, TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim,
DdlVendedorSucursal.SelectedValue.ToEntero(), TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero(), TxtLimiteCreditoSucursal.Text.ToDecimal(), DdlResponsableSucursal.SelectedValue.ToEntero(), DdlVendedorSucursal.SelectedValue.ToEntero(), TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero(), TxtLimiteCreditoSucursal.Text.ToDecimal(), DdlResponsableSucursal.SelectedValue.ToEntero(),
DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC, CveAlmacenAsignado:=CveAlmacenAgregadoSucursal, CveAlmacenAlterno:=CveAlmacenAlternoSucursal) Then DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC, CveAlmacenAsignado:=CveAlmacenAgregadoSucursal, CveAlmacenConsignacion:=CveAlmacenConsignacionSucursal, CveAlmacenAlterno:=CveAlmacenAlternoSucursal) Then
TxtNombreSucursal.Text = "" TxtNombreSucursal.Text = ""
TxtCiudadSucursal.Text = "" TxtCiudadSucursal.Text = ""
TxtColoniaSucursal.Text = "" TxtColoniaSucursal.Text = ""
@@ -3319,7 +3327,7 @@ Partial Class Clientes
HDMAPOP.Value = "2" HDMAPOP.Value = "2"
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
DvAlmacenSucursal.Visible = True DivAlmacenesSucursal.Visible = True
ddlAlmacenSucursal.Items.Clear() ddlAlmacenSucursal.Items.Clear()
ddlAlmacenSucursal.ClearSelection() ddlAlmacenSucursal.ClearSelection()
ddlAlmacenSucursal.SelectedValue = Nothing ddlAlmacenSucursal.SelectedValue = Nothing
@@ -3327,7 +3335,6 @@ Partial Class Clientes
ddlAlmacenSucursal.DataBind() ddlAlmacenSucursal.DataBind()
ddlAlmacenSucursal.Items.Insert(0, New ListItem("Seleccione", "-1")) ddlAlmacenSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
ddlAlmacenSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveAlmacenAsignado").ToString()) ddlAlmacenSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveAlmacenAsignado").ToString())
DvAlmacenAlternoSucursal.Visible = True
DdlAlmacenAlternoSucursal.Items.Clear() DdlAlmacenAlternoSucursal.Items.Clear()
DdlAlmacenAlternoSucursal.ClearSelection() DdlAlmacenAlternoSucursal.ClearSelection()
DdlAlmacenAlternoSucursal.SelectedValue = Nothing DdlAlmacenAlternoSucursal.SelectedValue = Nothing
@@ -3335,6 +3342,13 @@ Partial Class Clientes
DdlAlmacenAlternoSucursal.DataBind() DdlAlmacenAlternoSucursal.DataBind()
DdlAlmacenAlternoSucursal.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlAlmacenAlternoSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlAlmacenAlternoSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveAlmacenAlterno").ToString()) DdlAlmacenAlternoSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveAlmacenAlterno").ToString())
DdlAlmacenConsignacionSucursal.Items.Clear()
DdlAlmacenConsignacionSucursal.ClearSelection()
DdlAlmacenConsignacionSucursal.SelectedValue = Nothing
DdlAlmacenConsignacionSucursal.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
DdlAlmacenConsignacionSucursal.DataBind()
DdlAlmacenConsignacionSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlAlmacenConsignacionSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveAlmacenConsignacion").ToString())
End If End If
UpAgregarSucursal.Update() UpAgregarSucursal.Update()
@@ -5615,6 +5629,7 @@ Partial Class Clientes
RowSucursal("LG") = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0") RowSucursal("LG") = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0")
RowSucursal("CveAlmacenAsignado") = ddlAlmacenSucursal.SelectedValue.ToEntero RowSucursal("CveAlmacenAsignado") = ddlAlmacenSucursal.SelectedValue.ToEntero
RowSucursal("CveAlmacenConsignacion") = DdlAlmacenConsignacionSucursal.SelectedValue.ToEntero
RowSucursal("CveAlmacenAlterno") = DdlAlmacenAlternoSucursal.SelectedValue.ToEntero RowSucursal("CveAlmacenAlterno") = DdlAlmacenAlternoSucursal.SelectedValue.ToEntero
TempDTSucursales.Rows.Add(RowSucursal) TempDTSucursales.Rows.Add(RowSucursal)