Aqui esta la DLL para .NET que les habia comentado...Basicamente son dos funciones que regresan un string con el formato necesario para exportar a contpaq i, tanto para el Encabezado como para los Movimientos de la poliza.
Funcion CreaHeader:
-Se encarga de crear un string para el encabezado de la poliza con el formato requerido por Contpaq i.
Código: Seleccionar todo
CreaHeader(ByVal Fecha As Date, _
ByVal TipoPoliza As TPoliza, _
ByVal Folio As Integer, _
ByVal Clase As String, _
ByVal idDiario As Integer, _
ByVal Concepto As String, _
ByVal SistemaOrigen As String, _
ByVal Impresa As Boolean, _
ByVal Ajuste As Boolean) As String
Funcion CreaMovtos:
-Se encarga de crear un string para lo movimientos de la poliza con el formato requerido por Contpaq i.
Código: Seleccionar todo
CreaMovtos(ByVal idCuenta As String, _
ByVal TipoMovimiento As TMovto, _
ByVal Importe As Double, _
ByVal Referencia As String, _
ByVal idDiario As Integer, _
ByVal ImporteME As Double, _
ByVal Concepto As String, _
ByVal idSegNeg As String) As StringPara implementar la libreria solo hay que agregarla a las referencias del proyecto y los namespaces.
Por ej, en VB.Net hay que agregar la siguiente linea
Código: Seleccionar todo
Imports CtPolizasDLLCódigo: Seleccionar todo
Dim poliza As New PolizaCt 'Declaramos la poliza
Dim oSW As New StreamWriter("C:\Pruebapoliza.txt") ' Stream para crear un txt donde escribiremos los strings regresados por las funciones de la DLL
' Se escribe el string regresado por la funcion CreaHeader en el txt
' Poliza de ingreso con la fecha de Hoy, Folio 1, Concepto "Poliza de prueba"
oSW.WriteLine(poliza.CreaHeader(Now, CtPolizasDLL.PolizaCt.TPoliza.Ingreso, 1, "1", 0, "Poliza de Prueba","11",False, False)
oSW.Flush()
Agregamos el namespace
Código: Seleccionar todo
using CtPolizasDLL;Código: Seleccionar todo
System.IO.StreamWriter sw = new System.IO.StreamWriter(@"C:\PolizadePrueba.txt");
CtPolizasDLL.PolizaCt poliza = new CtPolizasDLL.PolizaCt();
sw.WriteLine(poliza.CreaHeader( DateTime.Now, CtPolizasDLL.PolizaCt.TPoliza.Ingreso , 1, "1", 0, "Poliza de Prueba", "11",false, false));
sw.Close();http://www.validacfd.com/phpbb3/viewtop ... f=14&t=203
Espero le sea de utilidad a alguien...
Dudas, comentarios, etc ..son bienvenidos.
Saludos!!
, aunque en mi anterior post describo como poder generar el formato valido para las polizas.
