Delphi y ContaPlus...

[Tanix]

Hola a tod@s. A ver si alguien ha trabajado con algo parecido y me puede echar una mano. ¿Alguien sabe como poder conectar Delphi con ContaPlus?. Es decir, pasar datos que se introducen con Delphi, que ataca a una base de datos Access, directamente a ContaPlus.
Gracias de antemano por sus respuestas... Un saludo. Tanix.

[marcoszorrilla]

No es buena idea introducir los datos directamente al programa que citas.

Lo mejor es exportar tus datos en un fichero de tipo texto, y desde dicho programa acudes a la opción:

Opciones de Diario:
Utilidades de Asientos:
Exportación/Importación

Y desde ahí importas los datos ASCII sin mayor problema.

Es cierto que se pueden inyectar los datos por "fuerza bruta", se trata de una tabla FoxPro, no tendrías más que conectarte con el controlador del BDE para Fox y arreglado.

Debajo de este mensaje voy a poner otro con la estructura a exportar del diario:

Un saludo

[marcoszorrilla]

Aunque lo hice en Clipper creo que no necesita explicación

FUNCTION TRASCONTA(nModo)
//nModo:

//1.- Transferir todas las que haya
//2.- Transferir solo las de contado que esten pagadas y hacer contraasiento.
//3.- Contado no pagadas mas 15 d¡as

//Para Transferir el diario a Contabilidad
LOCAL aStruDiari:={;
{"ASIEN","N",6,0},;
{"FECHA","D",8,0},;
{"SUBCTA","C",12,0},;
{"CONTRA","C",12,0},;
{"PTADEBE","N",16,2},;
{"CONCEPTO","C",25,0},;
{"PTAHABER","N",16,2},;
{"FACTURA","N",8,0},;
{"BASEIMPO","N",16,2},;
{"IVA","N",5,2},;
{"RECEQUIV","N",5,2},;
{"DOCUMENTO","C",10,0},;
{"DEPARTA","C",3,0},;
{"CLAVE","C",6,0},;
{"ESTADO","C",1,0},;
{"NCASADO","N",6,0},;
{"TCASADO","N",1,0},;
{"TRANS","N",6,0},;
{"CAMBIO","N",16,6},;
{"DEBEME","N",16,2},;
{"HABERME","N",16,2},;
{"AUXILIAR","C",1,0},;
{"SERIE","C",1,0},;
{"SUCURSAL","C",4,0},;
{"CODDIVISA","C",5,0},;
{"IMPAUXME","N",16,2},;
{"MONEDAUSO","C",1,0},;
{"EURODEBE","N",16,2},;
{"EUROHABER","N",16,2},;
{"BASEEURO","N",16,2},;
{"NOCONV","L",1,0},;
{"NUMEROINV","C",10,0};
}

LOCAL aStruSubcta:={;
{"COD","C",12,0},;
{"TITULO","C",40,0},;
{"NIF","C",15,0},;
{"DOMICILIO","C",35,0},;
{"POBLACION","C",25,0},;
{"PROVINCIA","C",20,0},;
{"CODPOSTAL","C",5,0},;
{"DIVISA","L",1,0},;
{"CODDIVISA","C",5,0},;
{"DOCUMENTO","L",1,0},;
{"AJUSTAME","L",1,0},;
{"TIPOIVA","C",1,0};
}

LOCAL aStruDatasi:={;
{"ASIEN","N",6,0},;
{"CCOMENT","C",40,0};
}

//Ficheros y camino para ContaPlus.
LOCAL cXDiario:="C:\GRUPOSP\CONTAELI\TMP\XDIARIO"
LOCAL cXSubcta:="C:\GRUPOSP\CONTAELI\TMP\XSUBCTA"
LOCAL cXDatAsi:="C:\GRUPOSP\CONTAELI\TMP\XDATASI"

//Variables preestablecidas
LOCAL cMoneda:="2"
LOCAL nAsiento:=1

//Subcuentas fijas
LOCAL cCaja :="5700000"  //Caja £nica.
LOCAL cBanco:="5720001"  //Caja Cantabria
LOCAL cMerca:="7000000"  //Venta de Mercader¡as
LOCAL cIvaRe:="4770016"  //Iva repercutido al 16%
LOCAL cRecEq:="4770416"  //Recargo de Equivalencia el que lo tenga
//Hasta que fecha
LOCAL dHasta:=DATE()

LOCAL lSeguir:=.F.  
LOCAL cMsge:=""
LOCAL nMsge:=1  //1 No hay facturas 2.- Cancelado por el  usuario
LOCAL dRemesa:=Date() //aqu¡ guardaremos la fecha de cobro de la remesa
LOCAL cCliente:=""
TAPIZ("BG")
..........
//Crear los ficheros son obligatorios los tres
//Aunque solamente tendr  datos Xdiario.dbf
//En Xsubcta, tendr¡an que estar los clientes nuevos
//No existentes en Contabilidad
//En XdatAsi van los comentarios de los asientos, es decir nada
//Se crear  vacio lo mismo que XSbucta.
............

IF lSeguir
DbCreate(cXdiario,aStrudiario)
DbCreate(cXDatAsi,aStrudatasi)
DbCreate(cXSubCta,aStruSubcta)
//Camino para exportar.
DbUseArea(.T.,,"C:\GRUPOSP\CONTAELI\TMP\XDIARIO","DIARIO",.T.)

Un Saludo.

[Tanix]

De verdad que gracias por tu post Marcos... Solo un pregunta, esto te lo curraste tu solito o encontraste informacion en algun sitio???... Es que me gustaria profundizar un poco mas en el tema... De todas formas muchisimas gracias por tu respuesta... Un saludo... Tanix.

[marcoszorrilla]

No creas que es tan dificil, como el programa exporta lo que tienes que hacer es mandarle exportar, ves lo que exporta, luego abres las tablas, anotas los campos y funcionando.

Un Saludo.

[Tanix]

gracias marcos... Lo probare a ver como tira... Un saludo... Tanix.