Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
@@ -3322,7 +3322,7 @@ Public Class ClsContPAQi
|
||||
StrSQL.Append(" AND (@Codigo = '-1' OR C.Codigo = @Codigo) ")
|
||||
StrSQL.Append(" AND (@Afectable = -1 OR C.Afectable = @Afectable) ")
|
||||
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
|
||||
'StrSQL.Append(" SELECT Top(@RowNum) Id, Codigo, Nombre, ")
|
||||
|
||||
@@ -117,7 +117,7 @@ Public Class ClsGenerales
|
||||
SqlAdapter.Fill(Data)
|
||||
|
||||
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
|
||||
CveConexion = 0
|
||||
End If
|
||||
|
||||
@@ -219,7 +219,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
|
||||
|
||||
Dim CvePS = IfNull(context.Request("cveps"), "0").ToString.ToEntero
|
||||
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
|
||||
For i = objInv.DtResultados.Columns.Count - 1 To 1 Step -1
|
||||
@@ -300,7 +300,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
|
||||
|
||||
End If
|
||||
|
||||
If usuario.Empresa.Funcionalidad(558) = 1 Then
|
||||
If usuario.Empresa.Funcionalidad(558) = "1" Then
|
||||
Try
|
||||
Dim NobreFiltroColumna As String = DtPSRetorno.Columns(3).ColumnName
|
||||
DtPSRetorno = DtPSRetorno.FiltraParametros($"{NobreFiltroColumna} > 0")
|
||||
|
||||
BIN
Bin/GoCfdi.dll
BIN
Bin/GoCfdi.dll
Binary file not shown.
@@ -37,7 +37,8 @@
|
||||
<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="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>
|
||||
</asp:GridView>
|
||||
|
||||
@@ -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
|
||||
DTDatos = ObjConta.DtResultados
|
||||
@@ -95,7 +95,7 @@ Partial Class Contabilidad_OCDetalleAlmacen
|
||||
|
||||
|
||||
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
|
||||
mensaje = mensaje & $"CvePrePoliza {CvePrePoliza } OC: {Folio} Importe :{Diferencia} <br>"
|
||||
|
||||
@@ -155,8 +155,8 @@
|
||||
<span class="caption-subject bold uppercase">Ordenes Sin Asignar</span>
|
||||
|
||||
<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:Button ID="BtnAsignar" CssClass="btn btn-primary" runat="server" Text="Asignar" ValidationGroup="Asignar" />
|
||||
<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" Visible="true" />
|
||||
</div>
|
||||
</div>
|
||||
<div class="actions">
|
||||
|
||||
@@ -48,6 +48,7 @@ Partial Class OS_Asignaciones
|
||||
BtnAsignar.Visible = False
|
||||
End If
|
||||
End If
|
||||
ObjEstatusPermisos.Dispose()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -191,7 +191,7 @@ Partial Class OS_CatEstatusOrdenServicio
|
||||
Protected Sub CargaGridEstatusUsuarios()
|
||||
GvEstatusUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||
GvEstatusUsuarios.DataBind()
|
||||
UPPEmp.Update()
|
||||
'UPPEmp.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub btnGuardarEstatusUsuariosREQ_Click(sender As Object, e As EventArgs) Handles btnGuardarEstatusUsuariosREQ.Click
|
||||
|
||||
@@ -222,6 +222,14 @@ Partial Class OS_OrdenesServicios
|
||||
ViewState("TmpDTCuentaEquipo") = value
|
||||
End Set
|
||||
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
|
||||
Get
|
||||
Return CType(ViewState("MensajeAlert"), StringBuilder)
|
||||
@@ -263,6 +271,16 @@ Partial Class OS_OrdenesServicios
|
||||
CreaDtSolicitarMateriales()
|
||||
CveSub = -1
|
||||
'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)
|
||||
|
||||
'Carga cliente
|
||||
@@ -298,7 +316,7 @@ Partial Class OS_OrdenesServicios
|
||||
'Carga OS
|
||||
If CveOS > 0 Then
|
||||
CargaDatos()
|
||||
PermisosSegunEstatus()
|
||||
'PermisosSegunEstatus()
|
||||
CargaDetalles()
|
||||
CargaMateriales()
|
||||
|
||||
@@ -324,15 +342,6 @@ Partial Class OS_OrdenesServicios
|
||||
hdnEsThickbox.Value = "S"
|
||||
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 Sub
|
||||
@@ -367,13 +376,13 @@ Partial Class OS_OrdenesServicios
|
||||
TmpDT.AcceptChanges()
|
||||
End Sub
|
||||
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
|
||||
Case 2
|
||||
Select Case tipoDeEstatusSeleccionado
|
||||
Case "Inicial"
|
||||
'Proceso
|
||||
|
||||
Case 3
|
||||
Case "Terminado"
|
||||
'Terminada
|
||||
'Checar que todos los detalles esten terminados para poder cambiar a terminada
|
||||
If TmpDT.COUNT("Estatus", "Estatus = 'False'").ToEntero > 0 Then
|
||||
@@ -382,18 +391,23 @@ Partial Class OS_OrdenesServicios
|
||||
'Regresar a estatus Atendiendo
|
||||
'DdlEstatusOS.SelectedValue = "2"
|
||||
End If
|
||||
Case 4
|
||||
'Cancelada
|
||||
Case 5
|
||||
'Entregada
|
||||
Guardar(True)
|
||||
' Case 4
|
||||
' 'Cancelada
|
||||
' Case 5
|
||||
' 'Entregada
|
||||
' Guardar(True)
|
||||
Case "Cancelada"
|
||||
Dim CanceladoOrdenMinimo As String = EstatusOSDelUsuario.FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 5", "Orden ASC").ToString
|
||||
DdlEstatusOS.SelectedValue = CanceladoOrdenMinimo
|
||||
|
||||
'DdlEstatusOS.SelectedIndex = CanceladoOrdenMinimo
|
||||
End Select
|
||||
|
||||
'CargaEstatusOS(DdlEstatusOS.SelectedValue.ToEntero)
|
||||
PermisosSegunEstatus()
|
||||
''CargaEstatusOS(DdlEstatusOS.SelectedValue.ToEntero)
|
||||
'PermisosSegunEstatus()
|
||||
|
||||
GvPS.DataSource = TmpDT
|
||||
GvPS.DataBind()
|
||||
'GvPS.DataSource = TmpDT
|
||||
'GvPS.DataBind()
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
@@ -647,9 +661,9 @@ Partial Class OS_OrdenesServicios
|
||||
End Sub
|
||||
Private Sub CargaEstatusOS(ValorSeleccionado As Integer)
|
||||
DdlEstatusOS.Items.Clear()
|
||||
DdlEstatusOS.DataSource = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa)
|
||||
DdlEstatusOS.DataSource = EstatusOSDelUsuario
|
||||
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
|
||||
Private Sub CargaPS(CveClasificacion As Integer, Objeto As DropDownList)
|
||||
Objeto.Items.Clear()
|
||||
@@ -1455,7 +1469,9 @@ Partial Class OS_OrdenesServicios
|
||||
|
||||
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
|
||||
DdlEstatusOS.SelectedValueExist(GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 3", "CveEstatusOrdenServicio ASC"))
|
||||
DdlEstatusOS_SelectedIndexChanged(sender, New EventArgs)
|
||||
|
||||
@@ -76,7 +76,7 @@ Partial Class RH_CatPersonalRequerido
|
||||
End Sub
|
||||
|
||||
Private Sub CargaProyectos()
|
||||
ReqProyectoDdl.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa, 1)
|
||||
ReqProyectoDdl.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa, 1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
|
||||
ReqProyectoDdl.DataBind()
|
||||
ReqProyectoDdl.Items.Insert(0, New ListItem("Seleccione el Proyecto", "-1"))
|
||||
End Sub
|
||||
|
||||
@@ -425,7 +425,7 @@
|
||||
<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: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>
|
||||
<label for="<%= TxtRFC.ClientID.ToString()%>">RFC:</label>
|
||||
<i></i>
|
||||
|
||||
@@ -4582,7 +4582,7 @@ Partial Class PV
|
||||
|
||||
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
|
||||
DivDireccionCliente.Visible = True
|
||||
DivNumeroCPCliente.Visible = True
|
||||
|
||||
@@ -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>
|
||||
<ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender1" runat="server" TargetControlID="TxtImporteCredito" FilterType="Custom, Numbers" ValidChars=".," />
|
||||
</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: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>
|
||||
</div>
|
||||
<div class="col-md-3" runat="server" id="DivMesesSinIntereses" visible="false">
|
||||
<asp:DropDownList ID="DDlMesesSinIntereses" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100%">
|
||||
<asp:ListItem Value="-1">Meses</asp:ListItem>
|
||||
<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="80%">
|
||||
<asp:ListItem Value="-1">MSI</asp:ListItem>
|
||||
<asp:ListItem Value="3">3M</asp:ListItem>
|
||||
<asp:ListItem Value="6">6M</asp:ListItem>
|
||||
<asp:ListItem Value="9">9M</asp:ListItem>
|
||||
|
||||
@@ -1813,7 +1813,7 @@ Partial Class Ventas
|
||||
'ImgCerrarTerminoCorte.Attributes.Add("OnClick", "$('#DivTerminarCorte').hide();")
|
||||
'ImgCerrarIE.Attributes.Add("OnClick", "$('#DivIngresoEgreso').hide();")DdlTipoComprobante
|
||||
'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();")
|
||||
TxtDescP.Attributes.Add("onKeyUp", "CalculaDescuento();")
|
||||
TxtCantidadPyME.Attributes.Add("onkeypress", "cambiaFoco('TxtPrecioPyME')")
|
||||
@@ -2436,7 +2436,7 @@ Partial Class Ventas
|
||||
If UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 Then
|
||||
|
||||
DivMesesSinIntereses.Visible = True
|
||||
DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-3")
|
||||
DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4")
|
||||
DivContadoOtros.Visible = True
|
||||
|
||||
End If
|
||||
@@ -5705,6 +5705,10 @@ Partial Class Ventas
|
||||
Private Sub GvInv_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvInv.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then
|
||||
e.Row.FCCheckBox("cbInv").Checked = True
|
||||
End If
|
||||
|
||||
'SERIE ALMACEN
|
||||
If e.Row.DBCampo("CveTipoInvPS").ToEntero = 5 Then
|
||||
If CveVenta > 0 Then
|
||||
@@ -10328,7 +10332,7 @@ Partial Class Ventas
|
||||
Dim OcurrioError As Boolean = False
|
||||
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
|
||||
For Each CveRemision As Integer In RemisionesLista
|
||||
@@ -16143,7 +16147,7 @@ Partial Class Ventas
|
||||
Case 1 'CREDITO
|
||||
TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
|
||||
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
|
||||
TxtImporteContado.Text = TxtTotal.Text
|
||||
End If
|
||||
@@ -22595,50 +22599,55 @@ Partial Class Ventas
|
||||
|
||||
#Region " EMITIR DOCUMENTO NUEVO "
|
||||
Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String)
|
||||
Dim FolioFijo As Integer = 0
|
||||
'CARGA LO PENDIENTE POR FACTURAR DE COTIZACION
|
||||
If EraCotizacion = 1 Then
|
||||
If Not PreparaFacturarCotizacion() Then
|
||||
EraCotizacion = 0
|
||||
DdlTipoComprobante.SelectedValue = "Cot"
|
||||
Exit Sub
|
||||
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)
|
||||
Else
|
||||
Dim FolioFijo As Integer = 0
|
||||
|
||||
'CARGA LO PENDIENTE POR FACTURAR DE COTIZACION
|
||||
If EraCotizacion = 1 Then
|
||||
If Not PreparaFacturarCotizacion() Then
|
||||
EraCotizacion = 0
|
||||
DdlTipoComprobante.SelectedValue = "Cot"
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
'CARGA LO PENDIENTE POR FACTURAR DE REMISION
|
||||
If DdlTipoComprobante.SelectedValue = "Rem" Then
|
||||
If Not PreparaFacturarRemision() Then
|
||||
DdlTipoComprobante.SelectedValue = "Rem"
|
||||
Exit Sub
|
||||
'CARGA LO PENDIENTE POR FACTURAR DE REMISION
|
||||
If DdlTipoComprobante.SelectedValue = "Rem" Then
|
||||
If Not PreparaFacturarRemision() Then
|
||||
DdlTipoComprobante.SelectedValue = "Rem"
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO2
|
||||
If DdlTipoComprobante.SelectedValue = "Pd2" Then
|
||||
If Not PreparaFacturarPedido() Then
|
||||
DdlTipoComprobante.SelectedValue = "Pd2"
|
||||
Exit Sub
|
||||
'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO2
|
||||
If DdlTipoComprobante.SelectedValue = "Pd2" Then
|
||||
If Not PreparaFacturarPedido() Then
|
||||
DdlTipoComprobante.SelectedValue = "Pd2"
|
||||
Exit Sub
|
||||
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
|
||||
|
||||
'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 Region
|
||||
|
||||
|
||||
Reference in New Issue
Block a user