Error al calcular una factura

[[coso]]

hola,

Código Delphi [-]
procedure TFFacturacion.BSeleccionarClick(Sender: TObject);
begin
        FRegistroclient:=TFRegistroclient.Create(self);   
        try    
           FRegistroclient.ShowModal;   
        finally   
           If FRegistroclient.Nom_Cliente <> '' then EdiCliente.Text := FRegistroclient.Nom_Cliente;   
           LabDireccion.Caption:= QuotedStr(FRegistroclient.Direccion);   
           FRegistroclient.Free;   
        end;
end;

esto te dara excepcion la segunda vez q lo uses

PD : si vamos a hablar, por favor, usa una letra normal, no uses ninguna etiqueta para tus escritos, usa etiquetas [ delphi],[ /delphi] para el codigo, y [ quote], [/ quote] para comentarios sobre mensajes anteriores

[[coso]]

otro detalle, te esta llamando continuamente al timer TFSplash.Timer1Timer, aun cuando no hay ningun splash visible

[[coso]]

Antes de poner la sql.text, deberias hacer QFacturacion.Active := false;
usando la opcion uno, los valores reales que transformas a string NO deben ir con el quotedstr.

[[coso]]

antes del execsql, podrias hacer

Código Delphi [-]
showmessage(QFacturacion.SQL.Text)

, y miras si es todo correcto, a ver si es que estas construyendo mal la cadena por alguna variable.

[[coso]]

Bueno creo q el problema q tenias antes era ese, el de poner en quotedstr los valores decimales... desde mi pc no puedo ni insertar facturas ni clientes, estan todas las tablas cerradas, no se si es por el usuario o bien por otra cosa...si tienes alguna duda concreta, exponla q le echamos un vistazo saludos.

[[coso]]

PD: el skin del form principal, precioso creo q lo voy a guardar

[Yensis22]

Tiene que realizar

Realisar la connexion de ODBC por panel de control/ Herramientas administrativas/Orígenes de datos (ODBC)/DNS Sitem/agregar/Microsoft Accesss drive(*dma) y le pone nombre DB y seleciona el lugad donde esta la base de dtao tine que poner la carpeta en c:\

[Yensis22]

en la ejecucion

Ya realice eso cambio pero cunado lo ejecuto manda este error (error de sistanxis (falta operador en la expresión de consulta " D?").
en el botón de los cálculos y en el de busqueda que me trael el otro form me lo trae pero no me inserta ningún dato.

[Yensis22]

Aqui esta la base dede datos sola
para que la baje y la haga la prueba
http://www.4shared.com/file/61518389...cturacion.html

[Yensis22]

ya me esta realisando los calculos
muchas gracas por lalucha que les dado con ese codigo

Por otra parte de este mismo from de factura yo tengo un botón busca, que lo que yo quiero que el me realice es que cunado yo lo llame me traiga otro from eso el me lo hace bien, pero que cuando yo le de le de clic a un cliente este me lo inserte en el edit de cliente de la factura esto lo que no me esta haciendo este es el código que tengo es este botón esta variable Nom_Cliente esta de clarada como publica Nom_Cliente: string; en el otro from que se llama FRegistroclient. este es el codigo del boton que me trael en from de del cliete.

Código Delphi [-]
procedure TFFacturacion.BSeleccionarClick(Sender: TObject);
begin
FRegistroclient:=TFRegistroclient.Create(self);
   try
    FRegistroclient.ShowModal;
   finally
   If FRegistroclient.Nom_Cliente <> '' then
   EdiCliente.Text := FRegistroclient.Nom_Cliente;
   LabDireccion.Caption:= QuotedStr(FRegistroclient.Direccion);
   FRegistroclient.Free;
   end;
end;

[[coso]]

hola yensis...si sigues haciendo lo del quote, lo siento pero no te respondere mas. En cuanto a lo del cliente, lo mejor sera que hagas un 'breakpoint' (f5) justo en FRegistroclient.showmodal, con las opciones de debug activadas (project->options->compiler options->debug options) Pulsando f9 primero y luego f7,f8, podras ir siguiendo el recorrido del programa dentro de FRegistroClient. Mediante Ctrl+F5, puedes vigilar el valor de cierta variable durante este recorrido. Asi, hasta que cierras FRegistroClient, podras saber si se mantiene y si se pasa correctamente al edit. saludos.