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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2020-10-06 13:38:49 -07:00
parent f56bdba403 e83fa6e76e
commit 8ac985aaa8
64 changed files with 5483 additions and 4214 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Acumuladores/CatFoliosGarantia.aspx
View File

@@ -119,7 +119,7 @@
<asp:GridView ID="GvFolioGarantia" runat="server" AutoGenerateColumns="False" <asp:GridView ID="GvFolioGarantia" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveFolioGarantia,FolioGarantia,Estatus,CveUsuario,Usuario,FechaIng,SubProyecto,CveSubProyecto,tipoFolio,Limite" DataKeyNames="CveFolioGarantia,FolioGarantia,Estatus,CveUsuario,Usuario,FechaIng,SubProyecto,CveSubProyecto,tipoFolio,Limite"
EmptyDataText="No se encontraron registros" ToolTip="Listado de Temas" EmptyDataText="No se encontraron registros" ToolTip="Listado de Folios de Garantía"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
data-sort="true" data-sort="true"
data-freezerows="1" data-freezerows="1"
@@ -135,7 +135,7 @@
&nbsp;<asp:Literal ID="LblTipoFolio" runat="server" Text='<%# Eval("tipoFolio") %>'></asp:Literal> &nbsp;<asp:Literal ID="LblTipoFolio" runat="server" Text='<%# Eval("tipoFolio") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Limite"> <asp:TemplateField HeaderText="Límite">
<ItemTemplate> <ItemTemplate>
&nbsp;<asp:Literal ID="LblLimite" runat="server" Text='<%# Eval("Limite") %>'></asp:Literal> &nbsp;<asp:Literal ID="LblLimite" runat="server" Text='<%# Eval("Limite") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -151,7 +151,7 @@
&nbsp;<asp:Literal ID="LblPuntos" runat="server" Text='<%# Eval("Estatus")%>'></asp:Literal> &nbsp;<asp:Literal ID="LblPuntos" runat="server" Text='<%# Eval("Estatus")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField DataField="AreaTexto" ItemStyle-Width ="100px" HeaderText="Area" /> <asp:BoundField DataField="AreaTexto" ItemStyle-Width ="100px" HeaderText="Área" />
<asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" ItemStyle-Width="150px"> <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" ItemStyle-Width="150px">
<ItemTemplate> <ItemTemplate>
&nbsp;<asp:Literal ID="lblFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal> &nbsp;<asp:Literal ID="lblFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
@@ -269,9 +269,9 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<label for="<%= DdlTipoFolioModal.ClientID.ToString()%>">Tipo Folio:</label>&nbsp; <label for="<%= DdlTipoFolioModal.ClientID.ToString()%>">Tipo Folio:</label>&nbsp;
<asp:DropDownList ID="DdlTipoFolioModal" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar"> <asp:DropDownList ID="DdlTipoFolioModal" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
<asp:ListItem Value="general" Selected ="True">general</asp:ListItem> <asp:ListItem Value="general" Selected ="True">General</asp:ListItem>
<asp:ListItem Value="optima">optima</asp:ListItem> <asp:ListItem Value="optima">Optima</asp:ListItem>
<asp:ListItem Value="motobateria">motobateria</asp:ListItem> <asp:ListItem Value="motobateria">Motobateria</asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<i></i> <i></i>
</div> </div>
@@ -279,14 +279,14 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtLimite" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox> <asp:TextBox ID="TxtLimite" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvLimite" runat="server" ControlToValidate="TxtLimite" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpFolioGarantia"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RfvLimite" runat="server" ControlToValidate="TxtLimite" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpFolioGarantia"></asp:RequiredFieldValidator>
<label for="<%= TxtLimite.ClientID.ToString()%>">Limite:</label> <label for="<%= TxtLimite.ClientID.ToString()%>">Límite:</label>
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<label for="<%= DdlArea.ClientID.ToString()%>">Area:</label>&nbsp; <label for="<%= DdlArea.ClientID.ToString()%>">Área:</label>&nbsp;
<asp:DropDownList ID="DdlArea" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar"> <asp:DropDownList ID="DdlArea" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
<asp:ListItem Value="1" Selected ="True">Piso</asp:ListItem> <asp:ListItem Value="1" Selected ="True">Piso</asp:ListItem>
<asp:ListItem Value="2">Almacen</asp:ListItem> <asp:ListItem Value="2">Almacén</asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<i></i> <i></i>
</div> </div>

1
Acumuladores/CatFoliosGarantia.aspx.vb
View File

@@ -48,6 +48,7 @@ Partial Class Acumuladores_CatFoliosGarantia
#Region "Folios Garantía" #Region "Folios Garantía"
Private Sub CargaSubProyectos() Private Sub CargaSubProyectos()
CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, lblSubProyecto) CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, lblSubProyecto)
GvFolioGarantia.Columns(3).HeaderText = lblSubProyecto.Text
End Sub End Sub
Private Sub CargadatosGvFolioGarantia(EstatusValor As Integer, tipoFolioValor As String) Private Sub CargadatosGvFolioGarantia(EstatusValor As Integer, tipoFolioValor As String)

3
App_Code/ClsBancos.vb
View File

@@ -3475,7 +3475,7 @@ Public Class ClsBancos
#End Region #End Region
#Region "PagosCajaChica" #Region "PagosCajaChica"
Public Function GetPagosCajaChica(FechaI As String, FechaF As String, CveEmpresa As Integer, CveCuenta As Integer, Optional TipoPago As Integer = -1) As Boolean Public Function GetPagosCajaChica(FechaI As String, FechaF As String, CveEmpresa As Integer, CveCuenta As Integer, Optional TipoPago As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_BancosCajaChicaPagosGet") DataAdapter("PA_BancosCajaChicaPagosGet")
@@ -3485,6 +3485,7 @@ Public Class ClsBancos
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
.Add("@TipoChequeEfectivo", SqlDbType.Int).Value = TipoPago .Add("@TipoChequeEfectivo", SqlDbType.Int).Value = TipoPago
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
End With End With
Try Try

8
App_Code/ClsClientes.vb
View File

@@ -1068,7 +1068,7 @@ Public Class ClsClientes
' Return Retorno ' Return Retorno
'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") As Boolean 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 = "") As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_SucursalClienteAdd") DataAdapter("PA_Vta_SucursalClienteAdd")
@@ -1101,6 +1101,7 @@ Public Class ClsClientes
.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
End With End With
@@ -1120,7 +1121,7 @@ Public Class ClsClientes
Return Retorno Return Retorno
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") As Boolean 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") As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_SucursalClienteUpdate") DataAdapter("PA_Vta_SucursalClienteUpdate")
@@ -1155,7 +1156,8 @@ Public Class ClsClientes
.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
End With End With

6048
App_Code/ClsCompras.vb
View File

File diff suppressed because it is too large Load Diff

84
App_Code/ClsInventarios.vb
View File

@@ -4543,6 +4543,31 @@ Public Class ClsInventarios
Return Retorno Return Retorno
End Function End Function
Public Function GetFletesRep(CveEmpresa As Integer, Optional CveFlete As Integer = -1, Optional Folio As String = "-1", Optional CveProveedor As Integer = -1,
Optional CveOC As Integer = -1, Optional CveCompra As Integer = -1, Optional FechaInicio As Date = MinFecha,
Optional FechaFin As Date = MaxFecha, Optional TipoGasto As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_FletesRep")
With SqlAdapter.SelectCommand.Parameters
.Add("@Folio", SqlDbType.VarChar).Value = Folio
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
.Add("@CveOC", SqlDbType.Int).Value = CveOC
.Add("@CveCompra", SqlDbType.Int).Value = CveCompra
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveFlete", SqlDbType.Int).Value = CveFlete
.Add("@TipoGasto", SqlDbType.Int).Value = TipoGasto
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el reporte de flete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function RecepcionAlmacenFleteGet(CveFlete As Integer, CveOrdenCompra As Integer, CveCompra As Integer, CveEmpresa As Integer) As Boolean Public Function RecepcionAlmacenFleteGet(CveFlete As Integer, CveOrdenCompra As Integer, CveCompra As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Inv_RecepcionAlmacenFleteGet") DataAdapter("PA_Inv_RecepcionAlmacenFleteGet")
@@ -4563,6 +4588,65 @@ Public Class ClsInventarios
End Function End Function
#End Region #End Region
#Region " FLETES COMPRAS "
Public Function GetFletesCompras(CveFlete As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_FletesComprasGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveFlete", SqlDbType.Int).Value = CveFlete
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al querer obtener las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function AddFletesCompras(CveFlete As Integer, Optional CveCompra As Integer = -1, Optional CveOC As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_FletesComprasAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveFlete", SqlDbType.Int).Value = CveFlete
.Add("@CveCompra", SqlDbType.Int).Value = CveCompra
.Add("@CveOC", SqlDbType.Int).Value = CveOC
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al querer agregar las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function PendientesAlmacenFletesComprasGet(CveFlete As Integer, CveProveedor As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_PendientesAlmacenFletesComprasGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveFlete", SqlDbType.Int).Value = CveFlete
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener las Importaciones pendientes de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
#Region " FLETES DETALLE " #Region " FLETES DETALLE "
Public Function AddFleteDetalle(CveFlete As Integer, CveCompra As Integer) As Boolean Public Function AddFleteDetalle(CveFlete As Integer, CveCompra As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False

11
App_Code/ClsProductosServicios.vb
View File

@@ -56,10 +56,8 @@ Public Class ClsProductosServicios
Public Property CveMetodoInventario As Integer Public Property CveMetodoInventario As Integer
Public Property CveTipoPS As Integer Public Property CveTipoPS As Integer
Public Property Estado2 As Integer Public Property Estado2 As Integer
Public Property CveMarca As Integer Public Property CveMarca As Integer
Public Property AlmacenSeccion As String
Public Property IEPSPorcentaje As Double Public Property IEPSPorcentaje As Double
Public Property AplicaIEPS As Boolean Public Property AplicaIEPS As Boolean
@@ -283,7 +281,7 @@ Public Class ClsProductosServicios
Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
CveMetodoInventario = Data.Rows(0)("Inv_CveMetodoInventario").ToString.ToEntero CveMetodoInventario = Data.Rows(0)("Inv_CveMetodoInventario").ToString.ToEntero
'VentaMinima = Data.Rows(0)("VentaMinima").ToString.ToDecimal VentaMinima = Data.Rows(0)("VentaMinima").ToString.ToDecimal
CveMoneda = Data.Rows(0)("CveMoneda").ToString.ToEntero CveMoneda = Data.Rows(0)("CveMoneda").ToString.ToEntero
RetISR = Data.Rows(0)("RetISR").ToString.ToDouble RetISR = Data.Rows(0)("RetISR").ToString.ToDouble
@@ -2112,13 +2110,14 @@ Public Class ClsProductosServicios
Return Retorno Return Retorno
End Function End Function
Public Function UpdateProductosServiciosSAT(CvePS As Integer, CveSATPS As Integer, CveUsuario As Integer) As Boolean Public Function UpdateProductosServiciosSAT(CvePS As Integer, CveSATPS As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Gral_ProductosServiciosSATUpdate") DataAdapter("PA_Gral_ProductosServiciosSATUpdate")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@CveSATPS", SqlDbType.Int).Value = CveSATPS .Add("@CveSATPS", SqlDbType.Int).Value = CveSATPS
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

199
App_Code/ClsSisUsuarios.vb
View File

@@ -413,8 +413,125 @@ Public Class ClsSisUsuarios
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function ValidaUsuarioPortalCliente(CveCliente As Integer, Usuario As String, Password As String) As Usuario
Dim Retorno As Usuario = Nothing
DataAdapter("PA_Sis_UsuariosGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveUsuario", SqlDbType.Int).Value = -1
.Add("@CveRol", SqlDbType.Int).Value = -1
.Add("@Usuario", SqlDbType.VarChar).Value = Usuario
.Add("@Contraseña", SqlDbType.VarChar).Value = Password
.Add("@EsLogIn", SqlDbType.Bit).Value = 1
End With
Try
SqlAdapter.Fill(Data)
If Data.Rows.Count > 0 Then
Retorno = New Usuario
Retorno.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero
Retorno.Usuario = Usuario
Retorno.Contraseña = Data.Rows(0)("Contraseña").ToString
Retorno.Nombre = Data.Rows(0)("Nombre").ToString
Retorno.CveRol = Data.Rows(0)("CveRol").ToString.ToEntero
Retorno.Rol = Data.Rows(0)("Rol").ToString
'Retorno.NombreEmpresa = Data.Rows(0)("Empresa").ToString
Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
Retorno.CveCliente = CveCliente
Retorno.ClienteGPS = False
Retorno.Portal = True
Retorno.Referencia = Data.Rows(0)("Referencia").ToString
Retorno.EsSupervisorRH = If(Data.Rows(0)("EsSupervisorRH").ToString = "1", True, False)
'Retorno.Liga = Data.Rows(0)("Liga").ToString
'cargo los modulos del usuario y genero el menú
Dim dttmp As DataTable = GetUsuariosRolesModulos(Retorno.CveUsuario, Retorno.CveCliente)
Dim UsuariosModulos As New HybridDictionary
For Each Row As DataRow In dttmp.Rows
UsuariosModulos.Add(Convert.ToInt32(Row("CveModulo")), Row("CveModulo").ToString)
Next
Retorno.Modulos = UsuariosModulos
''cargo los procesos del usuario
dttmp = GetUsuariosRolesProcesos(Retorno.CveUsuario)
Dim UsuariosProcesos As New HybridDictionary
For Each Row As DataRow In dttmp.Rows
UsuariosProcesos.Add(Convert.ToInt32(Row("CveProceso")), Row("CveProceso").ToString)
Next
Retorno.Procesos = UsuariosProcesos
End If
Catch ex As SqlException
OnError("Ocurrio un error al Iniciar Acceso a Sitio.", ex)
Retorno = Nothing
End Try
Return Retorno
End Function
Public Function ValidaUsuarioPortalProveedor(CveProveedor As Integer, Usuario As String, Password As String) As Usuario
Dim Retorno As Usuario = Nothing
DataAdapter("PA_Sis_UsuariosGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveUsuario", SqlDbType.Int).Value = -1
.Add("@CveRol", SqlDbType.Int).Value = -1
.Add("@Usuario", SqlDbType.VarChar).Value = Usuario
.Add("@Contraseña", SqlDbType.VarChar).Value = Password
.Add("@EsLogIn", SqlDbType.Bit).Value = 1
End With
Try
SqlAdapter.Fill(Data)
If Data.Rows.Count > 0 Then
Retorno = New Usuario
Retorno.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero
Retorno.Usuario = Usuario
Retorno.Contraseña = Data.Rows(0)("Contraseña").ToString
Retorno.Nombre = Data.Rows(0)("Nombre").ToString
Retorno.CveRol = Data.Rows(0)("CveRol").ToString.ToEntero
Retorno.Rol = Data.Rows(0)("Rol").ToString
'Retorno.NombreEmpresa = Data.Rows(0)("Empresa").ToString
Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
Retorno.CveProveedor = CveProveedor
Retorno.ClienteGPS = False
Retorno.Portal = True
Retorno.Referencia = Data.Rows(0)("Referencia").ToString
Retorno.EsSupervisorRH = If(Data.Rows(0)("EsSupervisorRH").ToString = "1", True, False)
'Retorno.Liga = Data.Rows(0)("Liga").ToString
'cargo los modulos del usuario y genero el menú
Dim dttmp As DataTable = GetUsuariosRolesModulos(Retorno.CveUsuario, Retorno.CveProveedor)
Dim UsuariosModulos As New HybridDictionary
For Each Row As DataRow In dttmp.Rows
UsuariosModulos.Add(Convert.ToInt32(Row("CveModulo")), Row("CveModulo").ToString)
Next
Retorno.Modulos = UsuariosModulos
''cargo los procesos del usuario
dttmp = GetUsuariosRolesProcesos(Retorno.CveUsuario)
Dim UsuariosProcesos As New HybridDictionary
For Each Row As DataRow In dttmp.Rows
UsuariosProcesos.Add(Convert.ToInt32(Row("CveProceso")), Row("CveProceso").ToString)
Next
Retorno.Procesos = UsuariosProcesos
End If
Catch ex As SqlException
OnError("Ocurrio un error al Iniciar Acceso a Sitio.", ex)
Retorno = Nothing
End Try
Return Retorno
End Function
#Region "U S U A R I O - I N D I C A D O R E S" #Region "U S U A R I O - I N D I C A D O R E S"
Public Function getUsuarioIndicadores(_CveUsuario As Integer, _CveEmpresa As Integer, _CveRol As Integer) As DataTable Public Function getUsuarioIndicadores(_CveUsuario As Integer, _CveEmpresa As Integer, _CveRol As Integer) As DataTable
@@ -2671,12 +2788,84 @@ Public Class ClsSisUsuarios
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function GetUsuarioCliente(CveUsuario As Integer, CveCliente As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Sis_UsuariosClienteGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") Then
Alert("Ya existe un Usuario con el mismo nombre: " & Usuario & ".", TipoMensaje.MsgAdvertencia)
Else
Me.OnError("Ocurrió un error al guardar el nuevo usuario", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If
Catch ex As Exception
OnError("Ocurrió un error el acceso a clientes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function AddUsuarioProveedor(CveUsuario As Integer, CveProveedor As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Sis_UsuariosProveedoresAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") Then
Alert("Ya existe un Usuario con el mismo nombre: " & Usuario & ".", TipoMensaje.MsgAdvertencia)
Else
Me.OnError("Ocurrió un error al guardar el nuevo usuario", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If
Catch ex As Exception
OnError("Ocurrió un error al guardar el nuevo usuario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function GetUsuarioProveedor(CveUsuario As Integer, CveProveedor As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Sis_UsuariosProveedorGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") Then
Alert("Ya existe un Usuario con el mismo nombre: " & Usuario & ".", TipoMensaje.MsgAdvertencia)
Else
Me.OnError("Ocurrió un error al guardar el nuevo usuario", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If
Catch ex As Exception
OnError("Ocurrió un error al obtener el acceso a proveedores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
#End Region #End Region
#Region "U S U A R I O S - PyME" #Region "U S U A R I O S - PyME"
Public Function AddUsuariosModulosPyMe(CveUsuario As Integer, Rol As String) As Boolean Public Function AddUsuariosModulosPyMe(CveUsuario As Integer, Rol As String) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False

3
App_Code/ClsVentas.vb
View File

@@ -341,7 +341,7 @@ Public Class ClsVentas
Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional OrdenCompra As String = "-1", Optional CveCuentaTerminal As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ImpuestoLocal As Double = 0, Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional OrdenCompra As String = "-1", Optional CveCuentaTerminal As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ImpuestoLocal As Double = 0,
Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1, Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1,
Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0,
Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1) As Boolean Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1, Optional FacturarSucursal As Boolean = False) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_VentasAdd") DataAdapter("PA_VentasAdd")
@@ -432,6 +432,7 @@ Public Class ClsVentas
.Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion
.Add("@CorreoNotificacion", SqlDbType.VarChar).Value = CorreoNotificacion .Add("@CorreoNotificacion", SqlDbType.VarChar).Value = CorreoNotificacion
.Add("@FormaPaqueteria", SqlDbType.Int).Value = FormaPaqueteria .Add("@FormaPaqueteria", SqlDbType.Int).Value = FormaPaqueteria
.Add("@FacturarSucursal", SqlDbType.Bit).Value = FacturarSucursal
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
End With End With

5
App_Code/Modelos.vb
View File

@@ -5613,6 +5613,7 @@ Namespace Modelos
Public Property Pagado As Decimal Public Property Pagado As Decimal
Public Property DescuentoProntoPago As Decimal Public Property DescuentoProntoPago As Decimal
Public Property CveVentaRNCCargo As Integer Public Property CveVentaRNCCargo As Integer
Public Property FacturarSucursal As Boolean = False
'Public Property Sucursal As SucursalModel 'Public Property Sucursal As SucursalModel
Public Property SubProyecto As Modelos.SubProyectoModel Public Property SubProyecto As Modelos.SubProyectoModel
@@ -9079,6 +9080,7 @@ Namespace Modelos
FormatoFactura = "" FormatoFactura = ""
Sucursal = "" Sucursal = ""
CorreoSucursal = "" CorreoSucursal = ""
RFC = ""
End Sub End Sub
Public Sub New() Public Sub New()
MyBase.New() MyBase.New()
@@ -9095,6 +9097,8 @@ Namespace Modelos
End Get End Get
End Property End Property
Public Property CveSucursal As Integer Public Property CveSucursal As Integer
Public Property RFC As String
Public Property Nombre As String
Public Property Calle As String Public Property Calle As String
Public Property Direccion As String Public Property Direccion As String
Public Property NoExt As String Public Property NoExt As String
@@ -9114,6 +9118,7 @@ Namespace Modelos
Public Property TelefonoSucursal As String Public Property TelefonoSucursal As String
Public Property ImprimeNombreSucursal As String Public Property ImprimeNombreSucursal As String
End Class End Class
<Serializable> <Serializable>

4
App_Code/Timbrado.vb
View File

@@ -725,7 +725,7 @@ Public Class Timbrado
If Msg = String.Empty Then If Msg = String.Empty Then
'Nodo receptor 'Nodo receptor
Msg = CFDi.ReceptorCfd(Ventas.Cliente.RFC, Ventas.Cliente.Nombre, "", "", Ventas.ClaveUsoCFDI) Msg = CFDi.ReceptorCfd(ObjCFDITimbre.Receptor.RFC, ObjCFDITimbre.Receptor.Nombre, "", "", Ventas.ClaveUsoCFDI)
If Msg = String.Empty Then If Msg = String.Empty Then
'Nodo conceptos, se agregan los PS 'Nodo conceptos, se agregan los PS
@@ -941,7 +941,7 @@ Public Class Timbrado
Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg" Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg"
CBB.GenerarCBB(UsuarioActual.Empresa.RFC, Ventas.Cliente.RFC, Ventas.TotalTC, FolioFiscal, RutaCBB) CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ObjCFDITimbre.Receptor.RFC, Ventas.TotalTC, FolioFiscal, RutaCBB)
''Genero la addenda de 7-Eleven ''Genero la addenda de 7-Eleven
'If sevenElevenNumProveedor <> "" AndAlso sevenElevenFolio <> "" AndAlso sevenElevenTienda <> "" AndAlso sevenElevenFecha <> "" AndAlso sevenElevenFecha <> "__/__/____" Then 'If sevenElevenNumProveedor <> "" AndAlso sevenElevenFolio <> "" AndAlso sevenElevenTienda <> "" AndAlso sevenElevenFecha <> "" AndAlso sevenElevenFecha <> "__/__/____" Then

32
Bancos/DepositosCaja.aspx
View File

@@ -23,17 +23,16 @@
<asp:UpdatePanel ID="UPPFiltros" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter"> <div class="portlet solid grey-cascade portlet-filter" id="idnecesaria">
<div class="portlet-title portlet-filterT smalltitle"> <div class="portlet-title portlet-filterT smalltitle">
<div class="tools"> <div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" CssClass="btn btn-primary" /> <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
<a href="javascript:;" class="expand"></a>
</div> </div>
<div class="titlefiltros caption ">
<div class="portlet-body">
<div class="row"> <div class="row">
<label class="col-md-2 truncate" style="width: 110px;">Cuenta de Caja:</label> <label class="col-md-1 truncate" style="width: 110px;">Cuenta:</label>
<div class="col-md-2"> <div class="col-md-2">
<asp:DropDownList ID="DdlCajaChica" runat="server" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Class="table-group-action-input form-control input-inline input-small input-sm select2me"> <asp:DropDownList ID="DdlCajaChica" runat="server" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
</asp:DropDownList> </asp:DropDownList>
@@ -43,7 +42,7 @@
<label class="col-md-1 truncate" style="width: 40px;">F.I.:</label> <label class="col-md-1 truncate" style="width: 40px;">F.I.:</label>
<div class="col-md-2"> <div class="col-md-2">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 140px !important;"> <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 140px !important;">
<asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox> <asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Width="80px"></asp:TextBox>
<span class="input-group-btn "> <span class="input-group-btn ">
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton> <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span> </span>
@@ -58,7 +57,7 @@
<label class="col-md-1 truncate" style="width: 40px;">F.F.:</label> <label class="col-md-1 truncate" style="width: 40px;">F.F.:</label>
<div class="col-md-2"> <div class="col-md-2">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 140px !important;"> <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 140px !important;">
<asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox> <asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Width="80px"></asp:TextBox>
<span class="input-group-btn "> <span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton> <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span> </span>
@@ -76,13 +75,24 @@
<asp:ListItem Value="-1" Text="Todos"></asp:ListItem> <asp:ListItem Value="-1" Text="Todos"></asp:ListItem>
<asp:ListItem Value="13" Text="Efectivo"></asp:ListItem> <asp:ListItem Value="13" Text="Efectivo"></asp:ListItem>
<asp:ListItem Value="3" Text="Cheque"></asp:ListItem> <asp:ListItem Value="3" Text="Cheque"></asp:ListItem>
<asp:ListItem Value="11" Text="Tarjeta de Debito"></asp:ListItem>
<asp:ListItem Value="12" Text="Tarjeta de Crédito"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
</div>
<div class="portlet-body" style="display: none">
<div class="row">
<label class="col-md-1 truncate" style="width: 100px;">SubProyecto:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlSubProyectos" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
</asp:DropDownList> </asp:DropDownList>
</div> </div>
</div>
</div> </div>
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>

8
Bancos/DepositosCaja.aspx.vb
View File

@@ -19,6 +19,8 @@ Partial Class Bancos_DepositosCaja
If Not IsPostBack Then If Not IsPostBack Then
FacturasCheckadas = 0 FacturasCheckadas = 0
TxtFecha.Text = Now.ToShortDateString TxtFecha.Text = Now.ToShortDateString
txtFechaI.Text = Now.AddDays(-1).ToShortDateString
txtFechaF.Text = Now.ToShortDateString
CargaCuentas() CargaCuentas()
End If End If
End Sub End Sub
@@ -29,6 +31,10 @@ Partial Class Bancos_DepositosCaja
DdlCajaChica.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"}) DdlCajaChica.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
DdlCajaChica.DataBind() DdlCajaChica.DataBind()
DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveEmpresa, -1, UsuarioActual.CveEmpresa)
DdlSubProyectos.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -41,7 +47,7 @@ Partial Class Bancos_DepositosCaja
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
ObjBancos.GetPagosCajaChica(FechaI, FechaF, UsuarioActual.CveEmpresa, DdlCajaChica.SelectedValue.ToEntero, DdlTipoPago.SelectedValue.ToEntero) ObjBancos.GetPagosCajaChica(FechaI, FechaF, UsuarioActual.CveEmpresa, DdlCajaChica.SelectedValue.ToEntero, DdlTipoPago.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero)
GvFacturas.DataSource = ObjBancos.DtResultados GvFacturas.DataSource = ObjBancos.DtResultados
ObjBancos.Dispose() ObjBancos.Dispose()

4
Bancos/IE.aspx.vb
View File

@@ -3626,7 +3626,7 @@ Partial Class Bancos_IE
TipoMovimiento = False TipoMovimiento = False
End If End If
If CveConceptoCompra = 10 AndAlso DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then If CveConceptoCompra = 10 AndAlso DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsaComplementariaBancos Then
IDCtaBeneficiario = IdCtaAnticipoExtranjera IDCtaBeneficiario = IdCtaAnticipoExtranjera
CveCuentaConta = 0 CveCuentaConta = 0
End If End If
@@ -3634,7 +3634,7 @@ Partial Class Bancos_IE
'MOVIMIENTOS EGRESOS 'MOVIMIENTOS EGRESOS
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
Dim IVA As Decimal = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble Dim IVA As Decimal = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDecimal - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=tImporteMonedaExtranjera, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDecimal - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=If(UsaComplementariaBancos, TxtImporte.Text.ToDecimal, tImporteMonedaExtranjera), ImporteME:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then
If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Ref, 19, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Ref, 19, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
MsgError = "Detalle" MsgError = "Detalle"
End If End If

100
Bancos/PolizaCheque.aspx.vb
View File

@@ -403,54 +403,58 @@ Partial Class Bancos_PolizaCheque
CodigoCuenta = "" CodigoCuenta = ""
NombreCuenta = "" NombreCuenta = ""
If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables If UsuarioActual.Empresa.UsaContabilidad Then
Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString)) If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables
Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString))
If drr IsNot Nothing Then
IdCuenta = drt("IdCtaContable").ToString.ToEntero If drr IsNot Nothing Then
CodigoCuenta = drr("CuentaFormato").ToString() IdCuenta = drt("IdCtaContable").ToString.ToEntero
NombreCuenta = drr("Nombre").ToString() CodigoCuenta = drr("CuentaFormato").ToString()
'Cuenta = drr("Nombre").ToString() NombreCuenta = drr("Nombre").ToString()
End If 'Cuenta = drr("Nombre").ToString()
EsComodin = 0 End If
EsComodin = 0
ElseIf drt("CveConcepto").ToString = "30" Then
'saco la clave de la cuenta bancaria seleccionada ElseIf drt("CveConcepto").ToString = "30" Then
If DdlCuenta.SelectedValue.ToEntero > 0 And drt("CveConcepto").ToString = "30" Then 'DtCuentasContables 'saco la clave de la cuenta bancaria seleccionada
Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero))) If DdlCuenta.SelectedValue.ToEntero > 0 And drt("CveConcepto").ToString = "30" Then 'DtCuentasContables
If drr IsNot Nothing Then Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero)))
IdCuenta = drr("Id").ToString.ToEntero If drr IsNot Nothing Then
CodigoCuenta = drr("CuentaFormato").ToString() IdCuenta = drr("Id").ToString.ToEntero
NombreCuenta = drr("Nombre").ToString() CodigoCuenta = drr("CuentaFormato").ToString()
' Cuenta = drr("Nombre").ToString() NombreCuenta = drr("Nombre").ToString()
EsComodin = 1 ' Cuenta = drr("Nombre").ToString()
Else EsComodin = 1
Else
' Rad.Checked = False
If UsuarioActual.CveEmpresa <> 126 Then ' Rad.Checked = False
Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia) If UsuarioActual.CveEmpresa <> 126 Then
GvMov.DataBind() Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia)
UPMovs.Update() GvMov.DataBind()
Exit Sub UPMovs.Update()
End If Exit Sub
End If
End If
End If End If
ElseIf drt("CveConcepto").ToString.ToEntero = 135 And IdCtaFondoGarantia > 0 Then End If
ElseIf drt("CveConcepto").ToString.ToEntero = 135 And IdCtaFondoGarantia > 0 Then
Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCtaFondoGarantia))
Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCtaFondoGarantia))
IdCuenta = IdCtaFondoGarantia
CodigoCuenta = drr("CuentaFormato").ToString() IdCuenta = IdCtaFondoGarantia
NombreCuenta = drr("Nombre").ToString() CodigoCuenta = drr("CuentaFormato").ToString()
'Cuenta = drr("Nombre").ToString() NombreCuenta = drr("Nombre").ToString()
'Cuenta = drr("Nombre").ToString()
EsComodin = 0
EsComodin = 0
End If
End If
End If
Dim dr As DataRow = DtMovimientos.NewRow Dim dr As DataRow = DtMovimientos.NewRow
dr("IdCuenta") = IdCuenta dr("IdCuenta") = IdCuenta
dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta

BIN
Bin/GoCfdi.dll
View File

Binary file not shown.

14
Compras/Compras.aspx
View File

@@ -4802,15 +4802,19 @@
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:GridView ID="GvSolDev" runat="server" AutoGenerateColumns="false" GridLines="none" BorderWidth="0" DataKeyNames="CveCompraDetalle,CvePS" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn"> <asp:GridView ID="GvSolDev" runat="server" AutoGenerateColumns="false" GridLines="none" BorderWidth="0" DataKeyNames="Cantidad,CveCompraDetalle,CvePS" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn">
<Columns> <Columns>
<%--<%#Eval("Cantidad") %>--%>
<asp:TemplateField ItemStyle-Width="55px" HeaderText="Cant"> <asp:TemplateField ItemStyle-Width="55px" HeaderText="Cant">
<ItemTemplate> <ItemTemplate>
<asp:TextBox ID="TxtCant" runat="server" Text='<%#Eval("Cantidad") %>' Width="50px" ></asp:TextBox> <asp:TextBox ID="TxtCant" runat="server" Text='' Width="50px" ></asp:TextBox>
</ItemTemplate> <asp:RangeValidator ID="RVR" Display="Dynamic" ControlToValidate="TxtCant" runat="server" MinimumValue="0" Type="Double" ErrorMessage="Supera el total disponible"></asp:RangeValidator>
</asp:TemplateField> </ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="Cantidad" HeaderText="Total"/>
<asp:BoundField DataField="UM" headertext="UM" /> <asp:BoundField DataField="UM" headertext="UM" />
<asp:BoundField DataField="CodigoPS" headertext="Producto" /> <asp:BoundField DataField="CodigoPS" headertext="Producto" />
<asp:BoundField DataField="Total" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>

195
Compras/Compras.aspx.vb
View File

