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

Parametros nuevos en catalogo de choferes y vehiculos

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-09-23 00:49:35 -07:00
parent 9a305f6eae
commit 1ecb2d8743
5 changed files with 269 additions and 163 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Acarreos/CatChoferes.aspx.vb
View File

@@ -47,12 +47,12 @@ Partial Class Acarreos_CatChoferes
Dim Estatus = 0
If ChkEstatus.Checked Then Estatus = 1
If HdnModalidad.Value = "A" Then
If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtDomicilio.Text.Trim, TxtTelefono.Text.Trim, TxtCiudad.Text.Trim, TxtLicencia.Text.Trim) Then
If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumInt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:=TxtColonia.Text.Trim, Ciudad:=TxtCiudad.Text.Trim, Estado:=TxtEstado.Text.Trim(), CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=TxtResidenciaFiscalOperador.Text.Trim) Then
CargaDatos()
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
End If
ElseIf HdnModalidad.Value = "U" Then
If ObjAcar.UpdateChofer(HdnID.Value, TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtDomicilio.Text.Trim, TxtTelefono.Text.Trim, TxtCiudad.Text.Trim, TxtLicencia.Text.Trim) Then
If ObjAcar.UpdateChofer(HdnID.Value.ToEntero(), TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:=TxtColonia.Text.Trim, Ciudad:=TxtCiudad.Text.Trim, Estado:=TxtEstado.Text.Trim(), CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=TxtResidenciaFiscalOperador.Text.Trim) Then
CargaDatos()
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
End If
@@ -70,13 +70,25 @@ Partial Class Acarreos_CatChoferes
UpDatos.Update()
BtnAgregarChofer.Text = "Actualizar"
myModalLabel.InnerText = "Actualizar Chofer"
TxtChofer.Text = GvRow.DataKey("Chofer")
TxtIdentificacion.Text = GvRow.DataKey("Identificacion")
TxtDomicilio.Text = GvRow.DataKey("Domicilio")
TxtIdentificacion.Text = GvRow.DataKey("Identificacion")
TxtTelefono.Text = GvRow.DataKey("Telefono")
TxtDomicilio.Text = GvRow.DataKey("Domicilio")
TxtNumInt.Text = GvRow.DataKey("NumeroInterior")
TxtNumExt.Text = GvRow.DataKey("NumeroExterior")
TxtColonia.Text = GvRow.DataKey("Colonia")
TxtCiudad.Text = GvRow.DataKey("Ciudad")
TxtLicencia.Text = GvRow.DataKey("Licencia")
DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista"))
TxtEstado.Text = GvRow.DataKey("Estado")
TxtCP.Text = GvRow.DataKey("CP")
TxtLicencia.Text = GvRow.DataKey("Licencia")
TxtNumRegidTribOperador.Text = GvRow.DataKey("NumRegidTribOperador")
TxtResidenciaFiscalOperador.Text = GvRow.DataKey("ResidenciaFiscalOperador")
DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista"))
divEstatus.Visible = True
ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
UpAddChofer.Update()