No se como se hace para volver a compilarlo luego de algunos cambios
Publicado por Osvaldo (1 intervención) el 22/01/2015 06:48:34
Estimados... les paso una porción de mi código... (incompleto)
Ahora bien.... estoy en un problema con este programa.
Utilice un decompilador de clipper de un .exe y tengo todo el código fuente de un sistema.
Mi problema se basa en que no conozco ni se como se hace para volver a compilarlo luego de algunos cambios.
Tampoco puedo decirles la versión en la que este programa estaba desarrollado.
Alguno tendrá una ayuda/referencia al respecto.
Desde ya muchisimas gracias.
Saludos
Osvaldo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
function ALTAFICHA
local Local1:= "ALTA DE FICHAS SERVICIOS"
dbUseArea(.T., Nil, "EMPRESA", Nil, .T.)
Static23:= alltrim(empresa->nombre)
dbCloseArea("empresa")
do while (.T.)
close databases
set color to (Static17)
clear screen
pansup(Local1)
setcursor(2)
cajaconv(3, 0, 21, 79)
cajaconv(22, 0, 24, 79)
@ 23, 1 say ;
"[Enter] = Confirma [ESC] = Salir [] = Para seleccionar [F10] = Ayuda " ;
color Static20
set color to (Static17)
set message to 22
row:= 4
ncodcli:= a_cli2()
close databases
if (ncodcli == 0)
exit
return .T.
endif
nentre:= 0
dbUseArea(.T., Nil, "CLIENTE.DBF", Nil, .F.)
cliente->(dbGoTop())
set index to CODCLI, DESCLI
cliente->(dbSeek(ncodcli))
if (cliente->(EOF()))
.
.
.
etc
etc
etc
Ahora bien.... estoy en un problema con este programa.
Utilice un decompilador de clipper de un .exe y tengo todo el código fuente de un sistema.
Mi problema se basa en que no conozco ni se como se hace para volver a compilarlo luego de algunos cambios.
Tampoco puedo decirles la versión en la que este programa estaba desarrollado.
Alguno tendrá una ayuda/referencia al respecto.
Desde ya muchisimas gracias.
Saludos
Osvaldo
Valora esta pregunta


0