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

Cat Unidades Campos de agropecuaria

Browse Source
This commit is contained in:
rakcsle
2022-01-31 19:41:49 -07:00
parent 436258d749
commit dbd7a9daa8
3 changed files with 57 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -1382,10 +1382,12 @@ Partial Class ContabilidadC_RegPrePolizaS
AplicaActivoFijo = Boolean.Parse(DT_Concepto.Rows(0)("AplicaActivoFijo").ToString) AplicaActivoFijo = Boolean.Parse(DT_Concepto.Rows(0)("AplicaActivoFijo").ToString)
AplicaAlmacen = Boolean.Parse(DT_Concepto.Rows(0)("AplicaAlmacen").ToString) AplicaAlmacen = Boolean.Parse(DT_Concepto.Rows(0)("AplicaAlmacen").ToString)
AplicaBancos = Boolean.Parse(DT_Concepto.Rows(0)("AplicaBancos").ToString) AplicaBancos = Boolean.Parse(DT_Concepto.Rows(0)("AplicaBancos").ToString)
AplicaClasificacion = Boolean.Parse(DT_Concepto.Rows(0)("AplicaClasificacion").ToString) AplicaClasificacion = Boolean.Parse(DT_Concepto.Rows(0)("AplicaClasificacion").ToString)
AplicaCliente = Boolean.Parse(DT_Concepto.Rows(0)("AplicaCliente").ToString) AplicaCliente = Boolean.Parse(DT_Concepto.Rows(0)("AplicaCliente").ToString)
AplicaCompra = Boolean.Parse(DT_Concepto.Rows(0)("AplicaCompra").ToString) AplicaCompra = Boolean.Parse(DT_Concepto.Rows(0)("AplicaCompra").ToString)
AplicaImpuesto = Boolean.Parse(DT_Concepto.Rows(0)("AplicaImpuesto").ToString) AplicaImpuesto = Boolean.Parse(DT_Concepto.Rows(0)("AplicaImpuesto").ToString)
AplicaNomina = Boolean.Parse(DT_Concepto.Rows(0)("AplicaNomina").ToString) AplicaNomina = Boolean.Parse(DT_Concepto.Rows(0)("AplicaNomina").ToString)
AplicaPersonal = Boolean.Parse(DT_Concepto.Rows(0)("AplicaPersonal").ToString) AplicaPersonal = Boolean.Parse(DT_Concepto.Rows(0)("AplicaPersonal").ToString)
@@ -2715,7 +2717,7 @@ Partial Class ContabilidadC_RegPrePolizaS
TipoPoliza = DdlTipoPoliza.SelectedItem.Text TipoPoliza = DdlTipoPoliza.SelectedItem.Text
Folio = dr("FolioPoliza").ToString Folio = dr("FolioPoliza").ToString
TxtFolio.Text = dr("FolioPoliza").ToString TxtFolio.Text = ""
TxtUsuarioElaboro.Text = dr("Usuario").ToString TxtUsuarioElaboro.Text = dr("Usuario").ToString
TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy") TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
' TxtEstatus.Text = If(Boolean.Parse(dr("Estatus").ToString), "Activa", "Inactiva") ' TxtEstatus.Text = If(Boolean.Parse(dr("Estatus").ToString), "Activa", "Inactiva")

14
Inventarios/CatUnidades.aspx
View File

@@ -71,6 +71,14 @@
<div class="modal-body"> <div class="modal-body">
<div class="row"> <div class="row">
<div class="form-group form-md-line-input input-iconright">
<asp:RadioButtonList runat="server" ID="RdTipoUnidad" AutoPostBack="true" OnSelectedIndexChanged="RdTipoUnidad_SelectedIndexChanged" RepeatDirection="Horizontal">
<asp:ListItem Value="1" Selected="True">Unidad</asp:ListItem>
<asp:ListItem Value="2">Remolque</asp:ListItem>
</asp:RadioButtonList>
</div>
<div class="form-group form-md-line-input input-iconright col-md-12"> <div class="form-group form-md-line-input input-iconright col-md-12">
<asp:TextBox ID="TxtEspecificacionNuevo" CssClass="form-control" runat="server" MaxLength="100"></asp:TextBox> <asp:TextBox ID="TxtEspecificacionNuevo" CssClass="form-control" runat="server" MaxLength="100"></asp:TextBox>
<label for="<%= TxtEspecificacionNuevo.ClientID.ToString()%>">Unidad:</label> <label for="<%= TxtEspecificacionNuevo.ClientID.ToString()%>">Unidad:</label>
@@ -89,9 +97,9 @@
</div> </div>
</div> </div>
<div class="form-group form-md-line-input input-iconright col-md-12"> <div class="form-group form-md-line-input input-iconright col-md-12" runat="server" visible="false" id="DvNumeroTrailler">
<asp:TextBox ID="TxtNumeroTrailer" CssClass="form-control" runat="server" MaxLength="100"></asp:TextBox> <asp:TextBox ID="TxtNumeroTrailer" CssClass="form-control" runat="server" MaxLength="100"></asp:TextBox>
<asp:Label AssociatedControlID="TxtNumeroTrailer" runat="server" Text="NÚMERO DE TRAILER"></asp:Label> <asp:Label AssociatedControlID="TxtNumeroTrailer" runat="server" Text="Número De Unidad"></asp:Label>
<i></i> <i></i>
</div> </div>
@@ -241,7 +249,7 @@
</div> </div>
<asp:CheckBox ID="ChkesRemolque" Checked="true" TextAlign="Left" Text="¿Es remolque?:" runat="server" AutoPostBack="true" OnCheckedChanged="ChkesRemolque_CheckedChanged" /> <%--<asp:CheckBox ID="ChkesRemolque" Checked="true" TextAlign="Left" Text="¿Es remolque?:" runat="server" AutoPostBack="true" OnCheckedChanged="ChkesRemolque_CheckedChanged" />--%>
</div> </div>

