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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2019-09-26 18:58:31 -07:00
parent 70d0f69c35 8e93735281
commit c2b64d83f7
15 changed files with 111 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsContPAQi.vb
View File

@@ -3322,7 +3322,7 @@ Public Class ClsContPAQi
StrSQL.Append(" AND (@Codigo = '-1' OR C.Codigo = @Codigo) ") StrSQL.Append(" AND (@Codigo = '-1' OR C.Codigo = @Codigo) ")
StrSQL.Append(" AND (@Afectable = -1 OR C.Afectable = @Afectable) ") StrSQL.Append(" AND (@Afectable = -1 OR C.Afectable = @Afectable) ")
StrSQL.Append(" AND (@IdPadre = -1 OR CFad.Id = @IdPadre) ") StrSQL.Append(" AND (@IdPadre = -1 OR CFad.Id = @IdPadre) ")
StrSQL.Append(" ORDER BY C.id ") StrSQL.Append(" ORDER BY C.Codigo ")
''JJMQ - 20150210: Agregué la cuenta contable padre ''JJMQ - 20150210: Agregué la cuenta contable padre
'StrSQL.Append(" SELECT Top(@RowNum) Id, Codigo, Nombre, ") 'StrSQL.Append(" SELECT Top(@RowNum) Id, Codigo, Nombre, ")

2
App_Code/ClsGenerales.vb
View File

@@ -117,7 +117,7 @@ Public Class ClsGenerales
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error registrar el cierre de conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
CveConexion = 0 CveConexion = 0
End If End If

4
Ashx/SIGWeb.ashx
View File

