From 89f91642942c4ff85ba5532afda8dd55001a98f5 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 2 Mar 2020 12:28:44 -0700
Subject: [PATCH] Asignacion de valores a objeto de subproyecto

---
 App_Code/ClsPaginas.vb  |  3 ++-
 App_Code/EntityModel.vb |  6 +++++-
 App_Code/Modelos.vb     | 15 ++-------------
 3 files changed, 9 insertions(+), 15 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 24f10f87e..91ecec956 100644
--- a/App_Code/ClsPaginas.vb
+++ b/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
 
diff --git a/App_Code/EntityModel.vb b/App_Code/EntityModel.vb
index 1476e9da8..193688795 100644
--- a/App_Code/EntityModel.vb
+++ b/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"
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 08036f1b9..c23e6aa8a 100644
--- a/App_Code/Modelos.vb
+++ b/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