FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Delphi y ContaPlus...
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.
__________________
La suerte favorece a una mente preparada... |
#2
|
||||
|
||||
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
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
||||
|
||||
Aunque lo hice en Clipper creo que no necesita explicación
Código:
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.)
__________________
Guía de Estilo de los Foros Cita:
|
#4
|
|||
|
|||
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.
__________________
La suerte favorece a una mente preparada... |
#5
|
||||
|
||||
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.
__________________
Guía de Estilo de los Foros Cita:
|
#6
|
|||
|
|||
gracias marcos... Lo probare a ver como tira... Un saludo... Tanix.
__________________
La suerte favorece a una mente preparada... |
|
|
|