@@ -219,7 +219,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Dim CvePS = IfNull(context.Request("cveps"), "0").ToString.ToEntero Dim CvePS = IfNull(context.Request("cveps"), "0").ToString.ToEntero
Dim objInv As New ClsInventarios Dim objInv As New ClsInventarios
If objInv.GetExistenciasPS(CvePS, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then If objInv.GetExistenciasProducto(CvePS, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then
' limpio los almacenes donde no tiene ningun producto existencia ' limpio los almacenes donde no tiene ningun producto existencia
For i = objInv.DtResultados.Columns.Count - 1 To 1 Step -1 For i = objInv.DtResultados.Columns.Count - 1 To 1 Step -1
@@ -300,7 +300,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
End If End If
If usuario.Empresa.Funcionalidad(558) = 1 Then If usuario.Empresa.Funcionalidad(558) = "1" Then
Try Try
Dim NobreFiltroColumna As String = DtPSRetorno.Columns(3).ColumnName Dim NobreFiltroColumna As String = DtPSRetorno.Columns(3).ColumnName
DtPSRetorno = DtPSRetorno.FiltraParametros($"{NobreFiltroColumna} > 0") DtPSRetorno = DtPSRetorno.FiltraParametros($"{NobreFiltroColumna} > 0")

BIN
Bin/GoCfdi.dll
View File

Binary file not shown.

3
Contabilidad/OCDetalleAlmacen.aspx
View File

@@ -37,7 +37,8 @@
<asp:BoundField DataField="Cargo" HeaderText="Cargo" DataFormatString="{0:C2}" ></asp:BoundField> <asp:BoundField DataField="Cargo" HeaderText="Cargo" DataFormatString="{0:C2}" ></asp:BoundField>
<asp:BoundField DataField="Abono" HeaderText="Abono" DataFormatString="{0:C2}"></asp:BoundField> <asp:BoundField DataField="Abono" HeaderText="Abono" DataFormatString="{0:C2}"></asp:BoundField>
<asp:BoundField DataField="Dif" HeaderText="Dif" DataFormatString="{0:C2}" ></asp:BoundField> <asp:BoundField DataField="Dif" HeaderText="Dif" DataFormatString="{0:C2}" ></asp:BoundField>
<asp:BoundField DataField="CveCompra" HeaderText="CveCompra"></asp:BoundField> <asp:BoundField DataField="CveCompra" HeaderText="CveCompra"></asp:BoundField>
<asp:BoundField DataField="Fecha" HeaderText="Fecha"></asp:BoundField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>

4
Contabilidad/OCDetalleAlmacen.aspx.vb
View File

@@ -35,7 +35,7 @@ Partial Class Contabilidad_OCDetalleAlmacen
If ObjConta.GetOCDetalleAlmacen(1000D, UsuarioActual.CveEmpresa) Then If ObjConta.GetOCDetalleAlmacen(100000D, UsuarioActual.CveEmpresa) Then
If ObjConta.DtResultados.Rows.Count > 0 Then If ObjConta.DtResultados.Rows.Count > 0 Then
DTDatos = ObjConta.DtResultados DTDatos = ObjConta.DtResultados
@@ -95,7 +95,7 @@ Partial Class Contabilidad_OCDetalleAlmacen
If Chk IsNot Nothing AndAlso Chk.Checked Then If Chk IsNot Nothing AndAlso Chk.Checked Then
CvePrePoliza = ObjConta.AddPrePolizas(modulo, 3, Diferencia, Diferencia, CveMoneda, Fecha, modulo, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) CvePrePoliza = ObjConta.AddPrePolizas(modulo, 3, Diferencia, Diferencia, CveMoneda, Fecha, Referencia, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
GvDrow.Cells(1).Text = CvePrePoliza.ToString GvDrow.Cells(1).Text = CvePrePoliza.ToString
mensaje = mensaje & $"CvePrePoliza {CvePrePoliza } OC: {Folio} Importe :{Diferencia} <br>" mensaje = mensaje & $"CvePrePoliza {CvePrePoliza } OC: {Folio} Importe :{Diferencia} <br>"

4
OS/Asignaciones.aspx
View File

@@ -155,8 +155,8 @@
<span class="caption-subject bold uppercase">Ordenes Sin Asignar</span> <span class="caption-subject bold uppercase">Ordenes Sin Asignar</span>
<div class="row" id="DivAsignar" runat="server" style="margin-left: 15px;"> <div class="row" id="DivAsignar" runat="server" style="margin-left: 15px;">
<asp:DropDownList ID="DdlTecnico" CssClass="form-control input-sm select2me" runat="server" DataTextField="Nombre" DataValueField="CveUsuario"></asp:DropDownList> <asp:DropDownList ID="DdlTecnico" CssClass="form-control input-sm select2me" runat="server" DataTextField="Nombre" Visible="true" DataValueField="CveUsuario"></asp:DropDownList>
<asp:Button ID="BtnAsignar" CssClass="btn btn-primary" runat="server" Text="Asignar" ValidationGroup="Asignar" /> <asp:Button ID="BtnAsignar" CssClass="btn btn-primary" runat="server" Text="Asignar" ValidationGroup="Asignar" Visible="true" />
</div> </div>
</div> </div>
<div class="actions"> <div class="actions">

1
OS/Asignaciones.aspx.vb
View File

@@ -48,6 +48,7 @@ Partial Class OS_Asignaciones
BtnAsignar.Visible = False BtnAsignar.Visible = False
End If End If
End If End If
ObjEstatusPermisos.Dispose()
End If End If
End Sub End Sub

2
OS/CatEstatusOrdenServicio.aspx.vb
View File

@@ -191,7 +191,7 @@ Partial Class OS_CatEstatusOrdenServicio
Protected Sub CargaGridEstatusUsuarios() Protected Sub CargaGridEstatusUsuarios()
GvEstatusUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) GvEstatusUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
GvEstatusUsuarios.DataBind() GvEstatusUsuarios.DataBind()
UPPEmp.Update() 'UPPEmp.Update()
End Sub End Sub
Protected Sub btnGuardarEstatusUsuariosREQ_Click(sender As Object, e As EventArgs) Handles btnGuardarEstatusUsuariosREQ.Click Protected Sub btnGuardarEstatusUsuariosREQ_Click(sender As Object, e As EventArgs) Handles btnGuardarEstatusUsuariosREQ.Click

68
OS/OrdenesServicios.aspx.vb
View File

@@ -222,6 +222,14 @@ Partial Class OS_OrdenesServicios
ViewState("TmpDTCuentaEquipo") = value ViewState("TmpDTCuentaEquipo") = value
End Set End Set
End Property End Property
Private Property EstatusOSDelUsuario As DataTable
Get
Return CType(ViewState("EstatusOSDelUsuario"), DataTable)
End Get
Set(value As DataTable)
ViewState("EstatusOSDelUsuario") = value
End Set
End Property
Private Property MensajeAlert As StringBuilder Private Property MensajeAlert As StringBuilder
Get Get
Return CType(ViewState("MensajeAlert"), StringBuilder) Return CType(ViewState("MensajeAlert"), StringBuilder)
@@ -263,6 +271,16 @@ Partial Class OS_OrdenesServicios
CreaDtSolicitarMateriales() CreaDtSolicitarMateriales()
CveSub = -1 CveSub = -1
'Carga estatus 'Carga estatus
Dim ObjEstatusPermisos As New ClsOS
If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
EstatusOSDelUsuario = ObjEstatusPermisos.DtResultados
Dim PermisoEstatus As New DataTable
PermisoEstatus = ObjEstatusPermisos.DtResultados.FiltraParametros("TipoEstatus = 1")
If PermisoEstatus.Rows.Count = 0 Then
UpGuardar.Visible = False
End If
End If
ObjEstatusPermisos.Dispose()
CargaEstatusOS(2) CargaEstatusOS(2)
'Carga cliente 'Carga cliente
@@ -298,7 +316,7 @@ Partial Class OS_OrdenesServicios
'Carga OS 'Carga OS
If CveOS > 0 Then If CveOS > 0 Then
CargaDatos() CargaDatos()
PermisosSegunEstatus() 'PermisosSegunEstatus()
CargaDetalles() CargaDetalles()
CargaMateriales() CargaMateriales()
@@ -324,15 +342,6 @@ Partial Class OS_OrdenesServicios
hdnEsThickbox.Value = "S" hdnEsThickbox.Value = "S"
hdnClientIDLink.Value = "NoDefinido" hdnClientIDLink.Value = "NoDefinido"
Dim ObjEstatusPermisos As New ClsOS
If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
Dim PermisoEstatus As New DataTable
PermisoEstatus = ObjEstatusPermisos.DtResultados.FiltraParametros("TipoEstatus = 1")
If PermisoEstatus.Rows.Count = 0 Then
UpGuardar.Visible = False
End If
End If
ObjEstatusPermisos.Dispose()
End If End If
End Sub End Sub
@@ -367,13 +376,13 @@ Partial Class OS_OrdenesServicios
TmpDT.AcceptChanges() TmpDT.AcceptChanges()
End Sub End Sub
Protected Sub DdlEstatusOS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusOS.SelectedIndexChanged Protected Sub DdlEstatusOS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusOS.SelectedIndexChanged
Dim TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue), "CveEstatusOrdenServicio ASC") Dim tipoDeEstatusSeleccionado As String = EstatusOSDelUsuario.FiltroPrimero(String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue)).Item("TipoEstatusTexto").ToString
Select Case TipoEstatus.ToEntero Select Case tipoDeEstatusSeleccionado
Case 2 Case "Inicial"
'Proceso 'Proceso
Case 3 Case "Terminado"
'Terminada 'Terminada
'Checar que todos los detalles esten terminados para poder cambiar a terminada 'Checar que todos los detalles esten terminados para poder cambiar a terminada
If TmpDT.COUNT("Estatus", "Estatus = 'False'").ToEntero > 0 Then If TmpDT.COUNT("Estatus", "Estatus = 'False'").ToEntero > 0 Then
@@ -382,18 +391,23 @@ Partial Class OS_OrdenesServicios
'Regresar a estatus Atendiendo 'Regresar a estatus Atendiendo
'DdlEstatusOS.SelectedValue = "2" 'DdlEstatusOS.SelectedValue = "2"
End If End If
Case 4 ' Case 4
'Cancelada ' 'Cancelada
Case 5 ' Case 5
'Entregada ' 'Entregada
Guardar(True) ' Guardar(True)
Case "Cancelada"
Dim CanceladoOrdenMinimo As String = EstatusOSDelUsuario.FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 5", "Orden ASC").ToString
DdlEstatusOS.SelectedValue = CanceladoOrdenMinimo
'DdlEstatusOS.SelectedIndex = CanceladoOrdenMinimo
End Select End Select
'CargaEstatusOS(DdlEstatusOS.SelectedValue.ToEntero) ''CargaEstatusOS(DdlEstatusOS.SelectedValue.ToEntero)
PermisosSegunEstatus() 'PermisosSegunEstatus()
GvPS.DataSource = TmpDT 'GvPS.DataSource = TmpDT
GvPS.DataBind() 'GvPS.DataBind()
End Sub End Sub
#End Region #End Region
@@ -647,9 +661,9 @@ Partial Class OS_OrdenesServicios
End Sub End Sub
Private Sub CargaEstatusOS(ValorSeleccionado As Integer) Private Sub CargaEstatusOS(ValorSeleccionado As Integer)
DdlEstatusOS.Items.Clear() DdlEstatusOS.Items.Clear()
DdlEstatusOS.DataSource = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) DdlEstatusOS.DataSource = EstatusOSDelUsuario
DdlEstatusOS.DataBind() DdlEstatusOS.DataBind()
DdlEstatusOS.SelectedValue = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "CveEstatusOrdenServicio ASC") DdlEstatusOS.SelectedValue = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "Orden ASC")
End Sub End Sub
Private Sub CargaPS(CveClasificacion As Integer, Objeto As DropDownList) Private Sub CargaPS(CveClasificacion As Integer, Objeto As DropDownList)
Objeto.Items.Clear() Objeto.Items.Clear()
@@ -1455,7 +1469,9 @@ Partial Class OS_OrdenesServicios
Dim DetallesPendientes As Integer = TmpDT.COUNT("Estatus", "Estatus = 'False'").ToEntero Dim DetallesPendientes As Integer = TmpDT.COUNT("Estatus", "Estatus = 'False'").ToEntero
If DetallesPendientes = 0 Then Dim TipoEstatusSeleccionado As Integer = EstatusOSDelUsuario.FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {}", DdlEstatusOS.SelectedValue), "Orden ASC").ToEntero
If DetallesPendientes = 0 AndAlso TipoEstatusSeleccionado = 2 Then
'Se estatus de OS a TERMINADO 'Se estatus de OS a TERMINADO
DdlEstatusOS.SelectedValueExist(GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 3", "CveEstatusOrdenServicio ASC")) DdlEstatusOS.SelectedValueExist(GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 3", "CveEstatusOrdenServicio ASC"))
DdlEstatusOS_SelectedIndexChanged(sender, New EventArgs) DdlEstatusOS_SelectedIndexChanged(sender, New EventArgs)

