tomo II MANUAL TECNICO
Contents
1. Tabla 23 Tabla tbFa Vendedor Y Tabla RptCC CobrosxCliente La finalidad de la creaci n de esta estructura es para presentar los reportes con sus respectivas especificaciones A continuaci n se describir n cada uno de los campos de la estructura Nombre Tipo Dato Descripci n cr Idcompania Int Registra el c digo de la compa a cr Idsucursal Int Registra el c digo de la sucursal cr numero numeric 18 0 cr Idcliente numeric 10 0 Registra el c digo del cliente cr IdFormaPago _ char 3 Escoge la forma de pago cr valor Money Indica el valor pendiente por pagar cr fecha date Indica la fecha de la factura cr fechaCobro Datetime Indica la fecha de cobro de la factura cr fechaEdicion Datetime cr observacion nvarchar 100 Pone alguna observaci n en la factura cr Banco Smallint Indica el nombre del banco cr cuenta nvarchar 100 Indica el cuenta del banco cr NumCheque nvarchar 100 Indica el 4 de cheque con que cancela la factura cr Tarjeta Smallint Indica de qu banco es la tarjeta cr numTarj nvarchar 100 Indica el n mero de tarjeta con que cancela cr estado nvarchar 1 Indica el estado cr saldo Money Indica el saldo del cliente cr fechaReg Datetime Registra la fecha del pago cr IdFecha Int cr IdFechaCobro Int Indica la fecha del cobro PSucursal char 20 Indica de qu sucu2. Nombre Tipo Dato Descripci n IdReport Int C digo del Reporte NombreRpt nchar 100 Registra el nombre del reporte VistoXAdministrador nchar 1 Representa el estado del reporte que ser visto por el administrador VistoxEjecutivo nchar 1 Representa el estado del reporte que ser visto por el ejecutivo VistoxUser nchar 1 Representa el estado del reporte que ser visto por el usuario NombreFuenteRpt nchar 100 Registra el nombre con que se crea el reporte en el formulario IdGrupo Int C digo del grupo al que pertenece el reporte Estado nchar 1 Registra el estado del reporte A Activo T Inactivo Tabla 3 Tabla tb Reportes 54 55 Y Tabla tb_usuario La finalidad de la creaci n de esta estructura es para registrar al usuario que interactuar con el aplicativo A continuaci n se describir n cada uno de los campos de la estructura Nombre Tipo Dato Descripci n tb Idusuario nchar 15 Registra el c digo del usuario que est ingresando tb_nombre nchar 30 Registra el nombre representativo del Id_User tb Administrador nchar 1 Registra si el tipo de perfil que tendr el usuario es el de Administrador tb ejecutivo nchar 1 Registra si el tipo de perfil que tendr el usuario es el de Ejecutivo tb user nchar 1 Registra el tipo de perfil que tendr el usuario es el de usuario operador tb password nchar 20 Registra la clave que tendr el
3. pr stock float Cantidad disponible en el stock pr pedidos float Registra los pedidos por producto pr IdFabricante Smallint Registra el c digo del fabricante pr Manejalva nvarchar 1 Informa si el producto paga o no IVA pr estado Tinyint Estado del producto activo o Inactivo pr_precio_minimo Money Registra el precio m nimo pr_IdProveedor Smallint Registra el c digo del proveedor pr_IdMarca Int Describe el c digo de la marca pr_fecha Datetime Registra la fecha de ingreso del producto Tabla 20 Tabla tbIN_Producto Y Tabla tbFa_Factura La finalidad de la creaci n de esta estructura es para registrar todas las facturas emitidas a los clientes A continuaci n se describir n cada uno de los campos de la estructura 66 Nombre Tipo Dato Descripci n vt_IdEmpresa Int C digo de la empresa que factura vt_IdSucursal Int Registra el c digo de la sucursal que factura vt_IdFactura numeric 10 0 Registra el Id de la factura vt_Factura numeric 18 0 Registra el c digo de la factura vt_IdVendedor Int Registra el c digo del vendedor vt_IdCliente numeric 10 0 Registra el c digo del cliente vt_fecha Datetime Registra la fecha de la factura vt_base_coniva Money Registra la base a la que se le calcula el IVA vt_base_siniva Money Registra la base que va sin IVA vt_subtotal Money Reg
4. gt _ Public Property telefonos As String Get Return _telefonos End Get Set ByVal value As String _telefonos value End Set End Property lt XmlElement fax gt _ Public Property fax As String Get Return _fax End Get Set ByVal value As String _fax value End Set End Property XmlElement direccion _ Public Property direccion As String Get Return _direccion End Get Set ByVal value As String _direccion value End Set End Property lt XmlElement imagen gt _ Public Property imagen As String Get Return _imagen End Get 93 Set ByVal value As String _imagen value End Set End Property lt XmlElement tel_int gt _ Public Property tel int As String Get Return tel int End Get Set ByVal value As String tel int value End Set End Property XmlElement logo _ Public Property logo As String Get Return logo End Get Set ByVal value As String _logo value End Set End Property lt XmlElement fondo gt _ Public Property fondo As String Get Return _fondo End Get Set ByVal value As String _fondo value End Set End Property Sub New End Sub Sub New ByVal value As String direccion value End Sub Sub New _ ByVal IdEmpresa As Integer _ ByVal fondo As String _ ByVal logo As String _ ByVal tel int As String _ ByVal imagen As String _ ByVal direccion As String _ ByVal fax As String _ 94 ByVal telefonos As String _ ByVal
5. n Caso Uso Vinculador Caso de Uso Nombre Actores Precondiciones Flujo de Trabajo Comentarios ACTOR 01 ACTORO2 2 Exista por lo menos 1 B D Cliente 1 Seleccionar tabas del cliente vs los XML para establecer la vinculaci n 2 Seleccionar campos de las tablas a relacionar 3 Verificar que se activa el estado del check box para que se establezca la relaci n entre campos CarteraBD es la B D del Cubo de Informaci n y XML son los esquemas para comparar y validar Tabla31 Descripci n Caso de Uso Vinculador CARGA dumme d Era Cliente es x k Seleccionar la Base ACTORO1 Figura 49 Carga Precondiciones 1 Exista por lo menos una Vinculaci n entre tablas Flujo de Trabajo 1 Activar la casilla check box de las tablas que se desean cargar 2 Click en bot n Validaci n y carga Comentarios Los campos obligatorios deben estar relacionados para que la carga se exitosa Tabla32 Descripci n Caso de Uso Carga 77 78 Figura50 Descripci n Caso Uso Mantenimiento de Usuario Caso de Uso Mantenimiento de Usuarios Precondiciones 1 Exista por lo menos un usuario Flujo de Trabajo 1 Permitir crear nuevos usuarios modificarlos y eliminarlos 2 Click Salir regresa pantalla principal Comentarios Tabla33 Descripci n Caso de Uso Mantenimiento Usuario Viajar Rannrte Balances de Malkinn 2 Cm E Liquidaci n de CMS A Figur
6. 96 97 Esta clase crea la estructura que tendra el menu para identificar cual de los tres perfiles podra acceder al programa TablaInfo vb Esta clase permitira selecciona a cada una de las tablas atravez codigo nombre y el cambpo de la tabla para luego ser relacionadas TablaVsXML vb Permite relacionar las tablas del cliente Vs las tablas de mis XML UsusariosInfo vb Clase disebada obtener los perfiles de Ususarios que podran ingresar al programa ingresando el password XMLInfo vb Esta clase se relacionara con las clases del cliente 98 Cobranza Data esta capa realiza la conexi n para enlazarla con la base de datos de todas las funciones procedimientos y sp para migrar los datos del cliente insertar datos del cliente a nuestra base esta capa recibe como par metros los objetos de tipo Info para luego asignarlos y retornarlos n una lista CategoriaData Clas CiudadesData Clas ClienteData Clas CobrosxCliente_ Y Clas CobrosxClienteD Y Clos DataConexion Cles DiasData Clas EmpresaData Clos Fa Factura Det Clas Fa FacturaData Clas HICC_Cobrosxdl Clas MarcaData Clas MenuData Clas MesData Clas NotaCredDebData Clas PreferenciasData Clas ProductoData Clas ReportesData Clas MySettings MarInmeitable Class gt Appeoa mp Base spRpt_ProcesaD Clas Data_Comands
7. As System EventArgs Handles Me Load If Not IsPostBack Then llenaCombos End If End Sub End Class 128 129 Codificaci n Ambiente M vil CobranzaSmartDevice AMBIENTE MOVIL Estamos utilizando el Emulador de Visual 2008 para poder subir los reportes en el m vil y el web service que es la p gina en la cual publicaremos todos los m todos para poderlos ver desde cualquier m quina para ello utiliza el programa Microsoft ActiveSync mostrando la interoperabilidad de la aplicaci n Fem Index vb Public Class frm Index Private Sub Buttonl Click ByVal sender As System Object ByVal e As System EventArgs Handles Buttonl Click frm RecaudacionFilter Show End Sub End Class D Tesis Lourdes Gestor Cobranza CobranzaSmark Device Fem_RecaudacionRPT Imports System Net Public Class frm_RecaudacionRPT Private Sub frm_RecaudacionRPT_Load ByVal sender As Object ByVal e As System EventArgs Handles MyBase Load Me WebBroRpt Navigate New Uri http lacivarw2003s ReportServer Pages ReportViewer aspx 2fCobranzaRep orts 2fRpt Recaudaciones amp rs Command Render End Sub End Frm RecaudacionFilter vb Public Class frm RecaudacionFilter Dim parametros As New ParametrosInfo Private Sub frm RecaudacionFilter KeyDown ByVal sender As System Object ByVal e As System Windows Forms KeyEventArgs Handles MyBase KeyDown I
8. Cliente La finalidad de la creaci n de esta estructura es para registrar los datos de los clientes con los que cuentan las empresas A continuaci n se describir n cada uno de los campos de la estructura Nombre Tipo Dato Descripci n cl Idcompania Int C digo de la compa a cl IdCliente numeric 18 0 Codigo del cliente cl IdSucursal Int Codigo de sucursal cl cedula ruc Pass nvarchar 15 Registra la cedula o el Ruc del cliente ca Nombre nvarchar 100 Nombre del Cliente cl RazonSocial nvarchar 100 Registra el nombre de la Raz n Social cl direccion nvarchar 130 Guarda la direcci n del cliente cl telefono nvarchar 100 Registra los tel fonos cl email nvarchar 50 Guarda la direcci n del correo electr nico en caso de tenerlo cl tipo cliente Tinyint Describe el tipo de cliente con que cuenta la empresa cl credito nvarchar 1 Registra si el cliente tendr cr dito o no cl plazo Smallint Registra los d as de cr dito que tendr el cliente cl estado nvarchar 1 Registra si el cliente est Activo o Inactivo cl observacion varchar 130 Guarda datos adicionales del cliente cl fecha datetime Guarda la fecha de inscripci n del cliente cl IdCiudad Int Registra el c digo de la ciudad del cliente cl Idzona Int Guarda la zona a la que pertenece el cliente cl Cupo float Cupo de cr dito que tendr el cli
9. NTipoCobro As String _ ByVal NameReport As String ByVal idRpthistory As String Try Dim Conn As SqlConnection Conn DataConexion GetConexion Dim cm As New SqlClient SglCommand spRpt ProcesaData CancelacionxFacturas Conn Dim idClienteIni As Integer Dim idClienteFin As Integer Dim idVendedorIni As Integer Dim idVendedorFin As Integer Dim lidsuculni As Integer Dim lidsucuFin As Integer If idClie 0 Then idClienteIni 1 idClienteFin 999999 Else idClienteIni idClie idClienteFin idClie End If 101 If idVen 0 Then idVendedorlni 1 idVendedorFin 999 Else idVendedorIni id Ven idVendedorFin idVen End If If idCobroIni All Then idCobroIni 2 AAA idCobroFin ZZZ End If If idCobroIni Is Nothing Or idCobroFin Is Nothing Then idCobroIni AAA idCobroFin ZZZ End If If idSucu 0 Then lidsuculni 1 lidsucuFin 2 Else lidsuculni idSucu lidsucuFin idSucu End If If idTipoEstadoIni Then idTipoEstadoIni A idTipoEstadoFin Z End If If NumFacturaIni O Then NumFacturalni 0 NumFacturaFin 500000 End If cm Parameters Add 91 cia SgIDbType Int Value idEmpreas cm Parameters Add 91 suculni SgIDbType Int Value lidsuculni cm Parameters Add 91 sucuFin SqIDbType Int Value lidsucuFin cm Parameters Add 1 idFormalni SqIDbType NChar 3 Value idCobroIni cm Parameters Add 1 idFormaFin SgIDbType NChar 3 Value idCobroFin cm Para
10. Notlnheritaie Class AppleatioSettingsiiase Tipoctientelnfos x Clas Zona Ventas Info Class HICC_CobrosxCl x Class Parametrosinto bes Resources Module K Figura60 Estructura Cobranza Info C Tesis Lourdes Gestor CobranzalCobranza infolEmpresaInfo vb Empresalnfo vb Imports System Xml Serialization lt Serializable gt _ Public Class Empresalnfo Private _IdEmpresa As String Private _fondo As String Private _logo As String Private _tel_int As String Private _imagen As String Private _direccion As String Private _fax As String Private _telefonos As String Private _ruc As String Private _gerente As String Private _nombre As String lt XmlElement IdEmpresa gt _ Public Property IdEmpresa As String Get Return _IdEmpresa End Get Set ByVal value As String _IdEmpresa value End Set End Property XmlElement nombre _ Public Property nombre As String Get Return _nombre End Get Set ByVal value As String _nombre value End Set End Property lt XmlElement gerente gt _ Public Property gerente As String Get Return _gerente End Get Set ByVal value As String 92 _gerente value End Set End Property lt XmlElement ruc gt _ Public Property ruc As String Get Return _ruc End Get Set ByVal value As String ruc value End Set End Property lt XmlElement telefonos
11. Sub Button4 Click ByVal sender As System Object ByVal e As System EventArgs Handles btnSalir Click Me Close End Sub Private Sub frmConection Load ByVal sender As System Object ByVal e As System EventArgs Handles MyBase Load IniciarPantalla cbMSSQLProviders SelectedIndex O ManejadorControlWizard New Handler WizardConeccion Estructuras Conexiones MsSQL End Sub Sub CargaDataConexion Dim oconXml As New Conexion Client tipoConexion TipoConexion Dim oConlnfo As List Of ConexionInfo oConInfo oconXml getInfoConexion Me lvDetalle DataSource oConInfo End Sub Sub IniciarPantalla gbConfigConeccion Visible False gbDetalleConneccion Visible True gbDetalleConneccion Parent SplitCMain Panell gbDetalleConneccion Dock DockStyle Fill OcultarGroupBox CargaDataConexion End Sub Sub BorrarVinculaciones Dim bRe As New Tablas VsXmlBussines bRe Delete ALL Relaciones End Sub Sub IniciarConfigCon gbConfigConeccion Visible True gbConfigConeccion Parent SplitCMain Panell gbConfigConeccion Dock DockStyle Fill grbox1 Parent gbConfigConeccion grbox1 Dock DockStyle Fill grbox1 Visible True CountWizar 0 End Sub Private Sub btnNuevaCone_Click ByVal sender As System Object ByVal e As System EventArgs Handles btnNuevaCone Click IniciarConfigCon End Sub Private Sub btnCerrar_Click ByVal sender As System Object ByVal e As System EventArgs Handles btnCerrar Click IniciarPantalla End Sub Priva
12. TablatbCC CobrosxCliente Det La finalidad de la creaci n de esta estructura es para registrar el detalle de la cabecera de las cuentas por cobrar Nombre Tipo Dato Descripci n dr_Idcompania Int C digo de la compa a dr_Idsucursal Tinyint C digo de sucursal dr_numero numeric 18 0 N mero del documento dr_secuencial Smallint Secuencia del documento de pago dr_tipoDoc nchar 1 Tipo de documento del pago dr_Num_fact_Nota numeric 18 0 de factura o nota de venta dr_ValorPago Money Valor de pago de factura dr_Vendedor Int C digo vendedor del cliente Tabla 12 Tabla tbCC CobrosxCliente Det Y Tabla tbCC NotaCredDeb La finalidad de la creaci n de esta estructura es para registrar los cr ditos o d bitos que tienen los clientes a trav s de este tipo de documento A continuaci n se describir n cada uno de los campos de la estructura Nombre Tipo Dato Descripci n sc Idcompania Int C digo de la compa a sc Idsucursal Int C digo de sucursal sc Idcliente Int C digo del cliente sc Idvendedor Int C digo del vendedor sc fecha Datetime Registra la fecha actual sc serie fac char 7 Registra la serie de la factura sc factura numeric 18 0 Registra el de la factura sc fecha emision Datetime Fecha en que es emitida N Cr dito Debito sc IdTipo nchar 10 C digo del tipo de Nota sc IdMotivo Int Mot
13. de la estructura Tipo Dato em IdEmpresa C digo de la Empresa empresa de la empresa nvarchar 13 Registra el Ruc varchar 100 Guarda los tel fonos empresa empresa Guarda la imagen de la empresa Guarda el logo de la empresa Tabla 7 Tabla tb_empresa Y Tabla tbIN_Marca La finalidad de la creaci n de esta estructura es para registrar la marca de los productos con los que cuneta la compa a A continuaci n se describir n cada uno de los campos de la estructura 57 Tipo Dato C digo de la compa a ma_clave Int Registra el c digo clave de la marca varchar 100 Nombre de la marca ma_estado char 1 Registra el estado de la marca A si esta activo y por consiguiente P si est inactivo Tabla 8 Tabla tbIN_Marca Y Tabla tbSucursal La finalidad de la creaci n de esta estructura es para registrar los datos de las sucursales que tienen algunas empresas A continuaci n se describir n cada uno de los campos de la estructura Tipo Dato C digo de la compa a su IdSucursal Describe el IDSucursal sucursal sucursal nvarchar 50 Nombre de la Sucursal nvarchar 15 Guarda el Ruc de cada sucursal su responsable nvarchar 50 Registra el nombre del gerente para cada sucursal nvarchar 80 Describe la direcci n nvarchar 50 Guarda los tel fonos que pertenece la sucursal A si esta activada Tabla 9 Tabla tbSucursal 58 Y TablatbCC
14. ex As Exception End Try End Sub Public Function getListaRptHist As List Of HistoricoRpt_info Dim dr As SqlDataReader Dim Conn As SqlConnection Dim comand As SglClient SqlCommand Dim instruccion As String Dim oHRpt As New HistoricoRpt info Dim listHrpt As New List Of HistoricoRpt info Try Conn DataConexion GetConexion instruccion select distinct cr idProceso cr NameReports cr fechaProceGuardarRpt from hiCC_CobrosxCliente comand New SqlClient SqlCommand instruccion Conn Conn Open dr comand ExecuteReader While dr Read oHRpt New HistoricoRpt info oHRpt IdProceso dr cr idProceso oHRpt NombreRpt dr cr NameReports oHRpt FechaProceso dr cr fechaProceGuardarRpt listHrpt Add oHRpt End While Conn Close Return listHrpt Catch ex As Exception Return listHrpt comand Dispose 105 End Try End Function Public Function getListaRptHistXProducto As List Of HistoricoRpt_info Dim dr As SqlDataReader Dim Comn As SqlConnection Dim comand As SglClient SqlCommand Dim instruccion As String Dim oHRpt As New HistoricoRpt_info Dim listHrpt As New List Of HistoricoRpt_info Try Conn DataConexion GetConexion instruccion select distinct cr idProceso cr NameReports cr fechaProceGuardarRpt from HICC CobrosxProducto comand New SqlClient SqlCommand instruccion Conn Comn Open dr comand ExecuteReader While dr Read oHRpt New HistoricoRpt_info oHRpt IdProceso dr cr idProceso oHRpt Nomb
15. producto ValueMember IdProducto Me cmb tipoPago DataSource wsEmp GetFormaPago Me cmb tipoPago DisplayMember descripcion Me cmb tipoPago ValueMember IdTipoCobro End Sub ByVal e As System EventArgs Handles btn consultar Click param param param param e e e e setParam execRpt Cros Cros tros i Cros pt As New WSCobranza WSCobranza tros jecutar SP Reports Recaudacion tros IdCompania parametros IdSucursalIni PagoIni param parametros NomSucursal parametros NomCliente NomVendedor mm parametros NomTipoPago Recaudacion 0 tn consultar Click ByVal sender As System Object R e e o parametros IdTipoPagoFin parametros IdClienteIni d etros Fechalni parametros FechaFin A Z R 131 frm RecaudacionRPT Show 132
16. ruc As String _ ByVal gerente As String _ ByVal nombre As String _ _IdEmpresa IdEmpresa _fondo fondo _logo logo tel int tel int Imagen imagen direccion direccion fax fax telefonos telefonos _ruc ruc gerente gerente nombre nombre End Sub End Class Grupo RptInfo vb La estrucutra de esta clase permitira establecer a que grupo del perfil de usuarios se va a accesar Public Class Grupo RptInfo Private _IdGrupo As Integer Private _Descripcion As String Public Property IdGrupo As Integer Get Return _IdGrupo End Get Set ByVal value As Integer _IdGrupo value End Set End Property Public Property Descripcion As String Get Return _Descripcion 95 End Get Set ByVal value As String Descripcion value End Set End Property Sub New End Sub Sub New _ ByVal IdGrupo As Integer _ ByVal Descripcion As String _ _IdGrupo IdGrupo _Descripcion Descripcion End Sub End Class gt HICC CobrosxClienteInfo vb gt Esta clase va permitir guardar el Nombre del reporte y la fecha en que se guardo par luego ser buscada en la consulta historica gt Hist ricoRpt info gt En esta clase permitira realizar la busqueda de los reportes que se guardaron gt ReportesInfo vb gt Esta clase permitira escoger el reporte que sera visto dependiendo del grupo de perfil que este tratando de acceder a la programa gt Menulnfo vb
17. 74 Caso de Uso del Nivel 0 Nivel 0 Conexiones Vinculador Mantenimiento de 2 Mantenimiento de Report Viewer Figura 46 Caso de Uso Ingreso al aplicativo Too Uso del Gestor de Cobranzas Precondiciones 1 Estar registrado o Autorizado 2 Debe existir por lo menos una base de datos del cliente Funci n 1 Iniciar sesi n Usuario password 2 Realizar la Conexi n con la B D del cliente para vincular las tablas validarlas con los esquemas y migrarlas para realizar la carga y poder mostrarla en los reportes Comentarios El Administrador ejecutivo y gestor ingresan de la misma forma Tabla29 Descripci n caso de uso Ingreso Nivel 1 Configurar Base ACTORO1 ACTORO2 Figura 47 Caso de uso Conexi n CONFEYIONES Seleccionar la Base ID Caso de Uso CONEXIONES Nombre Conexi n Actores ACTOR 01 ACTOR 02 Precondiciones Existir Por lo menos 1B D del cliente 1 Seleccionar la B D del Cliente a la cual deseamos conectarnos 2 Sies Access click en siguiente Flujo de Datos 3 Click Examinar y escoger la ruta de B D 4 si es Microsoft SQL Server 2003 click Bot n Configurar B D 5 Mensaje Conexi n OK y Click en Bot n Aceptar Si la conexi n no es exitosa pedir que se Comentarios conecte nuevamente Tabla 30 Descripci n Caso de Uso Conexiones 75 Nivel 1 76 VIINIZCHIBLATNAAD Figura 48 Descripci
18. Case direccion oCliente direccion valor Case telefono oCliente telefono valor Case email oCliente email valor Case tipo cliente oCliente tipo cliente valor Case credito oCliente credito valor Case plazo oCliente plazo valor Case observacion oCliente observacion valor Case fecha oCliente fecha valor Case IdCiudad oCliente IdCiudad valor Case Idzona oCliente Idzona valor Case cupo oCliente cupo valor 110 Case casilla oCliente casilla valor Case fax oCliente fax valor Case IdActividad oCliente IdActividad valor Case estado oCliente estado valor End Select End If Next End Sub RIN DE SEREALIZACION SEREALIZACION Y COMPARACION CON SCHEMA Public Function ConvertDataClient Info ByVal Querry As String As List Of ClienteInfoS OBTENCION DE INFO PARA SEREALIZAR Dim ICliente As New List Of ClienteInfoS Dim dsE As New DataSet dsE getListaClienteDS Querry para el dataset ICliente 2 ConvertirTabla_Info dsE para la lista Return ICliente End Function Public Function ComparacionSchema ByVal PathXml As String ByVal PathXsd As String ByRef msgExp As String As Boolean If HSchema EsValidoSchema PathXsd PathXml msgExp Then Return True Else Return False End If End Function Public Sub serializar ByVal patchXML As String ByVal ICliente As List Of ClienteInfoS SEREALIZACION Dim fs As New FileStream patchXML FileMode Create Dim xs As New XmlSerial
19. Conexion As Estructuras Conexiones Get Return Estructuras Conexiones Access End Get End Property mm ConexionInfoAccess Imports System Configuration Public Class ConexionInfoMSSQL Private _ConexionString As String Public Property ConexionString As String Get Return _ConexionString End Get Set ByVal value As String _ConexionString value End Set End Property Private _tipoConexion As Estructuras Conexiones Public ReadOnly Property TipoConexion As Estructuras Conexiones Get Return Estructuras Conexiones MsSQL End Get End Property End Class 89 Public Class Estructuras Enum Conexiones Access 1 MsSQL 2 Oracle 3 End Enum Enum TipoWizard Atras 1 Siguiente 1 End Enum Private _tipoConexxion As Conexiones Public Property TipoConexion As Conexiones Get Return _tipoConexxion End Get Set ByVal value As Conexiones _tipoConexxion value End Set End Property Sub al Dim a As Conexiones a Conexiones Oracle End Sub Private _ProcesoWizard As TipoWizard Public Property ProcesoWizard As TipoWizard Get Return _ProcesoWizard End Get Set ByVal value As TipoWizard _ProcesoWizard value End Set End Property Sub New End Sub End Class 90 91 Cobranza Info En esta capa se encuentra almacenada toda las estructuras de las clases que van hacer utilizadas en el sistema para el Ambiente Form Web y M vil MySettings
20. MANUAL T CNICO MANUAL TECNICO Introducci n El Objetivo de este manual es poder ayudar a entender la estructura y el funcionamiento de la aplicaci n de tal manera que los programadores puedan ajustarlo a cambios deseados que puedan hacerse en un futuro 50 Estructura del Gestor de Cobranzas El gestor de cobranzas est dise ado para tres perfiles que son Administrador ejecutivo y el usuario el cual estar disponible para cuatro diferentes ambientes o M dulos que son Form Reports Sitio Web Interfaz M vil y el Cubo Modulo Form consta de varias capas como Capa Business Data Info las mismas que ser n reutilizadas para los otros ambientes por ese motivo se elabor el aplicativo en forma estructurada para mostrar la interoperabilidad del aplicativo Y Cobranza Configuraci n Establece la configuraci n con la base Y Cobranzalnfo Contiene todas las estructuras de las clases que vamos a usar Y Cobranza Data capa que se conecta con la base para enlazar los datos por ejecuta las llamadas de los Sp Insert delete Y CobranzaBussiness Reglas del negocio va a contener todos los m todos capa con la cual interact an los programadores Y Cobranza Schema3 Valida los datos enviados Y Cobranza Winform Capa para mostrar los reportes del cubo Y Cada capa cumple con una funcionalidad especial dentro del proyecto la mima que a su vez contienen varias clases las cuales estaremos explicando en las siguientes
21. SelectedValue ToString Me Cmb Cliente DataSource oClienteB NombreCliente cia sucu Cmb Cliente DataTextField nombre Cmb Cliente DataValueField IdCliente Cmb Cliente DataBind Me Cmb_Vendedor DataSource oVendedorB NombreVendedor cia sucu Cmb Vendedor DataTextField nombre Cmb Vendedor DataValueField Id Vendedor Cmb Vendedor DataBind End Sub Sub setVariables oParametrosFiltros IdCompania Cmb Compania Selected Value oParametrosFiltros NomEmpresa Cmb Compania SelectedItem Text oParametrosFiltros IdSucursalIni Cmb Sucursal SelectedV alue oParametrosFiltros IdSucursalFin IIf oParametrosFiltros IdSucursalIni 0 500 oParametrosFiltros IdSucursalIni oParametrosFiltros NomSucursal Cmb Sucursal SelectedItem Text oParametrosFiltros IdClienteIni Cmb Cliente Selected Value oParametrosFiltros IdClienteFin IIf oParametrosFiltros IdClienteIni 0 500 oParametrosFiltros IdClienteIni oParametrosFiltros NomCliente Cmb Cliente SelectedItem Text oParametrosFiltros idProductoIni CmbProducto Selected Value oParametrosFiltros idProductoFin IIf oParametrosFiltros idProductoIni 0 5000 oParametrosFiltros idProductoIni oParametrosFiltros NomProducto CmbProducto SelectedItem Text oParametrosFiltros id VendedorIni Cmb_Vendedor Selected Value oParametrosFiltros idVendedorFin IIf oParametrosFiltros id VendedorIni 0 5000 oParametrosFiltros idVendedorIni oParametrosFiltros NomVendedor Cm
22. _ Y Clas TablasYsXMLData Y Clas VendedorData Clas Grupo RptData Clas TarjCreditData Clas Zona Ventas D Clas NotaCredDeb D Clas TipNotaData Clas ZonaVentasxVen Clos SucursalData Cles TipoClienteData Clas MySettingsProp Module UsuariosData Clas TipoFormaCobro Clas Resources Module Figura 61 Estructutra Cobranzas Data D Tesis Lourdes Gestor Cobranza Cobranza Data EmpresaData vb spRpt_ProcesaData_CobrosxCliente_Data vb Imports Cobranza info Imports System Data SglClient Impots Cobranza Configuracion Imports System Data OleDb Public Class spRpt_ProcesaData_CobrosXClienteData Public Sub EjecutarRpt1 ByVal idEmpreas As Integer ByVal idSucu As Integer ByVal idCobrolni As String ByVal idCobroFin As String _ ByVal idClie As Integer ByVal idVen As Integer ByVal fechalni As Date ByVal fechaFin As Date _ ByVal idTipoEstadoIni As String ByVal idTipoEstadoFin As String _ ByVal TipoRpt As String ByVal NSucursal As String ByVal NClie As String ByVal NVend As String _ ByVal NTipoRpt As String ByVal NTipoCobro As String _ ByVal NameReport As String ByVal idRpthistory As String Try Dim Conn As SqlConnection Conn DataConexion GetConexion Dim cm As New SqlClient SglCommand spRpt ProcesaData_CobrosXCliente Conn Dim idClienteIni As Integer Dim idClienteFin As Integer Dim idVendedorIni As Integer D
23. a 51 Viewer Reports HERB Precondiciones Existan los reportes Flujo de Trabajo 1 Hacer Click en Reportes 2 Seleccionar cual de las carpetas se desea monitorear los reportes Comentarios Doble Click para mostrar toda la pantalla Tabla34 Descripci n Caso de Uso Viewer Reports 79 Nivel 2 Usuario Nuevo PZA ACTORO1 imm Md Cliente Figura 52 Descripci n Mantenimiento Usuario Nuevo Caso de Uso Mantenimiento Usuario Nuevo Actores ACTOR 01 ACTORO2 Precondiciones Exista por lo menos un reporte creado Flujo de Trabajo 1 Asignar Login a Usuario Nuevo 2 Ingresar el Alias del usuario 3 Ingresar el Password al usuario Comentarios Tabla35 Descripci n Caso de Uso Mantenimiento Usuario 80 Usuario Modificar Rol Figura53 Mantenimiento Usuario Modificar Mantenimiento Usuario Modificar Precondiciones 1 Exista por lo menos un usuario creado Flujo de Trabajo 1 Cambiar Password Actual por el nuevo si ese fuera el caso Comentarios Tabla36 Descripci n Caso de Uso Mantenimiento Modificar 81 82 Usuario Eliminar gt r Cliente PAS EN Figura 54 Descripci n Caso Uso Mantenimiento Eliminar Mantenimiento de Usuarios Eliminar Flujo de Trabajo 1 Borrar usuario Precondiciones Exista por lo menos un usuario Comentarios Tabla37 Descripci n Caso de Uso Mantenimiento Usuario El
24. a creaci n de esta estructura es para registrar el tipo de Nota que se aplicar al cliente A continuaci n se describir n cada uno de los campos de la estructura Nombre Tipo Dato Descripci n tn_Idcompania Tinyint C digo de la compa a tn_IdTipoNota Int C digo del tipo nota tn_Tipo char 1 Tipo de nota tn_descripcion varchar 50 Registra datos adicionales de la nota tn estado varchar 1 Registra A si esta activa la nota tn_cuenta varchar 20 Registra la cuenta del cliente al que se le aplica la nota tn_interno char 10 Registra si la nota fue emitida por motivo interno de la Cia tn PorRetencion char 10 Nota Emitida por retenci n tn PorRetIva char 1 Nota emitida por retenci n Iva tn_PorRetFuente char 1 Nota emitida por retenci n Fuente tn_RestaAVentas char 1 Nota emitida por descuento en ventas tn_SePagaComisiones char 4 Nota emitida x pago de comisiones Tabla 15 Tabla tbCC TipNota Y Tabla tbCC_TipoCliente Estructura creada para registrar los tipos de clientes A continuaci n se describir n cada uno de los campos de la estructura Nombre Tipo Dato Descripci n IDTipoCliente Tinyint Registra el c digo tipo de cliente tc descripci n char 20 Describe el tipo del cliente Tabla 16 Tabla tbCC TipoCliente Y TablatbCC TipoformaCobro La finalidad de la creaci n de esta estructura es para guard
25. ad de la creaci n de esta estructura es registrar los tipos de perfiles que pueden ingresar al aplicativo A continuaci n se describir n cada uno de los campos de la estructura de la tabla Men Tipo Dato C digo del tipo de perfil NombreMenu nchar 50 Descripci n del nombre del men al cual se tiene privilegio Administrador nchar 1 Registra el tipo de perfil que est ingresando En este caso el Administrador Ejecutivo nchar 1 Registra el tipo de perfil que est ingresando En este caso Ejecutivo Usuario nchar 1 Registra el tipo de perfil que e nm est ingresando En este caso Usuario Operador NameFrom nchar 100 Almacena el nombre de los m eem formularios con los que interact a el aplicativo Tabla 1 Tabla tb_Menu Y Tabla tb Grupo Rpt La finalidad de la creaci n de esta estructura es registrar el grupo de reporte al que se est accesando A continuaci n se describir n cada uno de los campos de la estructura 53 Nombre Tipo Dato Descripci n IDGrupo Int Registra el c digo del grupo de reportes al cual va a ingresar Descripci n nchar 50 Descripci n el c digo del grupo de reportes v Tabla tb_Reportes La finalidad de la creaci n de esta estructura es para registrar los reportes que Tabla 2 Tabla tb_Grupo_Rpt interviene en el aplicativo A continuaci n se describir n cada uno de los campos de la estructura
26. alizeComponent Agregue cualquier inicializaci n despu s de la llamada alnitializeComponent End Sub Sub iniciar Me Cmb Cliente DataSource oClienteB NombreCliente Cmb Cliente DisplayMember nombre Cmb Cliente ValueMember IdCliente End Sub Private _IdCompania As Integer Public Property IdCompania As Integer Get Return _IdCompania End Get Set ByVal value As Integer _IdCompania value End Set End Property Private Sub Labell Click ByVal sender As System Object ByVal e As System EventArgs Handles Labell Click End Sub Private Sub Cmb Cliente SelectedIndexChanged B yVal sender As System Object ByVal e As System EventArgs Handles Cmb Cliente SelectedIndexChanged End Sub End Class UCComboFormaCobro vb CONTROLES PARA FILTROS UTILIZADOS EN LOS REPORTES Estos controles seran utilizados en los reportes con la finalidad de que el usuario pueda visualizar la informacion dependientdo del filtro del ComboBox que este utilizando sea este UCComboCliente UCComboEmpres UCComboSucursal UCComboVendedor UCComboFormaCobro UCFiltroRpt Cheques vb Imports Cobranza bussiness Imports Cobranza info Public Class UCFiltroRpt Cheques Dim CompaniaB As New EmpresaBussiness 1 Dim oFormaCobroB As New TipoFormaCobroBussiness 1 Dim oSucursalB As New SucursalBussiness 1 Dim oClienteB As New ClienteBussiness 1 Dim oVendedorB As New VendedorBussiness 1 Dim execRpt As New spRpt_ProcesaData_CobrosXClien
27. ar los datos realizados de cobros a clientes A continuaci n se describir n cada uno de los campos de la estructura 63 Nombre Tipo Dato Descripci n IDTipoCobro char 3 C digo del tipo cobro tf_descripcion nvarchar 30 Descripci n del tipo cobro tf_banco char 1 Registra S si el documento es un cheque N en caso no serlo tf DocAfecha nvarchar 1 Registra S si el Ch es a fecha N en caso de no serlo tf interno char 1 Registra S si el cobro es interno de la C a Y N en caso de no serlo tf estado char 1 Si el cobro est activo o no tf nemonico char 5 Registra en 5 letras la forma de tipo de cobro t cobroDirecto char 1 Registra si el cobro fue directo al cliente o a trav s efectivo ch Vista tf cobroInDirecto char 1 Si el cobro fue efectuado con cheques posfechado tf docXCobrar char 1 Registra el doc para el cobro S o N tf Orden Tinyint Fecha de modificaci n del rol tf nemonico2 char 10 Registra 10 caracteres del doc para forma de cobro Tabla 17 Tabla tbCC TipoformaCobro Y Tabla tbTarjCredit La finalidad de la creaci n de esta estructura es para registrar una de las formas de pago y los datos que intervienen en ella A continuaci n se describir n cada uno de los campos de la estructura 64 Nombre Tipo Dato Descripci n IdTarjeta char 3 Registra el IdTarjeta de tres l
28. b Vendedor SelectedItem Text oParametrosFiltros IdTipoPagoIni Cmb FormaPago SelectedValue If oParametrosFiltros IdTipoPagoIni ToLower all Then oParametrosFiltros IdTipoPagolni AAA oParametrosFiltros IdTipoPagoFin ZZZ Else 127 oParametrosFiltros IdTipoPagoFin oParametrosFiltros IdTipoPagolni End If oParametrosFiltros NomTipoPago Cmb FormaPago SelectedItem Text End Sub Protected Sub Cmb_Sucursal_SelectedIndexChanged ByVal sender As Object ByVal e As System EventArgs Handles Cmb Sucursal SelectedIndexChanged setV ariables End Sub Protected Sub Cmb Vendedor SelectedIndexChanged B yVal sender As Object ByVal e As System EventArgs Handles Cmb Vendedor SelectedIndexChanged setV ariables End Sub Protected Sub CmbProducto SelectedIndexChanged By Val sender As Object ByVal e As System EventArgs Handles CmbProducto SelectedIndex Changed setV ariables End Sub Protected Sub Cmb Compania SelectedIndexChanged B yVal sender As Object ByVal e As System EventArgs Handles Cmb Compania SelectedIndexChanged setV ariables End Sub Protected Sub Cmb FormaPago SelectedIndexChanged B yVal sender As Object ByVal e As System EventArgs Handles Cmb FormaPago SelectedIndexChanged setV ariables End Sub Protected Sub Cmb Cliente SelectedIndexChanged B yVal sender As Object ByVal e As System EventArgs Handles Cmb Cliente SelectedIndexChanged setV ariables End Sub Protected Sub Page Load ByVal sender As Object ByVal e
29. branzas Configuraci n Esta capa permite establecer la Conexi n y Configuraci n del Sistema con la base de datos del cliente ConexioninfoMS 7 Class El Campos Fi _Conexiondtring y _tpoConexion E Propiedades hay ConexionString ly TipoConexion MySettings NotInheritable Class ApplicationSettingsBase El Campos E defaultnstance E Propiedades ley cnConesiondistema ie Default A patch Config P paths 99 patctFlestS0 Conexioninfo Class E Campos y Conesion3tring y _stipoConexion _tpoConexion E Propiedades 3 Conexionstring 3 ConexionbtringSi a stipoConexion 3 tipaConexion Respurces Module E Campos y tesaurceCukure y resourceMan E Propiedades 99 Cle S ResourceManager Conexion Client Class E Campos O Pat iH Patches y _fipoConexion Fa sTipoConexion amp Propiedades i Patch lex OF PatchFle SD ha TipoConesion amp Metodo 4 getinfoConexion V getinfoConexionl Y New 1 sobrec setConexionML A A Module amp Propiedades 3 settings MySettingsProp Class E Campos A Conexionstring y ipaConexion Propiedades exonstring ipoConexion Estructuras EE Cass E Campos y ProcesolWizard _tpoConexxion amp Propiedades ie ProcesoWizard e TipaConexion E M todos Va Y New Tipos ani
30. btnAtras_Click ByVal sender As System Object ByVal e As System EventArgs Handles btnAtras Click OcultarGroupBox ProcesoWizard Proceso Wizard Estructuras TipoWizard Atras ManejadorControlWizard HabilitarFrame ProcesoWizard ProcesoWizard grbox1 grbox2MsSQL grbox3Ms grbox1 End Sub Sub OcultarGroupBox grbox1 Visible False grbox2MsSQL Visible False grbox3Ms Visible False grbox2Access Visible False End Sub Function BuscarPathAcces As String Dim myStream As Stream Nothing Dim openFileDialogl As New OpenFileDialog openFileDialogl InitialDirectory c V openFileDialog1 Filter mdb files mdb I mdblAIl files openFileDialogl FilterIndex 2 openFileDialogl RestoreDirectory True If openFileDialog1 ShowDialog 2 System Windows Forms DialogResult OK Then Try 121 txtPatchAcces Text openFileDialog1 FileName Return openFileDialog1 FileName Catch Ex As Exception MessageBox Show Cannot read file from disk Original error amp Ex Message Return End Try End If Return End Function Private Sub btnBrowserAcces Click ByVal sender As System Object ByVal e As System EventArgs Handles btnBrowserAcces Click End Sub Private Sub SplitCMain Panel2 Paint ByVal sender As System Object ByVal e As System Windows Forms PaintEventArgs Handles SplitCMain Panel2 Paint End Sub End Class nn gt frmContaniner En este formulario se mostrara el menus de los perfiles a usarse en la aplica
31. ception End Try End Sub Public Sub EjecutarRptXProducto B y Val idEmpreas As Integer ByVal idSuculni As Integer ByVal idSucuFin As Integer ByVal idCobroIni As String ByVal idCobroFin As String _ ByVal idClie As Integer ByVal idVen As Integer ByVal fechalni As Date ByVal fechaFin As Date _ ByVal ProductoIni As Double ByVal ProductoFin As Double _ ByVal TipoRpt As String ByVal NSucursal As String ByVal NClie As String ByVal NVend As String _ ByVal NTipoRpt As String ByVal NTipoCobro As String ByVal NameReport As String _ ByVal idRpthistory As Double Try Dim Conn As SqlConnection Conn DataConexion GetConexion Dim cm As New SqlClient SglCommand spRpt ProcesaData CobrosXProducto Conn Dim idClienteIni As Integer 103 Dim idClienteFin As Integer Dim idVendedorIni As Integer Dim idVendedorFin As Integer If idClie 2 0 Then idClienteIni 1 idClienteFin 999999 Else idClienteIni idClie idClienteFin idClie End If If idVen 0 Then idVendedorIni 1 idVendedorFin 999 Else idVendedorIni idVen idVendedorFin idVen End If If idCobroIni All Then idCobroIni AAA idCobroFin ZZZ End If If idCobroIni Is Nothing Or idCobroFin Is Nothing Then idCobroIni AAA idCobroFin ZZZ End If cm Parameters Add 1 cia SqIDbType Int Value idEmpreas cm Parameters Add 91 sucuIni SgIDbType Int Value idSuculni cm Parameters Add 91 sucuFin SgIDbType Int Value idSuc
32. chalni As Date ByVal fechaFin As Date _ ByVal ProductoIni As Double ByVal Productofin As Double _ ByVal TipoRpt As String ByVal NSucursal As String ByVal NClie As String ByVal NVend As String ByVal NTipoRpt As String ByVal NTipoCobro As String _ ByVal NameReport As String ByVal idRpthistory As String Dim execRptData As New spRpt_ProcesaData_CobrosXClienteData execRptData EjecutarRptXProducto idEmpreas idSuculni idSucuFin idCobroIni idCobroFin idClie idVen fechalni fechaFin ProductoIni Productofin TipoRpt NSucursal NClie NVend NTipoRpt NTipoCobro NameReport idRpthistory End Sub Public Function ObtenerListaRptHist As List Of HistoricoRpt_info Dim execRptData As New spRpt_ProcesaData_CobrosXClienteData Return execRptData getListaR ptHist End Function Public Function ObtenerListaRptHistxProducto As List Of HistoricoRpt_info Dim execRptData As New spRpt_ProcesaData_CobrosXClienteData Return execRptData getListaRptHistX Producto End Function End Class 114 CobranzasSchema vb Los Esquemas XML serviran para extraer los datos de los campos de la data que fueron seleccionados en el vinculador de las tablas realcionadas Cobranza XML D TesisLourdes GestorCobranza Cobranza Schema empresa xml empresa xml lt xml version 1 0 gt lt ArrayOfEmpresalnfoS xmlns xsi http www w3 org 2001 XMLSchema instance xmlns xsd http www w3 org 2001 XMLSchema gt lt EmpresalnfoS gt lt IdEmpr
33. cion gt frmLogon vb Esta pantalla tendra el codigo para que los usuarios con permiso puedan ingresar gt Frmmantenimiento Reportes vb Este formulario tendr a el codigo para modifica eliminar o crear un nuevo reporte frmMantenimientoUsuario El codigo de este formulario servira para dar mantenimiento al usuario sea este para crear nuevos usuarios modificarlos o eliminarlos frmViewerReports vb 122 123 El codigo de este formulario mostrar una lista de reportes a los cuales tendra acceso el usuario dependiendo de la opcion que escoja obtengo la info del usuario logoneado a mi sistema para q en base a este se realicen todas las consultas de lo reportes en base a los permisos con los q est cuenta gt Vinculador vb Aqui estar a el codigo para relacionar los campos de cada una de las tablas del cliente con las nuestras Handler FilesXML vb Obtines el nodo de cada uno de las tablas relacionadas en el vinculador CONTROLES INDIVIDUALES USADOS EN EL WINFORM Para el desarrollo del aplicativo se decidi crear controles ue pedan ahorrar codigo al momento de desarrollar como Los controles indivduales de Combo Boxse que se los creo con la finalidad de poder filtrar la informacion para luego ser reutilizado en otros controles UCComboCliente vb Imports Cobranza bussiness Public Class UCComboCliente Dim oClienteB As New ClienteBussiness 1 Sub New Llamada necesaria para el Disef ador de Windows Forms Initi
34. clienteH oco macies Sucursal ch en denn a aw a i a d a qe e e aA am e i p a a a i e e z E a ai a ge a ye e A E E a p Com emana maker Deci In nece na Cm Compara Selertedvsluelhan mb Sucursal SetectedindesOhanged Emb Sucursal Seata aiun na nce TRATAM ETETE lee oios UCGridHistoircoReports UCGridHistoricoReports Class gt UserControl Campos 49 SelectedRow Jd components uM DG HRpt Y dt GroupBoxi listRelacion orow TipoFiltro Propiedades FP SelectedRow j M todos Y CargaGrid 2 DG HRpt CellContentClick 9 Dispose av InitializeComponent Tipos anidados eTipoTabla Enum CobrosxCliente CobrosxClientexProducto 119 frmCargarV alidacion vb este formulario tendr como funcion cargar la informacion ya validada serializada que queremos mostrar incovara los metodos como convertirDAtaClient Info Serializar CompararSchema TablaMG Migrar tablas Insert TableMG CargaDataMG Produccion frmConection vb Este pantalla mostrar el tipo de conexi n de la base de datos del clientes con la que vamos a trabajar Imports Cobranza Configuracion Imports Cobranza bussiness Imports System X ml Imports System IO Public Class frmConection Dim CountWizar As Integer Dim tipoConexion As New Estructuras Dim ProcesoWizard As New Estructuras Dim ManejadorControlWizard As Handler WizardConeccion Dim OconXML As Conexion Client Private
35. dados Figura 59 Estructura Cobranza Configuraci n ConexionInfoAc A A Esta clase permite establecer la Conexi n con nuestra Base de Datos CARTERABD Public Class ConexionInfo Private _ConexionString As String Public Property ConexionString As String Get Return _ConexionString End Get Set ByVal value As String ConexionString value End Set End Property Private _tipoConexion As Estructuras Conexiones Public Property tipoConexion As Estructuras Conexiones Get Select Case _stipoConexion Case MSSQL tipoConexion Estructuras Conexiones MsSQL Case ACCESS tipoConexion Estructuras Conexiones Access Case ORACLE tipoConexion Estructuras Conexiones Oracle End Select Return tipoConexion End Property Private _stipoConexion As String Public Property stipoConexion As String Get Return _stipoConexion End Get Set ByVal value As String _stipoConexion value End Set End Property Public ReadOnly Property ConexionStringSistema As String Get Return Data Source localhost Initial Catalog CARTERABD User Id sa password My Settings cnConexionSistema End Get End Property End Class 88 Public Class ConexionInfoAccess Private _ConexionString As String Public Property ConexionString As String Get Return _ConexionString End Get Set ByVal value As String ConexionString value End Set End Property Private _tipoConexion As Estructuras Conexiones Public ReadOnly Property Tipo
36. dr_tipoDoc nchar 1 Indica el tipo de documento dr_Num_fact_Nota numeric 18 0 dr_ValorPago Money Indica el valor a pagar dr_Vendedor Int Indica el nombre del vendedor Id_Vendedor varchar 15 Registra el c digo del vendedor Tabla 26 Tabla RptCC_CobrosxCliente_Det Diagrama Casos de Uso El Diagrama de Casos de Uso es la t cnica por la cual vamos representar la funcionalidad que ofrece el Cubo de Informaci n de Gesti n de Cobranzas en lo que se refiere a su interacci n con el usuario para generar los respectivos reportes utilizados por el operador para gestionar las Cobranzas Para un mejor entendimiento hemos clasificado estos casos de uso por niveles el nivel 0 representa un esquema b sico del diagrama y el nivel 1 es donde detallaremos m s acerca de cada uno de los procesos as como tambi n describiremos los actores que intervienen en estos escenarios 72 73 Definici n de actores ACTOR 01 Usuario Gestor de Cobranzas Este actor representa al usuario que manipula el Descripci n sistema Comentarios No es necesario de un usuario experto para utilizarlo Simbolog a Q A ACTOR 01 Tabla27 Descripci n Actor 1 ACTOR 02 Es la Base de Datos que estar usando el programa mE Descripci n Almacenamiento de la informaci n necesaria para el Cubo Comentarios Se encuentra la informaci n proporcionada x el cliente Simbolog a a Tabla28 Descripci n Actor 2
37. ean Dim ReporteData As New ReportesData Return ReporteData UpdateReport oReporte End Function 112 Public Function ValidaReporte ByVal oReport As ReportesInfo As List Of ReportesInfo Dim ReporteData As New ReportesData Return ReporteData getDataReporte oReport End Function Public Function OptenerDatosReporte ByVal NameReport As String As ReportesInfo Dim ReporteData As New ReportesData Return ReporteData getInfoReporte NameReport End Function Public Function CargaReportexModificacion ByVal oReporte As ReportesInfo As List Of ReportesInfo Dim ReporteData As New ReportesData Return ReporteData getDataReporte oReporte End Function Public Function EliminaReporte ByVal oReporte As ReportesInfo As Boolean Dim ReporteData As New ReportesData Return ReporteData DeleteReporte oReporte End Function End Class spRpt Procesa Data_CobroscCliente Bussiness Imports Cobranza info Imports Cobranza Data Public Class spRpt_ProcesaData_CobrosXClienteBussines Public Sub EjecutarRpt1 ByVal idEmpreas As Integer ByVal idSucu As Integer ByVal idCobrolni As String ByVal idCobroFin As String _ ByVal idClie As Integer ByVal idVen As Integer ByVal fechalni As Date ByVal fechaFin As Date _ ByVal idEstadoIni As String ByVal idEstadoFin As String _ ByVal TipoRpt As String ByVal NSucursal As String ByVal NClie As String ByVal NVend As String ByVal NTipoRpt As String ByVal NTipoCobro As String _ ByVal NameRepor
38. endedorFin cmb vendedor SelectedValu 130 Private Sub b If parametros idVendedorIni 0 Then parametros idVendedorIni 1 parametros idVendedorFin 5000 End LE parametros NomCliente cmb cliente Text parametros NomEmpresa cmb Empresa Text parametros NomProducto cmb producto Text parametros NomSucursal cmb sucursal Text parametros NomTipoPago cmb tipoPago Text parametros NomVendedor cmb vendedor Text parametros NumFacIni 0 parametros NumFacFin 9999999 parametros sTipoRpt Consulta ACT End Sub Private Sub frm RecaudacionFilter Load ByVal sender As System Object ByVal e As System EventArgs Handles MyBase Load Dim wsEmp As New WSCobranza WSCobranza Dim clase As New List Of WSCobranza SucursalInfo Me cmb Empresa DataSource wsEmp GetEmpresas Me cmb Empresa ValueMember IdEmpresa Me cmb Empresa DisplayMember nombre Me cmb sucursal DataSource wsEmp GetSucursales 1 Me cmb sucursal ValueMember IdSucursal Me cmb sucursal DisplayMember nombre Me cmb vendedor DataSource wsEmp GetVendedor 1 1 Me cmb vendedor ValueMember IdVendedor Me cmb vendedor DisplayMember nombre Me cmb cliente DataSource wsEmp GetClientes 1 1 Me cmb cliente DisplayMember nombre Me cmb cliente ValueMember IdCliente Me cmb producto DataSource wsEmp GetProductos 1 Me cmb producto DisplayMember descripcion Me cmb
39. ente cl fax varchar 50 Registra el fax del cliente en caso de tenerlo Tabla 10 Tabla tbCC Cliente 59 Y Tabla tbCC CobrosxCliente La finalidad de la creaci n de esta estructura es para registrar los cobros realizados a los clientes A continuaci n se describir n cada uno de los campos de la estructura Nombre Tipo Dato Descripci n cr Idcompania Int C digo de la compa a cr Idsucursal Int Codigo de sucursal cr numero numeric 18 0 N mero del documento del cobro cr Idcliente numeric 10 0 Codigo del cliente cr IdFormaPago char 3 Registra el c digo de tres letras para la forma de pago efec chv cr valor Money Representa el valor del pago cr fecha date Registra la fecha actual cr fechaCobro datetime Fecha en que se realizo el cobro cr fechaEdicion datetime Fecha en que se emiti el documento para crear el cobro cr observacion nvarchar 100 Descripci n del cobro cr_Banco Smallint Representa que el pago es en cheque cr cuenta nvarchar 100 Registra el n mero de la cuenta bancaria cr NumCheque nvarchar 100 Describe el del cheque cr Tarjeta Smallint Documento para registrar el pago cr num Tarj nvarchar 100 Describe el de tarjeta para efectuar el pago cr saldo Money Representa el saldo de Cta x Pagar cr fechaReg datetime Fecha de registro del pago Tabla 11 Tabla tbCC CobrosxCliente Y
40. esa gt 1 lt IdEmpresa gt lt nombre gt EXPOMEDIOS lt nombre gt lt gerente gt Hernandez Valdiviezo Douglas lt gerente gt lt ruc gt lt telefonos gt lt fax gt lt direccion gt lt imagen gt tel int gt logo gt fondo lt ArrayOfEmpresalnfoS gt Sucursal xml lt xml version 1 0 gt ArrayOfSucursalInfoS xmlns xsi http www w3 org 2001 XMLSchema instance xmlns xsd http www w3 org 2001 XMLSchema gt lt SucursalInfoS gt lt Idcompania gt 2 lt Idcompania gt lt IdSucursal gt 1 lt IdSucursal gt lt Codigo gt 001 lt Codigo gt lt nombre gt GUA Y AQUIL Matriz lt nombre gt lt Nem nico gt lt ruc gt 115 116 Cobranza Schema XSD Los Esquemas XSD serviran como definicion para validar que los datos que estamos extrayendo esten correctos seg n el estandar de la base Cobranzas XSD D Tesis Lourdes Gestor Cobranza Cobranza Schema empresa xml empresa xsd LIII ES 1 Fig 2 2 1 5 1 Diagrama Schema Empresae XSD 117 5 2 2 Cliente xsd Fig 2 2 1 5 2 Diagrama Schema Cliente XSD Configuraci n ModuloWinform 118 Esta capa sera utilizada para mostrar las pantallas que seran utilizadas en el aplicatrivo UCFiltroRpt_Cheques ucFiltrnRpE Cheques Ones seo al Campos TeachaFin fecnalri DINI idLcorcnrFin alt corani iE mers Suc den Ki rri Fas pent s clie Sucursal Tigas bo HTi2chRpt Hend oC
41. etras tj codigo nvarchar 15 Registra el c digo de tarjeta tj descripci n nvarchar 50 Describe el nombre de la tarjeta tj estado nvarchar 1 Estado de la tarjeta Estado a de activo y estado T de Inactivo tj ctaCble nvarchar 20 N mero de cuenta de la tarjeta del cliente Tabla 18 Tabla tbTarjCredit Y Tabla tbIN TipoProducto La finalidad de la creaci n de esta estructura es para registrar los tipos de productos con los que cuenta la empresa A continuaci n se describir n cada uno de los campos de la estructura Nombre Tipo Dato Descripci n IDTipoProducto Number C digo de la otorgaci n tp descripci n varchar2 100 Descripci n de la otorgaci n Tabla 19 Tabla tbIN TipoProducto Y Tabla tbIN Producto La finalidad de la creaci n de esta estructura es para registrar los productos disponibles para los clientes A continuaci n se describir n cada uno de los campos de la estructura 65 Nombre Tipo Dato Descripci n pr_IdCompania Int C digo de la compa a pr_codigo nvarchar 40 Registra el c digo de los productos pr_TipoProduc char 3 Describe el tipo de producto pr IdCategoria Int Registra el Id Categor a pr descripcion nvarchar 500 Registra el nombre del producto pr pvp Money Describe el precio de venta pr pvp alxMayor Money Fija el precio de venta al por mayor
42. f e KeyCode System Windows Forms Keys Up Then Up End If If e KeyCode System Windows Forms Keys Down Then Down End If If e KeyCode System Windows Forms Keys Left Then Left End If If e KeyCode System Windows Forms Keys Right Then Right End If If e KeyCode System Windows Forms Keys Enter Then Enter End If End Sub Sub setParametros parametros IdCompania cmb Empresa SelectedValu parametros IdSucursalIni cmb sucursal SelectedValue parametros IdSucursalFin cmb sucursal SelectedValue If parametros IdSucursalIni 0 Then parametros IdSucursalIni 1 parametros IdSucursalFin 100 End If parametros FechaIni dtp fechalni Value parametros FechaFin dtp fechaFin Value parametros IdClienteIni cmb cliente SelectedValu parametros IdClienteFin cmb cliente SelectedValu If parametros IdClienteIni 0 Then parametros IdClienteIni 0 parametros IdClienteFin 99999 End If parametros idProductoIni cmb producto SelectedValue parametros idProductoFin cmb producto SelectedValue If parametros idProductoIni 0 Then parametros idProductoIni 1 parametros idProductoFin 99999 End If parametros IdTipoPagoIni cmb tipoPago SelectedValue parametros IdTipoPagoFin cmb tipoPago SelectedValue If parametros IdTipoPagoIni All Then parametros IdTipoPagoIni AAA parametros IdTipoPagoFin ZZZ End If parametros idVendedorIni cmb vendedor SelectedValu parametros idV
43. im idVendedorFin As Integer Dim lidsuculni As Integer Dim lidsucuFin As Integer If idClie 0 Then idClienteIni 1 idClienteFin 999999 Else idClienteIni idClie idClienteFin idClie End If If idVen 0 Then idVendedorlni 1 idVendedorFin 999 Else idVendedorIni idVen 99 idVendedorFin idVen End If If idCobroIni All Then idCobroIni 2 AAA idCobroFin ZZZ End If If idCobroIni 2 Nothing Or idCobroFin Nothing Then idCobroIni AAA idCobroFin ZZZ End If If idSucu 0 Then lidsuculni 1 lidsucuFin 2 Else lidsuculni idSucu lidsucuFin idSucu End If If idTipoEstadoIni Then idTipoEstadoIni A idTipoEstadoFin Z End If cm Parameters Add 91 cia SqlDbType Int Value idEmpreas cm Parameters Add 91 sucuIni SgIDbType Int Value lidsuculni cm Parameters Add 91 sucuFin SqIDbType Int Value lidsucuFin cm Parameters Add 91 idFormalni SqlDbType NChar 3 Value idCobroIni cm Parameters Add i_idFormaFin SqIDbType NChar 3 Value idCobroFin cm Parameters Add 1 clienteIni SqIDbType Int Value idClienteIni cm Parameters Add 91 clienteFin SqlDbType Int Value idClienteFin cm Parameters Add 1 vendIni SqlDbType Int Value idVendedorIni cm Parameters Add Oi vendFin SgIDbType Int Value idVendedorFin cm Parameters Add 91 fechalIni SqIDbType Date Value fechalni cm Parameters Add 1 fechaFin SgIDbType Date Value fechaFi
44. iminar ACTOR 01 Figura 55 Mantenimiento Usuarios Salir Mantenimiento de Usuarios Precondiciones 1 Haber navegado en el aplicativo Flujo de Trabajo 1 Hacer Click en bot n Salir Tabla38 Descripci n Caso de Uso Mantenimiento Usuario Salir 83 Viewer Reports Balance de Cobranzas ListadoCtasxCobrar x Producto Lista de Cheques da ACTORO2 ACTORO1 BalanceCtasxCobrarx Vendedor Figura 56 Viewer Reports Balance de Cobranzas o Flujo de Trabajo 1 Hacer doble Click en el reporte 2 Seleccionar los filtros deseados 3 Click en Buscar Comentarios Es primordial seleccionar la Fecha Tabla 39 Viewer Reports Balance de Cobranza 84 Viewer Reports Caja Q k Recaudaci n de Caja LS ACTORO2 ACTORO1 Figura 57 Viewer Reports Recaudaci n Caja Flujo de Trabajo 1 Hacer doble Click en el reporte 2 Seleccionar los filtros deseados 3 Click en Buscar Comentarios Es primordial seleccionar la Fecha Tabla 40 Viewer Reports Caja 85 Viewer Reports Liquidaci n de Deuda Liquidaci n de Deuda ACTORO2 ACTORO1 Figura 58 Viewer Reports Liquidaci n de Deuda Flujo de Trabajo 1 Hacer doble Click en el reporte 2 Seleccionar los filtros deseados 3 Click en Buscar Comentarios primordial seleccionar la Fecha Tabla 41 Descripci n Viewer Reports Liquidaci n 86 Codificaci n de las estructuras Co
45. iones Cliente End Sub Sub New ByVal IniciarCt As Integer End Sub Public Function CargaDataMG_Produccion Dim odata As New Data_Comands_Exec Return odata Execute Comands spMG Carga Validacion Cliente End Function Dese k MIGRACION A TABLAS MG Public Sub Insert TableMG ByVal ICliente As List Of ClienteInfoS Dim clienteD As New ClienteData clienteD Insert Datalnfo TableMG Cliente End Sub PROCESO DE SETEO PARA SEREALIZACION Public Function getListaClienteDS ByVal Querry As String As DataSet Dim clienteD As New ClienteData Dim Ds As New DataSet Ds clienteD getClienteDS Querry Return Ds End Function Public Function NombreCliente ByVal Cia As String ByVal Sucu As String As List Of ClienteInfo Dim oCliente As New ClienteData Return oCliente getClienteDS_DBCartera Cia Sucu End Function 108 Public Function buscar_ColRelacionada ByVal ColumnaTabla As String As String Dim nameColXML As String For Each Item As TablasVsXML In tablasvsXml If Item idCampoTabla Trim ColumnaTabla Trim Then nameColXML Item IdCampoXml Trim Exit For End If Next Return nameColXML End Function Public Function ConvertirTabla_Info ByVal DSCliente As DataSet As List Of ClienteInfoS Dim ClienteD As New ClienteData Dim xmlT As New Tablas VsXmlBussines Dim listaCliente As New List Of ClienteInfoS Dim oCliente As ClienteInfoS Dim indexCol As Integer 0 Dim colInfo As String Dim colTable As String Dim valor As String Di
46. istra el subtotal vt_descuento Money Registra el descuento de la factura vt iva Money Registra el IVA de la factura vt total Money Registra el valor total de la factura vt estado nvarchar 1 vt CreCon char 3 vt plazo numeric 10 0 Registra el plazo de la factura vt fech venc datetime Registra la fecha de vencimiento de la factura vt saldo Money Registra el saldo de la factura vt seguro Money Registra el seguro vt flete Money Registra el flete de la factura vt Observacion varchar 200 Se pone la observaci n sobre la factura vt tipo varchar 2 vt usuario char 20 Registra el nombre del usuario que realiza la factura Tabla 21 Tabla tbFa Factura Y TablatbFa Factura Det La finalidad de la creaci n de esta estructura es para registrar todos los detalles de las facturas emitidas a los clientes A continuaci n se describir n cada uno de los campos de la estructura 67 Nombre Tipo Dato Descripci n vt_Idcompania Tinyint Registra el c digo de la compa a vt_IdSucursal Int Registra el c digo de la sucursal vt_IdFactura numeric 10 0 Registra el Id de la factura vt_secuencia Smallint Registra la secuencia de la factura vt_IdProducto numeric 10 0 Registra el c digo del producto vt_cantidad Money Registra la cantidad del producto vt_Pvp Money Registra el precio unitario del producto vt_DescUni Mo
47. ivo por el cual se emite la nota sc Idempleado Int Registra el c digo del empleado sc observacion varchar 1000 sc subtotal Money Calculo del subtotal sc descuento Money Calculo de los descuentos sc iva Money Calculo del IVA sc flete Money Calculo del flete sc interes Money Calculo del inter s sc total Money Calcula el total Tabla 13 Tabla tbCC NotaCredDeb 61 Y TablatbCC NotaCredDeb Det La finalidad de la creaci n de esta estructura es para registrar los detalles de la cabecera de la NotaCreditoDebito A continuaci n se describir n cada uno de los campos de la estructura Nombre Tipo Dato Descripci n sc compania Int Nombre de compa i a sc sucursal Int Registra el c digo de la sucursal sc secuencia Smallint Secuencia de la Nota C D sc producto numeric 10 0 C d del producto por el cual se emite la nota sc cantidad Float Usuario que realiz la modificaci n del estado Sc pvp Money Precio del producto sc por des Money Descuentos del producto sc descUni Float Descuento por unidades sc desc Money Descuento total sc precioFinal Money Precio final del producto sc subtotal Money Calculo del subtotal sc observacion varchar 1000 sc subtotal Money Calculo del subtotal sc iva Money Calculo del IVA sc total Money Total de Nota Tabla 14 Tabla tbCC NotaCredDeb Det Y TablatbCC TipNota La finalidad de l
48. izer GetType List Of ClienteInfoS xs Serialize fs ICliente fs Close End Sub Private Sub deserealizarXML ByVal patchXML As String Dim fs As New FileStream patchXML FileMode Open Dim Cliente As List Of ClienteInfo Try Dim xsCliente As New XmlSerializer GetType List Of ClienteInfo 111 ICliente CType xsCliente Deserialize fs List Of ClienteInfo fs Close Catch ex As Exception End Try End Sub EESSEIN SEREALIZACION Y COMPARACION End Class HICC CobrosxClienteBussiness Imports Cobranza Data Imports Cobranza info Public Class HICC CobrosxClienteBussiness Public Function DatosHistoricos As List Of HICC_CobrosxClienteInfo Dim oHICC CxCData As New HICC CobrosxClienteData Return oHICC_CxCData DataHistorico End Function End Class ReportesBussiness Imports Cobranza info Imports Cobranza Data Public Class ReportesBussiness Public Function ListaReportesxViewer By Val Querry As String As List Of ReportesInfo Dim oReporteData As New ReportesData Return oReporteData getListReport Querry End Function Public Function ListaDatosReportes As List Of ReportesInfo Dim oReportData As New ReportesData Return oReportData getListDataR pt End Function Public Function InsertaReporte By Val oReporte As ReportesInfo As Boolean Dim ReporteData As New ReportesData Return ReporteData insertReporte oReporte End Function Public Function ModificaReporte By Val oReporte As ReportesInfo As Bool
49. l neas Modulo Web Proyecto que servir para mostrar los reportes desde el la Web para el cual reutilizaremos el c digo del Ambiente Form del Visual Studio 2008 permiti ndonos mostrar la interoperabilidad del aplicativo Modulo Movil Proyecto que servir para mostrar los reportes desde el emulador del dispositivo m vil de Visual Studio 2008 que para llevar acabo dicho objetivo se instal el Software de Microsoft Windows Mobile 6 Profesional Modulo Cubo Este modulo permitir mostrar la informaci n a trav s de un Datamark para hacer an lisis de la gesti n de cobranzas 51 52 Diagrama Entidad Relaci n del Cubo de Cobranzas ai DIM Vendedor IDVendedor al DIM_Cliente NomVendedor IDCliente Direccion NomCliente Telefono Direccion Comision Telefono NemonicoVen email plazo Cupo IDCiudad IDTipoCliente al DIM Tiempo 7 IDTiempo IDCompania 4 td fecha IDSucursal td NomDia IDCliente td Nomes IDVendedor td_aniofiscal IdFecha si DIM TipoC td dias en mes IdFechaCo td semana en IdFormaPago 1 IDTipoCliente td trimestre TipoDoc TipoCliente td nemSemana ValorPago NombreFecha w Numero al DIM Empr 7 IDEmpresa NomEmpresa 1 DIM TipoC gi DIM_Sucursal 1 IDTipoCobro 7 IDSucursal TipoCobro NemoSucursal NomSucursal Tabla 0 Diagrama Entidad Relaci n del Cubo de Cobranzas Detalle de Tablas Las estructuras creadas para el desarrollo del presente proyectos son v Tabla tb Menu La finalid
50. m i As Integer 0 For Each iRow As DataRow In DSCliente Tables 0 Rows oCliente New t ente nfoS 0 T T TT ee T T n n n nu me nm m M gt 2 2 gt gt For Each Col As DataColumn In DSCliente Tables 0 Columns col Table iCol ColumnName Trim colInfo buscar ColRelacionada colTable valor iRow colTable ToString SetearCamposTabla Info colInfo valor oCliente Next listaCliente Add oCliente 1 1 Tf i 100 Then Exit For End If Next Return listaCliente End Function Sub SetearCamposTabla Info ByVal idCampolnfo As String ByVal valor As String ByVal oCliente As ClienteInfoS declaracion del tipo Dim t As Type GetType ClienteInfoS llamada al constructor para instanciar 109 Dim c As ConstructorInfo t GetConstructor New Type GetType String invocando al constructor y enviando el parametro de entrada del constructor Dim sb As Object c Invoke New Object iniciar Dim p As PropertyInfo t GetProperties idCampolInfo For 1 As Integer O To t GetProperties Length 1 Dim Campolnfo As String p 1 Name Trim If idCampoInfo Campolnfo Then Select Case CampoInfo Case IdCompania oCliente IdCompania valor Case IdSucursal oCliente IdSucursal valor Case IdCliente oCliente IdCliente valor Case tipoDoc oCliente tipoDoc valor Case cedula_ruc_Pass oCliente cedula_ruc_Pass valor Case nombre oCliente nombre valor Case RazonSocial oCliente RazonSocial valor
51. mb Cliente DisplayMember nombre Cmb Cliente ValueMember IdCliente 125 126 Codificacion Ambiente WEB CobranzaWeb Este ambiente utiliza una p gina web local para subir los reportes y puedan ser visto por los usuarios siempre y cuando tenga permiso D Tesis Lourdes Gestor Cobranza CobranzaWeb 2 5 1 Codigo para reportes Ambiente Web Wfrm_Balancex Vendedor aspx Imports Cobranza info Imports Cobranza bussiness Partial Class Wfrm_Balancex Vendedor Inherits System Web UI Page Dim oParametrosFiltros As New ParametrosInfo Get setV ariables Return oParametrosFiltros End Get End Property Public Sub llenaCombos Me Cmb_Compania DataSource CompaniaB NombreEmpresa Me Cmb_Compania DataTextField nombre Me Cmb Compania DataValueField IdEmpresa Cmb Compania DataBind Me Cmb FormaPago DataSource oFormaCobroB NombreTipoFormaCobro Cmb FormaPago DataTextField descripcion Cmb FormaPago DataValueField Id TipoCobro Cmb FormaPago DataBind Dim cia As String Me Cmb Compania SelectedV alue ToString Me CmbProducto DataSource oProductoB getListaProducto Val cia Me CmbProducto DataTextField descripcion Me CmbProducto DataValueField IdProducto CmbProducto DataBind Me Cmb_Sucursal DataSource oSucursalB NombreSucrusal cia Cmb_Sucursal DataTextField nombre Cmb Sucursal DataV alueField Codigo Cmb Sucursal DataBind Dim sucu As String Me Cmb Sucursal
52. meters Add 1 clienteIni SqIDbType Int Value idClienteIni cm Parameters Add 91 clienteFin SgIDbType Int Value idClienteFin cm Parameters Add 91 vendIni SglIDbType Int Value idVendedorIni cm Parameters Add i_vendFin SgIDbType Int Value idVendedorFin cm Parameters Add 1 fechaIni SqIDbType Date Value fechalni cm Parameters Add 1 fechaFin SgIDbType Date Value fechaFin 102 cm Parameters Add 91 EstadoIni SqIDbType NChar 3 Value idTipoEstadoIni cm Parameters Add 91 EstadoFin SqIDbType NChar 3 Value idTipoEstadoFin cm Parameters Add 91 NumFacturalni SqIDbType Float Value NumrFacturalni cm Parameters Add 91 NumFacturaFin SqlDbType Float Value NumFacturaFin cm Parameters Add i_TipoRpt SgIDbType Char 20 Value TipoRpt cm Parameters Add i_idRpthistory SglDbType NChar 100 Value idRpthistory cm Parameters Add 91 NameReports SqlDbType NChar 50 Value NameReport cm Parameters Add O PSucursal SqlDbType Char 20 Value NSucursal cm Parameters Add O PCliente SglDbType Char 20 Value NClie cm Parameters Add o PVendedor SgIDbType Char 20 Value NVend cm Parameters Add 9 PTipoRpt SqIDbType Char 20 Value NTipoRpt cm Parameters Add O PTipoCobro SqIDbType Char 20 Value NTipoCobro cm CommandType CommandType StoredProcedure cm Connection Open cm ExecuteScalar cm Connection Close cm Dispose Catch ex As Ex
53. n cm Parameters Add 91 EstadoIni SqIDbType NChar 3 Value idTipoEstadolIni cm Parameters Add 91 EstadoFin SqIDbType NChar 3 Value idTipoEstadoFin cm Parameters Add 91 TipoRpt SgIDbType Char 20 Value TipoRpt cm Parameters Add O PSucursal SqlDbType Char 20 Value NSucursal cm Parameters Add O PCliente SgIDbType Char 20 Value NClie cm Parameters Add o PVendedor SgIDbType Char 20 Value NVend cm Parameters Add O PTipoRpt SgIDbType Char 20 Value NTipoRpt 100 cm Parameters Add PTipoCobro SgIDbType Char 20 Value NTipoCobro cm Parameters Add 91 NameReports SqlDbType NChar 50 Value NameReport cm Parameters Add 1 idRpthistory SglDbType NChar 100 Value idRpthistory cm CommandType CommandType StoredProcedure cm Connection Open cm ExecuteScalar cm Connection Close cm Dispose Catch ex As Exception End Try End Sub Public Sub EjecutarCancelacionx Facturas B y Val idEmpreas As Integer ByVal idSucu As Integer ByVal idCobroIni As String ByVal idCobroFin As String _ ByVal idClie As Integer ByVal idVen As Integer ByVal fechalni As Date ByVal fechaFin As Date _ ByVal idTipoEstadoIni As String ByVal idTipoEstadoFin As String _ ByVal NumFacturalni As Double ByVal NumFacturaFin As Double _ ByVal TipoRpt As String ByVal NSucursal As String ByVal NClie As String ByVal NVend As String _ ByVal NTipoRpt As String ByVal
54. ney Registra el descuento unitario del producto vt_DescTotal Money Registra el descuento total de la factura vt_PvpFinal Money Registra el precio total vt_Subtotal Money Registra el subtotal de la factura vt_ivaUni Money Registra el IVA de cada uno de los productos vt_IvaTotal Money Registra el total del IVA vt_total Money Registra el valor total de la factura vt_costo Money vt tieneIVA char 1 Tabla 22 Tabla tbFa Factura Det Y Tabla tbFa Vendedor La finalidad de la creaci n de esta estructura es para registrar los datos del vendedor A continuaci n se describir n cada uno de los campos de la estructura 68 Nombre Tipo Dato Descripci n vd_Idcompania Tinyint Registra el c digo de la compa a vd_IdVendedor Int Registra el c digo del vendedor vd_IdSucursal Tinyint Registra el c digo de la sucursal vd_Codigo nvarchar 10 Registra el c digo de la factura vd_nombre nvarchar 50 Registra el nombre del vendedor vd_direccion nvarchar 50 Registra la direcci n del vendedor vd_telefono nvarchar 20 Registra el tel fono del vendedor vd_fech_ing Datetime Registra la fecha de ingreso del vendedor vd_tipo Smallint Registra que tipo de vendedor es vd_comisi n Money Registra el valor de la comisi n del vendedor vd_estado nvarchar 1 Registra el estado del vendedor A activo e T est Inactivo vd nemonico nvarchar 20
55. reRpt dr cr NameReports oHRpt FechaProceso dr cr fechaProceGuardarRpt listHrpt Add oHRpt End While Conn Close Return listHrpt Catch ex As Exception Return listHrpt comand Dispose End Try End Function End Class 106 107 CobranzaBussiness Esta capa se va a encargar de subir todos los m todos que est n en las clases Data y la Clase Info CargarData MGProduccion Insert TableMG migrar las tablas serializarlas buscar ColRelacionada Convertir Tablalnfo SetearCamposTabla Info ConvertirData Client Info Comparaci nSchema Serializar De serializar EmpresaBussines Pa Factura Det E H XL Cini Qui E Hinder Ward 3 4 i Y jou au L L ag LJE otro Qua A A A Nx i Ef 8 ProduclaBussino Ep i SucwrsalBussinow j TablasVamiBos d Cai Qui MsuaripsBussines x Vendedorbusim 3 Zona Vemos Bus 0j dh Ons Ch Ons E Figura 62 Estructura CobranzaBussiness D Tesis Lourdes Gestor Cobranza Cobranza bussiness EmpresaBussiness vb ClienteBussiness vb Imports Cobranza info Imports Cobranza Data Imports System Reflection Imports System Runtime Serialization Formatters Binary Imports System Xml Serialization Imports System IO Imports System Xml Public Class ClienteBussiness Dim tablasvsXml As List Of TablasVsXML Dim tablasvsXMLBu As New Tablas VsXmlBussines Dim HSchema As New Handler_Schema Sub New tablasvsXml tablasvsXMLBu CargarListaRelac
56. rsal es el cliente PCliente char 20 Indica el nombre del cliente PVendedor char 20 Indica cual es el vendedor PDesde datetime Indica la fecha del reporte PHasta datetime Indica hasta que fecha desea el reporte PTipoCobro char 20 Indica que tipo de cobro se realiz PTipoRpt char 20 Indica el tipo de reporte que desea cr plazo Int Indica el plazo de pago de la factura Tabla 24 Tabla RptCC CobrosxCliente 70 Y Tabla RptCC CobrosxProducto Tipo Dato compa a cr numero numerie 18 0 cr valor Money Indica el valor pendiente por pagar cr fecha Indica la fecha de la factura cr fechaCobro Datetime Indica la fecha de cobro de la factura cr fechaEdicion cr observacion nvarchar 100 Pone alguna observaci n en la factura Indica el nombre del banco nvarchar 100 Indica el cuenta del banco cr NumCheque nvarchar 100 Indica el de cheque con que cancela la factura cr Tarjeta Indica de qu banco es la tarjeta cr numTarj nvarchar 100 Indica el n mero de tarjeta con que cancela dr Num fact Nota numeri180 S vt CreCon cha Tabla 25 Tabla RptCC CobrosxProducto 71 Y Tabla RptCC_CobrosxCliente_Det Nombre Tipo Dato Descripci n dr_Idcompania Int Registra el c digo de la compa a dr_Idsucursal Tinyint Registra el c digo de la sucursal dr_numero numeric 18 0 dr_secuencial Smallint Indica la secuencia
57. t As String ByVal idRptHist As Double Dim execRptData As New spRpt_ProcesaData_CobrosXClienteData execRptData EjecutarRptl idEmpreas idSucu idCobroIni idCobroFin idClie idVen fechalni fechaFin idEstadoIni idEstadoFin TipoRpt NSucursal NClie NVend NTipoRpt NTipoCobro NameReport idRptHist End Sub Public Sub EjecutarDataRptLiquidacionDeuda B y Val idEmpreas As Integer ByVal idSucu As Integer ByVal idCobrolni As String ByVal idCobroFin As String _ 113 ByVal idClie As Integer ByVal idVen As Integer ByVal fechalni As Date ByVal fechaFin As Date _ ByVal idEstadoIni As String ByVal idEstadoFin As String _ ByVal NumFacIni As Double ByVal NumFacFin As Double _ ByVal TipoRpt As String ByVal NSucursal As String ByVal NClie As String ByVal NVend As String ByVal NTipoRpt As String ByVal NTipoCobro As String _ ByVal NameReport As String ByVal idRptHist As Double Dim execRptData As New spRpt_ProcesaData_CobrosXClienteData execRptData EjecutarCancelacionxFacturas idEmpreas idSucu idCobroIni idCobroFin _ idClie idVen fechalni fechaFin idEstadoIni idEstadoFin NumFacIni NumFacFin TipoRpt _ NSucursal NClie NVend NTipoRpt NTipoCobro NameReport idRptHist End Sub Public Sub EjecutarRptxProducto ByVal idEmpreas As Integer ByVal idSuculni As Integer ByVal idSucuFin As Integer ByVal idCobroIni As String ByVal idCobroFin As String _ ByVal idClie As Integer ByVal idVen As Integer ByVal fe
58. te Sub bMSSQL CheckedChanged ByVal sender As System Object ByVal e As System EventArgs Handles rDBbMSSQL CheckedChanged ManejadorControlWizard New Handler WizardConeccion Estructuras Conexiones MsSQL tipoConexion TipoConexion Estructuras Conexiones MsSQL End Sub Private Sub rbAccess CheckedChanged ByVal sender As System Object ByVal e As System EventArgs Handles rbAccess CheckedChanged ManejadorControlWizard New Handler WizardConeccion Estructuras Conexiones Access tipoConexion TipoConexion Estructuras Conexiones Access End Sub 120 Private Sub btnSiguiente_Click ByVal sender As System Object ByVal e As System EventArgs Handles btnSiguiente Click OcultarGroupBox ProcesoWizard ProcesoWizard Estructuras TipoWizard Siguiente If tipoConexion TipoConexion Estructuras Conexiones MsSQL Then ManejadorControlWizard HabilitarFrame ProcesoWizard ProcesoWizard grbox1 grbox2MsSQL grbox3Ms grbox1 Else ManejadorControlWizard HabilitarFrame ProcesoWizard ProcesoWizard grbox1 grbox2Access grbox3Ms grbox1 ManejadorControl Wizard CadenaConexion Provider Microsoft Jet OLEDB 4 0 Data Source amp BuscarPathAcces End If If ManejadorControl Wizard CadenaConexion lt gt Then Dim oConXml As New Conexion Client tipoConexion TipoConexion oConXml setConexionXML ManejadorControlWizard CadenaConexion MessageBox Show Grabacion Cadena conexion OK BorrarVinculaciones IniciarPantalla End If End Sub Private Sub
59. teBussines para ejecutar reporte 124 Dim idEmpreas As Integer Dim idSucu As Integer Dim idCobrolni As String Dim idCobroFin As String Dim idClie As Integer Dim idVen As Integer Dim fechalni As Date Dim fechaFin As Date Dim TipoRpt As String Dim NSucursal As String Dim NClie As String Dim NVend As String Dim NTipoRpt As String Dim NTipoCobro As String Dim NameReports As String Public Sub llenaCombos Me Cmb_Compania DataSource CompaniaB NombreEmpresa Me Cmb_Compania DisplayMember nombre Me Cmb Compania ValueMember IdEmpresa Me Cmb FormaPago DataSource oFormaCobroB OptenerSoloCheq Cmb FormaPago DisplayMember descripcion Cmb FormaPago ValueMember IdTipoCobro Me cmbEstadoChq DataSource 2 oFormaCobroB OptenerEstadoCheq cmbEstadoChq DisplayMember descripcion cmbEstadoChq ValueMember IdTipoCobro End Sub Private Sub Cmb_Compania_SelectedIndexChanged ByVal sender As System Object ByVal e As System EventArgs Handles Cmb Compania SelectedIndexChanged End Sub Private Sub Cmb Compania SelectedValueChanged By Val sender As Object ByVal e As System EventArgs Handles Cmb Compania SelectedValueChanged Try idEmpreas Me Cmb Compania SelectedValue ToString Me Cmb Sucursal DataSource oSucursalB NombreSucrusal idEmpreas Cmb Sucursal Display Member nombre Cmb Sucursal ValueMember Codigo idSucu Cmb Sucursal SelectedValue Me Cmb Cliente DataSource oClienteB NombreCliente idEmpreas idSucu C
60. uFin cm Parameters Add 1 idFormalni SqIDbType NChar 3 Value idCobroIni cm Parameters Add i_idFormaFin SqlDbType NChar 3 Value idCobroFin cm Parameters Add 1 clienteIni SqlDbType Int Value idClienteIni cm Parameters Add i_clienteFin SqIDbType Int Value idClienteFin cm Parameters Add i_vendIni SglIDbType Int Value idVendedorIni cm Parameters Add i_vendFin SqlDbT ype Int Value idVendedorFin cm Parameters Add i_fechaIni SqlIDbType Date Value fechalni cm Parameters Add 1 fechaFin SqlDbType Date Value fechaFin cm Parameters Add i_TipoRpt SgIDbType Char 20 Value TipoRpt cm Parameters Add O PSucursal SqlDbType Char 20 Value NSucursal cm Parameters Add O PCliente SglDbType Char 20 Value NClie cm Parameters Add O PVendedor SgIDbType Char 20 Value NVend cm Parameters Add O PTipoRpt SgIDbType Char 20 Value NTipoRpt 104 cm Parameters Add PTipoCobro SgIDbType Char 20 Value NTipoCobro cm Parameters Add 91 NameReports SqIDbType NChar 50 Value NameReport cm Parameters Add 91 ProductoIni SgIDbType Float 50 Value ProductoIni cm Parameters Add 91 ProductoFin SqlDbType Float 50 Value ProductoFin cm Parameters Add 1 idRpthistory SqlDbType Float Value idRpthistory cm CommandType CommandType StoredProcedure cm Connection Open cm ExecuteScalar cm Connection Close cm Dispose Catch
61. usuario al ingresar Tabla 4 Tabla tb usuario Y Tabla TbRe FileXmlxTabla La finalidad de la creaci n de esta estructura es para registrar las relaciones entre los campos de las tablas de la base con las tablas proporcionadas por el cliente A continuaci n se describir n cada uno de los campos de la estructura Id Tabla char 50 Registra el nombre de la tabla a relacionarse desde la base del cliente IdXml char 50 Registra el nombre de la tabla del XML a relacionarse desde la base del aplicativo IdCampoTabla char 50 Nombre del campo a relacionarse base del cliente IdCampoXml char 50 Nombre del campo a relacionarse base del aplicativo Enable char 20 Registra el estado del campo 1 si es activado y 0 si no lo est Tabla 5 Tabla TbRe FileXmlxTabla Y TablatbIN Categorias La finalidad de la creaci n de esta estructura es para registrar las categor as de los productos que tienen las compa as A continuaci n se describir n cada uno de los campos de la estructura compa a categor a nchar10 nchar 10 Registra el c digo ca IdPadre ca fullPath Varchar 1000 Tabla 6 Tabla TbIN Categorias ca Nombre Varchar 50 Registra el nombre de las categor as del producto 56 Y Tabla tb empresa La finalidad de la creaci n de esta estructura es para registrar los datos de la empresa A continuaci n se describir n cada uno de los campos
Download Pdf Manuals
Related Search