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

Asignacion de valores a objeto de subproyecto

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-03-02 12:28:44 -07:00
parent 633358b95f
commit 89f9164294
3 changed files with 9 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsPaginas.vb
View File

@@ -5926,7 +5926,8 @@ Public Class ClsPaginas
If Vta.SubProyecto.Colonia.Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", Vta.SubProyecto.Colonia) If Vta.SubProyecto.Colonia.Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", Vta.SubProyecto.Colonia)
If Vta.SubProyecto.CP.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", Vta.SubProyecto.CP) If Vta.SubProyecto.CP.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", Vta.SubProyecto.CP)
If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal) If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal)
If Vta.SubProyecto.Pais.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", Vta.SubProyecto.Pais) If Vta.SubProyecto.Pais.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", Vta.SubProyecto.Pais)
If Not String.IsNullOrEmpty(Vta.SubProyecto.Telefono) AndAlso UsuarioActual.CveEmpresa = 141 Then SBDomicilioSucursal.AppendFormat(", Tel: {0}", Vta.SubProyecto.Telefono)
DomicilioSucursal = SBDomicilioSucursal.ToString DomicilioSucursal = SBDomicilioSucursal.ToString

6
App_Code/EntityModel.vb
View File

@@ -49,7 +49,11 @@ Namespace Modelos
Case "Single" Case "Single"
prop.SetValue(Me, CSng(row(prop.Name))) prop.SetValue(Me, CSng(row(prop.Name)))
Case "String" Case "String"
prop.SetValue(Me, CStr(row(prop.Name))) If String.IsNullOrEmpty(row(prop.Name)) Then
prop.SetValue(Me, "")
Else
prop.SetValue(Me, CStr(row(prop.Name)))
End If
Case "UInt32" Case "UInt32"
prop.SetValue(Me, CUInt(row(prop.Name))) prop.SetValue(Me, CUInt(row(prop.Name)))
Case "UInt64" Case "UInt64"

15
App_Code/Modelos.vb
View File

@@ -8729,6 +8729,7 @@ Namespace Modelos
FormatoFactura = "" FormatoFactura = ""
SubProyecto = "" SubProyecto = ""
Correo = "" Correo = ""
Telefono = ""
UTCOffsetVerano = -7 UTCOffsetVerano = -7
UTCOffsetInvierno = -7 UTCOffsetInvierno = -7
End Sub End Sub
@@ -8738,20 +8739,8 @@ Namespace Modelos
Public Sub New(Row As System.Data.DataRow) Public Sub New(Row As System.Data.DataRow)
SetDefaultValues() SetDefaultValues()
If Row IsNot Nothing Then If Row IsNot Nothing Then
Calle = Row("Calle").ToString Me.setValues(Row)
NoExt = Row("NoExt").ToString
NoInt = Row("NoInt").ToString
Colonia = Row("Colonia").ToString
Localidad = Row("Localidad").ToString
Municipio = Row("Municipio").ToString
Estado = Row("Estado").ToString
Pais = Row("Pais").ToString
CP = Row("CP").ToString
SubProyecto = Row("SubProyecto").ToString
UTCOffsetVerano = Row("UTCOffsetVerano").ToString.ToEntero()
UTCOffsetInvierno = Row("UTCOffsetInvierno").ToString.ToEntero()
End If End If
End Sub End Sub
Public ReadOnly Property LugarExp As String Public ReadOnly Property LugarExp As String