Asignacion de valores a objeto de subproyecto

App_Code/ClsPaginas.vb

@@ -5926,7 +5926,8 @@ Public Class ClsPaginas
         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 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
 

App_Code/EntityModel.vb

@@ -49,7 +49,11 @@ Namespace Modelos
                                     Case "Single"
                                         prop.SetValue(Me, CSng(row(prop.Name)))
                                     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"
                                         prop.SetValue(Me, CUInt(row(prop.Name)))
                                     Case "UInt64"

App_Code/Modelos.vb

@@ -8729,6 +8729,7 @@ Namespace Modelos
             FormatoFactura = ""
             SubProyecto = ""
             Correo = ""
+            Telefono = ""
             UTCOffsetVerano = -7
             UTCOffsetInvierno = -7
         End Sub
@@ -8738,20 +8739,8 @@ Namespace Modelos
         Public Sub New(Row As System.Data.DataRow)
             SetDefaultValues()
             If Row IsNot Nothing Then
-                Calle = Row("Calle").ToString
-                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()
+                Me.setValues(Row)
             End If
-
         End Sub
 
         Public ReadOnly Property LugarExp As String