FiveTech Software tech support forums

... del acreedor (AT-02) con un máximo de 35 caracteres, debe tener la siguiente estructura: AA codigo del pais ("ES" para España) DD dígito de control (a calcular segun mod-97-10) SSS sufijo acreedor (normalmente 000) NNNNNNNNN (nif del acreedor) y hasta 35 caracteres si quieres añadirle ...

... consiste en que hay un programa que genera datos en un fichero muy grande y necesito ir separando los comando (alfabético solo) de sus valores (dígitos decimales). Como es un volumen muy grande de datos necesito una función C que lo haga lo más rápido posible, y se nota de hecho que es más rápido ...

Hola amigos,

¿Alguien tiene una función para validar códigos de barra EAN13, calculando el dígito de control?.

Aquí está en C, pero no se como hacerlo en Harbour.
http://latecladeescape.com/t/Validar+c%C3%B3digos+EAN

Muchas gracias!!.

Exacto Antonio, si la variable es de tipo caracter, pulsas en el teclado y no borra lo anterior, y si es de tipo numérico, cada vez que escribes un dígito borra lo anterior, con lo cual es el efecto que tu indicas. Yo lo que busco es que sobre una variable numerica, poder escribir un número cualquiera, ...

Mike,

te refieres a que solo permite escribir un dígito ?

... He quitado la coma en las dos líneas de TCALC, (188 y 227). Queda así la 188: REDEFINE BUTTON oBtnDel ID 426 OF oDlg MESSAGE 'Borra último dígito'; ACTION (::cUltima:='CE' ,; iif(::cUltimaOp='=' .or. ::cUltimaOp='AP' .or. ::cUltimaOp='AE',(::cUltimaOp:='',::nResult:=0,aadd( ::aRolloCalc, ...

... reside en un determinado directorio, y con ese nombre de directorio no funciona el código expuesto, modifico aunque sea añadiendo un caracter o dígito al nombre del directorio compilo y linko de nuevo, y voalá, todo funciona. ¿Alguien podria decirme a que se podría deber este expediente X? Muchas ...

... 5.60, nAlto * 0.25 @ nx + nAlto, ny - ( nAncho * 08.00 ) SAY LEFT ( CodePEP, 1 ) FONT oFont SIZE 020, 20 OF oDlg PIXEL COLOR nColor && El Dígito que va a la Izquierda @ nx + nAlto, ny + ( nAncho * 03.00 ) SAY SUBSTR ( CodePEP, 2, 6 ) FONT oFont SIZE 100, 20 OF oDlg PIXEL COLOR nColor && ...

Con el siguiente código intento que al introducir cada dígito de un número en un get suene una nota, pero no logro que funcione. REDEFINE GET oGet VAR nGet ID 406 OF oDlg FONT oFont1Get; PICTURE '999.99'; COLOR ClrLtrGet,ClrFonGet; ON CHANGE (self:assign(),iif(lSuenaTeclas,suenanumero(nKey),.f.)); ...

... de datos común para hacer mantenimiento a un archivo de Presupuestos mensuales con total acumulado. Para el ejemplo, tipeo en la cuenta cualquier dígito y en la rutina de “Co130ChCta” lleno el array “tPre” con el último dígito de la cuenta para el 1er mes y lo incremento para los sucesivos, pero ...

Code: Select all  Expand view

How to reproduce the error ?


É como descrevi:
Selecionar o primeiro dígito (SHIFT+Seta Direita), inserir outro.

Code: Select all  Expand view

de: (antes deve selecionar o primeiro digito)
// @R 99.999-999
12.345-678
ficará: (digitado o numeor 4)
4..45--78


Olá Antonio.. Percebi que ao selecionar o primeiro dígito (SHIFT + SETA) e inserir outro, bagunça a máscara na tela, e fazendo parte no valor da variável. Exemplo: cSeek:=SPACE(08) @ 7, 8 GET cCep PICTURE '@R 99.999-999" Isso ...

... "Mostrando um Velocimetro/Cronômetro" oDlg:lHelpIcon := .F. //--------------------Área do DisPlay do Cronômetro------------------------ /* Cada dígito é de 34 x 48 */ /* Copie o "DisPlay.Bmp" de \FW..\BitMaps\ Para o Seu Diretório de Uso */ @ 002, 001 SAY 'Contador : ' OF oDlg @ 000, 000 BITMAP ...