Hola a todos.
Aquí os paso la CONTABILIDAD V1.a By HMG una vez reajustada y corregidos algunos BUGS detectados.
En este INSTALADOR no he incorporado datos de ninguna contabilidad predefinida, de esta forma creo que se evitarán los errores iniciales del búsqueda del Path.
Los Botones de la calculadora se han incluido.
Prácticamente se ha terminado la traducción a 4 idiomas.., queda algo..., licencia de programador
Como curiosidad.., he tenido que cambiar todos los GRID's de la aplicación por BROWSE al detectar problemas de funcionamiento, en concreto en la visualización.
Si queréis comprobarlo, en la anterior versión, id a la entrada de apuntes, dad de alta varios apuntes, y cuando tengáis varios en el GRID, le dais a nuevo y en el campo CUENTA no poner nada y dar al ENTER, se os mostrará la ventana de búsqueda, en ese momento el título de las cuentas del GRID de APUNTES se estropea. Eso es debido a que el GRID toma el control de la Base de Datos, y yo necesito cambiar el orden, etc..., y se lía. Con el Browse todo Ok.
Otra curiosidad.., todo los listados están realizados con la clase REPORT.
Por ejemplo para hacer los extractos .....
Code: Select all
DO REPORT ;
TITLE "Extracto "+Asientos->Cuenta+" "+Cuentas->TITULO ;
HEADERS {"","","","","",""} , acTit ;
FIELDS {"FECHA","ASIENTO","TITULO","IF(Asientos->DOH='D',EUROS,0)","IF(Asientos->DOH='H',EUROS,0)","*4-5"} ;
WIDTHS {10,7,10,14,14,14} ;
TOTALS {.F.,.F.,.F.,.T.,.T.,.T.} ;
NFORMATS {"","","","999,999,999.99","999,999,999.99","999,999,999.99"} ;
WORKAREA Asientos ;
PAPERSIZE DMPAPER_A4 ;
CPL 80 ;
LMARGIN 1 ;
HEADRGRP xEmp ;
MULTIPLE ;
PREVEO lOk ;
PREVIEW ;
WHILE !Asientos->(EOF()) .AND. Asientos->Cuenta = cCta1 .AND. Asientos->Fecha <= aResults[4] ;
STOTALS {,,,nDebe,nHaber,}
Próximamente la documentare y la podré a vuestro servicio, es muy practica y con 4 líneas haces cualquier listado.
Bueno, aquí os dejo la nueva versión.., espero que os guste y quedo a vuestro servicio