@@ -1145,7 +1145,7 @@ Partial Class Compras_Compras
CargaDatosAgregarPS() CargaDatosAgregarPS()
TieneAnticiposXML = False TieneAnticiposXML = False
Modalidad = "" Modalidad = ""
Version = "" Version = "3.3"
CveMetodoPago = -1 CveMetodoPago = -1
RFCProv = "" RFCProv = ""
CargaDdlTipoGasto() CargaDdlTipoGasto()
@@ -1743,8 +1743,26 @@ Partial Class Compras_Compras
Select Case TipoComprobante Select Case TipoComprobante
Case "ingreso" : DdlTipoComprobante.SelectedValue = "Fac" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV")) Case "ingreso" : DdlTipoComprobante.SelectedValue = "Fac" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
Case "egreso" : DdlTipoComprobante.SelectedValue = "NC" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) : ChkAplicaNotaCredito.Enabled = False Case "egreso" : DdlTipoComprobante.SelectedValue = "NC" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) : ChkAplicaNotaCredito.Enabled = False
Case "I" : DdlTipoComprobante.SelectedValue = "Fac" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV")) Case "I"
Case "E" : DdlTipoComprobante.SelectedValue = "NC" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) : ChkAplicaNotaCredito.Enabled = False DdlTipoComprobante.SelectedValue = "Fac"
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC"))
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("6"))
DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("11"))
Case "E"
DdlTipoComprobante.SelectedValue = "NC"
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac"))
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
ChkAplicaNotaCredito.Enabled = False
DdlTipoCompra.Items.Clear()
DdlTipoCompra.Items.Add(New ListItem("Seleccione", "-1"))
DdlTipoCompra.Items.Add(New ListItem("NC Con Productos", "6"))
DdlTipoCompra.Items.Add(New ListItem("NC Por Devolución", "11"))
End Select End Select
'DIV ALIAS 'DIV ALIAS
@@ -3935,6 +3953,24 @@ Partial Class Compras_Compras
End If End If
End If End If
'VERIFICA SI LOS PRODUCTOS/SERVICIOS EXISTEN EN EL CATALOGO DEL SAT
If UsuarioActual.CveEmpresa = 72 Then
Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(CveSATPS,0) = 46920 ")
If DtNoEncontrados IsNot Nothing AndAlso DtNoEncontrados.Rows.Count > 0 Then
Dim StrNoEncontrados As New StringBuilder
StrNoEncontrados.Append("Los siguientes productos no tiene asignado la clave Producto SAT o Unidad Medida SAT<br/><br/>")
For Each drt As DataRow In DtNoEncontrados.Rows
StrNoEncontrados.AppendFormat("{0} <br/>", drt("CodigoPS"))
Next
Alert(StrNoEncontrados.ToString(), TipoMensaje.MsgAdvertencia)
DtNoEncontrados.Dispose()
StrNoEncontrados.Clear()
Exit Sub
End If
DtNoEncontrados.Dispose()
End If
'Si se marcó No Deducible en el encabezado mínimo se debe registrar un No Deducible en el Detalle 'Si se marcó No Deducible en el encabezado mínimo se debe registrar un No Deducible en el Detalle
Dim GuardaNoDeducibles As Boolean = False Dim GuardaNoDeducibles As Boolean = False
If ChkEsNoDeducible.Checked Then If ChkEsNoDeducible.Checked Then
@@ -4471,7 +4507,7 @@ Partial Class Compras_Compras
CveConceptoContableAlmacen = 205 CveConceptoContableAlmacen = 205
End If End If
Else Else
CveConceptoContableAlmacen = 225 CveConceptoContableAlmacen = 225
End If End If
'Condiciones para los casos de facturas que son en 0 pero que se utiliza el almacen 'Condiciones para los casos de facturas que son en 0 pero que se utiliza el almacen
@@ -4543,19 +4579,13 @@ Partial Class Compras_Compras
Case 237 Case 237
Select Case FleteImportacionOpcion Select Case FleteImportacionOpcion
Case 1 Case 1
Dim Dr As DataRow = Nothing If Not ObjInventario.AddFletesCompras(CveFlete, CveCompra) Then
If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, CveFlete) Then
If ObjInventario.DtResultados.Rows.Count > 0 Then
Dr = ObjInventario.DtResultados.Rows(0)
End If
End If
If Dr IsNot Nothing Then
If Not ObjInventario.UpdateFlete(CveFlete, Dr("Descripcion").ToString, Dr("Fecha").ToString.ToDate, -1, CveCompra, UsuarioActual.CveUsuario) Then
ErrorOC = True
End If
Else
ErrorOC = True ErrorOC = True
End If End If
''actualiza la compra para que no se surta en almacen. sino por el flete o importación
'If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
' ErrorOC = True
'End If
Case 2 Case 2
If Not ObjInventario.AddFleteDetalle(CveFlete, CveCompra) Then If Not ObjInventario.AddFleteDetalle(CveFlete, CveCompra) Then
ErrorOC = True ErrorOC = True
@@ -5015,7 +5045,7 @@ Partial Class Compras_Compras
'ACTUALIZAR PRODUCTO/SERVICIO SAT 'ACTUALIZAR PRODUCTO/SERVICIO SAT
If Version = "3.3" Then If Version = "3.3" Then
If Not ObjProductosServicios.UpdateProductosServiciosSAT(Row("CvePS").ToString().ToEntero(), Row("CveSATPS").ToString().ToEntero(), UsuarioActual.CveUsuario) Then If Not ObjProductosServicios.UpdateProductosServiciosSAT(Row("CvePS").ToString().ToEntero(), Row("CveSATPS").ToString().ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ErrorSATPS = True ErrorSATPS = True
End If End If
End If End If
@@ -6732,7 +6762,7 @@ Partial Class Compras_Compras
If UsuarioActual.CveEmpresa.Contiene(119) Then If UsuarioActual.CveEmpresa.Contiene(119) Then
Dim ContienePSNeteoBonif As Boolean = False Dim ContienePSNeteoBonif As Boolean = False
For Each Dr As DataRow In TmpDT.Rows For Each Dr As DataRow In TmpDT.Rows
If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Or DdlTipoCompra.SelectedValue.ToEntero = 11 Then 'clasificación de Bonificación, no se incluirá en el neteo
ContienePSNeteoBonif = True ContienePSNeteoBonif = True
Exit For Exit For
End If End If
@@ -10144,7 +10174,7 @@ Partial Class Compras_Compras
' ErrorPrepoliza = True ' ErrorPrepoliza = True
' End If ' End If
Case 6 Case 6
Dim CveProveedorConcepto As Integer = 0, CveAcreedor As Integer = 0, CveIE As Integer = 0, CveColectiva As Integer = 0, CveCreditoDetalle As Integer = 0 Dim CveProveedorConcepto As Integer = 0, CveIE As Integer = 0, CveCreditoDetalle As Integer = 0
Dim ConceptoPersonal As String = "", Concepto As String = "" Dim ConceptoPersonal As String = "", Concepto As String = ""
If Not ObjConta.GetPrePolizasDetalle(CvePrePoliza) Then If Not ObjConta.GetPrePolizasDetalle(CvePrePoliza) Then
@@ -10152,9 +10182,7 @@ Partial Class Compras_Compras
Else Else
If ObjConta.DtResultados.FiltraParametros("CveConceptoContable IN (6,68,49,205,176)").Rows.Count > 0 Then If ObjConta.DtResultados.FiltraParametros("CveConceptoContable IN (6,68,49,205,176)").Rows.Count > 0 Then
CveProveedorConcepto = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveProveedor").ToString.ToEntero CveProveedorConcepto = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveProveedor").ToString.ToEntero
CveAcreedor = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveAcreedor").ToString.ToEntero
CveIE = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveIE").ToString.ToEntero CveIE = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveIE").ToString.ToEntero
CveColectiva = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveColectiva").ToString.ToEntero
CveCreditoDetalle = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveCreditoDetalle").ToString.ToEntero CveCreditoDetalle = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveCreditoDetalle").ToString.ToEntero
Concepto = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("Concepto").ToString Concepto = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("Concepto").ToString
End If End If
@@ -10195,7 +10223,7 @@ Partial Class Compras_Compras
End If End If
If importeMovimiento <> 0 Then If importeMovimiento <> 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
End If End If
@@ -10242,7 +10270,7 @@ Partial Class Compras_Compras
CveCuenta = 0 CveCuenta = 0
End If End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
@@ -10358,7 +10386,7 @@ Partial Class Compras_Compras
'AGREGA MOVIMIENTO 'AGREGA MOVIMIENTO
If importeMovimiento <> 0 Then If importeMovimiento <> 0 Then
Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero) Then
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
End If End If
@@ -10476,6 +10504,10 @@ Partial Class Compras_Compras
_TipoComprobante = ValorXML(nodo, "tipoDeComprobante") _TipoComprobante = ValorXML(nodo, "tipoDeComprobante")
TipoCambio = ValorXML(nodo, "TipoCambio", "1").ToDouble TipoCambio = ValorXML(nodo, "TipoCambio", "1").ToDouble
If Version = "3.3" Then If Version = "3.3" Then
Dim drm As DataRow = GlobalDTVtaMetodoPago.FiltroPrimero(String.Format("ClaveMetodoPagoSAT = '{0}'", ValorXML(nodo, "MetodoPago"))) Dim drm As DataRow = GlobalDTVtaMetodoPago.FiltroPrimero(String.Format("ClaveMetodoPagoSAT = '{0}'", ValorXML(nodo, "MetodoPago")))
If drm IsNot Nothing Then If drm IsNot Nothing Then
@@ -15351,11 +15383,27 @@ Partial Class Compras_Compras
Dim SubTotalCompra As Decimal = Amortizacion Dim SubTotalCompra As Decimal = Amortizacion
Dim DiferenciaPermitida = 1 Dim DiferenciaPermitida = 1
Dim Cont = 0 Dim Cont = 0
Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
For Each gvr As GridViewRow In GvOC1.Rows For Each gvr As GridViewRow In GvOC1.Rows
SubTotalGV += gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal SubTotalGV += gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal
If Cont = 0 Then DdlProveedorSucursal.SelectedValueExist(gvr.DataKey("CveProveedorSucursal").ToEntero()) If Cont = 0 Then DdlProveedorSucursal.SelectedValueExist(gvr.DataKey("CveProveedorSucursal").ToEntero())
Cont = 1 Cont = 1
If GvOC1.Columns(6).Visible Then
Dim SatPS As String = gvr.FCDropDownLost("DdlSATPS").SelectedText()
Dim NombreProducto As String = gvr.FCLabel("LbProductoServicio").Text
If SatPS.Contains("01010101") Then
ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", NombreProducto)
'Dim mensajeAdvertencia As String = String.Format("Al vincular una Orden de Compra no se permiten productos con Producto/Servicio SAT igual a '{0}', revise el producto '{1}' en Orden(es) de Compra Vinculada(s)", SatPS, NombreProducto)
'Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
End If
End If
Next Next
If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
Exit Sub
End If
If Math.Abs(SubTotalGV - SubTotalCompra) < DiferenciaPermitida Then If Math.Abs(SubTotalGV - SubTotalCompra) < DiferenciaPermitida Then
LbSubTotalDif.Visible = False LbSubTotalDif.Visible = False
@@ -15959,6 +16007,46 @@ Partial Class Compras_Compras
End Sub End Sub
Public Sub CargaIndirectosServicios()
If DtServicios Is Nothing Then CreaDTServicios()
DtServicios.Rows.Clear()
Dim objps As New ClsProductosServicios
Dim dr As DataRow
dvFacturas.Visible = False
GvFacturas.Visible = False
For Each DrGv As DataRow In TmpDT.Rows
If DrGv("CvePS").ToString.ToEntero > 0 Then
If objps.GetPS(DrGv("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) Then
If objps.DtResultados(0)("CveTipoPS").ToString.ToEntero = 1 Then
dr = DtServicios.NewRow()
dr("Consec") = DrGv("Consec").ToString.ToEntero
dr("Total") = DrGv("Total").ToString.ToDecimal
dr("CvePS") = DrGv("CvePS").ToString.ToEntero
dr("PS") = DrGv("PS").ToString
DtServicios.Rows.Add(dr)
End If
End If
End If
Next
objps.Dispose()
If DtServicios.Rows.Count > 0 Then
GVServicios.DataSource = DtServicios
GVServicios.DataBind()
GVServicios.Visible = True
Else
GVServicios.DataSource = Nothing
GVServicios.DataBind()
End If
UpGVServicios.Update()
UpFacturas.Update()
UPGVFacturas.Update()
End Sub
Public Sub btnAgregarFlete_Click(sender As Object, e As EventArgs) Handles BtnAgregarFlete.Click Public Sub btnAgregarFlete_Click(sender As Object, e As EventArgs) Handles BtnAgregarFlete.Click
Dim ListaConsecutivas As New List(Of String) 'Almacena los consecutivos que pertenecen al almacen Dim ListaConsecutivas As New List(Of String) 'Almacena los consecutivos que pertenecen al almacen
@@ -16011,7 +16099,7 @@ Partial Class Compras_Compras
''Marcamos todos los almacenes como check ''Marcamos todos los almacenes como check
'GvInv.HeaderRow.FCCheckBox("cbAll").Checked = True 'GvInv.HeaderRow.FCCheckBox("cbAll").Checked = True
'cbAll_CheckedChanged(Nothing, Nothing) 'cbAll_CheckedChanged(Nothing, Nothing)
RegistraScript("$('#ModalFletesImportaciones').modal('hide');")
End Sub End Sub
Private Sub CargaGastosServicios(CvePS As Integer) Private Sub CargaGastosServicios(CvePS As Integer)
@@ -16333,7 +16421,10 @@ Partial Class Compras_Compras
End Sub End Sub
Protected Sub DdlTipoComprobante_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlTipoComprobante_SelectedIndexChanged(sender As Object, e As EventArgs)
If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
If DdlTipoComprobante.SelectedValue = "NC" Then If DdlTipoComprobante.SelectedValue = "NC" Then
DivReembolso.Visible = False DivReembolso.Visible = False
RBLPago.Items(2).Enabled = False RBLPago.Items(2).Enabled = False
@@ -16359,7 +16450,9 @@ Partial Class Compras_Compras
End If End If
UPCondicionesPago.Update() UPCondicionesPago.Update()
End Sub End Sub
@@ -17602,8 +17695,17 @@ Partial Class Compras_Compras
ActualizaTotales = True ActualizaTotales = True
Select Case Modalidad Select Case Modalidad
Case "A" 'ADD Case "A" 'ADD
Dim SATClavePS = -1
Dim PSRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
If PSRow IsNot Nothing Then
SATClavePS = PSRow("SATClavePS").ToString.ToEntero
End If
AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero, AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero,
DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text, NoDeducible:=ChkEsNoDeduciblePS.Checked) DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2),
TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text,
NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS)
AddPS2() AddPS2()
LimpiaAgregar() LimpiaAgregar()
@@ -18138,7 +18240,7 @@ Partial Class Compras_Compras
CvePS = DdlPSAlias2.SelectedValue.ToEntero CvePS = DdlPSAlias2.SelectedValue.ToEntero
tPS = DdlPSAlias2.SelectedText tPS = DdlPSAlias2.SelectedText
If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS) Then If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS, UsuarioActual.CveUsuario) Then
GlobalDTProductosServiciosAlias(-1) = PS.DtResultados GlobalDTProductosServiciosAlias(-1) = PS.DtResultados
TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CvePS") = CvePS TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CvePS") = CvePS
@@ -18485,6 +18587,14 @@ Partial Class Compras_Compras
UPPSolDev.Update() UPPSolDev.Update()
End Sub End Sub
Private Sub GvSolDev_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvSolDev.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
Dim ExistenciasAux As Decimal = e.Row.DataKey("Cantidad").ToDecimal
e.Row.FCRangeValidator("RVR").MaximumValue = ExistenciasAux.ToString
End If
End Sub
Protected Sub BtnDevolucion_Click(sender As Object, e As EventArgs) Protected Sub BtnDevolucion_Click(sender As Object, e As EventArgs)
Dim ObjCompras As New ClsCompras Dim ObjCompras As New ClsCompras
Dim TieneError As Boolean = False Dim TieneError As Boolean = False
@@ -19218,13 +19328,13 @@ Partial Class Compras_Compras
Dr = ObjInventario.DtResultados.Rows(0) Dr = ObjInventario.DtResultados.Rows(0)
End If End If
End If End If
If Dr IsNot Nothing Then 'If Dr IsNot Nothing Then
If Dr("CveCompra").ToString.ToEntero > 0 And RblFleteImportacionOpcion.SelectedValue.ToEntero = 1 Then ' If Dr("CveCompra").ToString.ToEntero > 0 And RblFleteImportacionOpcion.SelectedValue.ToEntero = 1 Then
Alert("Este flete ya tiene compra asignada", TipoMensaje.MsgAdvertencia) ' Alert("Este flete ya tiene compra asignada", TipoMensaje.MsgAdvertencia)
ObjInventario.Dispose() ' ObjInventario.Dispose()
Exit Sub ' Exit Sub
End If ' End If
End If 'End If
ObjInventario.Dispose() ObjInventario.Dispose()
End If End If
@@ -19247,19 +19357,13 @@ Partial Class Compras_Compras
Case 237 Case 237
Select Case FleteImportacionOpcion Select Case FleteImportacionOpcion
Case 1 Case 1
Dim Dr As DataRow = Nothing If Not ObjInventario.AddFletescompras(CveFlete, CveCompra) Then
If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, CveFlete) Then
If ObjInventario.DtResultados.Rows.Count > 0 Then
Dr = ObjInventario.DtResultados.Rows(0)
End If
End If
If Dr IsNot Nothing Then
If Not ObjInventario.UpdateFlete(CveFlete, Dr("Descripcion").ToString, Dr("Fecha").ToString.ToDate, -1, CveCompra, UsuarioActual.CveUsuario) Then
ErrorTrans = True
End If
Else
ErrorTrans = True ErrorTrans = True
End If End If
'''actualiza la compra para que no se surta en almacen. sino por el flete o importación
''If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
'' ErrorTrans = True
''End If
Case 2 Case 2
If Not ObjInventario.AddFleteDetalle(CveFlete, CveCompra) Then If Not ObjInventario.AddFleteDetalle(CveFlete, CveCompra) Then
ErrorTrans = True ErrorTrans = True
@@ -20045,6 +20149,9 @@ Partial Class Compras_Compras
DivGastosyServicios.Visible = MostrarGastosServicios DivGastosyServicios.Visible = MostrarGastosServicios
DivGastosyServiciosFooter.Visible = MostrarGastosServicios DivGastosyServiciosFooter.Visible = MostrarGastosServicios
If MostrarGastosServicios Then
CargaIndirectosServicios()
End If
DivVincularCrear.Visible = Not MostrarGastosServicios DivVincularCrear.Visible = Not MostrarGastosServicios
DivVincularCrearFooter.Visible = Not MostrarGastosServicios DivVincularCrearFooter.Visible = Not MostrarGastosServicios

10
Compras/PopUpVerFactura.aspx.vb
View File

@@ -2703,6 +2703,9 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("LogoPath", "")) params.Add(New ReportParameter("LogoPath", ""))
End If End If
Dim DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio))
Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Capturo))
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Concepto", "Salida por resguardo")) params.Add(New ReportParameter("Concepto", "Salida por resguardo"))
params.Add(New ReportParameter("Almacen", Almacen)) params.Add(New ReportParameter("Almacen", Almacen))
@@ -2712,12 +2715,17 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Descuentos", "")) params.Add(New ReportParameter("Descuentos", ""))
params.Add(New ReportParameter("IVA", "")) params.Add(New ReportParameter("IVA", ""))
params.Add(New ReportParameter("Total", "")) params.Add(New ReportParameter("Total", ""))
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
params.Add(New ReportParameter("NombreRecibio", Recibio)) params.Add(New ReportParameter("NombreRecibio", Recibio))
params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego)) params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego))
params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio)) params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio))
If UsuarioActual.CveEmpresa = 72 Then
params.Add(New ReportParameter("Sucursal", SubProyecto))
params.Add(New ReportParameter("DepartamenteRecibio", DepartamentoRecibe))
params.Add(New ReportParameter("DepartamentoEntrego", DepartamentoEntrego))
End If
params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", NombreCapturo)) params.Add(New ReportParameter("UsuarioImprimio", NombreCapturo))
params.Add(New ReportParameter("Observaciones", Observaciones)) params.Add(New ReportParameter("Observaciones", Observaciones))

3
Compras/RepComprasDetalle.aspx
View File

@@ -410,6 +410,7 @@
<asp:Literal ID="LtlObs" runat="server" Text='<%# Eval("Observaciones") %>'></asp:Literal> <asp:Literal ID="LtlObs" runat="server" Text='<%# Eval("Observaciones") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField DataField="Descripcion" ItemStyle-Width="100px" HeaderText="Descripción" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>
@@ -481,7 +482,7 @@
<asp:CheckBox ID="ChkDesc" runat="server" Text="Descuentos" /></td> <asp:CheckBox ID="ChkDesc" runat="server" Text="Descuentos" /></td>
<td> <td>
<asp:CheckBox ID="ChkTotal" runat="server" Text="Total" /></td> <asp:CheckBox ID="ChkTotal" runat="server" Text="Total" /></td>
<td></td> <td><asp:CheckBox ID="ChkDescripcion" runat="server" Text="Descripción"/></td>
</tr> </tr>
<tr> <tr>
<td> <td>

5
Compras/RepComprasDetalle.aspx.vb
View File

@@ -153,7 +153,7 @@ Partial Class Compras_RepComprasDetalle
DdlGrupo.SelectedValueExist(Grupo) DdlGrupo.SelectedValueExist(Grupo)
DdlProveedores.SelectedValue = Proveedor DdlProveedores.SelectedValue = Proveedor
If DdlProveedores.SelectedValue.ToEntero > 0 Then If DdlProveedores.SelectedValue.ToEntero > 0 Then
DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {Proveedor}").Rows(0)("RazonSocial").ToString DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor:=DdlProveedores.SelectedValue.ToEntero).FiltroPrimeroValor("RazonSocial", "").ToString
Else Else
DdlProveedores.SelectedText = "Todos" DdlProveedores.SelectedText = "Todos"
End If End If
@@ -606,7 +606,8 @@ Partial Class Compras_RepComprasDetalle
GvDatos.Columns(9).Visible = ChkRazon.Checked GvDatos.Columns(9).Visible = ChkRazon.Checked
GvDatos.Columns(10).Visible = ChkFolio.Checked GvDatos.Columns(10).Visible = ChkFolio.Checked
GvDatos.Columns(11).Visible = ChkFecha.Checked GvDatos.Columns(11).Visible = ChkFecha.Checked
GvDatos.Columns(12).Visible = ChkObs.Checked GvDatos.Columns(12).Visible = ChkObs.Checked
GvDatos.Columns(13).Visible = ChkDescripcion.Checked
UPDatos.Update() UPDatos.Update()
End Sub End Sub

2
Compras/eFacturas.aspx
View File

@@ -216,7 +216,7 @@
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Importe"> <asp:TemplateField HeaderText="Importe">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlTotal" runat="server" Text='<%# Eval("Total", "{0:N2}") %>'></asp:Literal> <asp:Literal ID="LtlTotal" runat="server" Text='<%# String.Format("{0} {1}", Eval("Total", "{0:N2}"), Eval("Abreviatura")) %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Right" /> <ItemStyle HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>

2
Contabilidad/ContabilizacionVentas.aspx.cs
View File

@@ -344,7 +344,7 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
{ {
e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE")); e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"));
} }
if (CveConcepto.Contiene(2, 4, 13, 61, 38, 39, 1, 203, 207, 251)) if (CveConcepto.Contiene(1, 2, 4, 13, 61, 38, 39, 150, 203, 207, 251))
{ {
e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DBCampo("CveVenta")); e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DBCampo("CveVenta"));
} }

1
Contabilidad/RegPrePoliza.aspx
View File

@@ -190,6 +190,7 @@
<asp:DropDownList ID="DdlProveedores" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true"></asp:DropDownList><br /> <asp:DropDownList ID="DdlProveedores" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true"></asp:DropDownList><br />
<asp:DropDownList ID="DdlCompras" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList><br /> <asp:DropDownList ID="DdlCompras" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList><br />
<asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList> <asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList>
<asp:DropDownList ID="DdlClasificaciones" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="160px" Visible="false"></asp:DropDownList>
<ADS:Dropdownlost ID="DdlClientes" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost> <ADS:Dropdownlost ID="DdlClientes" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost>
<br /> <br />
<asp:DropDownList ID="DdlVentas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList><br /> <asp:DropDownList ID="DdlVentas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList><br />

25
Contabilidad/RegPrePoliza.aspx.vb
View File

@@ -568,8 +568,18 @@ Partial Class ContabilidadC_RegPrePoliza
Else Else
TxtTC.Text = "" TxtTC.Text = ""
TxtTC.Visible = False TxtTC.Visible = False
End If End If
If DdlConceptosContables.SelectedValue.ToEntero.Contiene(69) Then
CargaClasificaciones()
DdlClasificaciones.Visible = True
Else
TxtTC.Text = ""
DdlClasificaciones.Visible = False
End If
End Sub End Sub
Private Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.SelectedIndexChanged Private Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.SelectedIndexChanged
@@ -631,6 +641,12 @@ Partial Class ContabilidadC_RegPrePoliza
DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
DdlClientes.DataBind() DdlClientes.DataBind()
' DdlClientes.Items.Insert(0, New ListItem(" - ", "-1")) ' DdlClientes.Items.Insert(0, New ListItem(" - ", "-1"))
End Sub
Private Sub CargaClasificaciones()
DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
DdlClasificaciones.DataBind()
' DdlClientes.Items.Insert(0, New ListItem(" - ", "-1"))
End Sub End Sub
Private Sub CargaVentas(CveCliente As Integer) Private Sub CargaVentas(CveCliente As Integer)
@@ -942,6 +958,7 @@ Partial Class ContabilidadC_RegPrePoliza
'MENSAJE PRINCIPAL 'MENSAJE PRINCIPAL
MensajeAlert.AppendFormat("<br/><br/>Folio de Salida: <b><a href = ""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio) MensajeAlert.AppendFormat("<br/><br/>Folio de Salida: <b><a href = ""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
MensajeAlert.AppendFormat("<br/><br/>Prepóliza: <b><a href = ""/Contabilidad/RegPrePoliza.aspx?CvePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CvePrePoliza, ObjMov.ContaFolio)
'Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion) 'Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion)
Else Else
Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico") Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
@@ -1209,7 +1226,7 @@ Partial Class ContabilidadC_RegPrePoliza
dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero
dr("CveCompra") = DdlCompras.SelectedValue.ToEntero dr("CveCompra") = DdlCompras.SelectedValue.ToEntero
dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
dr("CveClasificacion") = -1 dr("CveClasificacion") = DdlClasificaciones.SelectedValue.ToEntero
dr("CveCliente") = DdlClientes.SelectedValue.ToEntero dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
dr("CveVenta") = DdlVentas.SelectedValue.ToEntero dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
End If End If
@@ -1278,7 +1295,7 @@ Partial Class ContabilidadC_RegPrePoliza
dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero
dr("CveCompra") = DdlCompras.SelectedValue.ToEntero dr("CveCompra") = DdlCompras.SelectedValue.ToEntero
dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
dr("CveClasificacion") = -1 dr("CveClasificacion") = DdlClasificaciones.SelectedValue.ToEntero
dr("CveCliente") = DdlClientes.SelectedValue.ToEntero dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
dr("CveVenta") = DdlVentas.SelectedValue.ToEntero dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
dr("TC") = TxtTC.Text.ToDouble dr("TC") = TxtTC.Text.ToDouble

15
Contabilidad/RepIVA.aspx.cs
View File

@@ -215,9 +215,20 @@ public partial class Contabilidad_RepIVA : ClsPaginas
string Formato = TT.ActiveTabIndex == 0 ? "RepIVA.rpt" : (Opcion == "EXCEL2" ? "RepIVAAcreditable2.rpt" : "RepIVAAcreditable.rpt"); string Formato = TT.ActiveTabIndex == 0 ? "RepIVA.rpt" : (Opcion == "EXCEL2" ? "RepIVAAcreditable2.rpt" : "RepIVAAcreditable.rpt");
Opcion = (Opcion == "EXCEL2" ? "EXCEL" : Opcion); Opcion = (Opcion == "EXCEL2" ? "EXCEL" : Opcion);
para.Add(new CrystalParametro("Excel", Formato)); para.Add(new CrystalParametro("Excel", Formato));
string Ruta = (ModExtensiones.DirectorioBaseEmpresas + $@"Empresas\Grales\Formatos\{Formato}"); System.IO.FileInfo Archivo = new System.IO.FileInfo(string.Format("{0}/Formatos/{1}", UsuarioActual.Empresa.Ruta, Formato));
string Ruta;// = (Archivo.Exists ? string.Format("{0}/{1}", UsuarioActual.Empresa.Ruta, Formato ): ModExtensiones.DirectorioBaseEmpresas + $@"Empresas\Grales\Formatos\{Formato}");
Alert(string.Format("{0}/Formatos/{1}", UsuarioActual.Empresa.Ruta, Formato));
if (Archivo.Exists)
{
Ruta = string.Format("{0}/Formatos/{1}", UsuarioActual.Empresa.Ruta, Formato);
ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
}else
{
Ruta = ModExtensiones.DirectorioBaseEmpresas + $@"Empresas\Grales\Formatos\{Formato}";
ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta,Dt,para, DtIEPSA,DtIVAA,"RepIEPSPorcentaje.rpt","RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
}
Ruta.GuardaLogAD(); Ruta.GuardaLogAD();
ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta,Dt,para, DtIEPSA,DtIVAA,"RepIEPSPorcentaje.rpt","RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
//ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion); //ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
} }
else else

6
Contratos/RepPedidosDevolucionesXContrato.aspx
View File

@@ -140,7 +140,8 @@
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="3%" /> <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="3%" />
<asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-Width="40%" /> <asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-Width="40%" />
<asp:BoundField HeaderText="Contrato Externo" DataField="ContratoExterno" ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Contrato Externo" DataField="ContratoExterno" ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Es Interno" DataField="EsInternoTexto" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>
@@ -180,7 +181,8 @@
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="3%" /> <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="3%" />
<asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-Width="40%" /> <asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-Width="40%" />
<asp:BoundField HeaderText="Contrato Externo" DataField="ContratoExterno" ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Contrato Externo" DataField="ContratoExterno" ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Es Interno" DataField="EsInternoTexto" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>

6
Contratos/RepPedidosDevolucionesXContrato.aspx.vb
View File

@@ -111,7 +111,8 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato
e.Row.Attributes.Add("style", "background-color:#B9B5B4 !important;") e.Row.Attributes.Add("style", "background-color:#B9B5B4 !important;")
e.Row.Cells(1).Text = "" e.Row.Cells(1).Text = ""
e.Row.Cells(5).Text = "" e.Row.Cells(5).Text = ""
e.Row.Cells(6).Text = "" e.Row.Cells(6).Text = ""
e.Row.Cells(7).Text = ""
Dim Texto = $"Pedido: <b><a href='/Ventas/Ventas.aspx?CveVenta={e.Row.DBCampo("CveVenta")}' target='_blank'>{e.Row.DBCampo("SerieFolio")}</a></b> | " Dim Texto = $"Pedido: <b><a href='/Ventas/Ventas.aspx?CveVenta={e.Row.DBCampo("CveVenta")}' target='_blank'>{e.Row.DBCampo("SerieFolio")}</a></b> | "
Texto += If(e.Row.DBCampo("CveMovimiento").ToString = "", " SIN MOVIMIENTO DE ALMACÉN", $"Folio Almacén: <b><a href ='/Inventarios/EntradasSalidas.aspx?CveMovimiento={e.Row.DBCampo("CveMovimiento")}' target='_blank'>{e.Row.DBCampo("Folio")}</a></b>") Texto += If(e.Row.DBCampo("CveMovimiento").ToString = "", " SIN MOVIMIENTO DE ALMACÉN", $"Folio Almacén: <b><a href ='/Inventarios/EntradasSalidas.aspx?CveMovimiento={e.Row.DBCampo("CveMovimiento")}' target='_blank'>{e.Row.DBCampo("Folio")}</a></b>")
@@ -134,7 +135,8 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato
e.Row.Attributes.Add("style", "background-color:#B9B5B4 !important;") e.Row.Attributes.Add("style", "background-color:#B9B5B4 !important;")
e.Row.Cells(1).Text = "" e.Row.Cells(1).Text = ""
e.Row.Cells(5).Text = "" e.Row.Cells(5).Text = ""
e.Row.Cells(6).Text = "" e.Row.Cells(6).Text = ""
e.Row.Cells(7).Text = ""
Dim Texto = $"Devolución: <b><a href='/Ventas/Ventas.aspx?CveVenta={e.Row.DBCampo("CveVenta")}' target='_blank'>{e.Row.DBCampo("SerieFolio")}</a></b> | " Dim Texto = $"Devolución: <b><a href='/Ventas/Ventas.aspx?CveVenta={e.Row.DBCampo("CveVenta")}' target='_blank'>{e.Row.DBCampo("SerieFolio")}</a></b> | "
Texto += If(e.Row.DBCampo("CveMovimiento").ToString = "", " SIN MOVIMIENTO DE ALMACÉN", $"Folio Almacén: <b><a href ='/Inventarios/EntradasSalidas.aspx?CveMovimiento={e.Row.DBCampo("CveMovimiento")}' target='_blank'>{e.Row.DBCampo("Folio")}</a></b>") Texto += If(e.Row.DBCampo("CveMovimiento").ToString = "", " SIN MOVIMIENTO DE ALMACÉN", $"Folio Almacén: <b><a href ='/Inventarios/EntradasSalidas.aspx?CveMovimiento={e.Row.DBCampo("CveMovimiento")}' target='_blank'>{e.Row.DBCampo("Folio")}</a></b>")

192
Empresas/145/Formatos/NotaDevolucion.rdlc
View File

@@ -3301,6 +3301,198 @@
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="ClienteDiasCredito">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="MonedaAbreviatura">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="UsuarioImprimio">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="FechaImpresion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="EnvioDireccion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="EnvioColonia">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="EnvioCiudad">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="EnvioEstado">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="EnvioCP">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="EnvioNoExt">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="EnvioNoInt">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="EnvioContacto">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="EnvioDepartamento">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="EstatusFactura">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="EstatusEntrega">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="PedidoContrato">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="DescripcionContrato">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="OrdenCompra">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="UsoCFDI">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="TipoRelacionTexto">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="FolioFiscalRelacionado">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="ClienteDatoExtra1">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Contrato">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="ClienteCalle">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="ClienteColonia">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="ClienteCiudad">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="ClienteMunicipio">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="ClienteEstado">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="ClienteCP">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="ClientePais">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="ClienteNoInt">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="ClienteNoExt">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>
<EmbeddedImage Name="Logo"> <EmbeddedImage Name="Logo">

44
Empresas/72/Formatos/Factura.rdlc
View File

@@ -787,7 +787,7 @@
<BreakLocation>Start</BreakLocation> <BreakLocation>Start</BreakLocation>
</PageBreak> </PageBreak>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Top>9.87049in</Top> <Top>9.18657in</Top>
<Left>0.06548in</Left> <Left>0.06548in</Left>
<Height>1.67778in</Height> <Height>1.67778in</Height>
<Width>8.23221in</Width> <Width>8.23221in</Width>
@@ -1367,7 +1367,7 @@
</Image> </Image>
</ReportItems> </ReportItems>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Top>7.30179in</Top> <Top>6.61787in</Top>
<Left>0.05817in</Left> <Left>0.05817in</Left>
<Height>1.3508in</Height> <Height>1.3508in</Height>
<Width>8.23035in</Width> <Width>8.23035in</Width>
@@ -3408,7 +3408,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox54</rd:DefaultName> <rd:DefaultName>Textbox54</rd:DefaultName>
<Top>6.7921in</Top> <Top>6.10818in</Top>
<Left>0.16632cm</Left> <Left>0.16632cm</Left>
<Height>0.36385in</Height> <Height>0.36385in</Height>
<Width>4.94037in</Width> <Width>4.94037in</Width>
@@ -3444,7 +3444,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox33</rd:DefaultName> <rd:DefaultName>Textbox33</rd:DefaultName>
<Top>17.25192cm</Top> <Top>15.51477cm</Top>
<Left>12.71485cm</Left> <Left>12.71485cm</Left>
<Height>0.44794cm</Height> <Height>0.44794cm</Height>
<Width>8.33799cm</Width> <Width>8.33799cm</Width>
@@ -3474,7 +3474,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName> <rd:DefaultName>Textbox5</rd:DefaultName>
<Top>18.31722cm</Top> <Top>16.58007cm</Top>
<Left>0.16632cm</Left> <Left>0.16632cm</Left>
<Height>0.0882cm</Height> <Height>0.0882cm</Height>
<Width>20.88652cm</Width> <Width>20.88652cm</Width>
@@ -3732,7 +3732,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName> <rd:DefaultName>Textbox5</rd:DefaultName>
<Top>14.71903cm</Top> <Top>12.98188cm</Top>
<Left>0.14775cm</Left> <Left>0.14775cm</Left>
<Height>0.0882cm</Height> <Height>0.0882cm</Height>
<Width>20.90509cm</Width> <Width>20.90509cm</Width>
@@ -4038,7 +4038,7 @@
</TablixMembers> </TablixMembers>
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DsOC</DataSetName> <DataSetName>DsOC</DataSetName>
<Top>15.01537cm</Top> <Top>13.27822cm</Top>
<Left>3.16661cm</Left> <Left>3.16661cm</Left>
<Height>1.61479cm</Height> <Height>1.61479cm</Height>
<Width>15.04148cm</Width> <Width>15.04148cm</Width>
@@ -4067,7 +4067,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName> <rd:DefaultName>Textbox5</rd:DefaultName>
<Top>16.9459cm</Top> <Top>15.20875cm</Top>
<Left>0.22358cm</Left> <Left>0.22358cm</Left>
<Height>0.0882cm</Height> <Height>0.0882cm</Height>
<Width>20.90509cm</Width> <Width>20.90509cm</Width>
@@ -4097,24 +4097,6 @@
</Border> </Border>
</Style> </Style>
</Image> </Image>
<Image Name="Image2">
<Source>Embedded</Source>
<Value>BannerFacturaSIG</Value>
<Sizing>Fit</Sizing>
<Top>12.35498cm</Top>
<Left>0.14775cm</Left>
<Height>2.18766cm</Height>
<Width>10.48062cm</Width>
<ZIndex>25</ZIndex>
<Visibility>
<Hidden>=iif(len(Parameters!Observaciones.Value) &gt; 100, true,false)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Image>
<Textbox Name="ImporteLetra"> <Textbox Name="ImporteLetra">
<CanGrow>true</CanGrow> <CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
@@ -4140,7 +4122,7 @@
<Left>2.22035in</Left> <Left>2.22035in</Left>
<Height>0.18861in</Height> <Height>0.18861in</Height>
<Width>6.06817in</Width> <Width>6.06817in</Width>
<ZIndex>26</ZIndex> <ZIndex>25</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -4416,7 +4398,7 @@
<Left>0.06548in</Left> <Left>0.06548in</Left>
<Height>0.34081in</Height> <Height>0.34081in</Height>
<Width>2.08542in</Width> <Width>2.08542in</Width>
<ZIndex>27</ZIndex> <ZIndex>26</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -4910,11 +4892,11 @@
</Textbox> </Textbox>
</ReportItems> </ReportItems>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Top>22.07352cm</Top> <Top>20.33637cm</Top>
<Left>0.14775cm</Left> <Left>0.14775cm</Left>
<Height>2.97096cm</Height> <Height>2.97096cm</Height>
<Width>20.69254cm</Width> <Width>20.69254cm</Width>
<ZIndex>28</ZIndex> <ZIndex>27</ZIndex>
<Visibility> <Visibility>
<Hidden>=Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") &lt;&gt; "", False, True)</Hidden> <Hidden>=Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") &lt;&gt; "", False, True)</Hidden>
</Visibility> </Visibility>
@@ -4925,7 +4907,7 @@
</Style> </Style>
</Rectangle> </Rectangle>
</ReportItems> </ReportItems>
<Height>29.49675cm</Height> <Height>27.72404cm</Height>
<Style /> <Style />
</Body> </Body>
<Width>21.12867cm</Width> <Width>21.12867cm</Width>

158
Empresas/72/Formatos/NotaCredito.rdlc
View File

@@ -254,7 +254,7 @@
</Textbox> </Textbox>
</ReportItems> </ReportItems>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Top>6.98284in</Top> <Top>6.54534in</Top>
<Left>0.17798in</Left> <Left>0.17798in</Left>
<Height>0.98611in</Height> <Height>0.98611in</Height>
<Width>8.09734in</Width> <Width>8.09734in</Width>
@@ -1186,7 +1186,7 @@
</Textbox> </Textbox>
</ReportItems> </ReportItems>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Top>4.34222in</Top> <Top>3.90472in</Top>
<Left>0.14966in</Left> <Left>0.14966in</Left>
<Height>2.61856in</Height> <Height>2.61856in</Height>
<Width>8.22763in</Width> <Width>8.22763in</Width>
@@ -1494,7 +1494,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName> <rd:DefaultName>Textbox5</rd:DefaultName>
<Top>10.74498cm</Top> <Top>9.63373cm</Top>
<Left>0.48382cm</Left> <Left>0.48382cm</Left>
<Height>0.14316cm</Height> <Height>0.14316cm</Height>
<Width>20.56724cm</Width> <Width>20.56724cm</Width>
@@ -1583,7 +1583,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value xml:space="preserve"> </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>7pt</FontSize> <FontSize>7pt</FontSize>
@@ -1591,7 +1591,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value> Culiacán, Sin. </Value> <Value>Culiacán, Sin. Tijuana, B.C</Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>6.37pt</FontSize> <FontSize>6.37pt</FontSize>
@@ -1599,7 +1599,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value>. </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>7pt</FontSize> <FontSize>7pt</FontSize>
@@ -1607,15 +1607,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value>Aguascalientes, Ags. </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>Tijuana, B.C</Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>6.37pt</FontSize> <FontSize>6.37pt</FontSize>
@@ -1623,7 +1615,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value>.</Value> <Value xml:space="preserve"> </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>7pt</FontSize> <FontSize>7pt</FontSize>
@@ -1631,33 +1623,10 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value xml:space="preserve"> </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize> <FontSize>11pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>Aguascalientes, Ags.</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>6.37pt</FontSize>
<FontWeight>SemiBold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>7pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
@@ -1678,21 +1647,13 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value xml:space="preserve"> </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>11pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun> <TextRun>
<Value>(664)</Value> <Value>(664)</Value>
<Style> <Style>
@@ -1702,29 +1663,13 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value>645 1814</Value> <Value>645 1814 </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>9.1pt</FontSize> <FontSize>9.1pt</FontSize>
<FontWeight>SemiBold</FontWeight> <FontWeight>SemiBold</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>11pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun> <TextRun>
<Value>(449)</Value> <Value>(449)</Value>
<Style> <Style>
@@ -1821,30 +1766,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<Line Name="Line5">
<Top>1.69533cm</Top>
<Left>6.74703cm</Left>
<Height>0.38833cm</Height>
<Width>0cm</Width>
<ZIndex>10</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
</Style>
</Line>
<Line Name="Line7">
<Top>1.72708cm</Top>
<Left>9.41258cm</Left>
<Height>0.38833cm</Height>
<Width>0cm</Width>
<ZIndex>11</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
</Style>
</Line>
<Textbox Name="Textbox32"> <Textbox Name="Textbox32">
<CanGrow>true</CanGrow> <CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
@@ -1907,7 +1828,7 @@
<Left>0.48382cm</Left> <Left>0.48382cm</Left>
<Height>1.14285cm</Height> <Height>1.14285cm</Height>
<Width>4.08234cm</Width> <Width>4.08234cm</Width>
<ZIndex>12</ZIndex> <ZIndex>10</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -2169,7 +2090,7 @@
<Left>5.29091in</Left> <Left>5.29091in</Left>
<Height>1.51932in</Height> <Height>1.51932in</Height>
<Width>2.9844in</Width> <Width>2.9844in</Width>
<ZIndex>13</ZIndex> <ZIndex>11</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -2748,7 +2669,7 @@
<Left>0.17067in</Left> <Left>0.17067in</Left>
<Height>0.37206in</Height> <Height>0.37206in</Height>
<Width>8.10465in</Width> <Width>8.10465in</Width>
<ZIndex>14</ZIndex> <ZIndex>12</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -2777,7 +2698,7 @@
<Left>0.4335cm</Left> <Left>0.4335cm</Left>
<Height>0.43419cm</Height> <Height>0.43419cm</Height>
<Width>20.41027cm</Width> <Width>20.41027cm</Width>
<ZIndex>15</ZIndex> <ZIndex>13</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -2788,21 +2709,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<Image Name="Image2">
<Source>Embedded</Source>
<Value>Microsoft</Value>
<Sizing>Fit</Sizing>
<Top>8.23074cm</Top>
<Left>0.5393cm</Left>
<Height>2.37313cm</Height>
<Width>11.6363cm</Width>
<ZIndex>16</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Image>
<Textbox Name="Textbox9"> <Textbox Name="Textbox9">
<CanGrow>true</CanGrow> <CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
@@ -2822,7 +2728,7 @@
<Left>14.3522cm</Left> <Left>14.3522cm</Left>
<Height>0.14316cm</Height> <Height>0.14316cm</Height>
<Width>6.66711cm</Width> <Width>6.66711cm</Width>
<ZIndex>17</ZIndex> <ZIndex>14</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -2859,7 +2765,7 @@
<Left>3.58384in</Left> <Left>3.58384in</Left>
<Height>0.18861in</Height> <Height>0.18861in</Height>
<Width>4.69148in</Width> <Width>4.69148in</Width>
<ZIndex>18</ZIndex> <ZIndex>15</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -2977,15 +2883,39 @@
<Left>14.3787cm</Left> <Left>14.3787cm</Left>
<Height>0.48004cm</Height> <Height>0.48004cm</Height>
<Width>6.64061cm</Width> <Width>6.64061cm</Width>
<ZIndex>19</ZIndex> <ZIndex>16</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
</Style> </Style>
</Tablix> </Tablix>
<Line Name="Line5">
<Top>1.53874cm</Top>
<Left>6.09322cm</Left>
<Height>0.38617cm</Height>
<Width>0cm</Width>
<ZIndex>17</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
</Style>
</Line>
<Line Name="Line6">
<Top>1.53874cm</Top>
<Left>8.82941cm</Left>
<Height>0.38617cm</Height>
<Width>0cm</Width>
<ZIndex>18</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
</Style>
</Line>
</ReportItems> </ReportItems>
<Height>20.24114cm</Height> <Height>19.3151cm</Height>
<Style /> <Style />
</Body> </Body>
<Width>21.27832cm</Width> <Width>21.27832cm</Width>

108
Empresas/72/Formatos/NotaDevolucion.rdlc
View File

@@ -254,7 +254,7 @@
</Textbox> </Textbox>
</ReportItems> </ReportItems>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Top>5.71563in</Top> <Top>5.21563in</Top>
<Left>0.05298in</Left> <Left>0.05298in</Left>
<Height>0.98611in</Height> <Height>0.98611in</Height>
<Width>8.29986in</Width> <Width>8.29986in</Width>
@@ -655,7 +655,7 @@
</Image> </Image>
</ReportItems> </ReportItems>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Top>4.19067in</Top> <Top>3.69067in</Top>
<Left>0.04839in</Left> <Left>0.04839in</Left>
<Height>1.39013in</Height> <Height>1.39013in</Height>
<Width>8.30445in</Width> <Width>8.30445in</Width>
@@ -963,7 +963,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName> <rd:DefaultName>Textbox5</rd:DefaultName>
<Top>10.41499cm</Top> <Top>9.14499cm</Top>
<Left>0.13457cm</Left> <Left>0.13457cm</Left>
<Height>0.14316cm</Height> <Height>0.14316cm</Height>
<Width>21.08165cm</Width> <Width>21.08165cm</Width>
@@ -994,7 +994,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName> <rd:DefaultName>Textbox5</rd:DefaultName>
<Top>14.28108cm</Top> <Top>13.01108cm</Top>
<Left>0.16632cm</Left> <Left>0.16632cm</Left>
<Height>0.14316cm</Height> <Height>0.14316cm</Height>
<Width>21.0499cm</Width> <Width>21.0499cm</Width>
@@ -1083,7 +1083,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value xml:space="preserve"> </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>7pt</FontSize> <FontSize>7pt</FontSize>
@@ -1091,7 +1091,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value> Culiacán, Sin. </Value> <Value>Culiacán, Sin. Tijuana, B.C</Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>6.37pt</FontSize> <FontSize>6.37pt</FontSize>
@@ -1099,7 +1099,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value>. </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>7pt</FontSize> <FontSize>7pt</FontSize>
@@ -1107,15 +1107,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value>Aguascalientes, Ags. </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>Tijuana, B.C</Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>6.37pt</FontSize> <FontSize>6.37pt</FontSize>
@@ -1123,7 +1115,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value>.</Value> <Value xml:space="preserve"> </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>7pt</FontSize> <FontSize>7pt</FontSize>
@@ -1131,33 +1123,10 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value xml:space="preserve"> </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize> <FontSize>11pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>Aguascalientes, Ags.</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>6.37pt</FontSize>
<FontWeight>SemiBold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>7pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
@@ -1178,21 +1147,13 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value xml:space="preserve"> </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>11pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun> <TextRun>
<Value>(664)</Value> <Value>(664)</Value>
<Style> <Style>
@@ -1202,29 +1163,13 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value>645 1814</Value> <Value>645 1814 </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>9.1pt</FontSize> <FontSize>9.1pt</FontSize>
<FontWeight>SemiBold</FontWeight> <FontWeight>SemiBold</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>11pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun> <TextRun>
<Value>(449)</Value> <Value>(449)</Value>
<Style> <Style>
@@ -1323,7 +1268,7 @@
</Textbox> </Textbox>
<Line Name="Line5"> <Line Name="Line5">
<Top>1.69533cm</Top> <Top>1.69533cm</Top>
<Left>6.42953cm</Left> <Left>5.79453cm</Left>
<Height>0.38833cm</Height> <Height>0.38833cm</Height>
<Width>0cm</Width> <Width>0cm</Width>
<ZIndex>11</ZIndex> <ZIndex>11</ZIndex>
@@ -1335,7 +1280,7 @@
</Line> </Line>
<Line Name="Line7"> <Line Name="Line7">
<Top>1.72708cm</Top> <Top>1.72708cm</Top>
<Left>9.09508cm</Left> <Left>8.46008cm</Left>
<Height>0.38833cm</Height> <Height>0.38833cm</Height>
<Width>0cm</Width> <Width>0cm</Width>
<ZIndex>12</ZIndex> <ZIndex>12</ZIndex>
@@ -2274,21 +2219,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<Image Name="Image2">
<Source>Embedded</Source>
<Value>Microsoft</Value>
<Sizing>Fit</Sizing>
<Top>8.19546cm</Top>
<Left>0.116cm</Left>
<Height>2.03729cm</Height>
<Width>11.6363cm</Width>
<ZIndex>17</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Image>
<Textbox Name="Textbox9"> <Textbox Name="Textbox9">
<CanGrow>true</CanGrow> <CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
@@ -2308,7 +2238,7 @@
<Left>14.54911cm</Left> <Left>14.54911cm</Left>
<Height>0.14316cm</Height> <Height>0.14316cm</Height>
<Width>6.66711cm</Width> <Width>6.66711cm</Width>
<ZIndex>18</ZIndex> <ZIndex>17</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -2345,7 +2275,7 @@
<Left>3.1938in</Left> <Left>3.1938in</Left>
<Height>0.18861in</Height> <Height>0.18861in</Height>
<Width>5.15904in</Width> <Width>5.15904in</Width>
<ZIndex>19</ZIndex> <ZIndex>18</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -2463,7 +2393,7 @@
<Left>14.57561cm</Left> <Left>14.57561cm</Left>
<Height>0.48004cm</Height> <Height>0.48004cm</Height>
<Width>6.64061cm</Width> <Width>6.64061cm</Width>
<ZIndex>20</ZIndex> <ZIndex>19</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -2471,7 +2401,7 @@
</Style> </Style>
</Tablix> </Tablix>
</ReportItems> </ReportItems>
<Height>17.08592cm</Height> <Height>15.763cm</Height>
<Style /> <Style />
</Body> </Body>
<Width>21.25578cm</Width> <Width>21.25578cm</Width>

77
Empresas/72/Formatos/Pedido.rdlc
View File

@@ -285,7 +285,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value xml:space="preserve"> </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>7pt</FontSize> <FontSize>7pt</FontSize>
@@ -293,7 +293,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value> Culiacán, Sin. </Value> <Value>Culiacán, Sin. Tijuana, B.C</Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>6.37pt</FontSize> <FontSize>6.37pt</FontSize>
@@ -301,7 +301,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value>. </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>7pt</FontSize> <FontSize>7pt</FontSize>
@@ -309,15 +309,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value>Aguascalientes, Ags. </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>Tijuana, B.C</Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>6.37pt</FontSize> <FontSize>6.37pt</FontSize>
@@ -325,7 +317,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value>.</Value> <Value xml:space="preserve"> </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>7pt</FontSize> <FontSize>7pt</FontSize>
@@ -333,33 +325,10 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value xml:space="preserve"> </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize> <FontSize>11pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>Aguascalientes, Ags.</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>6.37pt</FontSize>
<FontWeight>SemiBold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>7pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
@@ -380,21 +349,13 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value xml:space="preserve"> </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>11pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun> <TextRun>
<Value>(664)</Value> <Value>(664)</Value>
<Style> <Style>
@@ -404,29 +365,13 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value>645 1814</Value> <Value>645 1814 </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>9.1pt</FontSize> <FontSize>9.1pt</FontSize>
<FontWeight>SemiBold</FontWeight> <FontWeight>SemiBold</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>11pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun> <TextRun>
<Value>(449)</Value> <Value>(449)</Value>
<Style> <Style>
@@ -671,7 +616,7 @@
</Textbox> </Textbox>
<Line Name="Line5"> <Line Name="Line5">
<Top>1.69533cm</Top> <Top>1.69533cm</Top>
<Left>6.87784cm</Left> <Left>6.24284cm</Left>
<Height>0.38833cm</Height> <Height>0.38833cm</Height>
<Width>0cm</Width> <Width>0cm</Width>
<ZIndex>6</ZIndex> <ZIndex>6</ZIndex>
@@ -683,7 +628,7 @@
</Line> </Line>
<Line Name="Line7"> <Line Name="Line7">
<Top>1.72708cm</Top> <Top>1.72708cm</Top>
<Left>9.54339cm</Left> <Left>8.90839cm</Left>
<Height>0.38833cm</Height> <Height>0.38833cm</Height>
<Width>0cm</Width> <Width>0cm</Width>
<ZIndex>7</ZIndex> <ZIndex>7</ZIndex>

100
Empresas/72/Formatos/Remision.rdlc
View File

@@ -629,7 +629,7 @@
</Textbox> </Textbox>
</ReportItems> </ReportItems>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Top>5.80313in</Top> <Top>4.96563in</Top>
<Left>0.04506in</Left> <Left>0.04506in</Left>
<Height>1.52153in</Height> <Height>1.52153in</Height>
<Width>8.22304in</Width> <Width>8.22304in</Width>
@@ -1076,7 +1076,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value>=Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "MATRIZ", "(662) 214 2200", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Tijuana", "(664) 645 1814", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Culiacán", "(667) 715 8533", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Aguascalientes", "(449) 913 4418", ""))))</Value> <Value>=Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "MATRIZ" or Parameters!Sucursal.Value = "Hermosillo", "(662) 214 2200", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Tijuana", "(664) 645 1814", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Culiacán", "(667) 715 8533", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Aguascalientes", "(449) 913 4418", ""))))</Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>11.78pt</FontSize> <FontSize>11.78pt</FontSize>
@@ -1116,7 +1116,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value> Culiacán, Sin. </Value> <Value> Culiacán, Sin. </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>6.37pt</FontSize> <FontSize>6.37pt</FontSize>
@@ -1124,15 +1124,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>7pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
@@ -1156,7 +1148,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value xml:space="preserve"> </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
@@ -1173,13 +1165,13 @@
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style> <Style>
<TextAlign>Left</TextAlign> <TextAlign>Center</TextAlign>
</Style> </Style>
</Paragraph> </Paragraph>
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value xml:space="preserve"> </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>7pt</FontSize> <FontSize>7pt</FontSize>
@@ -1211,7 +1203,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value> | </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>11pt</FontSize> <FontSize>11pt</FontSize>
@@ -1243,7 +1235,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value> | </Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>11pt</FontSize> <FontSize>11pt</FontSize>
@@ -1268,15 +1260,15 @@
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style> <Style>
<TextAlign>Left</TextAlign> <TextAlign>Center</TextAlign>
</Style> </Style>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox10</rd:DefaultName> <rd:DefaultName>Textbox10</rd:DefaultName>
<Top>0.13104cm</Top> <Top>0.13104cm</Top>
<Left>3.45239cm</Left> <Left>3.23917cm</Left>
<Height>2.14312cm</Height> <Height>2.14312cm</Height>
<Width>9.51761cm</Width> <Width>10.69394cm</Width>
<ZIndex>4</ZIndex> <ZIndex>4</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -1524,30 +1516,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<Line Name="Line5">
<Top>1.69533cm</Top>
<Left>6.87784cm</Left>
<Height>0.38833cm</Height>
<Width>0cm</Width>
<ZIndex>7</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
</Style>
</Line>
<Line Name="Line7">
<Top>1.72708cm</Top>
<Left>9.54339cm</Left>
<Height>0.38833cm</Height>
<Width>0cm</Width>
<ZIndex>8</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
</Style>
</Line>
<Textbox Name="Textbox36"> <Textbox Name="Textbox36">
<CanGrow>true</CanGrow> <CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
@@ -1874,7 +1842,7 @@
<Left>9.54339cm</Left> <Left>9.54339cm</Left>
<Height>5.00803cm</Height> <Height>5.00803cm</Height>
<Width>6.98968cm</Width> <Width>6.98968cm</Width>
<ZIndex>9</ZIndex> <ZIndex>7</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -1986,7 +1954,7 @@
<Left>16.60715cm</Left> <Left>16.60715cm</Left>
<Height>4.98157cm</Height> <Height>4.98157cm</Height>
<Width>4.44569cm</Width> <Width>4.44569cm</Width>
<ZIndex>10</ZIndex> <ZIndex>8</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -2569,7 +2537,7 @@
<Left>0.06548in</Left> <Left>0.06548in</Left>
<Height>0.37206in</Height> <Height>0.37206in</Height>
<Width>8.22304in</Width> <Width>8.22304in</Width>
<ZIndex>11</ZIndex> <ZIndex>9</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -2595,7 +2563,7 @@
<Left>0.16632cm</Left> <Left>0.16632cm</Left>
<Height>0.14316cm</Height> <Height>0.14316cm</Height>
<Width>20.88652cm</Width> <Width>20.88652cm</Width>
<ZIndex>12</ZIndex> <ZIndex>10</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -2607,24 +2575,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<Image Name="Image2">
<Source>Embedded</Source>
<Value>BannerFacturaSIG</Value>
<Sizing>Fit</Sizing>
<Top>11.12025cm</Top>
<Left>0.22358cm</Left>
<Height>2.18766cm</Height>
<Width>10.48062cm</Width>
<ZIndex>13</ZIndex>
<Visibility>
<Hidden>=iif(len(Parameters!Observaciones.Value) &gt; 100, true,false)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Image>
<Textbox Name="Textbox9"> <Textbox Name="Textbox9">
<CanGrow>true</CanGrow> <CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
@@ -2644,7 +2594,7 @@
<Left>15.11602cm</Left> <Left>15.11602cm</Left>
<Height>0.14316cm</Height> <Height>0.14316cm</Height>
<Width>5.93682cm</Width> <Width>5.93682cm</Width>
<ZIndex>14</ZIndex> <ZIndex>11</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -2681,7 +2631,7 @@
<Left>1.063in</Left> <Left>1.063in</Left>
<Height>0.18861in</Height> <Height>0.18861in</Height>
<Width>7.22552in</Width> <Width>7.22552in</Width>
<ZIndex>15</ZIndex> <ZIndex>12</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -2707,11 +2657,11 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName> <rd:DefaultName>Textbox5</rd:DefaultName>
<Top>14.44724cm</Top> <Top>12.31999cm</Top>
<Left>0.16632cm</Left> <Left>0.16632cm</Left>
<Height>0.0882cm</Height> <Height>0.0882cm</Height>
<Width>20.66427cm</Width> <Width>20.66427cm</Width>
<ZIndex>16</ZIndex> <ZIndex>13</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -2745,7 +2695,7 @@
<Left>0.19807cm</Left> <Left>0.19807cm</Left>
<Height>0.34219cm</Height> <Height>0.34219cm</Height>
<Width>14.74156cm</Width> <Width>14.74156cm</Width>
<ZIndex>17</ZIndex> <ZIndex>14</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -2863,7 +2813,7 @@
<Left>15.11602cm</Left> <Left>15.11602cm</Left>
<Height>0.48004cm</Height> <Height>0.48004cm</Height>
<Width>5.93682cm</Width> <Width>5.93682cm</Width>
<ZIndex>18</ZIndex> <ZIndex>15</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -2895,7 +2845,7 @@
<Left>5.58063cm</Left> <Left>5.58063cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>5.12357cm</Width> <Width>5.12357cm</Width>
<ZIndex>19</ZIndex> <ZIndex>16</ZIndex>
<Visibility> <Visibility>
<Hidden>=iif(Parameters!EstatusFactura.Value&lt;&gt;"",False,True)</Hidden> <Hidden>=iif(Parameters!EstatusFactura.Value&lt;&gt;"",False,True)</Hidden>
</Visibility> </Visibility>
@@ -2935,7 +2885,7 @@
<Left>5.58063cm</Left> <Left>5.58063cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>5.12357cm</Width> <Width>5.12357cm</Width>
<ZIndex>20</ZIndex> <ZIndex>17</ZIndex>
<Visibility> <Visibility>
<Hidden>=iif(Parameters!EstatusEntrega.Value&lt;&gt;"",False,True)</Hidden> <Hidden>=iif(Parameters!EstatusEntrega.Value&lt;&gt;"",False,True)</Hidden>
</Visibility> </Visibility>
@@ -2951,7 +2901,7 @@
</Style> </Style>
</Textbox> </Textbox>
</ReportItems> </ReportItems>
<Height>18.76339cm</Height> <Height>16.69964cm</Height>
<Style /> <Style />
</Body> </Body>
<Width>21.15868cm</Width> <Width>21.15868cm</Width>

2
General/RepPaqueteriasGuias.aspx.cs
View File

@@ -264,7 +264,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
DdlEstatus.Items.Insert(3, new ListItem("Entregado ", "3")); DdlEstatus.Items.Insert(3, new ListItem("Entregado ", "3"));
DdlEstatus.Items.Insert(4, new ListItem("Reasignar Nueva Entrega ", "4")); DdlEstatus.Items.Insert(4, new ListItem("Reasignar Nueva Entrega ", "4"));
DdlEstatus.Items.Insert(5, new ListItem("Directo a Clientes ", "5")); DdlEstatus.Items.Insert(5, new ListItem("Directo a Clientes ", "5"));
DdlEstatus.SelectedValue = "-1"; DdlEstatus.SelectedValue = "2";
} }
DdlEstatusEditar.Items.Insert(0, new ListItem("Seleccione ", "-1")); DdlEstatusEditar.Items.Insert(0, new ListItem("Seleccione ", "-1"));

10
Inicio.aspx
View File

@@ -907,7 +907,7 @@
<asp:GridView ID="gvCancelaPendiente" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron factura canceladas pendientes" <asp:GridView ID="gvCancelaPendiente" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron factura canceladas pendientes"
DataKeyNames="FolioFiscal,RFC,Total" DataKeyNames="FolioFiscal,RFC,Total"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" Style="text-align: center;" GridLines="None" Width="99%"> CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None" Width="99%">
<Columns> <Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Folio Fiscal"> <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Folio Fiscal">
<ItemTemplate> <ItemTemplate>
@@ -916,10 +916,10 @@
</div> </div>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="Serie Folio" DataField="SerieFolio" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField HeaderText="Serie Folio" DataField="SerieFolio" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Proveedor" DataField="NombreProveedor" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField HeaderText="Proveedor" DataField="NombreProveedor" ItemStyle-Width="50%" />
<asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:N2}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:N2}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center" />
<%--<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText=" "> <%--<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText=" ">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton runat="server" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-plus'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea Agregar la factura?" data-btn-ok-label="si"></asp:LinkButton> <asp:LinkButton runat="server" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-plus'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea Agregar la factura?" data-btn-ok-label="si"></asp:LinkButton>

3
Inicio.aspx.vb
View File

@@ -36,7 +36,7 @@ Partial Class Inicio
If objventas.GetFacturasCanceladasPendientes(sb.ToString(), CveEmpresa) Then If objventas.GetFacturasCanceladasPendientes(sb.ToString(), CveEmpresa) Then
retorno = True retorno = True
End If End If
gvCancelaPendiente.DataSource = objventas.DtResultados
Else Else
If showalert Then If showalert Then
Alert("No se encontraron cancelaciones pendientes", ModExtensiones.TipoMensaje.MsgError) Alert("No se encontraron cancelaciones pendientes", ModExtensiones.TipoMensaje.MsgError)
@@ -50,6 +50,7 @@ Partial Class Inicio
retorno = False retorno = False
Me.OnError("Error al obtener cancelaciones pendientes: ", ex, "") Me.OnError("Error al obtener cancelaciones pendientes: ", ex, "")
End Try End Try
gvCancelaPendiente.DataBind()
Return retorno Return retorno
End Function End Function

2
Inventarios/AjustesSeccionAlmacen.aspx
View File

@@ -80,7 +80,7 @@
<asp:TemplateField ItemStyle-Width="7%"> <asp:TemplateField ItemStyle-Width="7%">
<ItemTemplate> <ItemTemplate>
<%--<asp:Literal ID="LtlExistencia" runat="server" Text='<%# Eval("Existencia").ToString().Split("."c)(0) %>'></asp:Literal>--%> <%--<asp:Literal ID="LtlExistencia" runat="server" Text='<%# Eval("Existencia").ToString().Split("."c)(0) %>'></asp:Literal>--%>
<asp:TextBox ID="TxtCantidad" runat="server" Text='<%# Eval("Existencia").ToString().Split("."c)(0) %>' Width="100%" /> <asp:TextBox ID="TxtCantidad" runat="server" Text='<%# Eval("Existencia").ToString().Split("."c)(0) %>' Width="35px" />
<asp:RangeValidator ID="RVR" Display="Dynamic" ControlToValidate="TxtCantidad" runat="server" MinimumValue="0" Type="Double" ErrorMessage="No cumple con la cantidad especificada"></asp:RangeValidator> <asp:RangeValidator ID="RVR" Display="Dynamic" ControlToValidate="TxtCantidad" runat="server" MinimumValue="0" Type="Double" ErrorMessage="No cumple con la cantidad especificada"></asp:RangeValidator>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>

43
Inventarios/AjustesSeccionAlmacen.aspx.vb
View File

@@ -13,7 +13,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
End Sub End Sub
Private Sub CargaCombos() Private Sub CargaCombos()
Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,14)") Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,14,16)")
DdlAlmacen.DataSource = DtAlmacenes DdlAlmacen.DataSource = DtAlmacenes
DdlAlmacen.DataBind() DdlAlmacen.DataBind()
@@ -65,11 +65,13 @@ Partial Class Inventarios_AjustesSeccionAlmacen
Private Sub BtnCambiarSeccion_Click(sender As Object, e As EventArgs) Handles BtnCambiarSeccion.Click Private Sub BtnCambiarSeccion_Click(sender As Object, e As EventArgs) Handles BtnCambiarSeccion.Click
Dim ObjInventario As New ClsInventarios Dim ObjInventario As New ClsInventarios
Dim ObjPS As New ClsProductosServicios(ObjInventario.IniciaTransacSQL) Dim ObjPS As New ClsProductosServicios(ObjInventario.IniciaTransacSQL)
Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
Dim Dtt As DataTable = Nothing Dim Dtt As DataTable = Nothing
Dim CveMovimientoEntrada As Integer = 0 Dim CveMovimientoEntrada As Integer = 0
Dim Folio = 0 Dim Folio = 0
Dim ErrorMovInv As Boolean = False Dim ErrorMovInv As Boolean = False
Dim TextoError = "" Dim TextoError = ""
Dim Contador As Integer = 0
Dim CveAlmacen As Integer = DdlAlmacen.SelectedValue.ToEntero Dim CveAlmacen As Integer = DdlAlmacen.SelectedValue.ToEntero
@@ -106,12 +108,13 @@ Partial Class Inventarios_AjustesSeccionAlmacen
TextoError = "Ocurrió un error al guardar los movimientos de salida" TextoError = "Ocurrió un error al guardar los movimientos de salida"
Exit For Exit For
End If End If
Contador += 1
End If End If
Next Next
If Not ErrorMovInv Then If Not ErrorMovInv AndAlso Contador > 0 Then
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
@@ -121,7 +124,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
For Each Row As DataRow In resultado.Rows For Each Row As DataRow In resultado.Rows
Dim CvePS = Row("CvePS").ToString().ToEntero() Dim CvePS = Row("CvePS").ToString().ToEntero()
'Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal() Cantidad = Row("Cantidad").ToString.ToDecimal()
Dim PU As Decimal = Row("PUOriginal").ToString().ToDecimal() Dim PU As Decimal = Row("PUOriginal").ToString().ToDecimal()
Dim CveUM As Integer = Row("CveUM").ToString().ToEntero() Dim CveUM As Integer = Row("CveUM").ToString().ToEntero()
Dim CveSeccionAlmacen As Integer = Lista(Row("CvePS").ToString().ToEntero()) 'GvD.Rows(ind).FCDropDownList("DDlS").SelectedValue.ToEntero ' IfNull(Row("CveSeccionAlmacen"), "-1").ToString().ToEntero() Dim CveSeccionAlmacen As Integer = Lista(Row("CvePS").ToString().ToEntero()) 'GvD.Rows(ind).FCDropDownList("DDlS").SelectedValue.ToEntero ' IfNull(Row("CveSeccionAlmacen"), "-1").ToString().ToEntero()
@@ -143,8 +146,23 @@ Partial Class Inventarios_AjustesSeccionAlmacen
End If End If
ind += 1 ind += 1
Next Next
resultado.Dispose()
'inserto la prepoliza
If CveMovimientoEntrada > 0 AndAlso CveMovimientoSalida > 0 Then
Dim Concepto As String = "Ajuste Sección"
Dim IdCtaContableOrigen As Integer = 0
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/AjusteAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
Dim contabilizable As Boolean = False
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, Concepto, 68, Concepto, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=contabilizable, ImporteMX:=importe) Then
ErrorMovInv = True
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, Concepto, 68, Concepto, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=contabilizable, ImporteMX:=importe) Then
ErrorMovInv = True
End If
End If
resultado.Dispose()
Else Else
TextoError = "No se pudo registrar el movimiento" TextoError = "No se pudo registrar el movimiento"
ErrorMovInv = True ErrorMovInv = True
@@ -155,16 +173,25 @@ Partial Class Inventarios_AjustesSeccionAlmacen
End If End If
If Not ErrorMovInv Then If Not ErrorMovInv Then
ObjInventario.Commit()
GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, -1, -1) = Nothing If Contador > 0 Then
CargaDatos() ObjInventario.Commit()
Alert("El Movimiento quede registrado correctamente", TipoMensaje.MsgInformacion) GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, -1, -1) = Nothing
CargaDatos()
Alert("El Movimiento quede registrado correctamente", TipoMensaje.MsgInformacion)
Else
ObjInventario.RollBack()
Alert("No se especificaron productos", TipoMensaje.MsgError)
End If
Else Else
ObjInventario.RollBack() ObjInventario.RollBack()
Alert("Ocurrio un error al registrar el movimiento", TipoMensaje.MsgError) Alert("Ocurrio un error al registrar el movimiento", TipoMensaje.MsgError)
End If End If
ObjInventario.Dispose() ObjInventario.Dispose()
ObjConta.Dispose()
ObjPS.Dispose()
End Sub End Sub
Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles LbDescargarExcel.Click, BtnDescargar.Click Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles LbDescargarExcel.Click, BtnDescargar.Click

25
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -5,6 +5,7 @@ Imports System.Data
Imports Extensiones Imports Extensiones
Imports System.IO Imports System.IO
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports DocumentFormat.OpenXml.Drawing.Diagrams
'Imports DocumentFormat.OpenXml.Wordprocessing 'Imports DocumentFormat.OpenXml.Wordprocessing
@@ -2033,8 +2034,8 @@ Partial Class Inventarios_EntradasSalidas
DdlConcepto.Items.Insert(0, New ListItem("Entrada Almacen ", "2")) DdlConcepto.Items.Insert(0, New ListItem("Entrada Almacen ", "2"))
End If End If
'2185
If UsuarioActual.CveEmpresa = 72 AndAlso (UsuarioActual.CveUsuario = 2185 OrElse UsuarioActual.CveRol = 1) Then If UsuarioActual.CveEmpresa = 72 AndAlso (UsuarioActual.CveUsuario = 1490 OrElse UsuarioActual.CveRol = 1) Then
'DdlConcepto.Items.Add(New ListItem("Seleccione", "-1")) 'DdlConcepto.Items.Add(New ListItem("Seleccione", "-1"))
DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32")) DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32"))
@@ -2043,6 +2044,24 @@ Partial Class Inventarios_EntradasSalidas
DdlConcepto.Items.Add(New ListItem("Salida por Ajuste", "34")) DdlConcepto.Items.Add(New ListItem("Salida por Ajuste", "34"))
End If End If
End If
''condicion de limpieza si es el usuario 1490, se dejan sino
If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
If UsuarioActual.CveUsuario <> 1490 Then
DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("1"))
DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("2"))
DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("3"))
DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("16"))
DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("17"))
DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("31"))
DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("32"))
DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("33"))
DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("34"))
DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("34")) 'si esta dos veces, se tiene que ejecutar 2 veces
DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("35"))
End If
End If End If
@@ -4196,7 +4215,7 @@ Partial Class Inventarios_EntradasSalidas
ElProductoChange() ElProductoChange()
TxtnSerie.Text = Serie TxtnSerie.Text = Serie
TxtnLote.Text = Lote TxtnLote.Text = Lote
DdlSeccionAlmacen.SelectedValue = CveSeccionAlmacen.ToString DdlSeccionAlmacen.SelectedValueExist(CveSeccionAlmacen.ToString)
TxtnFechaCaducidad.Text = If(Caducidad = "", MinFecha.ToString, Caducidad) TxtnFechaCaducidad.Text = If(Caducidad = "", MinFecha.ToString, Caducidad)
AgregarPS() AgregarPS()
txtPrecio.Text = "" txtPrecio.Text = ""

79
Inventarios/Fletes.aspx
View File

@@ -63,34 +63,34 @@
</div> </div>
</div> </div>
</div> </div>
<div class="row"> <%--<div class="row">
<div class="col-md-12"> <div class="col-md-12">
<hr /> <hr />
</div> </div>
<div class="col-md-2"> <div class="col-md-2">
Modalidad Modalidad
</div> </div>--%>
<div class="col-md-5"> <%--<div class="col-md-5">
<asp:DropDownList ID="DdlModalidad" AutoPostBack="true" OnSelectedIndexChanged="DdlModalidad_SelectedIndexChanged" runat="server" CssClass="select2me Widthall"> <asp:DropDownList ID="DdlModalidad" AutoPostBack="true" OnSelectedIndexChanged="DdlModalidad_SelectedIndexChanged" runat="server" CssClass="select2me Widthall">
<asp:ListItem Text="OC" Value="1" Selected="True" /> <asp:ListItem Text="OC" Value="1" Selected="True" />
<asp:ListItem Text="Compra" Value="2" /> <asp:ListItem Text="Compra" Value="2" />
</asp:DropDownList> </asp:DropDownList>
</div> </div>--%>
<div class="col-md-5 text-center"> <%--<div class="col-md-5 text-center">
<div runat="server" id="DivVincularOC"> <%--<div runat="server" id="DivVincularOC">
<a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/OC/PopUpBuscarReq.aspx?Op=FactFle',800,600,'N');"><i class='fa fa-plus'></i>Vincular Orden de Compra</a> <a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/OC/PopUpBuscarReq.aspx?Op=FactFle',800,600,'N');"><i class='fa fa-plus'></i>Vincular Orden de Compra</a>
<asp:Button ID="BtnVincularOC" runat="server" ClientIDMode="Static" OnClick="BtnVincularOC_Click" Style="display: none;" class="btn btn-primary" /> <asp:Button ID="BtnVincularOC" runat="server" ClientIDMode="Static" Style="display: none;" class="btn btn-primary" />
<asp:HiddenField runat="server" ID="HdnCveOC" ClientIDMode="Static" Value="-1" /> <asp:HiddenField runat="server" ID="HdnCveOC" ClientIDMode="Static" Value="-1" />
</div> </div>--%>
<div runat="server" id="DivVincularCompra" visible="false"> <%--<div runat="server" id="DivVincularCompra" visible="false">
<a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/Compras/PopUpBuscarFolioC.aspx?Opt=Fact',800,600,'N');"><i class='fa fa-plus'></i>Vincular Compra</a> <a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/Compras/PopUpBuscarFolioC.aspx?Opt=Fact',800,600,'N');"><i class='fa fa-plus'></i>Vincular Compra</a>
<asp:Button ID="BtnVincularCompra" runat="server" ClientIDMode="Static" OnClick="BtnVincularCompra_Click" Style="display: none;" class="btn btn-primary" /> <asp:Button ID="BtnVincularCompra" runat="server" ClientIDMode="Static" OnClick="BtnVincularCompra_Click" Style="display: none;" class="btn btn-primary" />
<asp:HiddenField runat="server" ID="HdnCveCompra" ClientIDMode="Static" Value="-1" /> <asp:HiddenField runat="server" ID="HdnCveCompra" ClientIDMode="Static" Value="-1" />
</div> </div>--%>
</div> <%--</div>--%>
</div> <%--</div>--%>
<div class="row"> <%--<div class="row">
<div class="col-md-2">Proveedor:</div> <div class="col-md-2">Proveedor:</div>
<div class="col-md-10"> <div class="col-md-10">
<asp:Label ID="LbOCProveedor" Text="" runat="server" /> <asp:Label ID="LbOCProveedor" Text="" runat="server" />
@@ -107,12 +107,51 @@
<div class="col-md-10"> <div class="col-md-10">
<asp:Label ID="LbOCImporte" Text="" runat="server" /> <asp:Label ID="LbOCImporte" Text="" runat="server" />
</div> </div>
</div> </div>--%>
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<div class="col-md-6">
<asp:UpdatePanel runat="server" ID="UpComprasGrid">
<ContentTemplate>
<div class="portlet light smmallpadding bordered " id="PorletCompras">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">COMPRAS DE PRODUCTOS</span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse"></a>
</div>
</div>
<div class="portlet-body rowpadding">
<div class="row">
<div class="col-md-12">
<asp:GridView ID="GvComprasVinculadas" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD" Width="100%" GridLines="None" DataKeyNames="CveFleteCompra" EmptyDataText="No hay compras vinculadas" >
<Columns>
<asp:BoundField HeaderText="Proveedor" DataField="RazonSocial" ItemStyle-Width="30%" />
<asp:HyperLinkField HeaderText="Serie-Folio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataTextField="SerieFolio" ItemStyle-Width="10%" Target="_blank" />
<asp:BoundField HeaderText="Total Productos" DataField="Total" DataFormatString="{0:n2}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Moneda" ItemStyle-HorizontalAlign="Center" DataField="Abreviatura" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="TC" ItemStyle-HorizontalAlign="Center" DataField="TipoCambio" ItemStyle-Width="5%" />
<%--<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" >
<ItemTemplate>
<div data-toggle="tooltip" data-original-title="Eliminar compra vinculada">
<asp:LinkButton ID="LnkEliminaCompraVinculada" OnClick="LnkEliminaCompraVinculada_Click" 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" />
</div>
</ItemTemplate>
</asp:TemplateField>--%>
</Columns>
</asp:GridView>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div> </div>
<div class="row"> <div class="row">
@@ -123,18 +162,18 @@
<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">Compras Gasto</span> <span class="caption-subject bold uppercase">Costo Indirecto</span>
</div> </div>
<div class="tools"> <div class="tools">
<a href="javascript:;" class="collapse"></a> <a href="javascript:;" class="collapse"></a>
</div> </div>
<div class="actions"> <%--<div class="actions">
<div class="btn-group"> <div class="btn-group">
<a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/Compras/PopUpBuscarFolioC.aspx?Opt=FactFlete',800,600,'N');" data-toggle="tooltip" data-placement="top" title="Agregar compra(factura) de gastos."><i class='fa fa-plus'></i>Agregar compra de gasto</a> <a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/Compras/PopUpBuscarFolioC.aspx?Opt=FactFlete',800,600,'N');" data-toggle="tooltip" data-placement="top" title="Agregar compra(factura) de gastos."><i class='fa fa-plus'></i>Agregar compra de gasto</a>
<asp:Button ID="BtnVincularCompraGasto" runat="server" ClientIDMode="Static" OnClick="BtnVincularCompraGasto_Click" Style="display: none;" class="btn btn-primary" /> <asp:Button ID="BtnVincularCompraGasto" runat="server" ClientIDMode="Static" OnClick="BtnVincularCompraGasto_Click" Style="display: none;" class="btn btn-primary" />
<asp:HiddenField runat="server" ID="HdnCveCompraGasto" ClientIDMode="Static" Value="-1" /> <asp:HiddenField runat="server" ID="HdnCveCompraGasto" ClientIDMode="Static" Value="-1" />
</div> </div>
</div> </div>--%>
</div> </div>
<div class="portlet-body rowpadding"> <div class="portlet-body rowpadding">
<div class="row"> <div class="row">
@@ -146,13 +185,13 @@
<asp:BoundField HeaderText="Tipo" DataField="TipoDocto" DataFormatString="{0:d}" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="Tipo" DataField="TipoDocto" DataFormatString="{0:d}" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Descripción" DataField="Descripcion" ItemStyle-Width="20%" /> <asp:BoundField HeaderText="Descripción" DataField="Descripcion" ItemStyle-Width="20%" />
<asp:BoundField HeaderText="Importe" DataField="SubTotal" DataFormatString="{0:n2}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Total Indirecto" DataField="SubTotal" DataFormatString="{0:n2}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Moneda" DataField="Abreviatura" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="Moneda" DataField="Abreviatura" ItemStyle-Width="10%" />
<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center"> <%--<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="imgD" 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" /> <asp:LinkButton ID="imgD" 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> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>--%>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>

341
Inventarios/Fletes.aspx.vb
View File

@@ -81,18 +81,18 @@ Partial Class Compras_Fletes
TxtFecha.Text = ObjInv.DtResultados.Rows(0)("Fecha").ToString TxtFecha.Text = ObjInv.DtResultados.Rows(0)("Fecha").ToString
If ObjInv.DtResultados.Rows(0)("CveOC").ToString.ToEntero > 0 Then If ObjInv.DtResultados.Rows(0)("CveOC").ToString.ToEntero > 0 Then
DdlModalidad.SelectedValue = "1" 'DdlModalidad.SelectedValue = "1"
Else Else
DdlModalidad.SelectedValue = "2" 'DdlModalidad.SelectedValue = "2"
End If End If
CambiaModalidad() 'CambiaModalidad()
HdnCveOC.Value = ObjInv.DtResultados.Rows(0)("CveOC").ToString 'HdnCveOC.Value = ObjInv.DtResultados.Rows(0)("CveOC").ToString
HdnCveCompra.Value = ObjInv.DtResultados.Rows(0)("CveCompra").ToString 'HdnCveCompra.Value = ObjInv.DtResultados.Rows(0)("CveCompra").ToString
LbOCProveedor.Text = ObjInv.DtResultados.Rows(0)("RazonSocial").ToString 'LbOCProveedor.Text = ObjInv.DtResultados.Rows(0)("RazonSocial").ToString
HLOCFolio.Text = ObjInv.DtResultados.Rows(0)("FolioDocumento").ToString 'HLOCFolio.Text = ObjInv.DtResultados.Rows(0)("FolioDocumento").ToString
HLOCFolio.NavigateUrl = If(HdnCveOC.Value.ToEntero > 0, $"/OC/OC.aspx?OC={HdnCveOC.Value}", $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}") 'HLOCFolio.NavigateUrl = If(HdnCveOC.Value.ToEntero > 0, $"/OC/OC.aspx?OC={HdnCveOC.Value}", $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}")
LbOCImporte.Text = $"{ObjInv.DtResultados.Rows(0)("TotalDocumento").ToString.FormatoNumero} {ObjInv.DtResultados.Rows(0)("Moneda").ToString}" 'LbOCImporte.Text = $"{ObjInv.DtResultados.Rows(0)("TotalDocumento").ToString.FormatoNumero} {ObjInv.DtResultados.Rows(0)("Moneda").ToString}"
If ObjInv.GetFleteDetalle(CveFlete) Then If ObjInv.GetFleteDetalle(CveFlete) Then
DtCompras = ObjInv.DtResultados DtCompras = ObjInv.DtResultados
@@ -100,8 +100,12 @@ Partial Class Compras_Fletes
Alert("Ocurrió un error al cargar el detalle del flete", TipoMensaje.MsgError) Alert("Ocurrió un error al cargar el detalle del flete", TipoMensaje.MsgError)
End If End If
If ObjInv.GetFletesCompras(CveFlete, UsuarioActual.CveEmpresa) Then
GvComprasVinculadas.DataSource = ObjInv.DtResultados
End If
Else Else
Alert("No se encontró el flete", TipoMensaje.MsgInformacion) Alert("No se encontró el flete", TipoMensaje.MsgAdvertencia)
End If End If
Else Else
Alert("Ocurrió un error al cargar el flete", TipoMensaje.MsgError) Alert("Ocurrió un error al cargar el flete", TipoMensaje.MsgError)
@@ -109,6 +113,7 @@ Partial Class Compras_Fletes
ObjInv.Dispose() ObjInv.Dispose()
CargaGrid() CargaGrid()
GvComprasVinculadas.DataBind()
UpRegistro.Update() UpRegistro.Update()
End Sub End Sub
@@ -123,168 +128,168 @@ Partial Class Compras_Fletes
#Region " VINCULA DOCUMENTO PRINCIPAL - OC | COMPRA " #Region " VINCULA DOCUMENTO PRINCIPAL - OC | COMPRA "
Protected Sub DdlModalidad_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlModalidad_SelectedIndexChanged(sender As Object, e As EventArgs)
CambiaModalidad() 'CambiaModalidad()
UpRegistro.Update() UpRegistro.Update()
End Sub End Sub
Private Sub CambiaModalidad() 'Private Sub CambiaModalidad()
HdnCveOC.Value = "-1" ' HdnCveOC.Value = "-1"
HdnCveCompra.Value = "-1" ' HdnCveCompra.Value = "-1"
LbOCProveedor.Text = "" ' LbOCProveedor.Text = ""
HLOCFolio.Text = "" ' HLOCFolio.Text = ""
HLOCFolio.NavigateUrl = "#" ' HLOCFolio.NavigateUrl = "#"
LbOCImporte.Text = "" ' LbOCImporte.Text = ""
DivVincularOC.Visible = DdlModalidad.SelectedValue = "1" ' DivVincularOC.Visible = DdlModalidad.SelectedValue = "1"
DivVincularCompra.Visible = DdlModalidad.SelectedValue = "2" ' DivVincularCompra.Visible = DdlModalidad.SelectedValue = "2"
End Sub 'End Sub
Protected Sub BtnVincularOC_Click(sender As Object, e As EventArgs) 'Protected Sub BtnVincularOC_Click(sender As Object, e As EventArgs)
VinculaOC() ' VinculaOC()
End Sub 'End Sub
Private Sub VinculaOC() 'Private Sub VinculaOC()
If HdnCveOC.Value <> "-1" AndAlso IsNumeric(HdnCveOC.Value) AndAlso HdnCveOC.Value.ToEntero > 0 Then ' If HdnCveOC.Value <> "-1" AndAlso IsNumeric(HdnCveOC.Value) AndAlso HdnCveOC.Value.ToEntero > 0 Then
Dim ObjInv As New ClsInventarios ' Dim ObjInv As New ClsInventarios
Dim ObjOC As New ClsOC ' Dim ObjOC As New ClsOC
If ObjInv.GetFletes(UsuarioActual.CveEmpresa, CveOC:=HdnCveOC.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0 Then ' If ObjInv.GetFletes(UsuarioActual.CveEmpresa, CveOC:=HdnCveOC.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0 Then
If ObjOC.GetOC(HdnCveOC.Value.ToEntero, UsuarioActual.CveEmpresa) Then ' If ObjOC.GetOC(HdnCveOC.Value.ToEntero, UsuarioActual.CveEmpresa) Then
If ObjOC.DtResultados.Rows.Count > 0 Then ' If ObjOC.DtResultados.Rows.Count > 0 Then
LbOCProveedor.Text = ObjOC.DtResultados.Rows(0)("RazonSocial").ToString ' LbOCProveedor.Text = ObjOC.DtResultados.Rows(0)("RazonSocial").ToString
HLOCFolio.Text = $"{ObjOC.DtResultados.Rows(0)("Folio").ToString}" ' HLOCFolio.Text = $"{ObjOC.DtResultados.Rows(0)("Folio").ToString}"
HLOCFolio.NavigateUrl = $"/OC/OC.aspx?OC={HdnCveOC.Value}" ' HLOCFolio.NavigateUrl = $"/OC/OC.aspx?OC={HdnCveOC.Value}"
LbOCImporte.Text = $"$ {ObjOC.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjOC.DtResultados.Rows(0)("Moneda").ToString}" ' LbOCImporte.Text = $"$ {ObjOC.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjOC.DtResultados.Rows(0)("Moneda").ToString}"
End If ' End If
Else ' Else
HdnCveOC.Value = "-1" ' HdnCveOC.Value = "-1"
End If ' End If
Else ' Else
Alert($"La orden de compra ya forma parte del flete: <b>{ObjInv.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) ' Alert($"La orden de compra ya forma parte del flete: <b>{ObjInv.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
End If ' End If
ObjInv.Dispose() ' ObjInv.Dispose()
ObjOC.Dispose() ' ObjOC.Dispose()
End If ' End If
UpRegistro.Update() ' UpRegistro.Update()
End Sub 'End Sub
Protected Sub BtnVincularCompra_Click(sender As Object, e As EventArgs) 'Protected Sub BtnVincularCompra_Click(sender As Object, e As EventArgs)
VincularCompra() ' VincularCompra()
End Sub 'End Sub
Private Sub VincularCompra() 'Private Sub VincularCompra()
If Not (HdnCveCompra.Value <> "-1" AndAlso IsNumeric(HdnCveCompra.Value) AndAlso HdnCveCompra.Value.ToEntero > 0) Then ' If Not (HdnCveCompra.Value <> "-1" AndAlso IsNumeric(HdnCveCompra.Value) AndAlso HdnCveCompra.Value.ToEntero > 0) Then
Alert("No hay compra seleccionaada", TipoMensaje.MsgAdvertencia) ' Alert("No hay compra seleccionaada", TipoMensaje.MsgAdvertencia)
Exit Sub ' Exit Sub
End If ' End If
Dim ObjCompras As New ClsCompras ' Dim ObjCompras As New ClsCompras
Dim ObjInv As New ClsInventarios ' Dim ObjInv As New ClsInventarios
Dim ErrorAgregar = False ' Dim ErrorAgregar = False
Dim RowCompras As DataRow = Nothing ' Dim RowCompras As DataRow = Nothing
If ObjCompras.GetCompras(HdnCveCompra.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then ' If ObjCompras.GetCompras(HdnCveCompra.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
RowCompras = ObjCompras.DtResultados.Rows(0) ' RowCompras = ObjCompras.DtResultados.Rows(0)
If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompra.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then ' If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompra.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then
ErrorAgregar = True ' ErrorAgregar = True
Alert($"La compra ya forma parte del flete: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) ' Alert($"La compra ya forma parte del flete: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
End If ' End If
Else ' Else
ErrorAgregar = True ' ErrorAgregar = True
Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError) ' Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError)
End If ' End If
If Not ErrorAgregar Then ' If Not ErrorAgregar Then
If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then ' If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then
ErrorAgregar = True ' ErrorAgregar = True
Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) ' Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
End If ' End If
End If ' End If
If Not ErrorAgregar Then ' If Not ErrorAgregar Then
LbOCProveedor.Text = ObjCompras.DtResultados.Rows(0)("RazonSocial").ToString ' LbOCProveedor.Text = ObjCompras.DtResultados.Rows(0)("RazonSocial").ToString
HLOCFolio.Text = $"{ObjCompras.DtResultados.Rows(0)("Folio").ToString}" ' HLOCFolio.Text = $"{ObjCompras.DtResultados.Rows(0)("Folio").ToString}"
HLOCFolio.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}" ' HLOCFolio.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}"
LbOCImporte.Text = $"$ {ObjCompras.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjCompras.DtResultados.Rows(0)("Moneda").ToString}" ' LbOCImporte.Text = $"$ {ObjCompras.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjCompras.DtResultados.Rows(0)("Moneda").ToString}"
Else ' Else
HdnCveCompra.Value = "-1" ' HdnCveCompra.Value = "-1"
End If ' End If
ObjCompras.Dispose() ' ObjCompras.Dispose()
ObjInv.Dispose() ' ObjInv.Dispose()
End Sub 'End Sub
#End Region #End Region
#Region " AGREGA COMPRA GASTO " #Region " AGREGA COMPRA GASTO "
Protected Sub BtnVincularCompraGasto_Click(sender As Object, e As EventArgs) 'Protected Sub BtnVincularCompraGasto_Click(sender As Object, e As EventArgs)
AgregaCompraGasto() ' AgregaCompraGasto()
End Sub 'End Sub
Protected Sub ImgAgregarCompraGasto_Click(sender As Object, e As ImageClickEventArgs) 'Protected Sub ImgAgregarCompraGasto_Click(sender As Object, e As ImageClickEventArgs)
AgregaCompraGasto() ' AgregaCompraGasto()
End Sub 'End Sub
Private Sub AgregaCompraGasto() 'Private Sub AgregaCompraGasto()
If Not (HdnCveCompraGasto.Value <> "-1" AndAlso IsNumeric(HdnCveCompraGasto.Value) AndAlso HdnCveCompraGasto.Value.ToEntero > 0) Then ' If Not (HdnCveCompraGasto.Value <> "-1" AndAlso IsNumeric(HdnCveCompraGasto.Value) AndAlso HdnCveCompraGasto.Value.ToEntero > 0) Then
Alert("No hay compra de gasto seleccionaada", TipoMensaje.MsgAdvertencia) ' Alert("No hay compra de gasto seleccionaada", TipoMensaje.MsgAdvertencia)
Exit Sub ' Exit Sub
End If ' End If
Dim ObjCompras As New ClsCompras ' Dim ObjCompras As New ClsCompras
Dim ObjInv As New ClsInventarios(ObjCompras.IniciaTransacSQL) ' Dim ObjInv As New ClsInventarios(ObjCompras.IniciaTransacSQL)
Dim ErrorAgregar = False ' Dim ErrorAgregar = False
Dim RowCompras As DataRow = Nothing ' Dim RowCompras As DataRow = Nothing
If ObjCompras.GetCompras(HdnCveCompraGasto.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then ' If ObjCompras.GetCompras(HdnCveCompraGasto.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
RowCompras = ObjCompras.DtResultados.Rows(0) ' RowCompras = ObjCompras.DtResultados.Rows(0)
If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompraGasto.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then ' If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompraGasto.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then
ErrorAgregar = True ' ErrorAgregar = True
Alert($"La compra ya forma parte del flete: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) ' Alert($"La compra ya forma parte del flete: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
End If ' End If
Else ' Else
ErrorAgregar = True ' ErrorAgregar = True
Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError) ' Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError)
End If ' End If
If HdnCveCompraGasto.Value.ToEntero = HdnCveOC.Value.ToEntero Then ' If HdnCveCompraGasto.Value.ToEntero = HdnCveOC.Value.ToEntero Then
ErrorAgregar = True ' ErrorAgregar = True
Alert("La Compra seleccionada como gasto es la orden de compra del pedimento. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) ' Alert("La Compra seleccionada como gasto es la orden de compra del pedimento. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
End If ' End If
If Not ErrorAgregar Then ' If Not ErrorAgregar Then
If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then ' If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then
ErrorAgregar = True ' ErrorAgregar = True
Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) ' Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
End If ' End If
End If ' End If
If Not ErrorAgregar Then ' If Not ErrorAgregar Then
If Not GvDatos.Rows.Count > 0 Then ' If Not GvDatos.Rows.Count > 0 Then
DtCompras = RowCompras.Table.Clone ' DtCompras = RowCompras.Table.Clone
DtCompras.Columns.Add("CveFleteDetalle", Type.GetType("System.Int32")) ' DtCompras.Columns.Add("CveFleteDetalle", Type.GetType("System.Int32"))
End If ' End If
If CveFlete > 0 Then ' If CveFlete > 0 Then
If Not ObjInv.AddFleteDetalle(CveFlete, RowCompras("CveCompra").ToString.ToEntero) Then ' If Not ObjInv.AddFleteDetalle(CveFlete, RowCompras("CveCompra").ToString.ToEntero) Then
ErrorAgregar = True ' ErrorAgregar = True
Alert("Ocurrió un error al agregar la compra. Por favor intente de nuevo.", TipoMensaje.MsgError) ' Alert("Ocurrió un error al agregar la compra. Por favor intente de nuevo.", TipoMensaje.MsgError)
End If ' End If
End If ' End If
End If ' End If
If Not ErrorAgregar Then ' If Not ErrorAgregar Then
ObjCompras.Commit() ' ObjCompras.Commit()
DtCompras.ImportRow(RowCompras) ' DtCompras.ImportRow(RowCompras)
CargaGrid() ' CargaGrid()
If CveFlete > 0 Then ' If CveFlete > 0 Then
Alert("La orden de compra se agregó correctamente.", TipoMensaje.MsgInformacion) ' Alert("La orden de compra se agregó correctamente.", TipoMensaje.MsgInformacion)
End If ' End If
Else ' Else
ObjCompras.RollBack() ' ObjCompras.RollBack()
End If ' End If
HdnCveCompraGasto.Value = "-1" ' HdnCveCompraGasto.Value = "-1"
ObjCompras.Dispose() ' ObjCompras.Dispose()
ObjInv.Dispose() ' ObjInv.Dispose()
End Sub 'End Sub
Private Sub GvDireccionesEnvio_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDatos.RowDeleting Private Sub GvDireccionesEnvio_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
Dim TieneError = False Dim TieneError = False
If CveFlete > 0 AndAlso GvDatos.Rows(e.RowIndex).DataKey("CveFleteDetalle").ToEntero > 0 Then If CveFlete > 0 AndAlso GvDatos.Rows(e.RowIndex).DataKey("CveFleteDetalle").ToEntero > 0 Then
@@ -312,18 +317,18 @@ Partial Class Compras_Fletes
#Region " GUARDAR " #Region " GUARDAR "
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
Select Case DdlModalidad.SelectedValue.ToEntero 'Select Case DdlModalidad.SelectedValue.ToEntero
Case 1 ' Case 1
If Not HdnCveOC.Value.ToEntero > 0 Then ' 'If Not HdnCveOC.Value.ToEntero > 0 Then
Alert("Tiene que tener vinculada una OC", TipoMensaje.MsgAdvertencia) ' ' Alert("Tiene que tener vinculada una OC", TipoMensaje.MsgAdvertencia)
Exit Sub ' ' Exit Sub
End If ' 'End If
Case 2 ' Case 2
If Not HdnCveCompra.Value.ToEntero > 0 Then ' 'If Not HdnCveCompra.Value.ToEntero > 0 Then
Alert("Tiene que tener vinculada una Compra", TipoMensaje.MsgAdvertencia) ' ' Alert("Tiene que tener vinculada una Compra", TipoMensaje.MsgAdvertencia)
Exit Sub ' ' Exit Sub
End If ' 'End If
End Select 'End Select
If Not DtCompras.Rows.Count > 0 Then If Not DtCompras.Rows.Count > 0 Then
Alert("Tiene que tener compras de gastos agregadas", TipoMensaje.MsgAdvertencia) Alert("Tiene que tener compras de gastos agregadas", TipoMensaje.MsgAdvertencia)
@@ -336,7 +341,7 @@ Partial Class Compras_Fletes
Dim CveFleteTemporal As Integer = 0 Dim CveFleteTemporal As Integer = 0
If CveFlete < 0 Then If CveFlete < 0 Then
If ObjInv.AddFlete(LblFolio.Text, TxtDescripcion.Text.Trim, TxtFecha.Text.ToDate, HdnCveOC.Value.ToEntero, HdnCveCompra.Value.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjInv.AddFlete(LblFolio.Text, TxtDescripcion.Text.Trim, TxtFecha.Text.ToDate, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
CveFleteTemporal = ObjInv.CveFlete CveFleteTemporal = ObjInv.CveFlete
Else Else
ErrorFlete = True ErrorFlete = True
@@ -352,7 +357,7 @@ Partial Class Compras_Fletes
ErrorFlete = True ErrorFlete = True
End If End If
Else Else
If Not ObjInv.UpdateFlete(CveFlete, TxtDescripcion.Text, TxtFecha.Text.ToDate, HdnCveOC.Value.ToEntero, HdnCveCompra.Value.ToEntero, UsuarioActual.CveUsuario) Then If Not ObjInv.UpdateFlete(CveFlete, TxtDescripcion.Text, TxtFecha.Text.ToDate, -1, -1, UsuarioActual.CveUsuario) Then
ErrorFlete = True ErrorFlete = True
End If End If
End If End If
@@ -410,18 +415,18 @@ Partial Class Compras_Fletes
If Archivo.Exists Then If Archivo.Exists Then
Dim ImporteGrid As Double = DtCompras.SUM("SubTotal") Dim ImporteGrid As Double = DtCompras.SUM("SubTotal")
Dim ImporteStr As String = LbOCImporte.Text.Split(" "c)(0) 'Dim ImporteStr As String = LbOCImporte.Text.Split(" "c)(0)
Dim ImporteData As Double = ImporteStr.ToDouble() 'Dim ImporteData As Double = ImporteStr.ToDouble()
Dim params As New List(Of ReportParameter) Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Folio", LblFolio.Text)) params.Add(New ReportParameter("Folio", LblFolio.Text))
params.Add(New ReportParameter("Descripcion", TxtDescripcion.Text)) params.Add(New ReportParameter("Descripcion", TxtDescripcion.Text))
params.Add(New ReportParameter("Fecha", TxtFecha.Text)) params.Add(New ReportParameter("Fecha", TxtFecha.Text))
params.Add(New ReportParameter("Modalidad", If(DdlModalidad.SelectedValue = "-1", "Por Orden de Compra", "Factura de Compra"))) params.Add(New ReportParameter("Modalidad", "Factura de Compra"))
params.Add(New ReportParameter("Proveedor", LbOCProveedor.Text)) params.Add(New ReportParameter("Proveedor", ""))
params.Add(New ReportParameter("FolioModalidad", HLOCFolio.Text)) params.Add(New ReportParameter("FolioModalidad", ""))
params.Add(New ReportParameter("Importe", (ImporteGrid + ImporteData).ToString())) params.Add(New ReportParameter("Importe", (ImporteGrid).ToString()))
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Fletes.rdlc", DtCompras, params, String.Format("Costo Indirecto - {0}", LblFolio.Text), RDSName:="DataSet1") ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Fletes.rdlc", DtCompras, params, String.Format("Costo Indirecto - {0}", LblFolio.Text), RDSName:="DataSet1")
End If End If
@@ -429,6 +434,4 @@ Partial Class Compras_Fletes
End Sub End Sub
End Class End Class

2
Inventarios/PopUpExistenciasAlmacen.aspx.vb
View File

@@ -95,7 +95,7 @@ Partial Class Inventarios_Default
End Sub End Sub
Private Sub CargaDatos(CvePS As Integer, Tipo As Integer) Private Sub CargaDatos(CvePS As Integer, Tipo As Integer)
If ValidarFiltrosSeleccionados() Then If ValidarFiltrosSeleccionados() OrElse CvePS > 0 Then
Dim ObjInventarios As New ClsInventarios() Dim ObjInventarios As New ClsInventarios()
If ObjInventarios.GetExistenciasProducto(CvePS, -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), If ObjInventarios.GetExistenciasProducto(CvePS, -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"),
ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, TopSelect:=100) Then ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, TopSelect:=100) Then

8
Inventarios/RecepcionAlmacen.aspx
View File

@@ -79,7 +79,13 @@
<label runat="server" visible="false" id="LblFletes" class="col-md-1 truncate" style="text-align: right;">Folio:</label> <label runat="server" visible="false" id="LblFletes" class="col-md-1 truncate" style="text-align: right;">Folio:</label>
<div runat="server" visible="false" id="DivFletes" class="col-md-2" style="display: inline"> <div runat="server" visible="false" id="DivFletes" class="col-md-2" style="display: inline">
<div style="width: 100px; float: left;"> <div style="width: 100px; float: left;">
<asp:DropDownList ID="DdlFletes" runat="server" DataValueField="CveFlete" DataTextField="FolioDescripcion" CssClass="select2me" Style="width: 100px !important;"></asp:DropDownList> <asp:DropDownList ID="DdlFletes" runat="server" DataValueField="CveFlete" DataTextField="FolioDescripcion" OnSelectedIndexChanged="DdlFletes_SelectedIndexChanged" AutoPostBack="true" CssClass="select2me" Style="width: 100px !important;"></asp:DropDownList>
</div>
</div>
<label runat="server" visible="false" id="LblIndirectoFactura" class="col-md-1 truncate" style="text-align: right;">Factura:</label>
<div runat="server" visible="false" id="DivDdlIndirectoFactura" class="col-md-2" style="display: inline">
<div style="width: 100px; float: left;">
<asp:DropDownList ID="DdlIndirectoFactura" runat="server" DataValueField="CveCompra" DataTextField="SerieFolio" CssClass="select2me" Style="width: 100px !important;"></asp:DropDownList>
</div> </div>
</div> </div>
</div> </div>

28
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -613,6 +613,8 @@ Partial Class Inventarios_RecepcionAlmacen
Case 4 Case 4
LblFletes.Visible = True LblFletes.Visible = True
DivFletes.Visible = True DivFletes.Visible = True
LblIndirectoFactura.Visible = True
DivDdlIndirectoFactura.Visible = True
End Select End Select
CargaFoliosRecepcion() CargaFoliosRecepcion()
@@ -711,6 +713,30 @@ Partial Class Inventarios_RecepcionAlmacen
DdlFletes.DataBind() DdlFletes.DataBind()
DdlFletes.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlFletes.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
Protected Sub DdlFletes_SelectedIndexChanged(sender As Object, e As EventArgs)
CargaFletesFactura()
End Sub
Private Sub CargaFletesFactura()
DdlIndirectoFactura.Items.Clear()
Dim ObjInventarios As New ClsInventarios
If DdlFletes.SelectedValue.ToEntero > 0 Then
If ObjInventarios.GetFletesCompras(DdlFletes.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
DdlIndirectoFactura.DataSource = ObjInventarios.DtResultados
Else
Alert("Ocurrió un error al obtener las Compras pendientes de recibir del proveedor. Por favor vuelva a intentar", TipoMensaje.MsgError)
End If
End If
ObjInventarios.Dispose()
DdlIndirectoFactura.DataBind()
DdlIndirectoFactura.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
#End Region #End Region
#Region " CARGA POR SURTIR - GV " #Region " CARGA POR SURTIR - GV "
@@ -1119,7 +1145,7 @@ Partial Class Inventarios_RecepcionAlmacen
If ObjInventario.DtResultados.Rows.Count > 0 Then If ObjInventario.DtResultados.Rows.Count > 0 Then
CveFleteSurtir = pCveImportacion CveFleteSurtir = pCveImportacion
CveFleteOrdenCompra = ObjInventario.DtResultados.Rows(0)("CveOC").ToString.ToEntero CveFleteOrdenCompra = ObjInventario.DtResultados.Rows(0)("CveOC").ToString.ToEntero
CveFleteCompra = ObjInventario.DtResultados.Rows(0)("CveCompra").ToString.ToEntero CveFleteCompra = DdlIndirectoFactura.SelectedValue.ToEntero 'ObjInventario.DtResultados.Rows(0)("CveCompra").ToString.ToEntero
CveImportacionCompra = CveFleteCompra ' se iguala para que al guardar el movimiento, se toma esta variable CveImportacionCompra = CveFleteCompra ' se iguala para que al guardar el movimiento, se toma esta variable
LbProveedor.Text = ObjInventario.DtResultados.Rows(0)("RazonSocial").ToString LbProveedor.Text = ObjInventario.DtResultados.Rows(0)("RazonSocial").ToString
HLFolio.Text = ObjInventario.DtResultados.Rows(0)("Folio").ToString HLFolio.Text = ObjInventario.DtResultados.Rows(0)("Folio").ToString

73
Inventarios/RepFletes.aspx
View File

@@ -17,10 +17,20 @@
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
<asp:UpdatePanel runat="server"> <asp:UpdatePanel runat="server">
<ContentTemplate> <ContentTemplate>
<li> <%--<li>
<asp:LinkButton ID="ImgAdd" PostBackUrl="/Inventarios/Fletes.aspx" CommandArgument="-1" runat="server"><i class="fa fa-plus-circle"></i> Registrar Nuevo Flete</asp:LinkButton> <asp:LinkButton ID="ImgAdd" PostBackUrl="/Inventarios/Fletes.aspx" CommandArgument="-1" runat="server"><i class="fa fa-plus-circle"></i> Registrar Nuevo Flete</asp:LinkButton>
</li>--%>
<li>
<asp:LinkButton ID="LkbPDF" CommandArgument="-1" OnClick="LkbPDF_Click" runat="server"><i style="font-weight:bold" class="fa fa-file-pdf-o"></i> PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LkbExcel" CommandArgument="-1" OnClick="LkbExcel_Click" runat="server"><i style="font-weight:bold" class="fa fa-file-excel-o"></i> Excel</asp:LinkButton>
</li> </li>
</ContentTemplate> </ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LkbPDF" />
<asp:PostBackTrigger ControlID="LkbExcel" />
</Triggers>
</asp:UpdatePanel> </asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
@@ -42,12 +52,13 @@
<asp:TextBox runat="server" Width="80px" ID="TxtFolio"></asp:TextBox> <asp:TextBox runat="server" Width="80px" ID="TxtFolio"></asp:TextBox>
</div> </div>
<div class="col-md-1" style="max-width: 100px;">Proveedor:</div> <div class="col-md-1" style="max-width: 100px;">Proveedor:</div>
<div class="col-md-3"> <div class="col-sm-2">
<asp:DropDownList runat="server" ID="DdlProveedor" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></asp:DropDownList> <ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" Width="100%" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />
<%--<asp:DropDownList runat="server" ID="DdlProveedor" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></asp:DropDownList>--%>
</div> </div>
<div class="col-md-1" style="max-width: 90px">Fecha Inicio:</div> <div class="col-md-1" style="max-width: 120px">Fecha Inicio:</div>
<div class="col-md-2"> <div class="col-md-1">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="margin-bottom: -15px;"> <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding:unset" >
<asp:TextBox ID="TxtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Onblur="Recalculafechapago();" ValidationGroup="GrpGuardar" Width="80px" ClientIDMode="Static"></asp:TextBox> <asp:TextBox ID="TxtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Onblur="Recalculafechapago();" ValidationGroup="GrpGuardar" Width="80px" ClientIDMode="Static"></asp:TextBox>
<span class="input-group-btn "> <span class="input-group-btn ">
<asp:LinkButton runat="server" ID="ImgFechaI" class="btn default"> <i class="fa fa-calendar"></i> </asp:LinkButton> <asp:LinkButton runat="server" ID="ImgFechaI" class="btn default"> <i class="fa fa-calendar"></i> </asp:LinkButton>
@@ -58,9 +69,9 @@
<ajax:ValidatorCalloutExtender ID="VCOFechaI" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaI" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCOFechaI" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
<div class="col-md-1" style="max-width: 70px">Fecha Fin:</div> <div class="col-md-1" style="max-width: 120px">Fecha Fin:</div>
<div class="col-md-2"> <div class="col-md-1">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="margin-bottom: -15px;"> <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding:unset" >
<asp:TextBox ID="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Onblur="Recalculafechapago();" ValidationGroup="GrpGuardar" Width="80px" ClientIDMode="Static"></asp:TextBox> <asp:TextBox ID="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Onblur="Recalculafechapago();" ValidationGroup="GrpGuardar" Width="80px" ClientIDMode="Static"></asp:TextBox>
<span class="input-group-btn "> <span class="input-group-btn ">
<asp:LinkButton runat="server" ID="ImgFechaF" class="btn default"> <i class="fa fa-calendar"></i> </asp:LinkButton> <asp:LinkButton runat="server" ID="ImgFechaF" class="btn default"> <i class="fa fa-calendar"></i> </asp:LinkButton>
@@ -71,6 +82,14 @@
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaF" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
<div class="col-md-1" style="max-width: 70px;">Opción:</div>
<div class="col-sm-2">
<asp:DropDownList runat="server" ID="DdlTipoGasto" Width="100%" CssClass="select2me">
<asp:ListItem Text="Todo" Value="-1" />
<asp:ListItem Text="Costo Indirectos multiples facturas" Value="1" Selected="True" />
<asp:ListItem Text="Costo Indirecto en misma factura" Value="2" />
</asp:DropDownList>
</div>
</div> </div>
</div> </div>
</div> </div>
@@ -81,8 +100,8 @@
<table class="table Widthall "> <table class="table Widthall ">
<tr> <tr>
<td style="font-size: 14px; width: 20%; border-right: 3px solid white;"></td> <td style="font-size: 14px; width: 20%; border-right: 3px solid white;"></td>
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 35%; border-right: 3px solid white;">Facturas de Costo Indirecto</td> <%--<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 35%; border-right: 3px solid white;">Facturas de Costo Indirecto</td>
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 45%; border-right: 3px solid white;">Documento (OC/Compra)</td> <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 45%; border-right: 3px solid white;">Documento (OC/Compra)</td>--%>
</tr> </tr>
</table> </table>
<a target="_blank" href="#"></a> <a target="_blank" href="#"></a>
@@ -91,17 +110,33 @@
<div class="col-md-12"> <div class="col-md-12">
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay fletes" ToolTip="Fletes" OnRowDataBound="GvDatos_RowDataBound" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None"> <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay fletes" ToolTip="Fletes" OnRowDataBound="GvDatos_RowDataBound" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None" DataKeyNames="CveFlete">
<Columns> <Columns>
<asp:HyperLinkField HeaderText="Proveedor" Target="_blank" DataTextField="RazonSocial" ItemStyle-Width="20%" DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" DataNavigateUrlFields="CveProveedor" /> <asp:TemplateField HeaderText="Folio">
<asp:HyperLinkField HeaderText="Folio" Target="_blank" ItemStyle-HorizontalAlign="Center" DataTextField="Folio" ItemStyle-Width="5%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" /> <ItemTemplate>
<asp:HyperLinkField HeaderText="Fecha" Target="_blank" DataTextField="Fecha" ItemStyle-HorizontalAlign="Center" DataTextFormatString="{0:d}" ItemStyle-Width="10%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" /> <asp:HyperLink ID="HlkFolio" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
<asp:HyperLinkField HeaderText="Descripción" Target="_blank" DataTextField="Descripcion" ItemStyle-Width="20%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" /> </ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Folio" DataField="FolioDocumento" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" /> <asp:TemplateField HeaderText="Fecha">
<ItemTemplate>
<asp:HyperLink ID="HlkFecha" runat="server" Text='<%# Eval("Fecha", "{0:dd/M/yyyy}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Descripción">
<ItemTemplate>
<asp:HyperLink ID="HlkDescripcion" runat="server" Text='<%# Eval("Descripcion")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<%--<asp:HyperLinkField HeaderText="Folio" ID="HlkFolio" runat="server" Target="_blank" ItemStyle-HorizontalAlign="Center" DataTextField="Folio" ItemStyle-Width="5%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />
<asp:HyperLinkField HeaderText="Fecha" ID="HlkFecha" runat="server" Target="_blank" DataTextField="Fecha" ItemStyle-HorizontalAlign="Center" DataTextFormatString="{0:d}" ItemStyle-Width="10%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />
<asp:HyperLinkField HeaderText="Descripción" ID="HlkDescripcion" runat="server" Target="_blank" DataTextField="Descripcion" ItemStyle-Width="20%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />--%>
<asp:BoundField HeaderText="Total Productos" DataField="Importe" DataFormatString="{0:n2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Total Indirectos" DataField="Costo" DataFormatString="{0:n2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Total" DataField="General" DataFormatString="{0:n2}" ItemStyle-HorizontalAlign="Right" />
<%--<asp:BoundField HeaderText="Folio" DataField="FolioDocumento" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Fecha" DataField="FechaDocumento" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="Fecha" DataField="FechaDocumento" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Descripción" DataField="DescripcionDocumento" ItemStyle-Width="20%" /> <asp:BoundField HeaderText="Descripción" DataField="DescripcionDocumento" ItemStyle-Width="20%" />
<asp:BoundField HeaderText="Importe" DataField="TotalDocumento" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" ItemStyle-Width="5%" /> <asp:BoundField HeaderText="Importe" DataField="TotalDocumento" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" ItemStyle-Width="5%" />--%>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>

72
Inventarios/RepFletes.aspx.vb
View File

@@ -3,6 +3,8 @@ Option Strict On
Imports System.Data Imports System.Data
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms
Partial Class Compras_RepFletes Partial Class Compras_RepFletes
Inherits ClsPaginas Inherits ClsPaginas
@@ -24,12 +26,18 @@ Partial Class Compras_RepFletes
End Sub End Sub
Private Sub InicializaValores() Private Sub InicializaValores()
DdlProveedores.setEsWebService(True)
DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
DdlProveedores.SelectedText = "Seleccione"
DdlProveedores.SelectedValue = "-1"
DdlProveedores.ddl.AutoPostBack = True
TxtFechaI.Text = Date.Now.AddDays(-Now.DayOfYear + 1).ToShortDateString TxtFechaI.Text = Date.Now.AddDays(-Now.DayOfYear + 1).ToShortDateString
TxtFechaF.Text = Date.Now.ToShortDateString TxtFechaF.Text = Date.Now.ToShortDateString
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) 'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedor.DataBind() 'DdlProveedor.DataBind()
DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1")) 'DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
@@ -40,7 +48,8 @@ Partial Class Compras_RepFletes
Private Sub CargaDatos() Private Sub CargaDatos()
Dim ObjInv As New ClsInventarios Dim ObjInv As New ClsInventarios
If TxtFolio.Text <> "" Then TxtFechaI.Text = MinFecha.ToShortDateString : TxtFechaF.Text = MaxFecha.ToShortDateString If TxtFolio.Text <> "" Then TxtFechaI.Text = MinFecha.ToShortDateString : TxtFechaF.Text = MaxFecha.ToShortDateString
If ObjInv.GetFletes(UsuarioActual.CveEmpresa, -1, If(TxtFolio.Text = "", "-1", TxtFolio.Text), DdlProveedor.SelectedValue.ToString.ToEntero, -1, -1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate) Then If ObjInv.GetFletesRep(UsuarioActual.CveEmpresa, -1, If(TxtFolio.Text = "", "-1", TxtFolio.Text), DdlProveedores.SelectedValue.ToString.ToEntero, -1, -1,
TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, TipoGasto:=DdlTipoGasto.SelectedValue.ToEntero()) Then
DtFletes = ObjInv.DtResultados DtFletes = ObjInv.DtResultados
End If End If
ObjInv.Dispose() ObjInv.Dispose()
@@ -55,16 +64,57 @@ Partial Class Compras_RepFletes
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
Dim Modalidad = e.Row.DBCampo("Modalidad").ToString.ToEntero Dim Folio As String = e.Row.DBCampo("Folio").ToString
Dim Liga = If(Modalidad = 1, "/OC/OC.aspx?OC", "/Compras/Compras.aspx?CveCompra") Dim TipoCon As Integer = e.Row.DBCampo("TipoCon").ToString.ToEntero
Dim CveFlete As Integer = e.Row.DBCampo("CveFlete").ToEntero()
e.Row.Cells(4).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{If(Modalidad = 1, "OC: ", "Compra: ")}{e.Row.DBCampo("FolioDocumento")}</a>" Dim Url As String = If(TipoCon = -1, String.Format("/Compras/Compras.aspx?CveCompra={0}", CveFlete), String.Format("/Inventarios/Fletes.aspx?CveFlete={0}", CveFlete))
e.Row.Cells(5).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("FechaDocumento").ToDate.ToShortDateString}</a>" e.Row.FCHyperLink("HlkFolio").NavigateUrl = Url
e.Row.Cells(6).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("DescripcionDocumento")}</a>" e.Row.FCHyperLink("HlkFecha").NavigateUrl = Url
e.Row.Cells(7).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("TotalDocumento")}</a>" e.Row.FCHyperLink("HlkDescripcion").NavigateUrl = Url
If Folio = "Total" Then
e.Row.FCHyperLink("HlkFolio").Font.Underline = False
e.Row.CssClass = "Totales"
End If
End If End If
End Sub End Sub
Private Sub Imprimir(formato As String)
Dim Filtros As New StringBuilder("")
Filtros.AppendFormat(If(TxtFolio.Text.Length > 0, String.Format("<b>Folio: </b>{0}&nbsp;&nbsp;&nbsp;", TxtFolio.Text), ""))
Filtros.AppendFormat(If(DdlProveedores.SelectedValue.ToEntero() > 0, String.Format("<b>Proveedor: </b>{0}&nbsp;&nbsp;&nbsp;", DdlProveedores.SelectedText), ""))
Filtros.AppendFormat(If(TxtFechaI.Text.Length > 0, String.Format("<b>Fecha Inicio: </b>{0}&nbsp;&nbsp;&nbsp;", TxtFechaI.Text), ""))
Filtros.AppendFormat(If(TxtFechaF.Text.Length > 0, String.Format("<b>Fecha Final: </b>{0}&nbsp;&nbsp;&nbsp;", TxtFechaF.Text), ""))
Filtros.AppendFormat(If(DdlTipoGasto.SelectedValue.ToEntero > 0, String.Format("<b>Opción: </b>{0}&nbsp;&nbsp;&nbsp;", DdlTipoGasto.SelectedItem.Text), ""))
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Filtros", Filtros.ToString))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToString))
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta))
If Not ArchivoRuta.Exists Then
ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtFletes, params, "Reporte de fletes", formato)
Else
ImprimirPDF("Empresas/Grales/Formatos/RepFletes.rdlc", DtFletes, params, "Reporte de fletes", formato)
End If
End Sub
Protected Sub LkbPDF_Click(sender As Object, e As EventArgs)
Imprimir("PDF")
End Sub
Protected Sub LkbExcel_Click(sender As Object, e As EventArgs)
Imprimir("Excel")
End Sub
#End Region #End Region
End Class End Class

2
Inventarios/RepNotasSinAlmacen.aspx.vb
View File

@@ -146,7 +146,7 @@ Partial Class RepNotasSinAlmacen
CveClienteProveedor = DdlProveedor.SelectedValue.ToEntero CveClienteProveedor = DdlProveedor.SelectedValue.ToEntero
End If End If
If Reporte.RepNotasSinAlmacen(2, CveClienteProveedor, FechaInicial, FechaFinal, DdlTipoDocto2.SelectedValue.ToEntero, -1, UsuarioActual.Empresa.CveEmpresa) Then If Reporte.RepNotasSinAlmacen(2, CveClienteProveedor, FechaInicial, FechaFinal, DdlTipoDocto2.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then
GvCompras.DataSource = Reporte.DtResultados GvCompras.DataSource = Reporte.DtResultados
DtNotasSinAlmacenCompras = Reporte.DtResultados DtNotasSinAlmacenCompras = Reporte.DtResultados
Else Else

48
Sistemas/PopUpAddUsuario.aspx
View File

@@ -21,6 +21,17 @@
#GvPermisosComandos tr td:nth-child(n+3), #GVNotificaciones tr th:nth-child(n+2) { #GvPermisosComandos tr td:nth-child(n+3), #GVNotificaciones tr th:nth-child(n+2) {
width: 50px; width: 50px;
} }
.CustomSpinner {
position: fixed;
background-image: url(/Imagenes/Loading.gif);
background-repeat: no-repeat, repeat;
background-size: contain;
top: 60px;
right: 25px;
z-index: 500000;
height: 40px;
width: 40px;
}
</style> </style>
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -430,6 +441,7 @@
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<div class="CustomSpinner" style="display: none;"></div>
</asp:Content> </asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
<script> <script>
@@ -440,30 +452,34 @@
let myTick = 0 let myTick = 0
$('body').on('keyup', '#TxtEmail ', function (e) { $('body').on('keyup', '#TxtEmail ', function (e) {
changeUser();
});
function changeUser() {
let Tick = myTick + 1; let Tick = myTick + 1;
myTick = Tick; myTick = Tick;
setTimeout( setTimeout(
function () { function () {
if (myTick == Tick) { if (myTick == Tick) {
myTick = 0; myTick = 0;
let Tusuario = $('#TxtEmail').val(); let Tusuario = $('#TxtEmail').val();
if (TusuarioOld != Tusuario) { if (TusuarioOld != Tusuario) {
$('.CustomSpinner').show();
TusuarioOld = Tusuario TusuarioOld = Tusuario
//console.log(Tusuario) $.ajax({
$.ajax({
url: "/Ashx/SIGWeb.ashx", url: "/Ashx/SIGWeb.ashx",
data: { usuario: Tusuario, metodo: 'GetUser' } data: { usuario: Tusuario, metodo: 'GetUser' }
}).done(function (data) { }).done(function (data) {
//console.log(data) if (data == "1") {
if (data == "1") { $('#BtnCambiarUsuario').click()
$('#BtnCambiarUsuario').click() } else {
} $('.CustomSpinner').hide();
}
}); });
}
} }
} }, 500);
}, 2000); }
});
function ADSBegin() { function ADSBegin() {
TusuarioOld = $('#TxtEmail').val() TusuarioOld = $('#TxtEmail').val()

30
Sistemas/PopUpAddUsuario.aspx.vb
View File

@@ -371,7 +371,33 @@ Partial Class Sistemas_PopUpAddUsuario
' Return ' Return
'End If 'End If
If UsuarioActual.Empresa.CvePlataforma = 3 Then 'SI ES UN USUARIO DEL ERP, DEBE DARLE ACCESO AL CLIENTE
If UsuarioActual.Empresa.CvePlataforma = 1 AndAlso CveCliente > 0 Then
Dim DtClientesAcceso As DataTable = Nothing
If Not HuboError AndAlso ObjUsuarios.GetUsuarioCliente(CveUsuario, CveCliente) Then
'DEBE AGREGAR EL USUARIO AL CLIENTE
If ObjUsuarios.DtResultados.Rows.Count = 0 Then
If Not HuboError AndAlso Not ObjUsuarios.AddUsuarioCliente(CveUsuario, CveCliente) Then
HuboError = True
End If
End If
Else
HuboError = True
End If
'SI ES UN USUARIO DEL ERP, DEBE DARLE ACCESO AL PROVEEDOR
ElseIf UsuarioActual.Empresa.CvePlataforma = 1 AndAlso CveProveedor > 0 Then
Dim DtProveedoresAcceso As DataTable = Nothing
If Not HuboError AndAlso ObjUsuarios.GetUsuarioProveedor(CveUsuario, CveProveedor) Then
'DEBE AGREGAR EL USUARIO AL PROVEEDOR
If ObjUsuarios.DtResultados.Rows.Count = 0 Then
If Not HuboError AndAlso Not ObjUsuarios.AddUsuarioProveedor(CveUsuario, CveProveedor) Then
HuboError = True
End If
End If
Else
HuboError = True
End If
ElseIf UsuarioActual.Empresa.CvePlataforma = 3 Then
If Not ObjUsuarios.UpdateUsuario(LtlUsuario.Text.Trim, TxtNombre.Text, -1, TxtEmail.Text, -1, -1, False, True, -1, CveUsuario, -1, -1) Then If Not ObjUsuarios.UpdateUsuario(LtlUsuario.Text.Trim, TxtNombre.Text, -1, TxtEmail.Text, -1, -1, False, True, -1, CveUsuario, -1, -1) Then
HuboError = True HuboError = True
End If End If
@@ -855,6 +881,8 @@ Partial Class Sistemas_PopUpAddUsuario
CargaModulosPermisos() CargaModulosPermisos()
CargaComandos() CargaComandos()
UpDatos.Update() UpDatos.Update()
RegistraScript(" $('.CustomSpinner').hide();")
End Sub End Sub
End Class End Class

225
Sistemas/PopUpSeleccionarEmpresa.aspx
View File

@@ -1,123 +1,158 @@
<%@ Page Title="Lista de Empresas con acceso disponible" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PopUpSeleccionarEmpresa.aspx.vb" Inherits="PopUpSeleccionarEmpresa" %> <%@ Page Title="Lista de Empresas con acceso disponible" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PopUpSeleccionarEmpresa.aspx.vb" Inherits="PopUpSeleccionarEmpresa" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server"> <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Lista de Empresas con acceso disponible Lista de Empresas con acceso disponible
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<div style="align-content: center;"> <div style="align-content: center;">
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:Button ID="BtnSeleccionar" runat="server" ClientIDMode="Static" Text="Seleccionar" Style="display: none;" class="btn btn-primary" /> <asp:Button ID="BtnSeleccionar" runat="server" ClientIDMode="Static" Text="Seleccionar" Style="display: none;" class="btn btn-primary" />
<asp:HiddenField ID="HdnEmpresa" runat="server" ClientIDMode="Static" Value="-1" /> <asp:HiddenField ID="HdnEmpresa" runat="server" ClientIDMode="Static" Value="-1" />
<asp:Button ID="BtnSetWindows" runat="server" ClientIDMode="Static" Text="Set Window" Style="display: none;" class="btn btn-primary" /> <asp:Button ID="BtnSetWindows" runat="server" ClientIDMode="Static" Text="Set Window" Style="display: none;" class="btn btn-primary" />
<asp:HiddenField ID="HdnAncho" runat="server" ClientIDMode="Static" Value="-1" /> <asp:HiddenField ID="HdnAncho" runat="server" ClientIDMode="Static" Value="-1" />
<asp:HiddenField ID="HdnAlto" runat="server" ClientIDMode="Static" Value="-1" /> <asp:HiddenField ID="HdnAlto" runat="server" ClientIDMode="Static" Value="-1" />
<div id="TblBusqueda" runat="server" border="0" visible="false" > <div id="TblBusqueda" runat="server" border="0" visible="false">
<div> <div>
Número de registros encontrados: <b> Número de registros encontrados: <b>
<asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b> <asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b>
</div> </div>
<div> <div>
<input name="ctl00$C$TxtBusqueda" type="text" id="TxtBusqueda" class="form-control input-sm TxtBusqueda" placeholder="" data-table=".GVSearch" style="width: 100%"> <input name="ctl00$C$TxtBusqueda" type="text" id="TxtBusqueda" class="form-control input-sm TxtBusqueda" placeholder="" data-table=".GVSearch" style="width: 100%">
</div> </div>
<asp:GridView ID="GV" runat="server" DataKeyNames="CveUsuario, Contraseña, Usuario,CveEmpresa" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros" <asp:GridView ID="GvEmpresas" runat="server" DataKeyNames="CveUsuario, Contraseña, Usuario,CveEmpresa" AutoGenerateColumns="false"
Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch" Style="margin-top: -10px; text-align: center;" Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch" Style="margin-top: -10px; text-align: center;"
GridLines="None"> GridLines="None">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate>Empresa</HeaderTemplate> <HeaderTemplate>Empresa</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="LnkEmp" runat="server" CssClass="Texto" Text='<%# Eval("Empresa")%>' CommandArgument='<%# Eval("CveEmpresa") %>' CommandName="Cambia"></asp:LinkButton> <asp:LinkButton ID="LnkEmp" runat="server" CssClass="Texto" Text='<%# Eval("Empresa")%>' CommandArgument='<%# Eval("CveEmpresa") %>' CommandName="Cambia"></asp:LinkButton>
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Left" /> <ItemStyle HorizontalAlign="Left" />
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>
<RowStyle CssClass="Texto" /> <RowStyle CssClass="Texto" />
<HeaderStyle HorizontalAlign="Left" /> <HeaderStyle HorizontalAlign="Left" />
<AlternatingRowStyle CssClass="TextoAlterno" /> <AlternatingRowStyle CssClass="TextoAlterno" />
</asp:GridView> </asp:GridView>
<asp:GridView ID="GVCliente" runat="server" DataKeyNames="CveUsuario, CveCliente, Contraseña, Usuario" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false" <asp:GridView ID="GvPortalRastreo" runat="server" DataKeyNames="CveUsuario, CveCliente, Contraseña, Usuario" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false"
Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch" Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch"
Style="margin-top: -10px; text-align: center;" GridLines="None"> Style="margin-top: -10px; text-align: center;" GridLines="None">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate>Portal Rastreo</HeaderTemplate> <HeaderTemplate>Portal Rastreo</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="LnkEmp" runat="server" CssClass="Texto" Text='<%# Eval("Cliente")%>' CommandArgument='<%# Eval("CveCliente") %>' CommandName="Cambia"></asp:LinkButton> <asp:LinkButton ID="LnkEmp" runat="server" CssClass="Texto" Text='<%# Eval("Cliente")%>' CommandArgument='<%# Eval("CveCliente") %>' CommandName="Cambia"></asp:LinkButton>
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Left" /> <ItemStyle HorizontalAlign="Left" />
<HeaderStyle HorizontalAlign="Left" /> <HeaderStyle HorizontalAlign="Left" />
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div>
</ContentTemplate> <asp:GridView ID="GvPortalCliente" runat="server" DataKeyNames="CveUsuario, CveCliente, Contraseña, Usuario, CveEmpresa" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false"
</asp:UpdatePanel> Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch"
</div> Style="margin-top: -10px; text-align: center;" GridLines="None">
<Columns>
</asp:Content> <asp:TemplateField>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <HeaderTemplate>Portal del Cliente</HeaderTemplate>
<ItemTemplate>
<asp:LinkButton ID="LnkEmp" runat="server" CssClass="Texto" Text='<%# Eval("ClienteEmpresa")%>' CommandArgument='<%# Eval("CveCliente") %>' CommandName="Cambia"></asp:LinkButton>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" />
<HeaderStyle HorizontalAlign="Left" />
</asp:TemplateField>
</Columns>
</asp:GridView>
<asp:GridView ID="GvPortalProveedor" runat="server" DataKeyNames="CveUsuario, CveProveedor, Contraseña, Usuario, CveEmpresa" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false"
Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch"
Style="margin-top: -10px; text-align: center;" GridLines="None">
<Columns>
<asp:TemplateField>
<HeaderTemplate>Portal del Proveedor</HeaderTemplate>
<ItemTemplate>
<asp:LinkButton ID="LnkEmp" runat="server" CssClass="Texto" Text='<%# Eval("ProveedorEmpresa")%>' CommandArgument='<%# Eval("CveProveedor") %>' CommandName="Cambia"></asp:LinkButton>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" />
<HeaderStyle HorizontalAlign="Left" />
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script type="text/javascript"> <script type="text/javascript">
jQuery(document).ready(function () { jQuery(document).ready(function () {
buscarDT(); buscarDT();
Sys.Application.add_load(function (s, e) { Sys.Application.add_load(function (s, e) {
buscarDT(); buscarDT();
}); });
}); });
document.body.onload = function () { document.body.onload = function () {
alertSize(); alertSize();
} }
function Ir(c) { function Ir(c) {
$get("HdnEmpresa").value = c; $get("HdnEmpresa").value = c;
$('#BtnSeleccionar').click(); $('#BtnSeleccionar').click();
} }
function Ir2() { function Ir2() {
gotourl('/PortalGPS/InicioGPS.aspx'); gotourl('/PortalGPS/InicioGPS.aspx');
} }
function Ir3() { function Ir3() {
gotourl('/Inicio.aspx'); gotourl('/Inicio.aspx');
} }
function buscarDT() { function Ir4() {
$('.TxtBusqueda').on('keyup', function () { gotourl('/PortalCliente/PortalCliente.aspx');
if (this.value == '') { }
$('table' + $(this).attr('data-table') + ' tr').css('display', ''); function Ir5() {
} else { gotourl('/PortalProveedor/PortalProveedor.aspx');
}
function buscarDT() {
$('.TxtBusqueda').on('keyup', function () {
if (this.value == '') {
$('table' + $(this).attr('data-table') + ' tr').css('display', '');
} else {
$('table' + $(this).attr('data-table') + ' tr').css('display', 'none'); $('table' + $(this).attr('data-table') + ' tr').css('display', 'none');
$('table' + $(this).attr('data-table') + ' tr:contains("' + this.value + '")').css('display', ''); $('table' + $(this).attr('data-table') + ' tr:contains("' + this.value + '")').css('display', '');
} }
}); });
$('.TxtBusqueda').removeClass('TxtBusqueda'); $('.TxtBusqueda').removeClass('TxtBusqueda');
} }
function alertSize() { function alertSize() {
var myWidth = 0, myHeight = 0; var myWidth = 0, myHeight = 0;
if (typeof (window.innerWidth) == 'number') { if (typeof (window.innerWidth) == 'number') {
//Non-IE //Non-IE
myWidth = window.innerWidth; myWidth = window.innerWidth;
myHeight = window.innerHeight; myHeight = window.innerHeight;
} else if (document.documentElement && (document.documentElement.clientWidth || document.documentElement.clientHeight)) { } else if (document.documentElement && (document.documentElement.clientWidth || document.documentElement.clientHeight)) {
//IE 6+ in 'standards compliant mode' //IE 6+ in 'standards compliant mode'
myWidth = document.documentElement.clientWidth; myWidth = document.documentElement.clientWidth;
myHeight = document.documentElement.clientHeight; myHeight = document.documentElement.clientHeight;
} else if (document.body && (document.body.clientWidth || document.body.clientHeight)) { } else if (document.body && (document.body.clientWidth || document.body.clientHeight)) {
//IE 4 compatible //IE 4 compatible
myWidth = document.body.clientWidth; myWidth = document.body.clientWidth;
myHeight = document.body.clientHeight; myHeight = document.body.clientHeight;
} }
$get("HdnAncho").value = myWidth; $get("HdnAncho").value = myWidth;
//$get("TablaGeneral").style.width = myWidth; //$get("TablaGeneral").style.width = myWidth;
@@ -126,5 +161,5 @@
//$('#BtnSetWindows').click(); //$('#BtnSetWindows').click();
} }
</script> </script>
</asp:Content> </asp:Content>

191
Sistemas/PopUpSeleccionarEmpresa.aspx.vb
View File

@@ -12,37 +12,50 @@ Partial Class PopUpSeleccionarEmpresa
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
CType(Me.Master, BaseMasterPage).EsPopup = True CType(Me.Master, BaseMasterPage).EsPopup = True
'CType(Me.Master, BaseMasterPage).PopupWidth = HdnAncho.Value.ToEntero
'RegistraScript("alertSize();")
GetEmpresas() GetEmpresas()
End If End If
End Sub End Sub
Private Sub GetEmpresas() Private Sub GetEmpresas()
Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario) Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
If Dt IsNot Nothing Then If Dt IsNot Nothing Then
If Dt.Rows.Count > 0 Then If Dt.Rows.Count > 0 Then
LtlTotalRegistros.Text = Dt.Rows.Count.ToString.FormatoNumero(0) Dim NumRegistros As Integer = 0
GV.DataSource = Dt.FiltraParametros("CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)", "Empresa") GvEmpresas.DataSource = Dt.FiltraParametros("(CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)) AND CvePlataformaUsuario NOT IN (6,7)", "Empresa")
GVCliente.DataSource = Dt.FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa") NumRegistros += DirectCast(GvEmpresas.DataSource, System.Data.DataTable).Rows.Count
GvPortalRastreo.DataSource = Dt.FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa")
NumRegistros += DirectCast(GvPortalRastreo.DataSource, System.Data.DataTable).Rows.Count
GvPortalCliente.DataSource = Dt.FiltraParametros("CvePlataforma = 6 AND CveCliente IS NOT NULL", "Empresa")
NumRegistros += DirectCast(GvPortalCliente.DataSource, System.Data.DataTable).Rows.Count
GvPortalProveedor.DataSource = Dt.FiltraParametros("CvePlataforma = 7 AND CveProveedor IS NOT NULL", "Empresa")
NumRegistros += DirectCast(GvPortalProveedor.DataSource, System.Data.DataTable).Rows.Count
LtlTotalRegistros.Text = NumRegistros.ToString().FormatoNumero(0)
Else Else
LtlTotalRegistros.Text = "0" LtlTotalRegistros.Text = "0"
GV.DataSource = Nothing GvEmpresas.DataSource = Nothing
GvPortalRastreo.DataSource = Nothing
GvPortalCliente.DataSource = Nothing
GvPortalProveedor.DataSource = Nothing
Alert("No se encontraron registros con los parametros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia) Alert("No se encontraron registros con los parametros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
End If End If
End If End If
GV.DataBind() GvEmpresas.DataBind()
GVCliente.DataBind() GvPortalRastreo.DataBind()
GvPortalCliente.DataBind()
GvPortalProveedor.DataBind()
UPDatos.Update() UPDatos.Update()
TblBusqueda.Visible = True TblBusqueda.Visible = True
End Sub End Sub
Protected Sub GV_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GV.RowCommand Protected Sub GvEmpresas_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvEmpresas.RowCommand
If e.CommandName = "Cambia" Then If e.CommandName = "Cambia" Then
Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow) Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
@@ -80,35 +93,7 @@ Partial Class PopUpSeleccionarEmpresa
End If End If
End Sub End Sub
Protected Sub GvPortalRastreo_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalRastreo.RowCommand
Private Sub GuardaLogR(Mensaje As String)
Dim ArchivoW As IO.StreamWriter
Dim MensajeLog As String = ""
Dim continuar As Boolean = True
Try
If Not IsNothing(System.Web.HttpContext.Current) Then
If Not IsNothing(System.Web.HttpContext.Current.Request) Then
MensajeLog = $"{HttpContext.Current.Request.Url.ToString()}{Environment.NewLine}"
End If
End If
Catch
End Try
MensajeLog = $"{System.Environment.NewLine}'{DateTime.Now:dd/MM/yyyy hh:mm}' -- {MensajeLog}{Mensaje.Trim()}{Environment.NewLine}"
Try
ArchivoW = New IO.StreamWriter(String.Format("{0}\LogSession.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
Catch
Exit Sub
End Try
Try
ArchivoW.Write(MensajeLog)
Catch
End Try
ArchivoW.Close()
ArchivoW.Dispose()
End Sub
Protected Sub gvUsuarios_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GVCliente.RowCommand
If e.CommandName = "Cambia" Then If e.CommandName = "Cambia" Then
Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow) Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
@@ -142,32 +127,89 @@ Partial Class PopUpSeleccionarEmpresa
End If End If
End If End If
End Sub End Sub
Protected Sub GvPortalCliente_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalCliente.RowCommand
If e.CommandName = "Cambia" Then
Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
If gvr IsNot Nothing Then
Protected Sub BtnSetWindows_Click(sender As Object, e As System.EventArgs) Handles BtnSetWindows.Click Dim ObjUsuario As New ClsSisUsuarios
RegistraScript(String.Format("$get('tdContenido').style.height='{0}px'; $get('tdContenido').style.width='{1}px'", HdnAlto.Value.ToEntero - 30, HdnAncho.Value.ToEntero - 30)) Dim Usuario As Usuario = Nothing
End Sub Usuario = ObjUsuario.ValidaUsuarioPortalCliente(gvr.DataKey("CveCliente").ToEntero(), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"))
ObjUsuario.Dispose()
Private Sub CreaObjetoEmpresa() If Usuario IsNot Nothing Then
Dim ObjEmpresa As New ClsSisEmpresas() Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
'Session("Empresa") = ObjEmpresa Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
If ObjEmpresa.GetEmpresasFuncionalidades(UsuarioActual.CveEmpresa) Then Usuario.ModoSimulacion = ModoSimulacion
Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados ADSSession.ADSSessionConfig.sessionUser = Usuario
ADSSession.ADSSessionConfig.sessionDpage = False
If dt IsNot Nothing Then
If dt.Rows.Count >= 1 Then
If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True
Usuario.CvePlataforma = 6
UsuarioActual.CveEmpresa = gvr.DataKey("CveEmpresa").ToEntero()
ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, UsuarioActual.CveEmpresa)
CreaObjetoEmpresa(Usuario)
'si la contraseña es la prederminada, pide la nueva contraseña
'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False)
RegistraScript("Ir4();")
End If
End If
dt.Dispose()
End If
Dim EmpresasFuncionalidades As New HybridDictionary
For Each Row As Data.DataRow In dttmp.Rows
EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
Next
ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
End If End If
UsuarioActual.Empresa = ObjEmpresa.Empresa
Else
Session("Empresa") = Nothing
End If End If
ObjEmpresa.Dispose() End Sub
Protected Sub GvPortalProveedor_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalProveedor.RowCommand
If e.CommandName = "Cambia" Then
Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
If gvr IsNot Nothing Then
Dim ObjUsuario As New ClsSisUsuarios
Dim Usuario As Usuario = Nothing
Usuario = ObjUsuario.ValidaUsuarioPortalProveedor(gvr.DataKey("CveProveedor").ToEntero(), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"))
ObjUsuario.Dispose()
If Usuario IsNot Nothing Then
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
Usuario.ModoSimulacion = ModoSimulacion
ADSSession.ADSSessionConfig.sessionUser = Usuario
ADSSession.ADSSessionConfig.sessionDpage = False
If dt IsNot Nothing Then
If dt.Rows.Count >= 1 Then
If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True
Usuario.CvePlataforma = 7
UsuarioActual.CveEmpresa = gvr.DataKey("CveEmpresa").ToEntero()
ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, UsuarioActual.CveEmpresa)
CreaObjetoEmpresa(Usuario)
'si la contraseña es la prederminada, pide la nueva contraseña
'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False)
RegistraScript("Ir5();")
End If
End If
dt.Dispose()
End If
End If
End If
End Sub
#Region "F U N C I O N E S"
Protected Sub BtnSetWindows_Click(sender As Object, e As System.EventArgs) Handles BtnSetWindows.Click
RegistraScript(String.Format("$get('tdContenido').style.height='{0}px'; $get('tdContenido').style.width='{1}px'", HdnAlto.Value.ToEntero - 30, HdnAncho.Value.ToEntero - 30))
End Sub End Sub
Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario) Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
@@ -190,9 +232,34 @@ Partial Class PopUpSeleccionarEmpresa
Session("Empresa") = Nothing Session("Empresa") = Nothing
End If End If
ObjEmpresa.Dispose() ObjEmpresa.Dispose()
End Sub End Sub
Private Sub GuardaLogR(Mensaje As String)
Dim ArchivoW As IO.StreamWriter
Dim MensajeLog As String = ""
Dim continuar As Boolean = True
Try
If Not IsNothing(System.Web.HttpContext.Current) Then
If Not IsNothing(System.Web.HttpContext.Current.Request) Then
MensajeLog = $"{HttpContext.Current.Request.Url.ToString()}{Environment.NewLine}"
End If
End If
Catch
End Try
MensajeLog = $"{System.Environment.NewLine}'{DateTime.Now:dd/MM/yyyy hh:mm}' -- {MensajeLog}{Mensaje.Trim()}{Environment.NewLine}"
Try
ArchivoW = New IO.StreamWriter(String.Format("{0}\LogSession.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
Catch
Exit Sub
End Try
Try
ArchivoW.Write(MensajeLog)
Catch
End Try
ArchivoW.Close()
ArchivoW.Dispose()
End Sub
#End Region
End Class End Class

6
Site.master.vb
View File

@@ -122,15 +122,11 @@ Partial Class Site
'2018.08.14, se movió de la linea 59 a la actual '2018.08.14, se movió de la linea 59 a la actual
CargaTipoCambio() CargaTipoCambio()
CargaUsuario()
If UsuarioActual.Portal = False Then If UsuarioActual.Portal = False Then
CreaMenu() CreaMenu()
'Configuracion() 'Configuracion()
CargaUsuario()
CargaBuscadores() CargaBuscadores()
Else
LtMasterPerfil.Text = UsuarioActual.Rol
LtMasterUsuario.Text = UsuarioActual.Usuario
End If End If
End If End If

73
TareasProgramadas/Tareas119.ashx
View File

@@ -92,15 +92,16 @@ public class TareasJam : IHttpHandler
////"ftp://us2.hostedftp.com/", "agrojam", "A12345678"; //"ftp://us2.hostedftp.com/", "agrojam", "A12345678";
//string FTPServer = "ftp://127.0.0.1/";
//string TFPUsr = "Toor"; string FTPServer = "ftp://127.0.0.1/";
//string FTPPass = "agj-3500"; string TFPUsr = "Toor";
string FTPPass = "agj-3500";
string FTPServer = "ftp://us2.hostedftp.com"; //string FTPServer = "ftp://us2.hostedftp.com";
string TFPUsr = "agrojam"; //string TFPUsr = "agrojam";
string FTPPass = "A12345678"; //string FTPPass = "A12345678";
bool ErrorProceso = false; bool ErrorProceso = false;
@@ -197,8 +198,8 @@ public class TareasJam : IHttpHandler
DTAlmacenes.AcceptChanges(); DTAlmacenes.AcceptChanges();
DataTable dtCloned = DTVentas.Clone(); DataTable dtCloned = DTVentas.Clone();
dtCloned.Columns[3].DataType = typeof(string); dtCloned.Columns[3].DataType = typeof(DateTime);
foreach (DataRow row in DTVentas.Rows) foreach (DataRow row in DTVentas.Rows)
{ {
@@ -206,17 +207,17 @@ public class TareasJam : IHttpHandler
} }
DTVentas = dtCloned; DTVentas = dtCloned;
foreach(DataRow dRow in DTVentas.Rows) foreach (DataRow dRow in DTVentas.Rows)
{ {
string tmpString = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd"); DateTime tmpDate = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd").ToDate();
dRow[3] = tmpString; dRow[3] = tmpDate;
} }
DTVentas.AcceptChanges(); DTVentas.AcceptChanges();
dtCloned = DTAlmacenes.Clone(); dtCloned = DTAlmacenes.Clone();
dtCloned.Columns[3].DataType = typeof(string); dtCloned.Columns[3].DataType = typeof(DateTime);
foreach (DataRow row in DTAlmacenes.Rows) foreach (DataRow row in DTAlmacenes.Rows)
{ {
@@ -224,10 +225,10 @@ public class TareasJam : IHttpHandler
} }
DTAlmacenes = dtCloned; DTAlmacenes = dtCloned;
foreach(DataRow dRow in DTAlmacenes.Rows) foreach (DataRow dRow in DTAlmacenes.Rows)
{ {
string tmpString = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd"); DateTime tmpDate = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd").ToDate();
dRow[3] = tmpString; dRow[3] = tmpDate;
} }
DTAlmacenes.AcceptChanges(); DTAlmacenes.AcceptChanges();
@@ -251,6 +252,16 @@ public class TareasJam : IHttpHandler
SpreadsheetInfo.SetLicense(Extensiones.ModExtensiones.SerialGemBoxSpreadsheet()); SpreadsheetInfo.SetLicense(Extensiones.ModExtensiones.SerialGemBoxSpreadsheet());
var workbookAlmacenes = new ExcelFile();
var worksheetAlmacenes = workbookAlmacenes.Worksheets.Add("Almacenes");
worksheetAlmacenes.InsertDataTable(DTAlmacenes, new InsertDataTableOptions()
{
ColumnHeaders = true,
StartRow = 0
});
worksheetAlmacenes.Columns[3].Style.NumberFormat = "yyyy/MM/dd";
workbookAlmacenes.Save(RutaAlmacenes);
var workbookProductos = new ExcelFile(); var workbookProductos = new ExcelFile();
var worksheetProductos = workbookProductos.Worksheets.Add("Productos"); var worksheetProductos = workbookProductos.Worksheets.Add("Productos");
worksheetProductos.InsertDataTable(DTProductos, new InsertDataTableOptions() worksheetProductos.InsertDataTable(DTProductos, new InsertDataTableOptions()
@@ -267,6 +278,7 @@ public class TareasJam : IHttpHandler
ColumnHeaders = true, ColumnHeaders = true,
StartRow = 0 StartRow = 0
}); });
worksheetVentas.Columns[3].Style.NumberFormat = "yyyy/MM/dd";
workbookVentas.Save(RutaVentas); workbookVentas.Save(RutaVentas);
@@ -280,14 +292,7 @@ public class TareasJam : IHttpHandler
workbookClientes.Save(RutaClientes); workbookClientes.Save(RutaClientes);
var workbookAlmacenes = new ExcelFile();
var worksheetAlmacenes = workbookAlmacenes.Worksheets.Add("Almacenes");
worksheetAlmacenes.InsertDataTable(DTAlmacenes, new InsertDataTableOptions()
{
ColumnHeaders = true,
StartRow = 0
});
workbookAlmacenes.Save(RutaAlmacenes);
var FInfoProductos = new FileInfo(RutaProductos); var FInfoProductos = new FileInfo(RutaProductos);
@@ -321,10 +326,10 @@ public class TareasJam : IHttpHandler
if (CargaProductos) if (CargaProductos)
{ {
CargaVentas = CargarArchivos(FInfoVentas, FTPServer, TFPUsr, FTPPass); CargaVentas = CargarArchivos(FInfoVentas, $"{FTPServer}/Ventas", TFPUsr, FTPPass);
if (CargaVentas) if (CargaVentas)
{ {
CargaVentas = VerificarArchivo(FInfoVentas, FInfoVentas.Length, FTPServer, TFPUsr, FTPPass); CargaVentas = VerificarArchivo(FInfoVentas, FInfoVentas.Length, $"{FTPServer}/Ventas", TFPUsr, FTPPass);
} }
} }
@@ -338,10 +343,10 @@ public class TareasJam : IHttpHandler
if (CargaProductos & CargaVentas) if (CargaProductos & CargaVentas)
{ {
CargaClientes = CargarArchivos(FInfoClientes, FTPServer, TFPUsr, FTPPass); CargaClientes = CargarArchivos(FInfoClientes, $"{FTPServer}/Clientes", TFPUsr, FTPPass);
if (CargaClientes) if (CargaClientes)
{ {
CargaClientes = VerificarArchivo(FInfoClientes, FInfoClientes.Length, FTPServer, TFPUsr, FTPPass); CargaClientes = VerificarArchivo(FInfoClientes, FInfoClientes.Length, $"{FTPServer}/Clientes", TFPUsr, FTPPass);
} }
} }
@@ -355,10 +360,10 @@ public class TareasJam : IHttpHandler
if (CargaProductos & CargaVentas& CargaClientes ) if (CargaProductos & CargaVentas& CargaClientes )
{ {
CargaAlmacenes = CargarArchivos(FInfoAlmacenes, FTPServer, TFPUsr, FTPPass); CargaAlmacenes = CargarArchivos(FInfoAlmacenes, $"{FTPServer}/Stock", TFPUsr, FTPPass);
if (CargaClientes) if (CargaClientes)
{ {
CargaAlmacenes = VerificarArchivo(FInfoAlmacenes, FInfoAlmacenes.Length, FTPServer, TFPUsr, FTPPass); CargaAlmacenes = VerificarArchivo(FInfoAlmacenes, FInfoAlmacenes.Length, $"{FTPServer}/Stock", TFPUsr, FTPPass);
} }
} }
@@ -433,8 +438,8 @@ public class TareasJam : IHttpHandler
ClsSisMail Correo = new ClsSisMail(); ClsSisMail Correo = new ClsSisMail();
string Para = "julian@adssistemas.mx;rene.molina@adssistemas.mx;oscar.irigoyen@adssistemas.mx"; // string Para = "julian@adssistemas.mx;rene.molina@adssistemas.mx;oscar.irigoyen@adssistemas.mx";
// string Para = "oscar.irigoyen@adssistemas.mx"; string Para = "oscar.irigoyen@adssistemas.mx";
string Asunto = ErrorProceso ? $"Carga Layout Corteva {DateTime.Now.ToString("yyyy-MM-dd")}" : $"Carga Layout Corteva Error {DateTime.Now.ToString("yyyy-MM-dd")}"; string Asunto = ErrorProceso ? $"Carga Layout Corteva {DateTime.Now.ToString("yyyy-MM-dd")}" : $"Carga Layout Corteva Error {DateTime.Now.ToString("yyyy-MM-dd")}";
Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Cuerpo, Archivos:ListaArchivos); Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Cuerpo, Archivos:ListaArchivos);
@@ -446,7 +451,7 @@ public class TareasJam : IHttpHandler
} }
private bool CargarArchivos(FileInfo FInfo, string FTPServer, string FTPUsr, string FTPPass) private bool CargarArchivos(FileInfo FInfo, string FTPServer, string FTPUsr, string FTPPass )
{ {
bool Respuesta; bool Respuesta;
//var FInfo = new FileInfo(RutaArchivo); //var FInfo = new FileInfo(RutaArchivo);

5
Ventas/ActualizarPrecios.aspx.vb
View File

@@ -1,5 +1,6 @@
 
Option Explicit On Option Explicit On
Option Strict On
Imports Extensiones Imports Extensiones
Imports System.Data Imports System.Data
@@ -293,7 +294,7 @@ Partial Class Ventas_ActualizarPrecios
#Region "C A R G A R E X C E L " #Region "C A R G A R E X C E L "
Private Sub BtnDescargarFormato_Click(sender As Object, e As EventArgs) Handles BtnDescargarFormato.Click Private Sub BtnDescargarFormato_Click(sender As Object, e As EventArgs) Handles BtnDescargarFormato.Click
Dim DtExcel As DataTable = (From row As GridViewRow In GVPrecios.Rows Dim DtExcel As DataTable = (From row As GridViewRow In GVPrecios.Rows.Cast(Of GridViewRow)
Where row.RowType = DataControlRowType.DataRow Where row.RowType = DataControlRowType.DataRow
Select New With Select New With
{ {
@@ -408,7 +409,7 @@ Partial Class Ventas_ActualizarPrecios
Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
For Each row As DataRow In dt.Rows For Each row As DataRow In dt.Rows
Dim Correcto As Boolean = False Dim Correcto As Boolean = False
Dim CvePS As Integer = DtPS.FiltroPrimeroValor("CvePS", String.Format("Codigo='{0}' AND CveEmpresa={1}", row(0).ToString(), UsuarioActual.CveEmpresa)) Dim CvePS As Integer = DtPS.FiltroPrimeroValor("CvePS", String.Format("Codigo='{0}' AND CveEmpresa={1}", row(0).ToString(), UsuarioActual.CveEmpresa)).ToEntero
Dim CvePrecioLista As Integer = DdlPrecioListaCarga.SelectedValue.ToEntero() Dim CvePrecioLista As Integer = DdlPrecioListaCarga.SelectedValue.ToEntero()
Dim PrecioNuevo As Decimal = row("Precio").ToString().ToDecimal() Dim PrecioNuevo As Decimal = row("Precio").ToString().ToDecimal()
Dim Porcentaje As Decimal = -1 Dim Porcentaje As Decimal = -1

2
Ventas/CatClientes.aspx
View File

@@ -60,7 +60,7 @@
<asp:DropDownList ID="DdlEstatus" runat="server" CssClass=" form-control input-sm select2me" ValidationGroup="GrpFiltrar" Width="100%"> <asp:DropDownList ID="DdlEstatus" runat="server" CssClass=" form-control input-sm select2me" ValidationGroup="GrpFiltrar" Width="100%">
<asp:ListItem Value="-1">Todos</asp:ListItem> <asp:ListItem Value="-1">Todos</asp:ListItem>
<asp:ListItem Selected="True" Value="1">Activo</asp:ListItem> <asp:ListItem Selected="True" Value="1">Activo</asp:ListItem>
<asp:ListItem Value="2">Inactivo</asp:ListItem> <asp:ListItem Value="0">Inactivo</asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>

26
Ventas/CatPS.aspx
View File

@@ -101,15 +101,19 @@
<li> <li>
<asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivReportes" ID="ImgReportes" runat="server"> <i class="fa fa-print"></i> Productos sin SAT</asp:HyperLink> <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivReportes" ID="ImgReportes" runat="server"><i style="font-weight:bold" class="fa fa-file-pdf-o"></i> Exportar productos sin SAT</asp:HyperLink>
</li> </li>
<li> <li>
<asp:LinkButton ID="LBImprimir" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton> <asp:LinkButton ID="LBImprimir" runat="server"><i style="font-weight:bold" class="fa fa-file-pdf-o"></i> Exportar PDF</asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton ID="LBExcel" runat="server"><i class="fa fa-ad-excel"></i> Exporta Excel</asp:LinkButton> <asp:LinkButton ID="LBExcel" runat="server"><i style="font-weight:bold" class="fa fa-file-excel-o"></i> Exporta Excel</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LBExcelPersonalizado" runat="server"><i style="font-weight:bold" class="fa fa-file-excel-o"></i> Excel Personalizado</asp:LinkButton>
</li> </li>
@@ -216,6 +220,10 @@
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField DataField="Fecha" HeaderText="Fecha" DataFormatString="{0:d}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center" /> <asp:BoundField DataField="Fecha" HeaderText="Fecha" DataFormatString="{0:d}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center" />
<asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center" /> <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center" />
<asp:BoundField DataField="SatPSDescripcion" HeaderText="Producto Servicio SAT" Visible="false" ItemStyle-Width="20px" />
<asp:BoundField DataField="Clasificacion2" HeaderText="Clasificacion 2" Visible="false" ItemStyle-Width="20px" />
<asp:BoundField DataField="Marca" HeaderText="Marca" Visible="false" ItemStyle-Width="20px" />
<asp:BoundField DataField="VentaMinima" HeaderText="Venta Mínima" Visible="false" ItemStyle-Width="20px" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>
@@ -277,11 +285,21 @@
<asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4> <asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
<table style="width: 335px;" class="table table-striped table-advance table-hover"> <table style="width: 100%;" class="table table-striped table-advance table-hover">
<tbody> <tbody>
<tr> <tr>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkAplicaVenta" runat="server" Text="Aplica para Venta" /></td> <asp:CheckBox ID="ChkAplicaVenta" runat="server" Text="Aplica para Venta" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkProductosServiciosSAT" runat="server" Text="Productos Servicios SAT" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkClasificacion2" runat="server" Text="Clasificación 2" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkMarca" runat="server" Text="Marca" /></td>
</tr>
<tr>
<td style="text-align: left;">
<asp:CheckBox ID="ChkVentaMinima" runat="server" Text="Venta Mínima" /></td>
</tr> </tr>
</tbody> </tbody>
</table> </table>

12
Ventas/CatPS.aspx.vb
View File

@@ -113,6 +113,11 @@ Partial Class CatPS
AplicaVenta = False AplicaVenta = False
End If End If
GvDatos.Columns(10).Visible = ChkProductosServiciosSAT.Checked
GvDatos.Columns(11).Visible = ChkClasificacion2.Checked
GvDatos.Columns(12).Visible = ChkMarca.Checked
GvDatos.Columns(13).Visible = ChkVentaMinima.Checked
CargaDatos() CargaDatos()
OrdenaDatos() OrdenaDatos()
UPDatos.Update() UPDatos.Update()
@@ -255,6 +260,13 @@ Partial Class CatPS
ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/CatPS.rpt"), DtDatos, lista, "Productos y Servicios", Formato), "Productos y Servicios", Formato) ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/CatPS.rpt"), DtDatos, lista, "Productos y Servicios", Formato), "Productos y Servicios", Formato)
End Sub End Sub
Protected Sub LBExcelPersonalizado_Click(Sender As Object, e As EventArgs) Handles LBExcelPersonalizado.Click
ExportToExcelGembox(GvDatos, "Catálogo de Productos y Servicios", UsuarioActual, "", "", "Catálogo de Productos y Servicios", "", -1)
End Sub
Public Overrides Sub VerifyRenderingInServerForm(control As Control)
End Sub
#End Region #End Region
End Class End Class

96
Ventas/Clientes.aspx
View File

@@ -443,14 +443,14 @@
--%> --%>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlSATPais" runat="server" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSATPais_SelectedIndexChanged" AutoPostBack="true"> <asp:DropDownList ID="DdlSATPais" runat="server" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSATPais_SelectedIndexChanged" AutoPostBack="true">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
<asp:ListItem Value="MEX" Text="México"></asp:ListItem> <asp:ListItem Value="MEX" Text="México"></asp:ListItem>
<asp:ListItem Value="USA" Text="USA"></asp:ListItem> <asp:ListItem Value="USA" Text="USA"></asp:ListItem>
<asp:ListItem Value="CAN" Text="Canada"></asp:ListItem> <asp:ListItem Value="CAN" Text="Canada"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<asp:RequiredFieldValidator ID="RequiredFieldValidator19" runat="server" InitialValue="-1" ControlToValidate="DdlSATPais" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pais''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RequiredFieldValidator19" runat="server" InitialValue="-1" ControlToValidate="DdlSATPais" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pais''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<label for="<%= DdlSATPais.ClientID.ToString()%>">Pais:</label> <label for="<%= DdlSATPais.ClientID.ToString()%>">Pais:</label>
<i></i> <i></i>
</div> </div>
@@ -460,14 +460,14 @@
<asp:DropDownList ID="DdlEstadoSAT" DataTextField="NombreEstado" DataValueField="CveSATEstado" runat="server" CssClass="form-control input-sm select2me"> <asp:DropDownList ID="DdlEstadoSAT" DataTextField="NombreEstado" DataValueField="CveSATEstado" runat="server" CssClass="form-control input-sm select2me">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlEstadoSAT" runat="server" InitialValue="-1" ControlToValidate="DdlEstadoSAT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RfvDdlEstadoSAT" runat="server" InitialValue="-1" ControlToValidate="DdlEstadoSAT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<label for="<%= DdlEstadoSAT.ClientID.ToString()%>">Estado:</label> <label for="<%= DdlEstadoSAT.ClientID.ToString()%>">Estado:</label>
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright" runat="server" visible="False" id="dvZH"> <div class="form-group form-md-line-input input-iconright" runat="server" visible="False" id="dvZH">
<asp:DropDownList ID="DdlZonaHoraria" DataTextField="DisplayText" DataValueField="CveZonaHoraria" runat="server" CssClass="form-control input-sm select2me"> <asp:DropDownList ID="DdlZonaHoraria" DataTextField="DisplayText" DataValueField="CveZonaHoraria" runat="server" CssClass="form-control input-sm select2me">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
@@ -638,13 +638,13 @@
<label for="<%= DdlTipoCliente.ClientID.ToString()%>">Tipo de Cliente:</label> <label for="<%= DdlTipoCliente.ClientID.ToString()%>">Tipo de Cliente:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaCompras" runat="server" visible="false" > <div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaCompras" runat="server" visible="false">
<asp:TextBox runat="server" ID="TxtCorreoEntregaCompras" CssClass="form-control"/> <asp:TextBox runat="server" ID="TxtCorreoEntregaCompras" CssClass="form-control" />
<label for="<%= TxtCorreoEntregaCompras.ClientID.ToString()%>">Correo de Entrega de Compras:</label> <label for="<%= TxtCorreoEntregaCompras.ClientID.ToString()%>">Correo de Entrega de Compras:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaAlmacen" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaAlmacen" runat="server" visible="false">
<asp:TextBox runat="server" ID="TxtCorreoEntregaAlmacen" CssClass="form-control"/> <asp:TextBox runat="server" ID="TxtCorreoEntregaAlmacen" CssClass="form-control" />
<label for="<%= TxtCorreoEntregaAlmacen.ClientID.ToString()%>">Correo de Entrega de Almacén:</label> <label for="<%= TxtCorreoEntregaAlmacen.ClientID.ToString()%>">Correo de Entrega de Almacén:</label>
</div> </div>
@@ -692,7 +692,9 @@
<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">Sucursales y/o Departamentos</span> <span class="caption-subject bold uppercase">
<asp:Literal ID="LtlGvSucursalesCliente" runat="server" Text="Sucursales y/o Departamentos" />
</span>
</div> </div>
<div class="actions"> <div class="actions">
<div class="btn-group"> <div class="btn-group">
@@ -704,7 +706,8 @@
<table class="table table-striped table-advance table-hover" style="width: 100%"> <table class="table table-striped table-advance table-hover" style="width: 100%">
<thead> <thead>
<tr class="Titulos"> <tr class="Titulos">
<th width="150px">Sucursal y/o Departamento</th> <th width="150px">
<asp:Literal ID="LtlNombreSucursalTitulo" runat="server" Text="Sucursal y/o Departamento:"></asp:Literal></th>
<th></th> <th></th>
<th></th> <th></th>
<th width="121px">Comandos</th> <th width="121px">Comandos</th>
@@ -787,8 +790,8 @@
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate> <HeaderTemplate>
Sucursal/Depto <asp:Literal ID="LtlNombreSucursal" runat="server" Text="Sucursal/Depto"></asp:Literal>
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<div class="truncate" style="width: 200px;"> <div class="truncate" style="width: 200px;">
@@ -1008,16 +1011,16 @@
<div class="portlet-body form-horizontal form-row-sepe"> <div class="portlet-body form-horizontal form-row-sepe">
<div class="form-body"> <div class="form-body">
<div id="divCuentas" runat="server" visible="false"> <div id="divCuentas" runat="server" visible="false">
<asp:UpdatePanel runat="server" ID="UpCuentaConceptos" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="UpCuentaConceptos" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center; width: 100%;" GridLines="None"> <asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center; width: 100%;" GridLines="None">
<Columns> <Columns>
<asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" /> <asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
<asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" /> <asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<div id="divCuentasContp" runat="server" visible="false"> <div id="divCuentasContp" runat="server" visible="false">
@@ -1126,11 +1129,11 @@
</div> </div>
</div> </div>
</div> </div>
</div> </div>
</div> </div>
</div> </div>
</div> </div>
</div> </div>
@@ -2369,7 +2372,7 @@
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate>Archivos</HeaderTemplate> <HeaderTemplate>Archivos</HeaderTemplate>
<ItemStyle HorizontalAlign="Center"/> <ItemStyle HorizontalAlign="Center" />
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HplXML" runat="server" Visible="false" Target="_blank"><i class='fa fa-file-excel-o' style="font-weight:bold;"></i></asp:HyperLink> <asp:HyperLink ID="HplXML" runat="server" Visible="false" Target="_blank"><i class='fa fa-file-excel-o' style="font-weight:bold;"></i></asp:HyperLink>
<asp:HyperLink ID="HplPDF" runat="server" Visible="false" Target="_blank"><i class='fa fa-file-pdf-o' style="font-weight:bold;"></i></asp:HyperLink> <asp:HyperLink ID="HplPDF" runat="server" Visible="false" Target="_blank"><i class='fa fa-file-pdf-o' style="font-weight:bold;"></i></asp:HyperLink>
@@ -2377,7 +2380,7 @@
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate>Reenviar Complemento</HeaderTemplate> <HeaderTemplate>Reenviar Complemento</HeaderTemplate>
<ItemStyle HorizontalAlign="Center"/> <ItemStyle HorizontalAlign="Center" />
<ItemTemplate> <ItemTemplate>
<%-- <a id="HLSendMail" runat="server" class="Texto" visible="false"> <%-- <a id="HLSendMail" runat="server" class="Texto" visible="false">
<i class="fa fa-envelope fa-2" aria-hidden="true"></i> <i class="fa fa-envelope fa-2" aria-hidden="true"></i>
@@ -2428,10 +2431,10 @@
<asp:GridView ID="GvPagosNoBancarios" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron pagos no bancarios" Width="50%" <asp:GridView ID="GvPagosNoBancarios" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron pagos no bancarios" Width="50%"
CssClass="table table-striped table-advance table-hover ScrollAD" data-sort="false" BorderWidth="1" BorderColor="#D3D3D3" GridLines="None" DataKeyNames="CvePrePoliza,CveCompra,CveVenta,CvePersonal,ImporteMN,VentaSerieFolio,CompraSerieFolio,NombreCompleto,FechaIng,Abreviatura"> CssClass="table table-striped table-advance table-hover ScrollAD" data-sort="false" BorderWidth="1" BorderColor="#D3D3D3" GridLines="None" DataKeyNames="CvePrePoliza,CveCompra,CveVenta,CvePersonal,ImporteMN,VentaSerieFolio,CompraSerieFolio,NombreCompleto,FechaIng,Abreviatura">
<Columns> <Columns>
<asp:BoundField HeaderText="Nombre Completo" DataField="NombreCompleto"/> <asp:BoundField HeaderText="Nombre Completo" DataField="NombreCompleto" />
<asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}"/> <asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" />
<asp:HyperLinkField HeaderText="Venta Serie Folio" DataTextField="VentaSerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}"/> <asp:HyperLinkField HeaderText="Venta Serie Folio" DataTextField="VentaSerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
<asp:HyperLinkField HeaderText="Compra Serie Folio" DataTextField="CompraSerieFolio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}"/> <asp:HyperLinkField HeaderText="Compra Serie Folio" DataTextField="CompraSerieFolio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" />
<asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlImp" runat="server" Text='<%# Eval("ImporteMN", "{0:N2}")%>'></asp:Literal> <asp:Literal ID="LtlImp" runat="server" Text='<%# Eval("ImporteMN", "{0:N2}")%>'></asp:Literal>
@@ -4535,8 +4538,8 @@
<asp:Literal ID="LtlTareaNueva" runat="server"></asp:Literal> <asp:Literal ID="LtlTareaNueva" runat="server"></asp:Literal>
<UserControl:TareaNueva runat="server" id="TareaNueva" /> <UserControl:TareaNueva runat="server" id="TareaNueva" />
<script> function OnAddedTareaNueva() { <script> function OnAddedTareaNueva() {
$('.btnupEventoBitacora').click(); $('.btnupEventoBitacora').click();
} }
</script> </script>
</div> </div>
@@ -4654,7 +4657,9 @@
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
<i class="fa fa-users font-green"></i> <i class="fa fa-users font-green"></i>
<span class="caption-subject bold uppercase">Datos de la Sucursal </span> <span class="caption-subject bold uppercase">
<asp:Literal ID="LtlTituloSurcusalCliente" runat="server" Text="Datos de la Sucursal"></asp:Literal>
</span>
@@ -4670,7 +4675,9 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNombreSucursal" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox> <asp:TextBox ID="TxtNombreSucursal" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVNombreSucursal" runat="server" ControlToValidate="TxtNombreSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVNombreSucursal" runat="server" ControlToValidate="TxtNombreSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
<label for="<%= TxtNombreSucursal.ClientID.ToString()%>">Sucursal y/o Departamento:</label> <label for="<%= TxtNombreSucursal.ClientID.ToString()%>">
<asp:Literal ID="LtlNombreSucursal" runat="server" Text="Sucursal y/o Departamento:"></asp:Literal>
</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
@@ -4738,10 +4745,17 @@
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="row" style="padding-left: 16px;">
<asp:TextBox ID="TxtTelefonoSucursal" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox> <div class="form-group form-md-line-input input-iconright col-xs-4">
<ajax:MaskedEditExtender ID="mskTelefono" runat="server" TargetControlID="TxtTelefonoSucursal" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender> <asp:TextBox ID="TxtTelefonoSucursal" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtTelefonoSucursal.ClientID.ToString()%>">Teléfono:</label> <ajax:MaskedEditExtender ID="mskTelefono" runat="server" TargetControlID="TxtTelefonoSucursal" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
<label for="<%= TxtTelefonoSucursal.ClientID.ToString()%>">Teléfono:</label>
</div>
<div id="DivRFCSucursal" visible="false" runat="server" class="form-group form-md-line-input input-iconright col-xs-8">
<asp:TextBox ID="TxtRFCSucursal" Style="text-transform: uppercase;" runat="server" CssClass="form-control" MaxLength="13" CausesValidation="true"></asp:TextBox>
<asp:RegularExpressionValidator ID="REVRFCSucursal" runat="server" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo." ValidationGroup="GrpGuardarSucursal" ControlToValidate="TxtRFCSucursal" ValidationExpression="^[a-zA-Z.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
<label for="<%= TxtRFCSucursal.ClientID.ToString()%>">RFC:</label>
</div>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
@@ -7069,6 +7083,6 @@
} }
</script> </script>
<script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script> <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"></script>
</asp:Content> </asp:Content>

34
Ventas/Clientes.aspx.vb
View File

@@ -1196,15 +1196,14 @@ Partial Class Clientes
End Sub End Sub
Private Sub CargaSubProyectoss() Private Sub CargaSubProyectoss()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind() 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
'If UsuarioActual.CveSucursal = -1 Then DdlSubProyecto.DataBind()
' DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
'Else
' DdlSubProyecto.SelectedValue = UsuarioActual.CveSucursal.ToString
'End If
End Sub End Sub
Private Sub CargaMetodosPago() Private Sub CargaMetodosPago()
DdlMetodoPago.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") '.FiltraParametros("CveMetodoPago > 0 ") DdlMetodoPago.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") '.FiltraParametros("CveMetodoPago > 0 ")
@@ -1422,6 +1421,7 @@ Partial Class Clientes
'TxtEstado.Text = ObjClientes.Estado 'TxtEstado.Text = ObjClientes.Estado
'TxtPais.Text = ObjClientes.Pais 'TxtPais.Text = ObjClientes.Pais
TxtRFC.Text = ObjClientes.RFC TxtRFC.Text = ObjClientes.RFC
TxtCP.Text = ObjClientes.CP.ToString TxtCP.Text = ObjClientes.CP.ToString
TxtTelefono.Text = ObjClientes.Telefono TxtTelefono.Text = ObjClientes.Telefono
TxtContacto.Text = ObjClientes.Contacto TxtContacto.Text = ObjClientes.Contacto
@@ -1899,7 +1899,16 @@ Partial Class Clientes
GvDireccionesEnvio.DataSource = ObjClientes.DtResultados GvDireccionesEnvio.DataSource = ObjClientes.DtResultados
End If End If
ObjClientes.Dispose() ObjClientes.Dispose()
GvDireccionesEnvio.DataBind() GvDireccionesEnvio.DataBind()
If TxtRFC.Text = "XAXX010101000" Then
GvDireccionesEnvio.HeaderRow.FCLiteral("LtlNombreSucursal").Text = "Cliente"
LtlNombreSucursal.Text = "Cliente"
LtlNombreSucursalTitulo.Text = "Cliente"
LtlTituloSurcusalCliente.Text = "Datos del cliente"
LtlGvSucursalesCliente.Text = "Clientes"
End If
UpAgregarSucursal.Update()
UpDatos.Update() UpDatos.Update()
End Sub End Sub
Public Sub CargaAFAsignados() Public Sub CargaAFAsignados()
@@ -2977,15 +2986,13 @@ Partial Class Clientes
Dim LT As String = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0") Dim LT As String = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0")
Dim LG As String = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0") Dim LG As String = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0")
Dim RFC As String = If(String.IsNullOrEmpty(TxtRFCSucursal.Text), "-1", TxtRFCSucursal.Text)
If CveCliente > 0 Then If CveCliente > 0 Then
If Actualizar Then If Actualizar Then
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) Then DdlSucursalUsoCFDI.SelectedValue.ToEntero, DdlSucursalFormaPago33.SelectedValue.ToEntero, DdlSucursalMetodoPago33.SelectedValue.ToEntero, LT:=LT, LG:=LG) Then
@@ -3127,6 +3134,7 @@ Partial Class Clientes
Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GVSucursales.RowEditing Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GVSucursales.RowEditing
Me.Actualizar = True Me.Actualizar = True
Me.DivRFCSucursal.Visible = False
Me.CveClienteSuc = GVSucursales.DataKeys(e.NewEditIndex).Value.ToString.ToEntero Me.CveClienteSuc = GVSucursales.DataKeys(e.NewEditIndex).Value.ToString.ToEntero
@@ -3147,6 +3155,8 @@ Partial Class Clientes
TxtNumExtSucursal.Text = ObjCliente.DtResultados.Rows(0)("NoExt").ToString TxtNumExtSucursal.Text = ObjCliente.DtResultados.Rows(0)("NoExt").ToString
TxtNumIntSucursal.Text = ObjCliente.DtResultados.Rows(0)("NoInt").ToString TxtNumIntSucursal.Text = ObjCliente.DtResultados.Rows(0)("NoInt").ToString
TxtTelefonoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Telefono").ToString TxtTelefonoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Telefono").ToString
TxtRFCSucursal.Text = ObjCliente.DtResultados.Rows(0)("RFC").ToString
DivRFCSucursal.Visible = Not String.IsNullOrEmpty(TxtRFCSucursal.Text.Trim())
TxtCorreoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Correo").ToString TxtCorreoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Correo").ToString
TxtCorreoSucursalCotizacion.Text = ObjCliente.DtResultados(0)("CorreoCotizacion").ToString TxtCorreoSucursalCotizacion.Text = ObjCliente.DtResultados(0)("CorreoCotizacion").ToString
TxtContactoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Contacto").ToString TxtContactoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Contacto").ToString

1
Ventas/ProductosServicios.aspx.vb
View File

@@ -821,7 +821,6 @@ Partial Class ProductosyServicios
lbTitulo.Text = $"{lbTitulo.Text}{ObjProductosServicios.PS}" lbTitulo.Text = $"{lbTitulo.Text}{ObjProductosServicios.PS}"
LtProductoUnificar.Text = ObjProductosServicios.PS LtProductoUnificar.Text = ObjProductosServicios.PS
ddlMetodos.SelectedValue = ObjProductosServicios.CveMetodoInventario.ToString ddlMetodos.SelectedValue = ObjProductosServicios.CveMetodoInventario.ToString
TxtAlmacenSeccion.Text = ObjProductosServicios.AlmacenSeccion.ToString
DdlConceptoRelacionado.SelectedValueExist(ObjProductosServicios.CveConceptoContable.ToString) DdlConceptoRelacionado.SelectedValueExist(ObjProductosServicios.CveConceptoContable.ToString)
DdlProveedor.SelectedValue = ObjProductosServicios.CveProveedorCompra.ToString DdlProveedor.SelectedValue = ObjProductosServicios.CveProveedorCompra.ToString

323
Ventas/Ventas.aspx
View File

@@ -417,11 +417,33 @@
<td width="135px"> <td width="135px">
<asp:CheckBox ID="ChkEnviarFactura" runat="server" /></td> <asp:CheckBox ID="ChkEnviarFactura" runat="server" /></td>
</tr> </tr>
<%-- <tr runat="server" id="trFacturacionSucursal" visible="false">
<td><b>Facturar Sucursal :</b></td>
<td>
<asp:CheckBox ID="ChkFacturarSucursal" runat="server" OnCheckedChanged="ChkFacturarSucursal_CheckedChanged" />
</td>
</tr>--%>
<tr runat="server" id="trsucursalciente" visible="false"> <tr runat="server" id="trsucursalciente" visible="false">
<td><b>Sucursal :</b></td> <td align="left" ><b>
<td colspan="3"> <asp:Label ID="LblSucursal" runat="server" Text="Sucursal"></asp:Label>
<asp:DropDownList ID="DdlSucursalCliente" runat="server" AutoPostBack="true" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="SucursalCliente" DataValueField="CveClienteSucursal" Width="150px"> :</b></td>
</asp:DropDownList> <td align="left" >
<div class="row align-items-start">
<div class="col-md-10">
<asp:DropDownList ID="DdlSucursalCliente" runat="server" AutoPostBack="true" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="SucursalCliente" DataValueField="CveClienteSucursal">
</asp:DropDownList>
</div>
<div class="col-md-2" style="padding: inherit;">
<asp:LinkButton ID="LnkAgregarSucursal" Visible="false" runat="server" CssClass="btn btn-primary btn-circle btn-xs" Text="<i class='fa fa-plus' aria-hidden='true'></i>" OnClick="LnkAgregarSucursal_Click"></asp:LinkButton>
</div>
</div>
</td>
<td align="left" >
<b>
<asp:Label ID="LtlTitleRFCSucursal" runat="server" Text=""></asp:Label></b>
</td>
<td align="left" >
<asp:Label ID="LtlRFCSucursal" runat="server" Text=""></asp:Label>
</td> </td>
</tr> </tr>
<tr align="left" runat="server" id="TrDireccion"> <tr align="left" runat="server" id="TrDireccion">
@@ -6880,6 +6902,132 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<%-- MODAL SUCURSAL --%>
<div id="divAgregarSucursal" class="modal fade" role="dialog">
<div class="modal-dialog" style="max-height: 500px; max-width: 500px;">
<asp:UpdatePanel ID="UpAgregarSucursal" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<fieldset>
<table border="0" class="portlet light bordered">
<tr>
<div class="portlet-title">
<div class="caption font-green">
<i class="fa fa-users font-green"></i>
<span class="caption-subject bold uppercase">Datos del cliente </span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
</div>
</tr>
<tr>
<div class="row" style="padding-left: 16px;">
<div class="form-group form-md-line-input input-iconright col-xs-12">
<asp:TextBox ID="TxtNombreSucursal" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVNombreSucursal" runat="server" ControlToValidate="TxtNombreSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
<label for="<%= TxtNombreSucursal.ClientID.ToString()%>">Nombre del cliente:</label>
</div>
</div>
<div class="row" style="padding-left: 16px;">
<div class="form-group form-md-line-input input-iconright col-xs-12">
<asp:TextBox ID="TxtRFCSucursal" Style="text-transform: uppercase;" runat="server" CssClass="form-control" MaxLength="13" CausesValidation="true"></asp:TextBox>
<asp:RegularExpressionValidator ID="RFVRFCSucursal" runat="server" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo." ValidationGroup="GrpGuardarSucursal" ControlToValidate="TxtRFCSucursal" ValidationExpression="^[a-zA-Z.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
<label for="<%= TxtRFCSucursal.ClientID.ToString()%>">RFC:</label>
</div>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtDireccionSucursal" CssClass="form-control " runat="server" MaxLength="90" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator13" runat="server" ControlToValidate="TxtDireccionSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Direccion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
<label for="<%= TxtDireccionSucursal.ClientID.ToString()%>">Calle:</label>
</div>
<div class="row" style="padding-left: 16px;">
<div class="form-group form-md-line-input input-iconright col-xs-3">
<asp:TextBox ID="TxtNumExtSucursal" CssClass="form-control " runat="server" MaxLength="20" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator14" runat="server" ControlToValidate="TxtNumExtSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Número Exterior''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
<label for="<%= TxtNumExtSucursal.ClientID.ToString()%>">Número Exterior:</label>
</div>
<div class="form-group form-md-line-input input-iconright col-xs-3">
<asp:TextBox ID="TxtNumIntSucursal" CssClass="form-control " runat="server" MaxLength="20" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtNumIntSucursal.ClientID.ToString()%>">Número Interior:</label>
</div>
</div>
<div class="row" style="padding-left: 16px">
<div class="form-group form-md-line-input input-iconright col-xs-4">
<asp:TextBox ID="TxtCPSucursal" CssClass="form-control " runat="server" MaxLength="5" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator15" runat="server" ControlToValidate="TxtCPSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Código Postal''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
<label for="<%= TxtCPSucursal.ClientID.ToString()%>">Código Postal:</label>
</div>
<div class="form-group form-md-line-input input-iconright col-xs-4">
<asp:TextBox ID="TxtColoniaSucursal" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator16" runat="server" ControlToValidate="TxtColoniaSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Colonia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
<label for="<%= TxtColoniaSucursal.ClientID.ToString()%>">Colonia:</label>
</div>
</div>
<div class="row" style="padding-left: 16px;">
<div class="form-group form-md-line-input input-iconright col-xs-4">
<asp:TextBox ID="TxtCiudadSucursal" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator17" runat="server" ControlToValidate="TxtCiudadSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ciudad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
<label for="<%= TxtCiudadSucursal.ClientID.ToString()%>">Ciudad:</label>
</div>
<div class="form-group form-md-line-input input-iconright col-xs-4">
<asp:TextBox ID="TxtLocalidadSucursal" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator18" runat="server" ControlToValidate="TxtLocalidadSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Localidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
<label for="<%= TxtLocalidadSucursal.ClientID.ToString()%>">Localidad:</label>
</div>
</div>
<div class="row" style="padding-left: 16px;">
<div class="form-group form-md-line-input input-iconright col-xs-4">
<asp:TextBox ID="TxtEstadoSucursal" CssClass="form-control " runat="server" MaxLength="35" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator19" runat="server" ControlToValidate="TxtEstadoSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
<label for="<%= TxtEstadoSucursal.ClientID.ToString()%>">Estado:</label>
</div>
<div class="form-group form-md-line-input input-iconright col-xs-4">
<asp:TextBox ID="TxtPaisSucursal" CssClass="form-control " Text="Mexico" runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator20" runat="server" ControlToValidate="TxtPaisSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''País''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
<label for="<%= TxtPaisSucursal.ClientID.ToString()%>">País:</label>
</div>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtTelefonoSucursal" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
<ajax:MaskedEditExtender ID="mskTelefono" runat="server" TargetControlID="TxtTelefonoSucursal" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
<label for="<%= TxtTelefonoSucursal.ClientID.ToString()%>">Teléfono:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCorreoSucursal" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
<asp:RegularExpressionValidator ID="RegularExpressionValidator4" runat="server" CssClass="help-block errorimput" ValidationExpression="(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtCorreoSucursal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarSucursal"></asp:RegularExpressionValidator>
<label for="<%= TxtCorreoSucursal.ClientID.ToString()%>">Correo Envio Factura:(xml/pdf) </label>
<i></i>
</div>
<div class="row" style="padding-left: 16px">
<div class="form-group form-md-line-input input-iconright col-xs-6">
<asp:DropDownList ID="DdlVendedorSucursal" runat="server" CssClass="form-control input-sm select2me" Width="250px" DataTextField="Vendedor" DataValueField="CveVendedor">
</asp:DropDownList>
<label for="<%= DdlVendedorSucursal.ClientID.ToString()%>">Vendedor:</label>
</div>
<div class="form-group form-md-line-input input-iconright col-xs-6">
<asp:DropDownList ID="DdlSucursalUsoCFDI" CssClass="form-control select2me" runat="server" Width="150px" AppendDataBoundItems="true" DataTextField="UsoCFDIDescripcion" DataValueField="CveUsoCFDI">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlSucursalUsoCFDI.ClientID.ToString()%>">Uso CFDI:</label>
</div>
</div>
</tr>
</table>
</fieldset>
<div class="modal-footer">
<asp:Button ID="BtnAgregarSucursal" runat="server" CssClass="btn btn-success" Text="Agregar" ValidationGroup="GrpGuardarSucursal" />
<button id="BtnCancelarSucursal" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</asp:Content> </asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script src="/Metronic/assets/global/scripts/jquery-sortable.js"></script> <script src="/Metronic/assets/global/scripts/jquery-sortable.js"></script>
@@ -7744,75 +7892,75 @@
function LimpiaModal() { function LimpiaModal() {
$('#<%= TxtDireccion.ClientID %>').val(''); $('#<%= TxtDireccion.ClientID %>').val('');
$('#<%= TxtColonia.ClientID %>').val(''); $('#<%= TxtColonia.ClientID %>').val('');
$('#<%= TxtCiudad.ClientID %>').val(''); $('#<%= TxtCiudad.ClientID %>').val('');
$('#<%= TxtEstado.ClientID %>').val(''); $('#<%= TxtEstado.ClientID %>').val('');
$('#<%= TxtCP.ClientID %>').val(''); $('#<%= TxtCP.ClientID %>').val('');
} }
function BtnMateriales() { function BtnMateriales() {
$('#BtnMateriales').click(); $('#BtnMateriales').click();
} }
function BtnEnviarMailCancelacion() { function BtnEnviarMailCancelacion() {
$('#BtnEnviarMailCancelacion').click(); $('#BtnEnviarMailCancelacion').click();
} }
function BtnRefacturacionConfirmar() { function BtnRefacturacionConfirmar() {
$('#BtnRefacturacionConfirmar').click(); $('#BtnRefacturacionConfirmar').click();
} }
function BtnRefacturacionConfirmarAceptacion(Liga) { function BtnRefacturacionConfirmarAceptacion(Liga) {
$('#BtnRefacturacionConfirmarAceptacion').click(); $('#BtnRefacturacionConfirmarAceptacion').click();
} }
function BtnRefrescarPagina() { function BtnRefrescarPagina() {
$('#BtnRefrescarPagina').click(); $('#BtnRefrescarPagina').click();
} }
function Recargar() { function Recargar() {
$('#BtnRefrescarPagina').click(); $('#BtnRefrescarPagina').click();
} }
function BtnAplicaNuevaNC() { function BtnAplicaNuevaNC() {
$('#BtnAplicaNuevaNC').click(); $('#BtnAplicaNuevaNC').click();
} }
$('.DdlPS').on("select2:open", function (e) { $('.select2-container.select2-container--default .select2-dropdown .select2anothertable').remove(); }); $('.DdlPS').on("select2:open", function (e) { $('.select2-container.select2-container--default .select2-dropdown .select2anothertable').remove(); });
$('.DdlPSPyME').on("select2:open", function (e) { $('.select2-container.select2-container--default .select2-dropdown .select2anothertable').remove(); }); $('.DdlPSPyME').on("select2:open", function (e) { $('.select2-container.select2-container--default .select2-dropdown .select2anothertable').remove(); });
$("body").on("mouseenter", ".select2-container.select2-container--default.select2-container--open .select2-dropdown li", function (event) { $("body").on("mouseenter", ".select2-container.select2-container--default.select2-container--open .select2-dropdown li", function (event) {
var $this = $(this); var $this = $(this);
var ind = $this.index(); var ind = $this.index();
$(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable tr.active").removeClass('active'); $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable tr.active").removeClass('active');
$(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable tr:nth-child(" + (ind + 2) + ")").addClass('active'); $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable tr:nth-child(" + (ind + 2) + ")").addClass('active');
//log($this); //log($this);
}); });
var scrollfuncion = function () { var scrollfuncion = function () {
var stop = this.scrollTop; var stop = this.scrollTop;
$(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable").scrollTop(stop); $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable").scrollTop(stop);
} }
function CargaExistenciaAlmacenes(data, params) { function CargaExistenciaAlmacenes(data, params) {
var div = $('<div class="select2anothertable" style=" max-width: 950px; overflow-x: auto;"></div>'); var div = $('<div class="select2anothertable" style=" max-width: 950px; overflow-x: auto;"></div>');
$('.select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable').remove(); $('.select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable').remove();
$('.select2-container.select2-container--default.select2-container--open .select2-dropdown').prepend(div); $('.select2-container.select2-container--default.select2-container--open .select2-dropdown').prepend(div);
var table = $('<table id="TExistencias" ></table>'); div.append(table); var table = $('<table id="TExistencias" ></table>'); div.append(table);
var tbody = $('<tbody></tbody>'); table.append(tbody); var tbody = $('<tbody></tbody>'); table.append(tbody);
$(".select2-container--default .select2-results>.select2-results__options").off("scroll", scrollfuncion); $(".select2-container--default .select2-results>.select2-results__options").off("scroll", scrollfuncion);
$(".select2-container--default .select2-results>.select2-results__options").scroll(scrollfuncion); $(".select2-container--default .select2-results>.select2-results__options").scroll(scrollfuncion);
var indexd = 0; var indexd = 0;
data.forEach(function (item) { data.forEach(function (item) {
if (indexd == 0) { if (indexd == 0) {
var tr = $('<tr></tr>'); tbody.append(tr); var tr = $('<tr></tr>'); tbody.append(tr);
var td; var td;
for (var key in item) { for (var key in item) {
if (!(key == "text" || key == "id")) { td = $('<td style="font-weight:bold;">' + key + '</td>'); tr.append(td); } if (!(key == "text" || key == "id")) { td = $('<td style="font-weight:bold;">' + key + '</td>'); tr.append(td); }
} }
} }
var tr = $('<tr></tr>'); tbody.append(tr); var tr = $('<tr></tr>'); tbody.append(tr);
var td; var td;
for (var key in item) { for (var key in item) {
if (!(key == "text" || key == "id")) { if (!(key == "text" || key == "id")) {
if ((item[key] > 0)) { if ((item[key] > 0)) {
td = $('<td style = "font-weight:bold;" >' + item[key] + '</td>'); tr.append(td); td = $('<td style = "font-weight:bold;" >' + item[key] + '</td>'); tr.append(td);
} else { } else {
if ('<%= UsuarioActual.Empresa.Funcionalidad(566) %>' == '1') { if ('<%= UsuarioActual.Empresa.Funcionalidad(566) %>' == '1') {
var buscarAlmacenes = "CargaExistenciasSucursales(" + item.id + ",'" + item.text + "');" var buscarAlmacenes = "CargaExistenciasSucursales(" + item.id + ",'" + item.text + "');"
td = $('<td>' + item[key] + ' <button type="button" class="btn btn-xs btn-primary" onclick="' + buscarAlmacenes + '">Ver mas existencias</button></td>'); tr.append(td); td = $('<td>' + item[key] + ' <button type="button" class="btn btn-xs btn-primary" onclick="' + buscarAlmacenes + '">Ver mas existencias</button></td>'); tr.append(td);
} else { } else {
@@ -7951,17 +8099,17 @@
function ConvertirPesos(ChkConvertirDoctoPesos) { function ConvertirPesos(ChkConvertirDoctoPesos) {
//LIMPIA //LIMPIA
$('#<%= LtlTotalConvertido.ClientID %>').text(''); $('#<%= LtlTotalConvertido.ClientID %>').text('');
$("#TrConversionPesosTexto").hide(); $("#TrConversionPesosTexto").hide();
//CALCULA //CALCULA
if (ChkConvertirDoctoPesos.checked) { if (ChkConvertirDoctoPesos.checked) {
ConvertirDllsPesos(); ConvertirDllsPesos();
} }
} }
function ConvertirPesosDlls() { function ConvertirPesosDlls() {
var totalPesos = FormatoNumero(ToDouble($get('TxtTotal').value) / ToDouble($get('TxtTipoCambioDlls').value), 2) var totalPesos = FormatoNumero(ToDouble($get('TxtTotal').value) / ToDouble($get('TxtTipoCambioDlls').value), 2)
$('#<%= LblDolaresConvertidos.ClientID %>').text(totalPesos); $('#<%= LblDolaresConvertidos.ClientID %>').text(totalPesos);
$("#TrConversionDolaresTexto").show(); $("#TrConversionDolaresTexto").show();
} }
@@ -8098,5 +8246,26 @@
} }
}; };
function showDivAgregarSucursal() {
$('#<%= TxtNombreSucursal.ClientID %>').val('');
$('#<%= TxtDireccionSucursal.ClientID %>').val('');
$('#<%= TxtNumExtSucursal.ClientID %>').val('');
$('#<%= TxtNumIntSucursal.ClientID %>').val('');
$('#<%= TxtCPSucursal.ClientID %>').val('');
$('#<%= TxtColoniaSucursal.ClientID %>').val('');
$('#<%= TxtTelefonoSucursal.ClientID %>').val('');
$('#<%= TxtCiudadSucursal.ClientID %>').val('');
$('#<%= TxtLocalidadSucursal.ClientID %>').val('');
$('#<%= TxtEstadoSucursal.ClientID %>').val('');
$('#<%= TxtPaisSucursal.ClientID %>').val('');
$('#<%= TxtCorreoSucursal.ClientID %>').val('');
$('#divAgregarSucursal').modal();
}
function hideDivAgregarSucursal() {
$('#divAgregarSucursal').modal('hide');
}
</script> </script>
</asp:Content> </asp:Content>

257
Ventas/Ventas.aspx.vb
View File

@@ -1764,6 +1764,23 @@ Partial Class Ventas
ViewState("CvePrecioLista") = value ViewState("CvePrecioLista") = value
End Set End Set
End Property End Property
Private Property FacturarSucursal As Boolean
Get
Return CBool(IfNull(ViewState("FacturarSucursal"), "False", ViewState("FacturarSucursal")))
End Get
Set(value As Boolean)
ViewState("FacturarSucursal") = value
End Set
End Property
Private Property ClienteSucursal As Modelos.SucursalModel
Get
Return CType(ViewState("ClienteSucursal"), Modelos.SucursalModel)
End Get
Set(value As Modelos.SucursalModel)
ViewState("ClienteSucursal") = value
End Set
End Property
#End Region #End Region
@@ -2643,6 +2660,12 @@ Partial Class Ventas
End If End If
'rmf.2020.09.30, codigo de prueba
If UsuarioActual.CveEmpresa = 1 Then
DivMesesSinIntereses.Visible = True
DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4")
DivContadoOtros.Visible = True
End If
If UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 Then If UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 Then
@@ -4566,6 +4589,12 @@ Partial Class Ventas
DdlTipoRetencion.SelectedValueExist(DbRowVenta("CveTipoRetencion").ToString()) DdlTipoRetencion.SelectedValueExist(DbRowVenta("CveTipoRetencion").ToString())
Me.FacturarSucursal = CBool(DbRowVenta("FacturarSucursal").ToString())
If Me.FacturarSucursal Then
HabilitarFacturacionSucursal()
End If
CargaPS(-1, DdlPS) CargaPS(-1, DdlPS)
'CARGA GV DE OC RELACIONADAS 'CARGA GV DE OC RELACIONADAS
@@ -4802,7 +4831,10 @@ Partial Class Ventas
End Sub End Sub
Private Sub CargaUsoCFDI() Private Sub CargaUsoCFDI()
DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica) DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica)
DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica)
DdlUsoCFDI.DataBind() DdlUsoCFDI.DataBind()
DdlSucursalUsoCFDI.DataBind()
End Sub End Sub
Private Sub CargaTiposRelacion() Private Sub CargaTiposRelacion()
DdlTiposRelacion.DataSource = GlobalDTVtaTiposRelacion DdlTiposRelacion.DataSource = GlobalDTVtaTiposRelacion
@@ -5221,6 +5253,11 @@ Partial Class Ventas
DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1")) DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
DdlSucursalCliente.DataBind() DdlSucursalCliente.DataBind()
'SI UTILIZA EL RFC GENERICO PERMITE FACTURAR SUCURSAL
If (CveVenta <= 0 OrElse NuevaFactura = 1) AndAlso LblRFC.Text.Trim() = "XAXX010101000" Then
HabilitarFacturacionSucursal()
End If
'CargaFolios() 'CargaFolios()
CargaDatosEstimaciones(CveCliente) CargaDatosEstimaciones(CveCliente)
@@ -5576,6 +5613,11 @@ Partial Class Ventas
Private Sub CargaClienteSucursal(CveClienteSuc As Integer, Optional ByRef ObjVentas As ClsVentas = Nothing) Private Sub CargaClienteSucursal(CveClienteSuc As Integer, Optional ByRef ObjVentas As ClsVentas = Nothing)
Me.ClienteSucursal = Nothing
Me.FacturarSucursal = False
LtlTitleRFCSucursal.Text = ""
LtlRFCSucursal.Text = ""
Dim ObjCliente As New ClsClientes Dim ObjCliente As New ClsClientes
If CveClienteSuc > 0 Then If CveClienteSuc > 0 Then
If ObjCliente.GetSucursales(CveCliente, CveClienteSuc) Then If ObjCliente.GetSucursales(CveCliente, CveClienteSuc) Then
@@ -5612,6 +5654,32 @@ Partial Class Ventas
UpParametros.Update() UpParametros.Update()
End If End If
'SI EL CLIENTE TIENE RFC GENERICO Y LA SUCURSAL TIENE RFC DEBE FACTURAR LA SUCURSAL
If LblRFC.Text.Trim() = "XAXX010101000" AndAlso Not String.IsNullOrEmpty(ObjCliente.DtResultados.Rows(0)("RFC").ToString()) Then
Me.FacturarSucursal = True
LtlTitleRFCSucursal.Text = "RFC:"
LtlRFCSucursal.Text = ObjCliente.DtResultados.Rows(0)("RFC").ToString()
Me.ClienteSucursal = New Modelos.SucursalModel
Me.ClienteSucursal.Nombre = ObjCliente.DtResultados.Rows(0)("SucursalCliente").ToString()
Me.ClienteSucursal.RFC = ObjCliente.DtResultados.Rows(0)("RFC").ToString()
Me.ClienteSucursal.NoExt = CliNoExt
Me.ClienteSucursal.NoInt = CliNoInt
Me.ClienteSucursal.Localidad = CliLocalidad
Me.ClienteSucursal.Direccion = LblDireccion.Text
Me.ClienteSucursal.Colonia = LblColonia.Text
Me.ClienteSucursal.Municipio = LblCiudad.Text
Me.ClienteSucursal.Estado = LblEstado.Text
Me.ClienteSucursal.CP = LblCP.Text
Me.ClienteSucursal.Pais = CliPais
Me.ClienteSucursal.CorreoSucursal = CliCorreoCot.ToString()
Me.ClienteSucursal.TelefonoSucursal = LblTelefono.Text
Me.ClienteSucursal.Sucursal = If(DdlSucursalCliente.SelectedValue.ToEntero() > 0, DdlSucursalCliente.SelectedItem.Text, "")
Me.ClienteSucursal.ImprimeNombreSucursal = ImprimeNombreSucursal.ToString()
End If
If CveVenta <= 0 Then If CveVenta <= 0 Then
CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString().ToEntero() CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString().ToEntero()
@@ -5666,10 +5734,12 @@ Partial Class Ventas
LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva() LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva()
End If End If
ObjCliente.Dispose()
UPPVentas.Update() UPPVentas.Update()
UpEstatus.Update() UpEstatus.Update()
UPCondicionesPago.Update() UPCondicionesPago.Update()
ObjCliente.Dispose() UpCliente.Update()
End Sub End Sub
Private Function CargaCreditoDisponible(tCveCliente As Integer, tCveSucursalCliente As Integer, Optional ByRef ObjVentas As ClsVentas = Nothing) As Decimal Private Function CargaCreditoDisponible(tCveCliente As Integer, tCveSucursalCliente As Integer, Optional ByRef ObjVentas As ClsVentas = Nothing) As Decimal
Dim Retorno As Decimal = 0 Dim Retorno As Decimal = 0
@@ -6630,6 +6700,11 @@ Partial Class Ventas
DtOCTmpDT = TmpDT.Copy DtOCTmpDT = TmpDT.Copy
TmpDTError = TmpDT.Copy TmpDTError = TmpDT.Copy
If (Me.FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso String.IsNullOrEmpty(Me.ClienteSucursal.RFC))) Then
Alert("La sucursal no tiene asignada un RFC.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
'CUANDO ES PEDIDO SE DEBE ESPECIFICAR EL NUMERO DE CONTRATO 'CUANDO ES PEDIDO SE DEBE ESPECIFICAR EL NUMERO DE CONTRATO
If TrTipoPedido.Visible AndAlso DdlTipoPedido.SelectedIndex = 2 Then If TrTipoPedido.Visible AndAlso DdlTipoPedido.SelectedIndex = 2 Then
If String.IsNullOrEmpty(TxtObsFact.Text.Trim()) Then If String.IsNullOrEmpty(TxtObsFact.Text.Trim()) Then
@@ -6993,6 +7068,22 @@ Partial Class Ventas
Exit Sub Exit Sub
End If End If
dttsat.Dispose() dttsat.Dispose()
If UsuarioActual.CveEmpresa = 72 Then
Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(SATClaveProdServ,'') = '01010101' ")
If DtNoEncontrados IsNot Nothing AndAlso DtNoEncontrados.Rows.Count > 0 Then
Dim StrNoEncontrados As New StringBuilder
StrNoEncontrados.Append("Los siguientes productos no tiene asignado la clave Producto SAT o Unidad Medida SAT<br/><br/>")
For Each drt As DataRow In DtNoEncontrados.Rows
StrNoEncontrados.AppendFormat("{0} <br/>", drt("CodigoPS"))
Next
Alert(StrNoEncontrados.ToString(), TipoMensaje.MsgAdvertencia)
DtNoEncontrados.Dispose()
StrNoEncontrados.Clear()
Exit Sub
End If
DtNoEncontrados.Dispose()
End If
End If End If
If ObjFactura Is Nothing Or (ObjFactura.Cliente Is Nothing And Not CveEmpresaCRM > 0) Then If ObjFactura Is Nothing Or (ObjFactura.Cliente Is Nothing And Not CveEmpresaCRM > 0) Then
@@ -7904,6 +7995,10 @@ Partial Class Ventas
'ObjFacturaDevolucion.SetSucursal(Me) 'ObjFacturaDevolucion.SetSucursal(Me)
ObjFacturaDevolucion.ClienteSucursal = New Modelos.SucursalModel ObjFacturaDevolucion.ClienteSucursal = New Modelos.SucursalModel
If Me.ClienteSucursal IsNot Nothing Then
ObjFacturaDevolucion.ClienteSucursal.RFC = Me.ClienteSucursal.RFC
ObjFacturaDevolucion.ClienteSucursal.Nombre = Me.ClienteSucursal.Nombre
End If
ObjFacturaDevolucion.ClienteSucursal.NoExt = CliNoExt ObjFacturaDevolucion.ClienteSucursal.NoExt = CliNoExt
ObjFacturaDevolucion.ClienteSucursal.NoInt = CliNoInt ObjFacturaDevolucion.ClienteSucursal.NoInt = CliNoInt
ObjFacturaDevolucion.ClienteSucursal.Localidad = CliLocalidad ObjFacturaDevolucion.ClienteSucursal.Localidad = CliLocalidad
@@ -8140,6 +8235,11 @@ Partial Class Ventas
'ObjFacturaBonificacion.SetSucursal(Me) 'ObjFacturaBonificacion.SetSucursal(Me)
ObjFacturaBonificacion.ClienteSucursal = New Modelos.SucursalModel ObjFacturaBonificacion.ClienteSucursal = New Modelos.SucursalModel
If Me.ClienteSucursal IsNot Nothing Then
ObjFacturaBonificacion.ClienteSucursal.Nombre = Me.ClienteSucursal.Nombre
ObjFacturaBonificacion.ClienteSucursal.RFC = Me.ClienteSucursal.RFC
End If
ObjFacturaBonificacion.ClienteSucursal.NoExt = CliNoExt ObjFacturaBonificacion.ClienteSucursal.NoExt = CliNoExt
ObjFacturaBonificacion.ClienteSucursal.NoInt = CliNoInt ObjFacturaBonificacion.ClienteSucursal.NoInt = CliNoInt
ObjFacturaBonificacion.ClienteSucursal.Localidad = CliLocalidad ObjFacturaBonificacion.ClienteSucursal.Localidad = CliLocalidad
@@ -8371,7 +8471,6 @@ Partial Class Ventas
ObjFactura = New Modelos.Factura ObjFactura = New Modelos.Factura
End If End If
ObjFactura.Version = "3.3" ObjFactura.Version = "3.3"
ObjFactura.CveUsuario = UsuarioActual.CveUsuario ObjFactura.CveUsuario = UsuarioActual.CveUsuario
ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
@@ -8383,7 +8482,7 @@ Partial Class Ventas
ObjFactura.Moneda = DdlMoneda.SelectedItem.Text ObjFactura.Moneda = DdlMoneda.SelectedItem.Text
ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DdlMoneda.SelectedValue}") ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DdlMoneda.SelectedValue}")
ObjFactura.TipoDocto = If(IfNull(ViewState("CveRemision"), 0).ToString().ToEntero() > 0, "Ing", DdlTipoComprobante.SelectedValue) ObjFactura.TipoDocto = If(IfNull(ViewState("CveRemision"), 0).ToString().ToEntero() > 0, "Ing", DdlTipoComprobante.SelectedValue)
ObjFactura.FacturarSucursal = (Me.FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso Not String.IsNullOrEmpty(Me.ClienteSucursal.RFC)))
'ObjFactura.RefDocto = TxtDocto.Text.Trim 'ObjFactura.RefDocto = TxtDocto.Text.Trim
'si es cancelacion, debe de conservar el folio actual 'si es cancelacion, debe de conservar el folio actual
@@ -8832,8 +8931,12 @@ Partial Class Ventas
'ObjFactura.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero() 'ObjFactura.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero()
ObjFactura.SetSubProyectoMatriz(Me) ObjFactura.SetSubProyectoMatriz(Me)
ObjFactura.SetSubProyecto(Me) ObjFactura.SetSubProyecto(Me)
ObjFactura.ClienteSucursal = New Modelos.SucursalModel ObjFactura.ClienteSucursal = New Modelos.SucursalModel()
If Not CveEmpresaCRM > 0 Then If Not CveEmpresaCRM > 0 Then
If Me.ClienteSucursal IsNot Nothing Then
ObjFactura.ClienteSucursal.RFC = Me.ClienteSucursal.RFC
ObjFactura.ClienteSucursal.Nombre = Me.ClienteSucursal.Nombre
End If
ObjFactura.ClienteSucursal.NoExt = CliNoExt ObjFactura.ClienteSucursal.NoExt = CliNoExt
ObjFactura.ClienteSucursal.NoInt = CliNoInt ObjFactura.ClienteSucursal.NoInt = CliNoInt
ObjFactura.ClienteSucursal.Localidad = CliLocalidad ObjFactura.ClienteSucursal.Localidad = CliLocalidad
@@ -9232,7 +9335,12 @@ Partial Class Ventas
ObjFacturaDevolucion.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero() ObjFacturaDevolucion.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero()
ObjFacturaDevolucion.SetSubProyectoMatriz(Me) ObjFacturaDevolucion.SetSubProyectoMatriz(Me)
ObjFacturaDevolucion.SetSubProyecto(Me) ObjFacturaDevolucion.SetSubProyecto(Me)
ObjFacturaDevolucion.ClienteSucursal = New Modelos.SucursalModel ObjFacturaDevolucion.ClienteSucursal = New Modelos.SucursalModel
If Me.ClienteSucursal IsNot Nothing Then
ObjFacturaDevolucion.ClienteSucursal.RFC = Me.ClienteSucursal.RFC
ObjFacturaDevolucion.ClienteSucursal.Nombre = Me.ClienteSucursal.Nombre
End If
ObjFacturaDevolucion.ClienteSucursal.NoExt = CliNoExt ObjFacturaDevolucion.ClienteSucursal.NoExt = CliNoExt
ObjFacturaDevolucion.ClienteSucursal.NoInt = CliNoInt ObjFacturaDevolucion.ClienteSucursal.NoInt = CliNoInt
ObjFacturaDevolucion.ClienteSucursal.Localidad = CliLocalidad ObjFacturaDevolucion.ClienteSucursal.Localidad = CliLocalidad
@@ -9245,6 +9353,7 @@ Partial Class Ventas
ObjFacturaDevolucion.ClienteSucursal.CorreoSucursal = CliCorreoCot.ToString() ObjFacturaDevolucion.ClienteSucursal.CorreoSucursal = CliCorreoCot.ToString()
ObjFacturaDevolucion.ClienteSucursal.TelefonoSucursal = LblTelefono.Text ObjFacturaDevolucion.ClienteSucursal.TelefonoSucursal = LblTelefono.Text
ObjFacturaDevolucion.ClienteSucursal.Sucursal = If(DdlSucursalCliente.SelectedValue.ToEntero() > 0, DdlSucursalCliente.SelectedItem.Text, "") ObjFacturaDevolucion.ClienteSucursal.Sucursal = If(DdlSucursalCliente.SelectedValue.ToEntero() > 0, DdlSucursalCliente.SelectedItem.Text, "")
ObjFacturaDevolucion.ClienteSucursal.ImprimeNombreSucursal = ImprimeNombreSucursal.ToString()
'ENVIO DIRECCION 'ENVIO DIRECCION
ObjFacturaDevolucion.EnviarA = New Modelos.EnviarAModel ObjFacturaDevolucion.EnviarA = New Modelos.EnviarAModel
@@ -9292,13 +9401,18 @@ Partial Class Ventas
Timbre.Comprobante.Confirmacion = "" Timbre.Comprobante.Confirmacion = ""
Timbre.Receptor.RFC = Obj.Cliente.RFC If Obj.FacturarSucursal Then
Timbre.Receptor.Nombre = Obj.Cliente.Nombre Timbre.Receptor.RFC = Obj.ClienteSucursal.RFC
Timbre.Receptor.Nombre = Obj.ClienteSucursal.Nombre
Else
Timbre.Receptor.RFC = Obj.Cliente.RFC
Timbre.Receptor.Nombre = Obj.Cliente.Nombre
End If
Timbre.Receptor.ResidenciaFiscal = "" Timbre.Receptor.ResidenciaFiscal = ""
Timbre.Receptor.NumeroRegistroTributario = "" Timbre.Receptor.NumeroRegistroTributario = ""
Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI
If HdnTipoDescuento.Value = "3" And DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero() > 0 Then If HdnTipoDescuento.Value = "3" And DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero() > 0 Then
Timbre.CFDIRelacionados.TipoRelacion = "07" Timbre.CFDIRelacionados.TipoRelacion = "07"
@@ -9367,8 +9481,6 @@ Partial Class Ventas
End If End If
Dim totSubTotal As Decimal = Obj.SubTotal Dim totSubTotal As Decimal = Obj.SubTotal
Dim totIVA As Decimal = Obj.IVA Dim totIVA As Decimal = Obj.IVA
Dim totRetIVA As Decimal = Obj.RetIVA Dim totRetIVA As Decimal = Obj.RetIVA
@@ -9936,7 +10048,7 @@ Partial Class Ventas
CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero() > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)), CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero() > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)),
CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM, CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False), DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero) Then Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal) Then
ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico") ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
Else Else
If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Or CveEstatusRefacturacion = 1 Then If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Or CveEstatusRefacturacion = 1 Then
@@ -14980,6 +15092,10 @@ Partial Class Ventas
DdlIVA.SelectedValue = "1.16" DdlIVA.SelectedValue = "1.16"
PorcentajeIVA = ViewState("IVA").ToString().ToDecimal PorcentajeIVA = ViewState("IVA").ToString().ToDecimal
End Select End Select
'SI ES COTIZACION HABILITAR EL DDL DE IVA
If CveVenta <= 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
DdlIVA.Visible = True
End If
If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 AndAlso (Not CveVenta > 0 Or EsCreaApartirDe Or CveDevolucion > 0) Then RecalculaIVA() If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 AndAlso (Not CveVenta > 0 Or EsCreaApartirDe Or CveDevolucion > 0) Then RecalculaIVA()
'ViewState("SubProyectoPorcentajeIVA") = dr("IVA") 'ViewState("SubProyectoPorcentajeIVA") = dr("IVA")
ViewState("TipoFormato") = dr("TipoFormato") ViewState("TipoFormato") = dr("TipoFormato")
@@ -15027,7 +15143,11 @@ Partial Class Ventas
DdlVendedor.SelectedValue = "0" DdlVendedor.SelectedValue = "0"
DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0")) DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0"))
DdlVendedorSucursal.DataSource = DdlVendedor.DataSource
DdlVendedor.DataBind() DdlVendedor.DataBind()
DdlVendedorSucursal.DataBind()
DdlVendedor.SelectedValueExist(CveVendedorActual) DdlVendedor.SelectedValueExist(CveVendedorActual)
@@ -15133,7 +15253,7 @@ Partial Class Ventas
If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then
'VALIDA EXISTENCIA 'VALIDA EXISTENCIA
If UsuarioActual.CveEmpresa.Contiene({72, 80, 119}) Then If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153}) Then
If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then
Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia) Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia)
Return False Return False
@@ -15621,6 +15741,11 @@ Partial Class Ventas
MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: Sin Unidad Medida SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString()) MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: Sin Unidad Medida SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
Return False Return False
End If End If
If UsuarioActual.CveEmpresa = 72 AndAlso DrPS("SATClavePS").ToString() = "01010101" Then
MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: El producto/servicio no existe en el catálogo del SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
Return False
End If
End If End If
End If End If
@@ -16709,6 +16834,84 @@ Partial Class Ventas
Protected Sub TxtFolio_TextChanged(sender As Object, e As System.EventArgs) Handles TxtFolio.TextChanged Protected Sub TxtFolio_TextChanged(sender As Object, e As System.EventArgs) Handles TxtFolio.TextChanged
ViewState("EstablecioFolio") = True ViewState("EstablecioFolio") = True
End Sub End Sub
Private Sub HabilitarFacturacionSucursal()
trsucursalciente.Visible = True
LnkAgregarSucursal.Visible = True
LblSucursal.Text = "Cliente"
If (CveVenta <= 0 OrElse NuevaFactura = 1) Then
DdlSucursalCliente.Enabled = True
End If
DdlSucursalCliente_SelectedIndexChanged(DdlSucursalCliente, EventArgs.Empty)
UpCliente.Update()
End Sub
Protected Sub ChkFacturarSucursal_CheckedChanged(sender As Object, e As EventArgs)
End Sub
Protected Sub LnkAgregarSucursal_Click(sender As Object, e As EventArgs)
RegistraScript("showDivAgregarSucursal();")
End Sub
Protected Sub BtnAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarSucursal.Click
Dim LT As String = "0"
Dim LG As String = "0"
If CveCliente > 0 Then
Dim ObjCliente As New ClsClientes
Try
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, "", "",
DdlVendedorSucursal.SelectedValue.ToEntero, "", -1, 0, -1, DdlSucursalUsoCFDI.SelectedValue.ToEntero, -1, -1, LT:=LT, LG:=LG, RFC:=TxtRFCSucursal.Text.Trim()) Then
TxtNombreSucursal.Text = ""
TxtCiudadSucursal.Text = ""
TxtColoniaSucursal.Text = ""
TxtCPSucursal.Text = ""
TxtDireccionSucursal.Text = ""
TxtEstadoSucursal.Text = ""
TxtLocalidadSucursal.Text = ""
TxtPaisSucursal.Text = ""
TxtNumExtSucursal.Text = ""
TxtNumIntSucursal.Text = ""
TxtTelefonoSucursal.Text = ""
TxtCorreoSucursal.Text = ""
DdlVendedorSucursal.SelectedIndex = 0
DdlSucursalUsoCFDI.SelectedIndex = 0
Alert("La nueva Sucursal del Cliente se guardó correctamente.", TipoMensaje.MsgInformacion)
'VUELVE A CARGAR LAS SUCURSALES
DdlSucursalCliente.Items.Clear()
If ObjCliente.GetSucursales(CveCliente) Then
DdlSucursalCliente.DataSource = ObjCliente.DtResultados
If ObjCliente.DtResultados.Rows.Count > 0 Then
trsucursalciente.Visible = True
Else
trsucursalciente.Visible = False
End If
Else
trsucursalciente.Visible = False
DdlSucursalCliente.DataSource = Nothing
End If
DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
DdlSucursalCliente.DataBind()
End If
Catch ex As Exception
OnError("Ocurrió un error al agregar la sucursal", ex)
End Try
ObjCliente.Dispose()
End If
UpCliente.Update()
RegistraScript("hideDivAgregarSucursal();")
End Sub
Private Sub ConfiguraTipoDocto() Private Sub ConfiguraTipoDocto()
'Esconde Todo 'Esconde Todo
@@ -17824,6 +18027,11 @@ Partial Class Ventas
Dim TotalT As Decimal = TxtTotal.Text.ToDecimal Dim TotalT As Decimal = TxtTotal.Text.ToDecimal
Dim RFCReceptor As String = LblRFC.Text.Trim Dim RFCReceptor As String = LblRFC.Text.Trim
'SI SE FACTURO LA SUCURSAL DEL CLIENTE TOMA EL RFC DE ESTA
If FacturarSucursal AndAlso Me.ClienteSucursal IsNot Nothing Then
RFCReceptor = Me.ClienteSucursal.RFC
End If
Dim SWatch As New Stopwatch Dim SWatch As New Stopwatch
SWatch.Start() SWatch.Start()
@@ -18472,12 +18680,22 @@ Partial Class Ventas
Select Case RBLPago.SelectedValue.ToEntero() Select Case RBLPago.SelectedValue.ToEntero()
Case 1 'CREDITO Case 1 'CREDITO
TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
'SI ES CREDITO EL METODO DE PAGO DEBE SER PPD
If UsuarioActual.Empresa.Funcionalidad(589) = "1" Then
DdlMetodoPago33.SelectedValueExist("3")
DdlMetodoPago33.Enabled = False
End If
Case 2 'CONTADO Case 2 'CONTADO
If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Or (UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And DdlTipoComprobante.SelectedValue = "Cot") Then If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Or (UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And DdlTipoComprobante.SelectedValue = "Cot") Then
DivContado.Visible = True DivContado.Visible = True
TxtImporteContado.Text = TxtTotal.Text TxtImporteContado.Text = TxtTotal.Text
End If End If
TxtFechaPago.Text = Now.ToShortDateString TxtFechaPago.Text = Now.ToShortDateString
'SI ES CONTADO EL METODO DE PAGO DEBE SER PUE
If UsuarioActual.Empresa.Funcionalidad(589) = "1" Then
DdlMetodoPago33.SelectedValueExist("1")
DdlMetodoPago33.Enabled = False
End If
Case 3 ' TERMINAL Case 3 ' TERMINAL
DivTerminal.Visible = True DivTerminal.Visible = True
TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
@@ -18485,6 +18703,7 @@ Partial Class Ventas
LimpiaContado() LimpiaContado()
UpContado.Update() UpContado.Update()
UPCondicionesPago.Update()
End Sub End Sub
Private Sub CargaCuentas() Private Sub CargaCuentas()
@@ -18497,8 +18716,8 @@ Partial Class Ventas
Dim DtCC As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) Dim DtCC As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlCuentaEfectivo.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) DdlCuentaEfectivo.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
DdlCuentaCheque.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) DdlCuentaCheque.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
@@ -20040,6 +20259,12 @@ Partial Class Ventas
Dim TotalT As Decimal = TxtTotal.Text.ToDecimal Dim TotalT As Decimal = TxtTotal.Text.ToDecimal
Dim RFCReceptor As String = LblRFC.Text.Trim Dim RFCReceptor As String = LblRFC.Text.Trim
'SI SE FACTURO LA SUCURSAL DEL CLIENTE TOMA EL RFC DE ESTA
If FacturarSucursal AndAlso Me.ClienteSucursal IsNot Nothing Then
RFCReceptor = Me.ClienteSucursal.RFC
End If
Dim SWatch As New Stopwatch Dim SWatch As New Stopwatch
SWatch.Start() SWatch.Start()
Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), True) Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), True)
@@ -25953,6 +26178,12 @@ Partial Class Ventas
Return Retorno Return Retorno
End Function End Function
Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String) Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String)
If (FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso String.IsNullOrEmpty(Me.ClienteSucursal.RFC))) Then
Alert("La sucursal no tiene asignada un RFC.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And RBLPago.SelectedValue.ToEntero() = 2 Then If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And RBLPago.SelectedValue.ToEntero() = 2 Then
Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia) Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia)
Else Else

187
asmx/WSApp.asmx
View File

@@ -43,6 +43,7 @@ Public Class WSApp
ObjPS.Dispose() ObjPS.Dispose()
End Get End Get
End Property End Property
Property GlobalDTMonedas() As DataTable Property GlobalDTMonedas() As DataTable
Get Get
GlobalDTMonedas = DirectCast(Application("GlobalDTMonedas"), DataTable) GlobalDTMonedas = DirectCast(Application("GlobalDTMonedas"), DataTable)
@@ -326,33 +327,42 @@ Public Class WSApp
Application("GlobalDTCompProveedores") = value Application("GlobalDTCompProveedores") = value
End Set End Set
End Property End Property
Property GlobalDTProductosServicios(CveEmpresa As Integer, Optional CveClasificacion As Integer = -1, Optional CveClasificacionCosto As Integer = -1, Optional Estatus As Integer = 1, Optional CvePS As Integer = -1, Optional AplicaParaVenta As Integer = -1, Optional CveTipoPS As Integer = -1) As DataTable Public Property GlobalDTPSSimplificado(CveEmpresa As Integer, Optional CveClasificacion As Integer = -1, Optional PSCodigo As String = "-1", Optional Estatus As Integer = 1, Optional AplicaParaVenta As Integer = -1, Optional CvePS As Integer = -1) As DataTable
Get Get
If CveEmpresa = -1 Then Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)
GlobalDTProductosServicios = DirectCast(Application("GlobalDTProductosServicios"), EnumerableRowCollection(Of DataRow)).CopyToDataTable If CveEmpresa <> -1 Then
Else 'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then
Dim Cons = DirectCast(Application("GlobalDTProductosServicios"), EnumerableRowCollection(Of DataRow)) Dim ObjPS As New ClsProductosServicios
Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa)) If ObjPS.GetPSSimplificado(CveEmpresa) Then Application(AppNombre) = ObjPS.DtResultados.AsEnumerable()
If CveClasificacion >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveClasificacion) = CveClasificacion)) ObjPS.Dispose()
If CveClasificacionCosto >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveClasificacionCosto) = CveClasificacionCosto))
If Estatus >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEstado) = Estatus)) End If
If CvePS >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CvePS) = CvePS))
If AplicaParaVenta >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!AplicaParaVenta) = AplicaParaVenta))
If CveTipoPS >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveTipoPS) = CveTipoPS)) Dim Cons = DirectCast(Application(AppNombre), EnumerableRowCollection(Of DataRow))
'Try, generado para cuando el resultado no tiene valores(The source contains no DataRows.), no detenga la ejecucion, no se le puso un count previo, porque el costo se duplica, al preguntar y luego ordenar y convertir a datatable Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa))
Try If CveClasificacion >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveClasificacion) = CveClasificacion))
GlobalDTProductosServicios = Cons.OrderBy(Function(a) a!PS).CopyToDataTable If PSCodigo <> "-1" Then Cons = Cons.Where((Function(a) Convert.ToString(a!PSCodigo) = PSCodigo))
Catch ex As Exception If Estatus >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEstado) = Estatus))
GlobalDTProductosServicios = New DataTable If AplicaParaVenta >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!AplicaParaVenta) = AplicaParaVenta))
End Try If CvePS >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CvePS) = CvePS))
End If
Try
End Get GlobalDTPSSimplificado = Cons.OrderBy(Function(a) a!PSCodigo).CopyToDataTable
Set(value As DataTable) Catch ex As Exception
Application("GlobalDTProductosServicios") = value GlobalDTPSSimplificado = New DataTable
End Set End Try
Else
GlobalDTPSSimplificado = DirectCast(Application(AppNombre), EnumerableRowCollection(Of DataRow)).CopyToDataTable
End If
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)
Application(AppNombre) = value
End Set
End Property End Property
Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1) As DataTable Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1) As DataTable
Get Get
@@ -548,15 +558,19 @@ Public Class WSApp
Salida.CveSubProyecto = UsuarioActual.CveSubProyecto Salida.CveSubProyecto = UsuarioActual.CveSubProyecto
Salida.Procesos = UsuarioActual.Procesos.Values.Cast(Of String).ToList() Salida.Procesos = UsuarioActual.Procesos.Values.Cast(Of String).ToList()
If ObjClientes.GetClientes(UsuarioActual.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then If UsuarioActual.CveCliente > 0 AndAlso ObjClientes.GetClientes(UsuarioActual.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
If ObjClientes.DtResultados.Rows.Count > 0 Then If ObjClientes.DtResultados.Rows.Count > 0 Then
Salida.Cliente = ObjClientes.Nombre Salida.Cliente = ObjClientes.Nombre
Salida.CvePrecioLista = ObjClientes.CvePrecioLista Salida.CvePrecioLista = ObjClientes.CvePrecioLista
Salida.CveEstatusCliente = If(ObjClientes.Estatus, 1, 0) Salida.CveEstatusCliente = If(ObjClientes.Estatus, 1, 0)
End If
End If retorno = JsonConvert.SerializeObject(Salida)
End If
retorno = JsonConvert.SerializeObject(Salida) Else
retorno = "{}"
End If
Else Else
retorno = "{}" retorno = "{}"
End If End If
@@ -711,26 +725,41 @@ Public Class WSApp
End If End If
If ListaPS IsNot Nothing Then If ListaPS IsNot Nothing Then
Dim Continuar As Boolean = False Dim Continuar As Boolean = False
Dim ObjPS As New ClsProductosServicios Dim ObjPS As New ClsProductosServicios
For Each PS In ListaPS Try
If ObjPS.GetPSExistencias(PS.CvePS, -1, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then For Each PS In ListaPS
If ObjPS.DtResultados.Rows.Count > 0 Then Dim CveTipoPS As Integer = GlobalDTPSSimplificado(CveEmpresa, CvePS:=PS.CvePS).FiltroPrimeroValor("CveTipoPS").ToEntero()
Dim Existencia As Decimal = ObjPS.DtResultados.Rows(0)("Existencia").ToString().ToDecimal() If CveTipoPS > 0 Then
Dim CveTipoPS As Integer = ObjPS.DtResultados.Rows(0)("CveTipoPS").ToString().ToEntero() If CveTipoPS = 2 Then
If ObjPS.GetPSExistencias(PS.CvePS, -1, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then
Continuar = (CveTipoPS = 2 AndAlso Existencia > 0) OrElse (CveTipoPS = 1) If ObjPS.DtResultados.Rows.Count > 0 Then
Dim Existencia As Decimal = ObjPS.DtResultados.Rows(0)("Existencia").ToString().ToDecimal()
If Not Continuar Then 'Dim CveTipoPS As Integer = ObjPS.DtResultados.Rows(0)("CveTipoPS").ToString().ToEntero()
Retorno.Mensajes.Add($"El producto/servicio {ObjPS.DtResultados.Rows(0)("PS")} no tiene existencia.")
Exit For Continuar = Existencia > 0
End If
Else If Not Continuar Then
Continuar = False Retorno.Mensajes.Add($"El producto/servicio {ObjPS.DtResultados.Rows(0)("PS")} no tiene existencia.")
Retorno.Mensajes.Add("No se pudo comprobar la existencia.") Exit For
Exit For End If
End If Else
End If Continuar = False
Next Retorno.Mensajes.Add("No se pudo comprobar la existencia.")
Exit For
End If
End If
ElseIf CveTipoPS = 1 Then
Continuar = True
End If
Else
Continuar = False
Retorno.Mensajes.Add("No se pudo comprobar si es producto o servicio.")
End If
Next
Catch ex As Exception
OnError("Ocurrió un error al consultar la existencia", ex)
Continuar = False
End Try
ObjPS.Dispose() ObjPS.Dispose()
If Continuar Then If Continuar Then
@@ -745,23 +774,16 @@ Public Class WSApp
Dim Correo As String = If(CveSubProyecto.Contiene(11714, 11761), "mezclas.pescadito@gmail.com", "pedidosaguas@gmail.com") Dim Correo As String = If(CveSubProyecto.Contiene(11714, 11761), "mezclas.pescadito@gmail.com", "pedidosaguas@gmail.com")
'Dim Correo As String = "japmx95@gmail.com" 'Dim Correo As String = "japmx95@gmail.com"
Dim SerieFolio As String = Factura.SerieFolio Dim SerieFolio As String = Factura.SerieFolio
Dim DireccionEnvio As String = "" Dim DireccionEnvio As String = ""
Dim ObjClientes As New ClsClientes Using ObjClientes As New ClsClientes
If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then
If ObjClientes.DtResultados.Rows.Count > 0 Then If ObjClientes.DtResultados.Rows.Count > 0 Then
DireccionEnvio = ObjClientes.DtResultados.FiltroPrimeroValor("DireccionEnvioContacto") DireccionEnvio = ObjClientes.DtResultados.FiltroPrimeroValor("DireccionEnvioContacto")
End If End If
End If End If
ObjClientes.Dispose() End Using
Dim Body = GeneraCorreoRemision(Retorno.CveVenta, SerieFolio, Factura.Cliente.Nombre, Factura.Cliente.NombreComercial, DireccionEnvio, Observaciones, DateTime.Now) Factura.Dispose()
Factura.Dispose() EnviarCorreo(Correo, Factura, Retorno, DireccionEnvio, UsuarioActual)
Try
Dim Asunto As String = String.Format("SIG - Se ha realizado un pedido: {0}", SerieFolio)
Dim Mail As New ClsSisMail()
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo, Asunto, Body)
Catch ex As Exception
OnError("Ocurrió error al mandar MAIL por cambio de Estatus", ex)
End Try
Else Else
Factura.Dispose() Factura.Dispose()
End If End If
@@ -779,7 +801,26 @@ Public Class WSApp
End Try End Try
Return JsonConvert.SerializeObject(Retorno) Return JsonConvert.SerializeObject(Retorno)
End Function End Function
Private Sub EnviarCorreo(Correo As String, Factura As Modelos.Factura, Retorno As Modelos.Factura.MMensajeFactura, DireccionEnvio As String, UsuarioActual As Usuario)
Try
Dim Hilo As New System.Threading.Thread(Sub() EnviarCorreoFactura(Correo, Factura, Retorno, DireccionEnvio, UsuarioActual))
Hilo.Start()
Catch ex As Exception
OnError("Ocurrió error al mandar el correo de facturación", ex)
End Try
End Sub
Private Sub EnviarCorreoFactura(Correo As String, Factura As Modelos.Factura, Retorno As Modelos.Factura.MMensajeFactura, DireccionEnvio As String, UsuarioActual As Usuario)
Dim Body = GeneraCorreoRemision(Retorno.CveVenta, Retorno.SerieFolio, Factura.Cliente.Nombre, Factura.Cliente.NombreComercial, DireccionEnvio, Factura.Observaciones, DateTime.Now)
Factura.Dispose()
Try
Dim Asunto As String = String.Format("SIG - Se ha realizado un pedido: {0}", Retorno.SerieFolio)
Dim Mail As New ClsSisMail()
Mail.SendMail(UsuarioActual.Empresa, Correo, Asunto, Body)
Catch ex As Exception
OnError("Ocurrió error al mandar MAIL por cambio de Estatus", ex)
End Try
End Sub
<WebMethod()> <WebMethod()>
Public Function CancelarDocumento(CveVenta As Integer, CveUsuario As Integer) As String Public Function CancelarDocumento(CveVenta As Integer, CveUsuario As Integer) As String
Dim Retorno = New Modelos.Factura.MMensajeFactura() Dim Retorno = New Modelos.Factura.MMensajeFactura()
@@ -1370,8 +1411,8 @@ Public Class WSApp
Row("Total") = (PS.Cantidad.Value * PS.Precio) Row("Total") = (PS.Cantidad.Value * PS.Precio)
Row("TotalImporte") = Math.Round(PS.Cantidad.Value * PS.Precio, 2) Row("TotalImporte") = Math.Round(PS.Cantidad.Value * PS.Precio, 2)
Row("SATClaveProdServ") = DrPS("SATClavePS") Row("SATClaveProdServ") = DrPS("SATClavePS")
Row("SATClaveUM") = DrPS("SATClaveUnidadMedida") Row("SATClaveUM") = DrPS("SATClaveUnidadMedida")
Row("EntregaDirecta") = EntregaDirecta Row("EntregaDirecta") = EntregaDirecta