Exportando facturas a Contaplus – Formato fichero contaplus xDiario.txt

Este es algo más sencillo, ya que aquí al menos los datos aparecen algo más claros en los ejemplos que he podido crear.

formato_fichero_contaplus_Xdiario
formato_fichero_contaplus_XDataSi
formato_fichero_contaplus_XSubCta

Si existiese alguna modificación lo publicare más tarde, ya que aun no he tenido tiempo de de comprobar si Contaplus los importa adecuadamente.

Anuncios

4 pensamientos en “Exportando facturas a Contaplus – Formato fichero contaplus xDiario.txt

  1. Hola, he estado viendo que eres de los pocos que tiene algo de la estructura de estos ficheros, sin embargo, comparando con unos actuales, observo que han añadido muchos mas campos. ¿Sabrías como conseguir mas información sobre los nuevos campos?

    • Hola Juan Carlos, efectivamente, el día que decidí intergrar el programa de gestión a contaplus, la verdad que estuve a punto de rendirme. la verdad es que no encontré nada de documentación sobre como confeccionar los ficheros para contaplus los pudiera leer, pero ante la absolutamente necesidad de crear estos ficheros me decidí a averiguar mediante ingeniería inversa, prueba y error, los ficheros de contaplus.
      Aun tengo algunas lagunas y campos que no se para que contaplus los utiliza, y como ya comente en un anterior post, esto es lo que he conseguido y por el momento funciona.
      Nosotros usamos la versión 2008 Elite del contaplus, y no he probado aun de hacer traspaso a versiones más nuevas.
      Sin duda, podría averiguar el formato de estas ficheros si es que no han hechos algo muy diferente, cosa que dudo.
      A que versión de contaplus quieres exportar? No te sirve el formato que hay posteado?

  2. Esto te ayudara:
    http://www.netsistemas.com/contaplus

    y esto también:

    Public Structure NTS_ContaPlusDiario

    Public NumeroAsiento As String ‘1 * Asien NUME 6 Número del asiento
    Public Fecha As String ‘2 * Fecha FECHA 8 Fecha del asiento
    Public Cuenta As String ‘ 3 * SubCta CHAR 12 Código de la subcuenta
    Public ContraPartida As String ‘4 ** Contra CHAR 12 Código de la contrapartida/IVA
    Public ImporteDebe As String ‘5 * PtaDebe NUME 16 2 Importe al debe en pesetas
    Public Concepto As String ‘6 * Concepto CHAR 25 Concepto del asiento
    Public ImporteHabar As String ‘7 * PtaHaber NUME 16 2 Importe al haber en pesetas
    Public NumeroFactura As String ‘8 Factura NUME 8 Número de factura al IVA
    Public ImporteBaseImponible As String ‘9 ** Baseimpo NUME 16 2 Base imponible del IVA en pesetas
    Public P_IVA As String ’10 ** IVA NUME 5 2 Tanto por ciento de IVA
    Public P_RE As String ’11 ** Recequiv NUME 5 2 % recargo de equivalencia
    Public Documento As String ’12 Documento CHAR 10 Número de documento
    Public Departamento As String ’13 Departa CHAR 3 Código de departamento ‘
    Public Clave As String ’14 Clave CHAR 6 Código del proyecto
    Public Estado As String ’15 Estado CHAR 1 Punteo (interno) ‘
    Public NumeroCasacion As Long ’16 Ncasado NUME 6 Numérico de casación (interno) ‘
    Public TipoCasacion As String ’17 TCasado NUME 1 Tipo de casado (interno) ‘
    Public NumeroDePago As String ’18 Trans NUME 6 Número de pago
    Public CambioAAplicar As String ’19 Cambio NUME 16 6 Cambio a aplicar
    Public ImporteDebeMonedaExtranjera As String ’20 DebeME NUME 16 2 Importe haber moneda extranjera
    Public ImporteHaberMonedaExtranjera As String ’21 HaberME NUME 16 2 Importe haber moneda extranjera
    Public Auxiliar As String ’22 Auxiliar CHAR 1 (Interno)
    Public Serie As String ’23 Serie CHAR 1 Serie de la facturación
    Public Sucursal As String ’24 Sucursal CHAR 4 Sin uso
    Public CodDivisa As String ’25 CodDivisa CHAR 5 Código de la divisa
    Public ImporteAuxiliarMonedaExtranjera As String ’26 ImpAuxME NUME 16 2 Importe auxiliar moneda extranjera
    Public MonedaUso As String ’27 * MonedaUso CHAR 1 1.- Ptas; 2.- Euros
    Public ImporteEuroDebe As String ’28 EuroDebe NUME 16 2 Importe al debe en euros
    Public ImporteEuroHaber As String ‘ 29 EuroHaber NUME 16 2 Importe al haber en euros
    Public ImporteBaseEuro As String ‘ 30 BaseEuro NUME 16 2 Base imponible del IVA en euros
    Public NoConv As String ‘ 31 NoConv LOGIC 1 (Interno)
    Public NumeroInv As String ‘ 32 NumeroInv NUME 10 Código de Activo

    Public Serie_RT As String
    Public Factu_RT As String
    Public BaseImp_RT As String
    Public BaseImp_RF As String
    Public Rectifica As String
    Public Fecha_RT As String
    Public NIC As String
    Public Libre As String
    Public Libre2 As String
    Public lInterrump As String
    Public SegActiv As String
    Public SegGeog As String
    Public lRect349 As String
    Public Fecha_OP As String
    Public Fecha_EX As String
    Public Departa5 As String
    Public Factura10 As String
    Public Porcen_Ana As String
    Public Porcen_Seg As String
    Public NumApunte As String
    Public EuroTotal As String
    Public RazonSoc As String
    Public Apellido1 As String
    Public Apellido2 As String
    Public TipoOpe As String
    Public nFacTick As String
    Public NumAcuIni As String
    Public NumAcuFin As String
    Public TerIdNif As String
    Public TerNif As String
    Public TerNom As String
    Public TerNif14 As String
    Public TBienTran As String
    Public TBienCod As String
    Public TransInm As String
    Public Metal As String
    Public MetalImp As String
    Public Cliente As String
    Public OpBienes As String
    Public FacturaEx As String
    Public TipoFac As String
    Public TipoIVA As String
    Public GUID As String
    Public L340 As String
    Public MetalEje As String
    Public Document15 As String
    Public ClienteSup As String
    Public FechaSub As String
    Public ImporteSup As String
    Public DocSup As String
    Public ClientePro As String
    Public FechaPro As String
    Public ImportePro As String
    Public DocPro As String
    Public nClaveIRPF As String
    Public lArrend347 As String
    Public nSitinmueb As String
    Public cRefcatast As String
    Public Concil347 As String
    Public tipoRegula As String
    Public nCritCaja As String
    Public lCritCaja As String
    Public dMaxLiqui As String
    Public nTotalFac As String
    Public idFactura As String
    Public nCobrPago As String
    Public nTipoIG As String
    Public Devoivaid As String
    Public lDevoluiva As String
    Public medioCrit As String
    Public cuentaCrit As String
    Public lConAc As String
    Public GuidSPAY As String
    Public TipoEntr As String
    Public TipoDrive As String
    Public Mod140 As String
    Public FechaAnota As String
    Public nTipo140 As String
    Public Cuenta140 As String
    Public Importe140 As String
    Public lDepAduan As String
    Public lDifAduan As String
    Public nInter303 As String
    Public IdRecargo As String

    End Structure

    CP.NumeroAsiento = ESTring(1, 6) ‘1 * Asien NUME 6 Número del asiento
    CP.Fecha = ESTring(7, 8) ‘2 * Fecha FECHA 8 Fecha del asiento
    CP.Cuenta = ESTring(15, 12) ‘ 3 * SubCta CHAR 12 Código de la subcuenta
    CP.ContraPartida = ESTring(27, 12) ‘4 ** Contra CHAR 12 Código de la contrapartida/IVA
    CP.ImporteDebe = ESTring(39, 16) ‘5 * PtaDebe NUME 16 2 Importe al debe en pesetas
    CP.Concepto = ESTring(55, 25) ‘6 * Concepto CHAR 25 Concepto del asiento
    CP.ImporteHabar = ESTring(80, 16) ‘7 * PtaHaber NUME 16 2 Importe al haber en pesetas
    CP.NumeroFactura = ESTring(96, 8) ‘8 Factura NUME 8 Número de factura al IVA
    CP.ImporteBaseImponible = ESTring(104, 16) ‘9 ** Baseimpo NUME 16 2 Base imponible del IVA en pesetas
    CP.P_IVA = ESTring(120, 5) ’10 ** IVA NUME 5 2 Tanto por ciento de IVA
    CP.P_RE = ESTring(125, 5) ’11 ** Recequiv NUME 5 2 % recargo de equivalencia
    CP.Documento = ESTring(130, 10) ’12 Documento CHAR 10 Número de documento
    CP.Departamento = ESTring(140, 3) ’13 Departa CHAR 3 Código de departamento ‘
    CP.Clave = ESTring(143, 6) ’14 Clave CHAR 6 Código del proyecto
    CP.Estado = ESTring(149, 1) ’15 Estado CHAR 1 Punteo (interno) ‘
    CP.NumeroCasacion = ESTring(150, 6) ’16 Ncasado NUME 6 Numérico de casación (interno) ‘
    CP.TipoCasacion = ESTring(156, 1) ’17 TCasado NUME 1 Tipo de casado (interno) ‘
    CP.NumeroDePago = ESTring(157, 6) ’18 Trans NUME 6 Número de pago
    CP.CambioAAplicar = ESTring(163, 16) ’19 Cambio NUME 16 6 Cambio a aplicar
    CP.ImporteDebeMonedaExtranjera = ESTring(179, 16) ’20 DebeME NUME 16 2 Importe haber moneda extranjera
    CP.ImporteHaberMonedaExtranjera = ESTring(195, 16) ’21 HaberME NUME 16 2 Importe haber moneda extranjera
    CP.Auxiliar = ESTring(211, 1) ’22 Auxiliar CHAR 1 (Interno)
    CP.Serie = ESTring(212, 1) ’23 Serie CHAR 1 Serie de la facturación
    CP.Sucursal = ESTring(213, 4) ’24 Sucursal CHAR 4 Sin uso
    CP.CodDivisa = ESTring(217, 5) ’25 CodDivisa CHAR 5 Código de la divisa
    CP.ImporteAuxiliarMonedaExtranjera = ESTring(222, 16) ’26 ImpAuxME NUME 16 2 Importe auxiliar moneda extranjera
    CP.MonedaUso = ESTring(238, 1) ’27 * MonedaUso CHAR 1 1.- Ptas; 2.- Euros
    CP.ImporteEuroDebe = ESTring(239, 16) ’28 EuroDebe NUME 16 2 Importe al debe en euros
    CP.ImporteEuroHaber = ESTring(255, 16) ‘ 29 EuroHaber NUME 16 2 Importe al haber en euros
    CP.ImporteBaseEuro = ESTring(271, 16) ‘ 30 BaseEuro NUME 16 2 Base imponible del IVA en euros
    CP.NoConv = ESTring(287, 1) ‘ 31 NoConv LOGIC 1 (Interno)
    CP.NumeroInv = ESTring(299, 10) ‘ 32 NumeroInv NUME 10 Código de Activo

    ‘no soportados por ciertas versiones
    ‘——
    CP.Serie_RT = ESTring(298, 1)
    CP.Factu_RT = ESTring(299, 8)
    CP.BaseImp_RT = ESTring(307, 16)
    CP.BaseImp_RF = ESTring(323, 16)
    CP.Rectifica = ESTring(339, 1)
    CP.Fecha_RT = ESTring(340, 8)
    CP.NIC = ESTring(348, 1)
    CP.Libre = ESTring(349, 1)
    CP.Libre2 = ESTring(350, 6)
    CP.lInterrump = ESTring(356, 1)
    CP.SegActiv = ESTring(357, 6)
    CP.SegGeog = ESTring(363, 6)
    CP.lRect349 = ESTring(369, 1)
    CP.Fecha_OP = ESTring(370, 8)
    CP.Fecha_EX = ESTring(378, 8)
    CP.Departa5 = ESTring(386, 5)
    CP.Factura10 = ESTring(391, 10)
    CP.Porcen_Ana = ESTring(401, 5)
    CP.Porcen_Seg = ESTring(406, 5)
    CP.NumApunte = ESTring(411, 6)
    CP.EuroTotal = ESTring(417, 16)
    CP.RazonSoc = ESTring(433, 100)
    CP.Apellido1 = ESTring(533, 50)
    CP.Apellido2 = ESTring(583, 50)
    CP.TipoOpe = ESTring(633, 1)
    CP.nFacTick = ESTring(634, 8)
    CP.NumAcuIni = ESTring(642, 40)
    CP.NumAcuFin = ESTring(682, 40)
    CP.TerIdNif = ESTring(722, 1)
    CP.TerNif = ESTring(723, 15)
    CP.TerNom = ESTring(738, 40)
    CP.TerNif14 = ESTring(778, 9)
    CP.TBienTran = ESTring(787, 1)
    CP.TBienCod = ESTring(788, 10)
    CP.TransInm = ESTring(798, 1)
    CP.Metal = ESTring(799, 1)
    CP.MetalImp = ESTring(800, 16)
    CP.Cliente = ESTring(816, 12)
    CP.OpBienes = ESTring(828, 1)
    CP.FacturaEx = ESTring(829, 40)
    CP.TipoFac = ESTring(869, 1)
    CP.TipoIVA = ESTring(870, 1)
    CP.GUID = ESTring(871, 40)
    CP.L340 = ESTring(911, 1)

    ‘no soportados por ciertas versiones
    CP.MetalEje = ESTring(912, 4)
    CP.Document15 = ESTring(916, 15)
    CP.ClienteSup = ESTring(931, 12)
    CP.FechaSub = ESTring(943, 8)
    CP.ImporteSup = ESTring(951, 16)
    CP.DocSup = ESTring(967, 40)
    CP.ClientePro = ESTring(1007, 12)
    CP.FechaPro = ESTring(1019, 8)
    CP.ImportePro = ESTring(1027, 16)
    CP.DocPro = ESTring(1043, 40)
    CP.nClaveIRPF = ESTring(1083, 2)
    CP.lArrend347 = ESTring(1085, 1)
    CP.nSitinmueb = ESTring(1086, 1)
    CP.cRefcatast = ESTring(1087, 25)
    CP.Concil347 = ESTring(1112, 1)
    CP.tipoRegula = ESTring(1113, 2)
    CP.nCritCaja = ESTring(1115, 2)
    CP.lCritCaja = ESTring(1117, 1)
    CP.dMaxLiqui = ESTring(1118, 8)
    CP.nTotalFac = ESTring(1126, 16)
    CP.idFactura = ESTring(1142, 32)
    CP.nCobrPago = ESTring(1174, 16)
    CP.nTipoIG = ESTring(1190, 2)
    CP.Devoivaid = ESTring(1192, 50)
    CP.lDevoluiva = ESTring(1242, 1)
    CP.medioCrit = ESTring(1243, 1)
    CP.cuentaCrit = ESTring(1244, 34)
    CP.lConAc = ESTring(1278, 1)
    CP.GuidSPAY = ESTring(1279, 40)
    CP.TipoEntr = ESTring(1319, 2)
    CP.TipoDrive = ESTring(1321, 2)
    CP.Mod140 = ESTring(1323, 2)
    CP.FechaAnota = ESTring(1325, 8)
    CP.nTipo140 = ESTring(1333, 2)
    CP.Cuenta140 = ESTring(1335, 12)
    CP.Importe140 = ESTring(1347, 16)
    CP.lDepAduan = ESTring(1363, 1)
    CP.lDifAduan = ESTring(1364, 1)
    CP.nInter303 = ESTring(1365, 2)
    CP.IdRecargo = ESTring(1367, 40)

    Private Function ESTring(Ini As Long, Size As Long) As String

    Dim T As String
    If ExtraccionCadena.Length + 1 < Ini + Size Then
    T = ""
    Else
    T = ExtraccionCadena.Substring(Ini – 1, Size)
    End If

    'ExtraccionPosicion = ExtraccionPosicion + Size
    Return T
    End Function

    Atentamente, R.Alonso

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s