58
Inventarios/CatUnidades.aspx.vb
View File

@@ -23,6 +23,11 @@ Partial Class Inventarios_CatUnidades
End If End If
End Sub End Sub
Public Sub CargaDatos() Public Sub CargaDatos()
@@ -98,11 +103,12 @@ Partial Class Inventarios_CatUnidades
TxtNumeroTrailer.Text = "" TxtNumeroTrailer.Text = ""
TxtSCAC.Text = "" TxtSCAC.Text = ""
TxtCAAT.Text = "" TxtCAAT.Text = ""
ChkesRemolque.Checked = False
RdTipoUnidad.SelectedValue = "1"
LtlTituloModal.Text = "Agregar Unidad" LtlTituloModal.Text = "Agregar Unidad"
DdlTiposRemolque.SelectedValueExist(-1) DdlTiposRemolque.SelectedValueExist(-1)
ChkesRemolque_CheckedChanged(Nothing, Nothing) RdTipoUnidad_SelectedIndexChanged(Nothing, Nothing)
UpModalUnidades.Update() UpModalUnidades.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarUnidad")) RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarUnidad"))
@@ -140,11 +146,13 @@ Partial Class Inventarios_CatUnidades
TxtSCAC.Text = GvRow.DataKey("SCAC") TxtSCAC.Text = GvRow.DataKey("SCAC")
TxtCAAT.Text = GvRow.DataKey("CAAT") TxtCAAT.Text = GvRow.DataKey("CAAT")
ChkesRemolque.Checked = (GvRow.DataKey("CveTipoCamion") = "2") 'ChkesRemolque.Checked = (GvRow.DataKey("CveTipoCamion") = "2")
RdTipoUnidad.SelectedValue = GvRow.DataKey("CveTipoCamion")
LtlTituloModal.Text = "Actualizar Unidad" LtlTituloModal.Text = "Actualizar Unidad"
ChkesRemolque_CheckedChanged(Nothing, Nothing) RdTipoUnidad_SelectedIndexChanged(Nothing, Nothing)
UpModalUnidades.Update() UpModalUnidades.Update()
@@ -185,7 +193,7 @@ Partial Class Inventarios_CatUnidades
Dim ErrorPrceso As Boolean = False Dim ErrorPrceso As Boolean = False
Dim CveTipoCamion As Integer = If(ChkesRemolque.Checked, 2, 1) Dim CveTipoCamion As Integer = RdTipoUnidad.SelectedValue.ToEntero
Using ObjInventarios As New ClsInventarios Using ObjInventarios As New ClsInventarios
If CveCamion <= 0 Then If CveCamion <= 0 Then
@@ -218,9 +226,9 @@ Partial Class Inventarios_CatUnidades
End Sub End Sub
Protected Sub ChkesRemolque_CheckedChanged(sender As Object, e As EventArgs) Protected Sub RdTipoUnidad_SelectedIndexChanged(sender As Object, e As EventArgs)
If Not ChkesRemolque.Checked Then If RdTipoUnidad.SelectedValue.ToEntero = 1 Then
DVAnio.Visible = True DVAnio.Visible = True
DVConfigAuto.Visible = True DVConfigAuto.Visible = True
@@ -230,11 +238,14 @@ Partial Class Inventarios_CatUnidades
DVNombreAseguradoraMedioAmbiente.Visible = True DVNombreAseguradoraMedioAmbiente.Visible = True
DVNumPolizaSeguroMedioAmbient.Visible = True DVNumPolizaSeguroMedioAmbient.Visible = True
DVLineaTransportacion.Visible = True 'DVLineaTransportacion.Visible = True
DVSCACCAAT.Visible = True 'DVSCACCAAT.Visible = True
DVTiposRemolque.Visible = False
'DVLongitudCaja.Visible = False
DVTiposRemolque.Visible = False DVTiposRemolque.Visible = False
DVLongitudCaja.Visible = False
Else Else
DVAnio.Visible = False DVAnio.Visible = False
DVConfigAuto.Visible = False DVConfigAuto.Visible = False
@@ -244,16 +255,33 @@ Partial Class Inventarios_CatUnidades
DVNombreAseguradoraMedioAmbiente.Visible = False DVNombreAseguradoraMedioAmbiente.Visible = False
DVNumPolizaSeguroMedioAmbient.Visible = False DVNumPolizaSeguroMedioAmbient.Visible = False
DVLineaTransportacion.Visible = False 'DVLineaTransportacion.Visible = False
DVSCACCAAT.Visible = False 'DVSCACCAAT.Visible = False
DVTiposRemolque.Visible = True DVTiposRemolque.Visible = True
DVLongitudCaja.Visible = True 'DVLongitudCaja.Visible = True
DVTiposRemolque.Visible = True
End If End If
DVTiposRemolque.Visible = ChkesRemolque.Checked If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
UpModalUnidades.Update DvNumeroTrailler.Visible = True
DVLongitudCaja.Visible = True
DVLineaTransportacion.Visible = True
DVSCACCAAT.Visible = True
Else
DvNumeroTrailler.Visible = False
DVLongitudCaja.Visible = False
DVLineaTransportacion.Visible = False
DVSCACCAAT.Visible = False
End If
UpModalUnidades.Update()
End Sub End Sub
End Class End Class