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

unificación de GlobalDT Estados,Municipios

Browse Source 
cambios en para carta porte
This commit is contained in:
rrene
2021-12-12 09:12:20 -07:00
parent d58d6d0451
commit 09365748de
21 changed files with 215 additions and 277 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Inventarios/EntregaAlmacenRuta.aspx.cs
View File

@@ -780,28 +780,16 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
protected void BtnModalRecoleccionGuardar_Click(object sender, EventArgs e)
{
//if (DdlChofer.SelectedValue.ToEntero() <= 0)
//{
// Alert("Debe seleccionar un chofer.", ModExtensiones.TipoMensaje.MsgAdvertencia);
// return;
//}
//if (DdlUnidadCamion.SelectedValue.ToEntero() <= 0)
//{
// Alert("Debe seleccionar una unidad", ModExtensiones.TipoMensaje.MsgAdvertencia);
// return;
//}
if (DdlmodalRecoleccionDireccion.SelectedValue.ToEntero() <= 0)
{
Alert("Debe seleccionar la dirección de recolección", ModExtensiones.TipoMensaje.MsgAdvertencia);
return;
}
int CveTimbrenuevo = -1;
bool ProcesoOK = false;
//int CveSubProyectoCliente = get_GlobalDTCliente(UsuarioActual.CveEmpresa, -1, DdlModalRecoleccionCliente.SelectedValue.ToEntero()).FiltroPrimeroValor("CveSubProyecto").ToEntero();
ClsGenerales ObjGenerales = new ClsGenerales();
ObjGenerales.IniciaTransacSQL();

61
Inventarios/TraspasoAlmacen.aspx
View File

@@ -778,66 +778,7 @@
</div>
</div>
</div>
<%--Modal para agregar camion--%>
<asp:UpdatePanel runat="server">
<ContentTemplate>
<div id="DivAgregarNuevoCamion" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">Agregar Unidad</h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtPlacaNuevo.ClientID.ToString()%>">Placa:</label>
<asp:TextBox ID="TxtPlacaNuevo" CssClass="form-control" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator runat="server" ID="RfvTxtPlacaNuevo" ControlToValidate="TxtPlacaNuevo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Placa''</b> es necesario, por favor ingréselo." ValidationGroup="VgNuevoCamion"></asp:RequiredFieldValidator>
<asp:RegularExpressionValidator runat="server" ID="RevTxtPlacaNuevo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Placa''</b> no contiene los caracteres suficientes." ControlToValidate="TxtPlacaNuevo" ValidationExpression="^.{6,8}$" ValidationGroup="VgNuevoCamion"></asp:RegularExpressionValidator>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtEspecificacionNuevo.ClientID.ToString()%>">Especificación:</label>
<asp:TextBox ID="TxtEspecificacionNuevo" CssClass="form-control" runat="server"></asp:TextBox>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= DdlConfigAuto.ClientID.ToString()%>">Configuración Carta Porte:</label>
<asp:DropDownList ID="DdlConfigAuto" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataTextField="ClaveConfigAutoTransporteDescripcion" DataValueField="ClaveConfigAutoTransporte">
<asp:ListItem Selected="True" Text="Seleccione" Value=""></asp:ListItem>
</asp:DropDownList>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtAnio.ClientID.ToString()%>">Año:</label>
<asp:TextBox ID="TxtAnio" CssClass="form-control" runat="server" type="number"></asp:TextBox>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtTipoPermisoSCT.ClientID.ToString()%>">Tipo Permiso SCT:</label>
<asp:TextBox ID="TxtTipoPermisoSCT" CssClass="form-control" runat="server"></asp:TextBox>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtNumermisoSCT.ClientID.ToString()%>">Numero Permiso SCT:</label>
<asp:TextBox ID="TxtNumermisoSCT" CssClass="form-control" runat="server"></asp:TextBox>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtNombreAseguradora.ClientID.ToString()%>">Nombre Aseguradora:</label>
<asp:TextBox ID="TxtNombreAseguradora" CssClass="form-control" runat="server"></asp:TextBox>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtNumPolizaSeguro.ClientID.ToString()%>">Numero Póliza Seguro:</label>
<asp:TextBox ID="TxtNumPolizaSeguro" CssClass="form-control" runat="server"></asp:TextBox>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="BtnAgregarCamion" Text="Agregar" runat="server" ClientIDMode="Static" CssClass="btn btn-primary" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

79
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -204,6 +204,10 @@ Partial Class Inventarios_TraspasoAlmacen
DivTransitorio2.Visible = True
End If
If UsuarioActual.CveEmpresa.Contiene(141, 152, 158, 159, 160, 161, 162, 163) Then
ChkEmitirTimbrado.Visible = False
End If
If UsuarioActual.CveEmpresa.Contiene(1, 119, 140, 2) Then
If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
@@ -224,8 +228,6 @@ Partial Class Inventarios_TraspasoAlmacen
TipoSeccionAlmacen = 0
If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
TxtFecha.Enabled = False
@@ -236,8 +238,8 @@ Partial Class Inventarios_TraspasoAlmacen
End If
Else
If ChkTransitorio.Checked Then
Else
If ChkTransitorio.Checked Then
RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);")
DivTransitorio2.Visible = True
End If
@@ -390,7 +392,7 @@ Partial Class Inventarios_TraspasoAlmacen
'Llena Almacen Transitorio
DdlAlmacenTransitorio.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3)
DdlAlmacenTransitorio.DataBind()
DdlAlmacenTransitorio.Items.Insert(0, New ListItem("Seleccione", "-1"))
'DdlAlmacenTransitorio.Items.Insert(0, New ListItem("Seleccione", "-1"))
'Llena Almacen Recepcion
DdlAlmacenRecepcion.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,24)")
@@ -417,6 +419,7 @@ Partial Class Inventarios_TraspasoAlmacen
DdlChofer.Items.Insert(0, New ListItem("Seleccione", "-1"))
TxtFechaEntrega.Text = Now.ToShortDateString
TxtFechaEnvio.Text = Now.ToShortDateString
'Llena Responsables Transitorio
'DdlResponsable.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
@@ -1192,13 +1195,13 @@ Partial Class Inventarios_TraspasoAlmacen
MensajeAlert.Append("Se realizó con éxito el traspaso.")
MensajeAlert.AppendFormat("<br/> Folio de Salida: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", FolioSalida, CveMovimientoSalida)
MensajeAlert.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida)))
If CveMovimientoVirtualSalida > 0 Then MensajeAlert.AppendFormat("<br/>Folio Virtual: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a></b>&nbsp;<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Salida Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualSalida)), CveMovimientoVirtualSalida, FolioVirtualSalida)
MensajeAlert.AppendFormat("<br/><a target='_blank' class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida)))
If CveMovimientoVirtualSalida > 0 Then MensajeAlert.AppendFormat("<br/>Folio Virtual: <b><a class='Texto' href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a></b>&nbsp;<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Salida Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualSalida)), CveMovimientoVirtualSalida, FolioVirtualSalida)
If Not ChkTransitorio.Checked Then
MensajeAlert.AppendFormat("<br/><br/> Folio de Entrada: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", FolioEntrada, CveMovimientoEntrada)
MensajeAlert.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada)))
If CveMovimientoVirtualEntrada > 0 Then MensajeAlert.AppendFormat("<br/>Folio Virtual: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a></b>&nbsp;<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Entrada Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada)
MensajeAlert.AppendFormat("<br/><a target='_blank' class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada)))
If CveMovimientoVirtualEntrada > 0 Then MensajeAlert.AppendFormat("<br/>Folio Virtual: <b><a class='Texto' href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a></b>&nbsp;<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Entrada Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada)
End If
@@ -2626,7 +2629,7 @@ Partial Class Inventarios_TraspasoAlmacen
Private Sub EmitirTimbrado(CveTimbre As Integer, CveMovimientoTimbrado As Integer)
Dim ObjTimbres As New Timbres("T", CveTimbre, UsuarioActual)
Dim ObjTimbres As New Timbres("Tra", CveTimbre, UsuarioActual)
MensajeAlert.Append("<br/><br/>")
@@ -2645,10 +2648,10 @@ Partial Class Inventarios_TraspasoAlmacen
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar XML</a></li></ul>", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimientoTimbrado, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)))
End If
'PDF
Dim ArchivoPDF = String.Format("{0}/PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio)
If File.Exists(ArchivoPDF) Then
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul>", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimientoTimbrado, "PDF", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)))
End If
'Dim ArchivoPDF = String.Format("{0}/PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio)
'If File.Exists(ArchivoPDF) Then
' MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul>", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimientoTimbrado, "PDF", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)))
'End If
If ChkEmitirCartaPorte.Checked Then
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar Carta Porte</a></li></ul>", Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", CveTimbre)))
@@ -2911,34 +2914,34 @@ Partial Class Inventarios_TraspasoAlmacen
DdlUnidadCamion.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa)
DdlUnidadCamion.DataBind()
Using ObjGral As New ClsGenerales
If ObjGral.GetCartaPorteConfigAutoTransportes() Then
DdlConfigAuto.DataSource = ObjGral.DtResultados
End If
End Using
'Using ObjGral As New ClsGenerales
' If ObjGral.GetCartaPorteConfigAutoTransportes() Then
' DdlConfigAuto.DataSource = ObjGral.DtResultados
' End If
'End Using
DdlConfigAuto.DataBind()
'DdlConfigAuto.DataBind()
End Sub
Public Sub BtnAgregarCamion_Click(sender As Object, e As EventArgs) Handles BtnAgregarCamion.Click
'Dim ObjInventarios As New ClsInventarios
'If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, ConfigCartaPorte:=DdlConfigAuto.SelectedValue, Anio:=TxtAnio.Text.ToEntero(), TipoPermisoSCT:=TxtTipoPermisoSCT.Text, NumPermisoSCT:=TxtNumermisoSCT.Text, NombreAseguradora:=TxtNombreAseguradora.Text, NumPolizaSeguro:=TxtNumPolizaSeguro.Text, CveEmpresa:=UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then
' RegistraScript("$('#DivAgregarNuevoCamion').modal('hide');")
' CargarCamiones()
' LimpiarAgregarCamion()
'End If
'ObjInventarios.Dispose()
End Sub
'Public Sub BtnAgregarCamion_Click(sender As Object, e As EventArgs) Handles BtnAgregarCamion.Click
' 'Dim ObjInventarios As New ClsInventarios
' 'If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, ConfigCartaPorte:=DdlConfigAuto.SelectedValue, Anio:=TxtAnio.Text.ToEntero(), TipoPermisoSCT:=TxtTipoPermisoSCT.Text, NumPermisoSCT:=TxtNumermisoSCT.Text, NombreAseguradora:=TxtNombreAseguradora.Text, NumPolizaSeguro:=TxtNumPolizaSeguro.Text, CveEmpresa:=UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then
' ' RegistraScript("$('#DivAgregarNuevoCamion').modal('hide');")
' ' CargarCamiones()
' ' LimpiarAgregarCamion()
' 'End If
' 'ObjInventarios.Dispose()
'End Sub
Private Sub LimpiarAgregarCamion()
TxtPlacaNuevo.Text = ""
TxtEspecificacionNuevo.Text = ""
TxtAnio.Text = ""
TxtTipoPermisoSCT.Text = ""
TxtNumermisoSCT.Text = ""
TxtNombreAseguradora.Text = ""
TxtNumPolizaSeguro.Text = ""
End Sub
'Private Sub LimpiarAgregarCamion()
' TxtPlacaNuevo.Text = ""
' TxtEspecificacionNuevo.Text = ""
' TxtAnio.Text = ""
' TxtTipoPermisoSCT.Text = ""
' TxtNumermisoSCT.Text = ""
' TxtNombreAseguradora.Text = ""
' TxtNumPolizaSeguro.Text = ""
'End Sub
Private Sub DdlUnidadCamion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUnidadCamion.SelectedIndexChanged
'If DdlUnidadCamion.SelectedValue = "-1" Then