Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -372,12 +372,6 @@ Partial Class Inventarios_EntradasSalidas
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
If IfNull(Request("AL"), "").ToString = "1" Then
|
||||
DivEmitirTransitorio.Visible = True
|
||||
EsApoyoLogistico = True
|
||||
End If
|
||||
|
||||
CveMovimiento = -1
|
||||
CveMovimientoRelacionado = -1
|
||||
TieneRelacionado = -1
|
||||
@@ -403,6 +397,12 @@ Partial Class Inventarios_EntradasSalidas
|
||||
IndexSeccionAlmacen = 0
|
||||
Tipo = 0
|
||||
|
||||
If IfNull(Request("AL"), "").ToString = "1" Then
|
||||
DivEmitirTransitorio.Visible = True
|
||||
EsApoyoLogistico = True
|
||||
DivCliente.Visible = True
|
||||
End If
|
||||
|
||||
'si viene una parámetro para cargar un movimiento lo hacemos dentro del procedimiento cargadatos
|
||||
Select Case UsuarioActual.Empresa.Funcionalidad(103)
|
||||
Case "1"
|
||||
@@ -893,14 +893,14 @@ Partial Class Inventarios_EntradasSalidas
|
||||
|
||||
If drM("CveEstatusTimbrado").ToString.ToEntero > 0 Then
|
||||
HplDescargaXml.Visible = True
|
||||
HplDescargaXml.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimiento, "XML", drM("TimbreSerieFolio"), "Tra")))
|
||||
HplDescargaXml.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimiento, "XML", drM("TimbreSerieFolio"), drM("TimbreTipoDocto"))))
|
||||
|
||||
If drM("AplicaCP").ToString = "True" Then
|
||||
HplCartaPorteTimbre.Visible = True
|
||||
HplCartaPorteTimbre.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CARPOTIMBRE&CVEMOV={0}&CVETIMBRE={1}", CveMovimiento, drM("CveTimbre"))))
|
||||
Else
|
||||
HplDescargaPdf.Visible = True
|
||||
HplDescargaPdf.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}&CVETIMBRE={4}", CveMovimiento, "PDF", drM("TimbreSerieFolio"), "Tra", drM("CveTimbre"))))
|
||||
HplDescargaPdf.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}&CVETIMBRE={4}", CveMovimiento, "PDF", drM("TimbreSerieFolio"), drM("TimbreTipoDocto"), drM("CveTimbre"))))
|
||||
|
||||
HplCartaPorte.Visible = True
|
||||
HplCartaPorte.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimiento)))
|
||||
@@ -2059,11 +2059,10 @@ Partial Class Inventarios_EntradasSalidas
|
||||
ErrorMovInv = RetornoVirtual.TieneError
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim SerieInsertadaTimbre As String = ""
|
||||
Dim FolioInsertadoTimbre As Integer = -1
|
||||
Dim CveTimbre As Integer = -1
|
||||
Dim tTimbreTipoDocto As String = "Tra"
|
||||
|
||||
If Not ErrorAC And Not ErrorMovInv Then
|
||||
|
||||
@@ -2080,12 +2079,12 @@ Partial Class Inventarios_EntradasSalidas
|
||||
Dim CveSubProyectoTimbre As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen = {DdlAlmacen.SelectedValue}").Rows(0)("CveSubProyecto").ToString.ToEntero
|
||||
Dim Fechallegada As DateTime = (TxtFechaLlegada.Text & " 23:59:59").ToDateTime
|
||||
|
||||
Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(CveSubProyectoTimbre, -1, DdlDireccionEnvio.SelectedValue.ToEntero, CveMovimiento, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDate, TxtFechaLlegada.Text.ToDate, "T", "", "", MinFecha, 1, 1, TxtDistancia.Text.ToEntero,
|
||||
Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(CveSubProyectoTimbre, -1, DdlDireccionEnvio.SelectedValue.ToEntero, CveMovimiento, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDate, TxtFechaLlegada.Text.ToDateTime, "T", "", "", MinFecha, 1, 1, TxtDistancia.Text.ToEntero,
|
||||
CveConfigAutoTransporte:=DdlConfigAuto.SelectedValue.ToEntero, CveCamionRemolque1:=DdlRemolque1.SelectedValue.ToEntero, CveCamionRemolque2:=DdlRemolque2.SelectedValue.ToEntero, CveCliente:=DdlClientes.SelectedValue.ToEntero)
|
||||
|
||||
If EsApoyoLogistico Then tTimbreTipoDocto = "Ent"
|
||||
If CveEntregaAlmacen > 0 Then
|
||||
CveTimbre = ObjGral.AddGralTimbre("Tra", CveSubProyectoTimbre, TxtFechaEntrega.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen:=CveEntregaAlmacen, AplicaCP:=ChkEmitirCartaPorte.Checked)
|
||||
|
||||
CveTimbre = ObjGral.AddGralTimbre(tTimbreTipoDocto, CveSubProyectoTimbre, TxtFechaEntrega.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen:=CveEntregaAlmacen, AplicaCP:=ChkEmitirCartaPorte.Checked)
|
||||
If CveTimbre > 0 Then
|
||||
SerieInsertadaTimbre = ObjGral.SerieInsertada
|
||||
FolioInsertadoTimbre = ObjGral.FolioInsertado
|
||||
@@ -2095,13 +2094,9 @@ Partial Class Inventarios_EntradasSalidas
|
||||
Else
|
||||
ErrorMovInv = True
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
If Not ErrorAC And Not ErrorMovInv Then
|
||||
|
||||
Dim Msg As New StringBuilder
|
||||
@@ -2120,10 +2115,9 @@ Partial Class Inventarios_EntradasSalidas
|
||||
ObjInventario.Commit() ' aplica los movimientos insertados
|
||||
If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
|
||||
|
||||
|
||||
If ChkEmitirTimbrado.Checked Then
|
||||
CveMovimientoTimbrado = CveMovimiento
|
||||
EmitirTimbrado(CveTimbre, CveMovimientoTimbrado, Msg)
|
||||
EmitirTimbrado(CveTimbre, tTimbreTipoDocto, CveMovimientoTimbrado, Msg)
|
||||
End If
|
||||
|
||||
Alert(Msg.ToString, TipoMensaje.MsgInformacion)
|
||||
@@ -2133,10 +2127,8 @@ Partial Class Inventarios_EntradasSalidas
|
||||
DdlSubProyecto.SelectedValueExist("-1")
|
||||
UPEncabezado.Update()
|
||||
End If
|
||||
|
||||
UPDatos.Update()
|
||||
|
||||
|
||||
If UsuarioActual.TienePermisoProceso(139) Then
|
||||
CargaDatos(CveMovimiento)
|
||||
Else
|
||||
@@ -2151,8 +2143,6 @@ Partial Class Inventarios_EntradasSalidas
|
||||
Alert(Mensaje, TipoMensaje.MsgError)
|
||||
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
ObjInventario.RollBack() 'deshace lo insertado
|
||||
CveMovimiento = 0
|
||||
@@ -2160,14 +2150,10 @@ Partial Class Inventarios_EntradasSalidas
|
||||
Alert("ocurrió un Error al registrar los movimientos", TipoMensaje.MsgError)
|
||||
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
Try 'por si ya le habian dado rollback o commit
|
||||
ObjInventario.RollBack() 'deshace lo insertad
|
||||
@@ -5938,9 +5924,9 @@ Partial Class Inventarios_EntradasSalidas
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub EmitirTimbrado(CveTimbre As Integer, CveMovimientoTimbrado As Integer, ByRef MensajeAlert As StringBuilder)
|
||||
Private Sub EmitirTimbrado(CveTimbre As Integer, TipoDocto As String, CveMovimientoTimbrado As Integer, ByRef MensajeAlert As StringBuilder)
|
||||
|
||||
Dim ObjTimbres As New Timbres("Tra", CveTimbre, UsuarioActual)
|
||||
Dim ObjTimbres As New Timbres(TipoDocto, CveTimbre, UsuarioActual)
|
||||
|
||||
MensajeAlert.Append("<br/><br/>")
|
||||
|
||||
|
||||
@@ -191,15 +191,7 @@
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<label class="col-md-1 truncate" style="display: none">Hora:</label>
|
||||
<div class="col-md-1" style="display: none">
|
||||
<div style="width: 85px;">
|
||||
<ew:TimePicker ID="TxtHoraInicio" TimeStyle-CssClass="Texto" runat="server" ControlDisplay="TextBoxImage" CssClass="inputtimepicker" ImageUrl="/Imagenes/timepicker.png" PopupWidth="100px" Width="50px" DisableTextBoxEntry="True" PopupHeight="150px" RoundUpMinutes="True" MilitaryTime="True" Culture="Spanish (Mexico)"></ew:TimePicker>
|
||||
<ew:CustomValidator ID="CVHoraInicio" runat="server" ClientValidationFunction="RevisaHora" ControlToValidate="TxtHoraInicio" Display="None" ErrorMessage="El campo <b>''Hora''</b> es necesario, por favor seleccione la hora correcta." ValidationGroup="Guardar" ValidateEmptyText="true"></ew:CustomValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VcoHoraInicio" runat="server" HighlightCssClass="vco" TargetControlID="CVHoraInicio" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<label class="col-md-1 truncate" style="width: 110px" id="DivFolio1" runat="server">Folio:</label>
|
||||
<div class="col-md-2" id="DivFolio2" runat="server">
|
||||
<asp:TextBox ID="TxtFolio" runat="server" Style="" Width="100%"></asp:TextBox>
|
||||
|
||||
@@ -1031,7 +1031,7 @@ Partial Class Inventarios_RecepcionUsados
|
||||
#Region " AGREGAR - GUARDAR "
|
||||
Private Function GetExistencias(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, CveAlmacen As Integer, Optional Serie As String = "-1", Optional Lote As String = "-1", Optional FechaCaducidad As Date = MinFecha) As Double
|
||||
Dim Inv As New ClsInventarios
|
||||
Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, CveEmpresa, CveAlmacen, -1, FechaMovto:=String.Format("{0} {1}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd"), TxtHoraInicio.PostedTime), Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad)
|
||||
Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, CveEmpresa, CveAlmacen, -1, FechaMovto:=String.Format("{0} {1}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd"), Now.ToShortTimeString), Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad)
|
||||
Inv.Dispose()
|
||||
Return Existencia
|
||||
End Function
|
||||
@@ -1240,7 +1240,7 @@ Partial Class Inventarios_RecepcionUsados
|
||||
If CveMovimiento > 0 Then
|
||||
Else
|
||||
|
||||
Dim Fecha = String.Format("{0} {1}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd"), TxtHoraInicio.PostedTime).ToDate
|
||||
Dim Fecha = String.Format("{0}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd")).ToDate
|
||||
Dim CveCliente As Integer = CInt(IIf((DdlClientes.SelectedValue.ToEntero <= 0), -1, DdlClientes.SelectedValue.ToEntero))
|
||||
Dim CveClienteSucursal As Integer = CInt(IIf((DdlClientesSucursales.SelectedValue.ToEntero <= 0), -1, DdlClientesSucursales.SelectedValue.ToEntero))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user