FoxPro/Visual FoxPro - codigo fuente de monica 8

que bueno todo fuera gratis o que algunas compania por medio de campana se puediera tener software gratis
pero como no se puede hacer ahi le dejo el codigo fuente del principal archivo de monica 8 espero que les guste

a cambio de estos necesito que monica trabaje en red pero con dos empresa
con una empresa trabaja bien pero cuando creo la otra empresa y al usa por red me da error que no encuetra la ruta espero que me ayuden

ahi les va el codigo

ahi les va el codigo principal estudienlo

PARAMETER nro_ok
SET STATUS BAR OFF
SET DEBUG OFF
SET TALK OFF
CLOSE DATABASES ALL
nro_ok = 0
IF FILE(\'monitor.dat\')
SELECT 0
USE monica
REPLACE monica.nro_serie WITH \'110203473192MQ\', control_3 WITH \'893-SF\', monica.control_4 WITH DATE()
REPLACE monica.control_1 WITH \'203\'
SELECT 0
USE cod_seq
REPLACE cod_seq.total_acp WITH 1216172
CLOSE DATABASES ALL
ERASE monitor.dat
ENDIF
CLOSE DATABASES ALL
IF FILE(\'serial.nbr\')
ERASE serial.nbr
USE cod_seq
REPLACE total_acp WITH 92342
ENDIF
CLOSE DATABASES ALL
SELECT 0
USE SHARED monica
SELECT 0
USE SHARED cod_seq
IF cod_seq.total_acp > 0 .AND. LEN(ALLTRIM(monica.nro_serie)) > 0
wnro_1 = cod_seq.total_acp - 35342
IF MOD(wnro_1, 7) = 0
wnro_1 = wnro_1 / 7
IF MOD(wnro_1, 3) = 0
wnro_1 = wnro_1 / 3
IF MOD(wnro_1, 2) = 0
wnro_1 = wnro_1 / 2
IF MOD(wnro_1, 5) = 0
IF .NOT. FILE(\'disco.net\')
IF FILE(\'\\windows\\msnet_89.juv\')
SELECT 0
USE SHARED c:\\windows\\msnet_89.juv ALIAS dupli
IF ALLTRIM(dupli.nro_serie) = ALLTRIM(monica.nro_serie)
nro_ok = 1
SELECT dupli
USE
SELECT cod_seq
ELSE
DO gen_nro WITH nro_ok
ENDIF
ELSE
DO gen_nro WITH nro_ok
ENDIF
ELSE
nro_ok = 1
ENDIF
ELSE
DO gen_nro WITH nro_ok
ENDIF
ELSE
DO gen_nro WITH nro_ok
ENDIF
ELSE
DO gen_nro WITH nro_ok
ENDIF
ELSE
DO gen_nro WITH nro_ok
ENDIF
ELSE
DO gen_nro WITH nro_ok
ENDIF
CLOSE DATABASES ALL
RETURN
ENDPROC
*
PROCEDURE gen_nro
PARAMETER nro_ok
wwrpta = \'ASI\'
cmessage = \'Confirme. \'
DO FORM wrpta_3 TO wwrpta WITH \'Registración\', cmessage
IF wwrpta = \'NO\'
nro_ok = 0
ENDIF
RETURN
ENDPROC
*

que bueno todo fuera gratis o que algunas compania por medio de campana se puediera tener software gratis
y el laborioso trabajo de desarrollar codigo donde quedaria o tu lo haces por hobbie .. bueno ni al caso

Estimado desconocido creo que para responder tu pregunta de nada sirve analizar tu codigo por que seria mas facil crear codigo nuevo que analizar el de otra persona

Si fueras mas especifico de lo que quieres lograr quizas podriamos ayudarte mas que analizando tu codigo ....

Si tu inquietud es trabajar 2 empresas en un mismo sistema ten en cuenta que debes de tener tanto tablas compartidas entre empresas como tablas exclusivas de cada empresa.

Si especificas mas de lo que quieres lograr. Te ayudaremos con mucho gusto

Suerte

Espero que esto sea solo un chiste.
Siempre he respetado el trabajo de los otro programadores, sea bueno o malo, pero estimado desconocido, porque no desarrollas tu propio software, Monica para mi es un software Malo (en extremo). Gastará mas tiempo arreglando a monica que el que dediques a tu propio software.

Si quieres codigo gratis en la web hay de sobra. Mas grande y bonito que ese.

Porque dices que monica es malo estimado?

Saludos...

Pues sería mejor que programaras, como dicen los compañeros, tu propio codigo ya que te serviría en caso de mantenimiento, actualizaciones, etc.

Y además en mi caso yo no me sentiría tranquilo, sabiendo que entrego al cliente un software que ni siquiera sé como funciona en su totalidad...En fin es cuestión de cada persona y su ética profesional.....

De cualquier forma, estoy a tus órdenes para cualquier duda, en la experiencia que me ha dejado crear mis propios códigos.

Atte
Saúl Piña Hdz

me gustaria que me ayuden me sale este error, error alias COD_SEQ al facturar en monica 8.5
pues cambie el teclado y se colgo ahora reinicie el sitema y me salio este error, imprime facturas antiguas pero las que se hacen al momento no que puedo hacer ?.... gracias por su tiempo

me pasa lo mismo , alguien sabe como solucionar este error?