2
RH/CatPersonalRequerido.aspx.vb
View File

@@ -76,7 +76,7 @@ Partial Class RH_CatPersonalRequerido
End Sub End Sub
Private Sub CargaProyectos() Private Sub CargaProyectos()
ReqProyectoDdl.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa, 1) ReqProyectoDdl.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa, 1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
ReqProyectoDdl.DataBind() ReqProyectoDdl.DataBind()
ReqProyectoDdl.Items.Insert(0, New ListItem("Seleccione el Proyecto", "-1")) ReqProyectoDdl.Items.Insert(0, New ListItem("Seleccione el Proyecto", "-1"))
End Sub End Sub

2
Ventas/Clientes.aspx
View File

@@ -425,7 +425,7 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtRFC" Style="text-transform: uppercase;" runat="server" CssClass="form-control" MaxLength="13"></asp:TextBox> <asp:TextBox ID="TxtRFC" Style="text-transform: uppercase;" runat="server" CssClass="form-control" MaxLength="13"></asp:TextBox>
<asp:RegularExpressionValidator ID="REVRFC" runat="server" ControlToValidate="TxtRFC" 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 correctamente." ValidationGroup="GrpGuardar" ValidationExpression="^[a-zA-Z.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator> <asp:RegularExpressionValidator ID="REVRFC" runat="server" ControlToValidate="TxtRFC" 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 correctamente." ValidationGroup="GrpGuardar" ValidationExpression="^[a-zA-Z.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
<ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender1" TargetControlID="TxtRFC" FilterType="UppercaseLetters, Numbers,LowercaseLetters, Custom" runat="server" ValidChars="&" InvalidChars="-" /> <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender1" TargetControlID="TxtRFC" FilterType="UppercaseLetters, Numbers,LowercaseLetters, Custom" runat="server" ValidChars="&Ñ" InvalidChars="-" />
<asp:RequiredFieldValidator ID="RFVRFC" runat="server" ControlToValidate="TxtRFC" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVRFC" runat="server" ControlToValidate="TxtRFC" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<label for="<%= TxtRFC.ClientID.ToString()%>">RFC:</label> <label for="<%= TxtRFC.ClientID.ToString()%>">RFC:</label>
<i></i> <i></i>

2
Ventas/PV.aspx.vb
View File

@@ -4582,7 +4582,7 @@ Partial Class PV
Private Sub BtnValidarRFC_Click(sender As Object, e As EventArgs) Handles BtnValidarRFC.Click Private Sub BtnValidarRFC_Click(sender As Object, e As EventArgs) Handles BtnValidarRFC.Click
If TxtRFCCliente.Text = "XAXX010101000" Then If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then
DivNombreCliente.Visible = True DivNombreCliente.Visible = True
DivDireccionCliente.Visible = True DivDireccionCliente.Visible = True
DivNumeroCPCliente.Visible = True DivNumeroCPCliente.Visible = True

8
Ventas/Ventas.aspx
View File

@@ -2952,14 +2952,14 @@
<asp:TextBox ID="TxtImporteCredito" CssClass="form-control input-sm " runat="server" MaxLength="12" Width="100px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox> <asp:TextBox ID="TxtImporteCredito" CssClass="form-control input-sm " runat="server" MaxLength="12" Width="100px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender1" runat="server" TargetControlID="TxtImporteCredito" FilterType="Custom, Numbers" ValidChars=".," /> <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender1" runat="server" TargetControlID="TxtImporteCredito" FilterType="Custom, Numbers" ValidChars=".," />
</div> </div>
<div class="col-md-6" runat="server" id="DivDdlCuentaTarjetaCredito" > <div class="col-md-6" runat="server" id="DivDdlCuentaTarjetaCredito" style="margin-right:-40px" >
<asp:DropDownList ID="DdlCuentaTarjetaCredito" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100%"></asp:DropDownList> <asp:DropDownList ID="DdlCuentaTarjetaCredito" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100%"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="DdlCuentaTarjetaCredito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAgregarPago"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="DdlCuentaTarjetaCredito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAgregarPago"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender5" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender5" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="300px"></ajax:ValidatorCalloutExtender>
</div> </div>
<div class="col-md-3" runat="server" id="DivMesesSinIntereses" visible="false"> <div class="col-md-3" runat="server" id="DivMesesSinIntereses" visible="false" style="text-align:right;">
<asp:DropDownList ID="DDlMesesSinIntereses" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100%"> <asp:DropDownList ID="DDlMesesSinIntereses" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="80%">
<asp:ListItem Value="-1">Meses</asp:ListItem> <asp:ListItem Value="-1">MSI</asp:ListItem>
<asp:ListItem Value="3">3M</asp:ListItem> <asp:ListItem Value="3">3M</asp:ListItem>
<asp:ListItem Value="6">6M</asp:ListItem> <asp:ListItem Value="6">6M</asp:ListItem>
<asp:ListItem Value="9">9M</asp:ListItem> <asp:ListItem Value="9">9M</asp:ListItem>

91
Ventas/Ventas.aspx.vb
View File

@@ -1813,7 +1813,7 @@ Partial Class Ventas
'ImgCerrarTerminoCorte.Attributes.Add("OnClick", "$('#DivTerminarCorte').hide();") 'ImgCerrarTerminoCorte.Attributes.Add("OnClick", "$('#DivTerminarCorte').hide();")
'ImgCerrarIE.Attributes.Add("OnClick", "$('#DivIngresoEgreso').hide();")DdlTipoComprobante 'ImgCerrarIE.Attributes.Add("OnClick", "$('#DivIngresoEgreso').hide();")DdlTipoComprobante
'ImgCerrarEstadoCaja.Attributes.Add("OnClick", "$('#DivEstadoCaja').hide();") 'ImgCerrarEstadoCaja.Attributes.Add("OnClick", "$('#DivEstadoCaja').hide();")
TabAlmacen.Enabled = UsuarioActual.Empresa.UsaInventarios TabAlmacen.Enabled = UsuarioActual.Empresa.UsaInventarios Or UsuarioActual.Empresa.Funcionalidad(567) = "1"
TxtPorDescP.Attributes.Add("onKeyUp", "CalculaDescuento();") TxtPorDescP.Attributes.Add("onKeyUp", "CalculaDescuento();")
TxtDescP.Attributes.Add("onKeyUp", "CalculaDescuento();") TxtDescP.Attributes.Add("onKeyUp", "CalculaDescuento();")
TxtCantidadPyME.Attributes.Add("onkeypress", "cambiaFoco('TxtPrecioPyME')") TxtCantidadPyME.Attributes.Add("onkeypress", "cambiaFoco('TxtPrecioPyME')")
@@ -2436,7 +2436,7 @@ Partial Class Ventas
If UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 Then If UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 Then
DivMesesSinIntereses.Visible = True DivMesesSinIntereses.Visible = True
DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-3") DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4")
DivContadoOtros.Visible = True DivContadoOtros.Visible = True
End If End If
@@ -5705,6 +5705,10 @@ Partial Class Ventas
Private Sub GvInv_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvInv.RowDataBound Private Sub GvInv_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvInv.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then
e.Row.FCCheckBox("cbInv").Checked = True
End If
'SERIE ALMACEN 'SERIE ALMACEN
If e.Row.DBCampo("CveTipoInvPS").ToEntero = 5 Then If e.Row.DBCampo("CveTipoInvPS").ToEntero = 5 Then
If CveVenta > 0 Then If CveVenta > 0 Then
@@ -10328,7 +10332,7 @@ Partial Class Ventas
Dim OcurrioError As Boolean = False Dim OcurrioError As Boolean = False
Try Try
If UsuarioActual.Empresa.UsaInventarios AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then If (UsuarioActual.Empresa.UsaInventarios Or UsuarioActual.Empresa.Funcionalidad(567) = "1") AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
If RemisionesLista.Count > 0 Then If RemisionesLista.Count > 0 Then
For Each CveRemision As Integer In RemisionesLista For Each CveRemision As Integer In RemisionesLista
@@ -16143,7 +16147,7 @@ Partial Class Ventas
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
Case 2 'CONTADO Case 2 'CONTADO
If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") 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
@@ -22595,50 +22599,55 @@ Partial Class Ventas
#Region " EMITIR DOCUMENTO NUEVO " #Region " EMITIR DOCUMENTO NUEVO "
Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String) Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String)
Dim FolioFijo As Integer = 0 If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 And RBLPago.SelectedValue.ToEntero = 2 Then
'CARGA LO PENDIENTE POR FACTURAR DE COTIZACION Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia)
If EraCotizacion = 1 Then Else
If Not PreparaFacturarCotizacion() Then Dim FolioFijo As Integer = 0
EraCotizacion = 0
DdlTipoComprobante.SelectedValue = "Cot" 'CARGA LO PENDIENTE POR FACTURAR DE COTIZACION
Exit Sub If EraCotizacion = 1 Then
If Not PreparaFacturarCotizacion() Then
EraCotizacion = 0
DdlTipoComprobante.SelectedValue = "Cot"
Exit Sub
End If
End If End If
End If
'CARGA LO PENDIENTE POR FACTURAR DE REMISION 'CARGA LO PENDIENTE POR FACTURAR DE REMISION
If DdlTipoComprobante.SelectedValue = "Rem" Then If DdlTipoComprobante.SelectedValue = "Rem" Then
If Not PreparaFacturarRemision() Then If Not PreparaFacturarRemision() Then
DdlTipoComprobante.SelectedValue = "Rem" DdlTipoComprobante.SelectedValue = "Rem"
Exit Sub Exit Sub
End If
End If End If
End If
'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO2 'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO2
If DdlTipoComprobante.SelectedValue = "Pd2" Then If DdlTipoComprobante.SelectedValue = "Pd2" Then
If Not PreparaFacturarPedido() Then If Not PreparaFacturarPedido() Then
DdlTipoComprobante.SelectedValue = "Pd2" DdlTipoComprobante.SelectedValue = "Pd2"
Exit Sub Exit Sub
End If
End If End If
'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO AUTORIZACION
If DdlTipoComprobante.SelectedValue = "PA" Then ' que tome el folio fijo de la autorización
FolioFijo = TxtFolio.Text.ToEntero
ViewState("FolioActual") = FolioFijo
ViewState("EstablecioFolio") = True
TxtFolio.Text = FolioFijo.ToString
End If
Dim TipoDoctoViejo As String = DdlTipoComprobante.SelectedValue
DdlTipoComprobante.SelectedValue = TipoDoctoNuevo
TxtFecha.Text = Now.ToString
TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString
TxtFechaEjecucion.Text = Now.ToString
If FolioFijo = 0 Then CargaFolios() 'RECARGA FOLIOS CON EL NUEVO TIPO DOCTO
EmitirImprimir() 'MANDA A EMITIR - PROCESO VIEJO
End If End If
'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO AUTORIZACION
If DdlTipoComprobante.SelectedValue = "PA" Then ' que tome el folio fijo de la autorización
FolioFijo = TxtFolio.Text.ToEntero
ViewState("FolioActual") = FolioFijo
ViewState("EstablecioFolio") = True
TxtFolio.Text = FolioFijo.ToString
End If
Dim TipoDoctoViejo As String = DdlTipoComprobante.SelectedValue
DdlTipoComprobante.SelectedValue = TipoDoctoNuevo
TxtFecha.Text = Now.ToString
TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString
TxtFechaEjecucion.Text = Now.ToString
If FolioFijo = 0 Then CargaFolios() 'RECARGA FOLIOS CON EL NUEVO TIPO DOCTO
EmitirImprimir() 'MANDA A EMITIR - PROCESO VIEJO
End Sub End Sub
#End Region #End Region