PREGUNTAS CONTESTADAS - clipper/fivewin

 Hay un total de 470 Preguntas.<<  >> 

    Pregunta:  15141 - MODIFICAR AUTOEXEC.BAT POR PROGRAMA
Autor:  Raul Mederos
Como puedo insertar la linea SET CLIPPER=Fxxx en el autoexec.bat, ya que tengo que hacer una instalación y no quiero que el cliente este modificando el autoexec.bat con algun editor de texto.
Agradezco a quien pueda brindarme alguna idea o ayuda.
  Respuesta:  Claudio Uez
*------------------------------------------------------------------
*
* Programa MODINI.prg
*
* Detalle CONFIG.SYS
* Fecha 23-06-2005
*
* Nota: podes usar la misma estructura para Autoexec.bat
*----------------------------------------------------------------

use DATOS
zap

APPE FROM C:\CONFIG.SYS SDF

GO TOP
DO WHILE !EOF()

linea := alltrim( upper( datos->texto) )
IF AT( "FILES" , linea ) <> 0
dele
exit
endif

SKIP
ENDDO

pack
append blank
repl datos->texto with "REM Agregado por RCU SISTEMAS"
append blank
repl datos->texto with "FILES=120"

// y asi le podes agregar las lineas que quieras

COPY TO C:\CONFIG.SYS SDF

close all

RETURN
  Respuesta:  JOSE ROLANDO QUINTERO PAZ
Hola
Aca te envio la respuesta:

Punto1=FOPEN("Autoexec.bat",2)
  Respuesta:  JOSE ROLANDO QUINTERO PAZ
Para agregar una linea al autoexec.bat

Punto1=FOPEN("Autoexec.bat",2)
IF FERROR() !=0
? "Error de apertura: " ,FERROR()
BREAK
ELSE
long=10000
cad=FREADSTR(Punto1,long)
FWRITE(Punto1, "SET CLIPPER=F49; R100; SWAPPATH:C:")
FCLOSE(Punto1)
ENDIF

Debes tener en cuenta que esta sentencia debe estar en el directorio raiz que supuestamente se debe encontrar en autoexec.bat, de lo contrario me dara un codigo de error nº 2 que significa que el archivo no exista, ok?
Tambien puedes probar anulando el long=1000 y Modificar lo siguiente

cad=FREADSTR(Punto1,32)
el numero 32 es la cantidad de caracteres a ingresar que incluyen los espacios en blanco entre palabra y palabra. Espero que te sirva

    Pregunta:  15183 - LIBRERIAS PARA CLIPPER
Autor:  cristian gallardo
necesito saber donde puedo bajar librerias para clipper ya que deseo mejoras la creacion de pantallas, y no he podido encontrar ningun y ademas no tengo como manuales para saber como se usan las instrucciones, ni programas de ejemplo
  Respuesta:  luis vasquez
hola cristian :
visita la siguiente direccion: ftp://correo.ssvsa.cl
carpeta Fivewin.
No creo que puedas obtener algo mejor para mejorar tus pantallas.
cualquier duda, escribeme

    Pregunta:  15284 - LEVANTAR UN ARCHIVO DE TIPO TEXTO DE MAS DE 65KB
Autor:  Fernando Contreras
Por favor necesito urgente saber como levantar un archivo de más de 65kb
Gracias
  Respuesta:  Elias Esquivel
Utiliza la libreria CL-TEXT. si quieres mas informacion escribeme.

chau.
  Respuesta:  peter bear'sking
Hola Fernando:

Debes poner más atención en las respuestas de la web. Pero te anticipo como poder hacerlo, crea tu archivo de texto de la forma que habitualmento lo creas y luego lo editas con un editor de texto llamado por tu creación, lo cual te llevara a que cuando salgas del editor vuelvas a tu cración, si tienes dudas contactame.

    Pregunta:  15468 - ACCESO A FTP SITE
Autor:  Raúl Noguera
desea accesar a un servidor WED desde una aplicación escrita en FIVEWIN 2.1, actualmente estoy usando la función FTPSENDFILES() pero no me he podido conectar, los parametros que envio a la funcion son: dirección IP, matriz con archivos origenes, matriz con archivos destinos. Me guie por el programa ICOPYFIL.PRG.

Quisiera que la solución funcionara bajo PROXY o sin este, en equipos por sistema operativo windows 9x o 200
  Respuesta:  manuel escamilla
Checate el ejemplo Icopyfil.prg que viene en Gallery de Samples

    Pregunta:  16113 - CONTROL DE CUIT
Autor:  Ricardo Rodriguez
Tengo que realizar una facturacion para el Controlador Fiscal Hasar 615 F y Hasar 320Fy queria saber ¿ Como se imprime? y Como se C ontrola el CUIT osea como es el algoritmo para conntrolar el Nº de CUIT
de AFIP Argentina
  Respuesta:  ako ferreyra
Para completar el comentario anterior te aclaro lo siguiente: en primer lugar no soy programador, soy contador :)

