- almacenasignado

App_Code/ClsClientes.vb

@@ -160,6 +160,7 @@ Public Class ClsClientes
     Public Property CodigoRegimenFiscal As String
     Public Property RegimenFiscal As String
     Public Property RepresentanteLegal As String
+    Public Property CveAlmacenAsignado As Integer
     Public Property UsaProductoAlterno As Boolean = False
 
 #End Region
@@ -407,6 +408,7 @@ Public Class ClsClientes
                 _RegimenFiscal = Data(0)("RegimenFiscal").ToString
                 _CodigoRegimenFiscal = Data(0)("CodigoRegimenFiscal").ToString
                 _RepresentanteLegal = Data(0)("RepresentanteLegal").ToString
+                _CveAlmacenAsignado = Data(0)("CveAlmacenAsignado").ToString.ToEntero
                 _UsaProductoAlterno = CBool(Data(0)("UsaProductoAlterno"))
 
             End If