Programa de Facturacion, Inventarios, Produccion, Completo

[joarleco]

hola caral;
como estas disculpa pero la duda que te mencione hace rato ya fue aclarada desde hace tiempo , me puse a leer con detalle de ese error y me uno a los demas en agradecerte por compartir tu conocimiento y me alegro unirme al club, me gustaria eu me orientaras donde encontrar tutoriales para saber mas de delphi y me da mucho gusto qeu alla gente que apoye este lenguaje que para mi se me hace de lo mejor para realizar todo tipo de aplicaciones ...gracias.

[joarleco]

hola disculpen tengo dos dudas la primera:
en el programa de facturacion ya instale los componentes y me sige saliendo la leyenda
EconvertError
'0.00' is not a valid floating point value
no se que debo hacer mas ara que ya no me salga ese leyenda que mas se debe de instalar
la segunda quisiera saber las diferentes funciones que hay para convertir cadenas , por ejemplo mi interes es convertir un tipo de dato doble a integer.
muchas gracias.

[[Caral]]

Hola joarleco
Me alegro que estes probando el programa y ya haciendo los cambios que necesitas.
El error que mencionas es precisamente, aunque sin ver, me parece que ya hiciste algun cambio en la base de datos.
Si usas los componentes numedit, estos buscaran numeros o integer o float, dependiendo del componente, si modificas la tabla, pues el componente no funcionara.
Ahora, si no has modificado nada, el problema viene del windows, me explico:
En Panel de control, configuracion regional, opciones regionales, personalizar, vas a ver que los decimales estan con coma y los miles con punto, hay que cambiarlos, pones los decimales con punto y los miles tambien con punto, osea los dos.
La tabla y los componentes lo identifican asi.
No hay que instalar nada mas para que el programa funcione.
En cuanto a la conversion, se puede usar algo como:
FloatToInt
IntToFloat
ect.
Recuerda que si cambias algun tipo de dato, este no funcionara correctamente.
Saludos

[joarleco]

hola tengo un programa echo en delphi que da el nombre de cualquier numero pero los numeros por ejemplo separadas 2 230 que se leria como " dos mil docientos treinta " no lo quiere leer por que no puede leer el numero si se encuentra separado .. me gustaria compartir el archivo por que lo baje de internet . me gustaria saber como lo subo y ver si me pueden ayudar para qeu lo lea con el espacio o como puedo juntar un numero y moestrlo en un edit por ejemplo.... gracias.

[tenporal]

Saludos Joarleco

Lo primero que debes checar es que para que sea tomado como numero solamente debe tener digitos y el separados de decimales (en mexico es el punto, tengo entendido que en españa es la coma) y te pongo el siguiente ejemplo:

En un formulario nuevo, inserta dos cuadros de texto (edit), y un boton "salir " y otro boton "convertir"

Código PHP:

procedure TForm1.Button2Click(Sender: TObject);
var
//variable que contiene el codigo de error, si es cero no hay error
codigoerror:integer;
// variable que va a contener un numero con decimales
numero:real;
begin
// se trata de convertir el dato que existe en el edit1
VAL(EDIT1.Text,numero,codigoerror);
if codigoerror = 0 then //si es cero se convirtio en numero
edit2.Text := floattostr(numero)  // ahora lo convierto en texto
else
begin // si no se pudo realizar la conversion
showmessage('teclea un numero sin espacios');
edit1.SetFocus
end;
end; 


Yo programo en otros lenguajes, apenas estoy aprendiendo la sintaxis de Delphi, no se si tu problema es que los datos estan en un archivo (si es asi, deberias checar que realmente sean tomados como numero) o los tecleas en un programa (si es asi deberias validar la entrada de los datos numericos), bueno, espero que el codigo te sirva...

Hasta luego...

[DeG]

Empezado por joarleco

hola disculpen tengo dos dudas la primera:
en el programa de facturacion ya instale los componentes y me sige saliendo la leyenda
EconvertError
'0.00' is not a valid floating point value
no se que debo hacer mas ara que ya no me salga ese leyenda que mas se debe de instalar
la segunda quisiera saber las diferentes funciones que hay para convertir cadenas , por ejemplo mi interes es convertir un tipo de dato doble a integer.
muchas gracias.

La solución esta cambiando el FormCreate por este

procedure TFMainForm.FormCreate(Sender: TObject);

begin
DecimalSeparator:='.';//separador decimal
ThousandSeparator:=',';//separador de miles
ShortDateFormat:='dd/MM/yyyy';
// Muestra la pantalla de Login
FLogin:=TFLogin.Create(self);
try
FLogin.ShowModal;
finally
FLogin.Free;
end;

end;