Es correcto que para determinar la Clave Única de Identificación Tributaria (CUIT) se asigna para los hombre 20 - Nº DNI - dígito control, 27 para las mujeres y 30 para empresas (sociedades de hecho, SA, SRL, SCA, etc...., y todo tipo de entidad, ya sea cooperativa, mutual, organismo oficial, asociación, etc.).

Cuando el dígito de control final resulta 10 u 11 del cálculo inicial, éste pasa a ser 9 y transforma el prefijo 20 o 27 en 23 y el 30 en 33.

Como anteriormente una CUIT que comenzaba con 23 y finalizaba con 9 no permitía distinguir en hombre y mujeres, es que actualmente desde hace un par de años a la fecha (2006) para el caso de los hombres se mantiene el 23 - 00000000 - 9 y para las mujeres se comenzó a utilizar el dígito final 4 en esta forma: 23 - 00000000 - 4.

Esto permite calcular en forma anticipada la CUIT de una persona, diferenciando claramente si se trata de hombre o mujer.

Con respecto a las CUIT que comienzan con el prefijo 24, estos indicarían números de documento REPETIDOS. Es decir, que cuando una persona fue a tramitar su CUIT ante la AFIP o CUIL ante el ANSES, se dio con la noticia que YA existía su número de documento, pero asignado a otra persona y para poder diferenciarla se le otorgó ese prefijo, ya que no pueden existir 2 CUIT/CUIL iguales. Igualmente el cálculo matemático es el mismo.

Ahora bien, para el caso de empresas no hubo ningún cambio y mantienen 33 como prefijo y 9 al final.

Y para finalizar, igual que el prefijo 24 y también de escasa aparición, existe el prefijo 34. La explicación es la siguiente: cuando se comenzó a utilizar la CUIT, a las empresas se les asignaba como número central, luego del prefijo 30, el número que poseían en la Dirección Nacional de Recaudación Previsional (DNRP) y resultó también que aparecieron algunos número repetidos, por lo cual se optó por el prefijo 34 para diferenciarlos de quienes ya poseían el mismo número de DNRP.

Actualmente, el número central que se les otorga a las empresas, luego del prefijo 30, es un número correlativo otorgado por el sistema central de la AFIP a todos los contribuyentes del país, y según el orden que ingresan a dicho sistema, por lo cual no existe forma de anticiparlo o conocerlo.

Espero que la información les haya resultado útil. Saludos.
  Respuesta:  Adhemar Alfredo Borges
Contesto esta pregunta porque estaba navegando, no sé si es reciente o de hace años, pues no tiene fecha, pero te mando la rutina de control del CUIT, de mi autoría, que la esyoy usando hace 7 años:

# define pTRUE .T.
# define pFALSE .F.
// ------------------------------------------------------------------------

FUNCTION Val_CUIT( d_CUIT )

LOCAL dig_resu1, z1, p_CUIT, dig_verif, oper1, k_CUIT := { 5, 4, 3, 2, 7,;
6, 5, 4, 3, 2 }

// el parámetro d_cuit es el CUIT, alfanum., sin los guiones )
dig_resu1 := z1 := dig_verif := oper1 := 0
p_CUIT := Left( d_CUIT, Len( d_CUIT ) - 1 )
dig_verif := Val( Right( d_CUIT, 1 ) )

FOR z1 := 1 To 10
oper1 := Val( Substr( p_CUIT, z1, 1 ) )
dig_resu1 += oper1 * k_CUIT[ z1 ]
NEXT

dig_resu1 := IF( dig_resu1 % 11 = 0, 0, 11 - ( dig_resu1 % 11 ) )

RETURN( IF( dig_resu1 = dig_verif, pTRUE, pFALSE ) )

El algoritmo de cálculo lo obtuve no sé en que año de la publicación ERREPAR, si te interesa te lo puedo explicar detalladamente, pero uno de los puntos a tener en cuenta es: a los hombres personas físicas se les asigna 20 + nro.docum + dígito de control, a las mujeres 27 + ídem;
a las empresas 30 + nro + dígito. Si el dígito resultante es > 9, se asigna
23 en lugar de 20 o 27 o 33 en lugar de 30, y se vuelve a calcular el dígito, hay gente que tiene 24-xxxx... no sé porqué porque eso el ERREPAR no lo explica, supongo que algún funcionario de la AFIP empleó mal la fórmula al asignar número a esos contribuyentes.
  Respuesta:  JOSE ROLANDO QUINTERO PAZ
Hola
Realmente no entiendo si lo que quieres es controlar el campo del Nº de CUIL o quieres imprimirlo y no sabes la sentencia o ambas cosas.
Yo programaba en clipper y tengo unos ejemplos de facturación y presupuesto pero, no entiendo exactamente lo que quieres.
Me gustaria que al menos envies algunas sentencias para saber lo que quieres hacer y ver si esta bien o no.

    Pregunta:  16361 - LIBRERIAS DE CODIGO DE BARRAS
Autor:  Pedro
Adquiri un lapiz lector de codigo de barras, funciona impeque pero no he podido encontrar una libreria que imprima en forma correcta el codigo de barra, en una epson matriz de punto como para una de inyeccion de tinta.

