ActiveDelphi

Não sei se entendi direito, seria isso ?

procedure TForm1.Button1Click(Sender: TObject);
var
st : TStringList;
i : Integer;
begin
st := TStringList.Create;
T ...

Colega, uma solução seria utilizar um CLIENTDATASET e gravar os cálculos. Imprimir no rave a partir do ClientDataset.

Espero ter ajudado.

Colega verifica se tem um espaço entre o ' e o FROM (pode ser este o problema).

' FROM TAB_PRODUTO'+
' left join TAB_CATEGORIA ON TAB_CATEGORIA.COD_CATEGORIA = TAB_PRODUTO.COD_CATE'+
' o ...

Colega, dê uma pesquisada sobre QRCompositeReport.

Colega, vê se ajuda:

cdsTb.Close;
cdsTb.Fields.Clear;
cdsTb.FieldDefs.Clear;

Colega, um simples exemplo:

update TABELA set NOME = '*'||NOME where NOME = 'JOAO'

Vai precisar por algumas informações no WHERE para alterar somente o que precisa.

procedure TForm1.Button2Click(Sender: TObject);
var
nDia,
nMes,
nAno:String;
begin
nDia := Copy(edit1.Text,Length(edit1.Text) - 1,2);
nMes := C ...

Colega, focando somente na questão do StringGrid.

Você precisa percorrer as linhas do StringGrid e ir gravando as informações no ClientDataset. Segue um simples exemplo.

for nLinha := ...

Colega o Quick Report tinha um problema conhecido, precisa instalar uma impressora no micro.

Espero ter ajudado.

Colega, se entendi direito:

Tem uma tabela de saldos ?
Se não tiver poderia gerar um select com a o saldo

SELECT SUM(VALOR) FROM SuaTabela where Data < PrimeiraDataDoRelatorio

Carregue u ...

Opa

Tem um primeiro IF Copy parece que não ficou completo, mas acredito que dá pra entender pelo próximo.

Colega, vê se ajuda:

Procedure Button1Click(Sender: TObject);
var
st : TStringList;
i : Integer;
begin
st := TStringList.Create;
Try
for i := 0 to s ...

Veja se a placa de rede não esta sendo desligada para economia de energia.

Colega, vê se ajuda:

procedure TForm1.Button1Click(Sender: TObject);
begin
edit3.Text := IntToStr(MinutesBetween(StrToTime(edit2.Text),StrToTime(edit1.Text& ...

Colega, vê se ajuda: https://portalrmfactory.com.br/ do Rodrigo Mourão.