Desearia cualquier libreria que me pueda ayudar...

Gracias.
  Respuesta:  Ariel Fernández
Hola Pedro:
Yo tengo unas funciones para imprimir codigo de barra que se llama en Epson Matriz de Punto y en HP Laser, si te interesa mandame un Mail.

Suerte

    Pregunta:  16554 - DECOMPILAR .OBJ PARA CLIPER5.3
Autor:  Guillermo Montalvo Jimenez
Teng un archvo OBJ de clpper5.3 que es necesario modificar para validar unas opciones de busqueda, he tratado de decompilar el ejecutable pero no muestra el codigo de la libreria si conocenm alguna herrmienta para decompilar obj les agradecere la informacion
  Respuesta:  Adolfo Mujica Mota
Hola Guillermo:

MIra, tengo una PC en casa con unas utilerias para decompilar, pero tiene una llave que solo funciona en mi HDD, si quieres mandame el .OBJ y veo que se puede hacer y si se puede te mando en un arhivo de texto lo que se pueda obtener.

    Pregunta:  17339 - CONEXIóN CON MODEM POR CLIPPER
Autor:  Diego Gonzalez
Hola, ¿cómo están?
Desde clipper 5.2 estoy enviando correo electronico. Pero lo que hasta ahora no pude solucionar es como conectarme y desconectarme por programa (con run ejecutando algun programa o lo que sea) sin tener que ir primero a conectarme al proveedor de internet mediante el acceso telefonico a redes. Si alguien conoce la solución, muy agradecido.
Dios los bendiga,
Diego.
  Respuesta:  Jose Acuña
Diego te mando esta direccion

http://www.arrakis.es/~cayetano/tcpip.html

esta hecho para FIVEWIN a lo mejor te sirve

Saludos

    Pregunta:  17562 - ORDENAMIENTO EN BASES DE DATOS GRANDES
Autor:  FABIO ADOLFO MALDONADO BECERRA
Tengo el siguiente problema al tratar de ordenar bases de datos de 100 a 150 mil registros mediante la orden SORT ON, me aparece el error "Data Width Error" y no es capaz de coformar el fichero ordenado. No puedo ordenar mediante indexación pues la clave de ordenación contiene campos tanto caracter como numéricos y la indexación en clipper permite campos solo caracter o solo numéricos. Quisiera saber la causa del problema y si existe algún modo de corregir esta inconsistencia. Mi sistema está desarrollado en Clipper 5.2 y corre bajo Windows 98 2E. Gracias de antemano.
  Respuesta:  luis torres
El problema, según dice la ayuda en línea ( NG ) es: "Error en el ancho de los datos". El valor asignado a una variable FIELD numérica no pudo sr representado con exactitud en el ancho del campo especificado por la estructura de la base de datos.

Solución para el SORT:
Cambiar el programa para suprimir valores inválidos o modificar la estructura del archivo de la base de datos (.DBF) para permitir valores mas grandes.

Solución para INDEXACION :

Cuando desees generar una clave con campos de distintos tipos, debes transformar todos los campos a un mismo tipo ( caracter ), por ejempo, si tienes una tabla con los siguientes campos:

campo1 Character 10
campo2 Numeric 10 0
campo3 date 8

para generar el índice puedes hacerlo :

index on campo1 + str(campo2) + dtoc( campo3 ) to ......

y luego para buscar un registro en la tabla

seek campo1 + str(campo2) + dtoc( campo3 )

Espero que te sirva, si tienes alguna duda, escríbeme.

    Pregunta:  17638 - UTILIZAR ARCHIVOS EN RED CON CLIPPER 5.3
Autor:  MAURICIO GUTIERREZ SEGUEL
NECESITO QUE MIS PROGRAMAS FUNCIONEN EN ENTORNO DE RED, ESTARÍA MUY AGRADECIDO SI ALGUIEN ME MANDA UN EJEMPLO DE COMO HACERLO. ¡ URGENTE POR FAVOR !
  Respuesta:  Enrique Saavedra
Bueno es pero poder colaborarte

USE maestro SHARED NEW
SET INDEX TO maestro1,maestro2

EL SHARED es el modo compartido y los indices tienes que abrirlos como esta arriba, ahora para bloquear cuando haces un APPEND

DBSELECTAREA("maestro")
IF FLOCK()
DBAPPEND()
REPLACE cedula WITH m__cedula
maestro->(DBCOMMIT())
UNLOCK
ENDIF

El FLOCK() bloque el archivo completo para adicionar un registro, ahora para modificar registro o eliminar perso solo marcado se utiliza el siguiente comando

DBSELECTAREA("maestro")
DBSEEK(m__cedula)
IF FOUND()
IF RLOCK()
REPLACE nombre WITH m__nombre
maestro->(DBCOMMIT())
UNLOCK
ENDIF
ENDIF

Espero y te sirva el ejemplo cualquier cosa escribeme

Nos vemos y Suerte

|<  <<  24 25 26 27 28 29 30 31 32 33 34  >>  >|