Inicialmente teremos que ter;
No evendo onclick do botão importar coloque os seguintes códigos.
- 01 memo,
- 03 buttons (Abrir, importar e sair),
- 01 label,
- 01 progress bar,
- 01 opendialog.
No evendo onclick do botão importar coloque os seguintes códigos.
- Código:
procedure TFormImportaProdAmb.BitBtn2Click(Sender: TObject);
var vCount,i:integer;
begin
Dm1.QryChekComp.Close;
Dm1.QryChekComp.ParamByName('BpaComp').AsString := Copy(Memo1.Lines.Strings[1],8,6);
Dm1.QryChekComp.ParamByName('EstabCod').AsString := Copy(Memo1.Lines.Strings[i],1,7);
Dm1.QryChekComp.Open;
If Dm1.QryChekComp.RecordCount>0 Then
Begin
ShowMessage('Competencia já importada, Selecione uma competencia valida');
LimpaForm;
Abort;
End
else
begin
Repaint;
vCount := Memo1.Lines.Count;
for i := 1 to Memo1.Lines.Count -1 do
Begin
If vCount <> 0 Then
Begin
Dm1.QryInsProdAmb.ParamByName('EstabCod').AsString := Copy(Memo1.Lines.Strings[i],1,7);
Dm1.QryInsProdAmb.ParamByName('ProcDtComp').AsString := Copy(Memo1.Lines.Strings[i],8,6);
Dm1.QryInsProdAmb.ParamByName('BpaComp').AsString := Copy(Memo1.Lines.Strings[i],8,6);
Dm1.QryInsProdAmb.ParamByName('BpaCns').AsString := Copy(Memo1.Lines.Strings[i],14,15);
Dm1.QryInsProdAmb.ParamByName('CboCod').AsString := Copy(Memo1.Lines.Strings[i],29,6);
Dm1.QryInsProdAmb.ParamByName('BpaDtBpi').AsString := Copy(Memo1.Lines.Strings[i],35,8);
Dm1.QryInsProdAmb.ParamByName('ProcCod').AsString := Copy(Memo1.Lines.Strings[i],48,10);
Dm1.QryInsProdAmb.ParamByName('BpaSexo').AsString := Copy(Memo1.Lines.Strings[i],73,1);
Dm1.QryInsProdAmb.ParamByName('BpaIdade').AsInteger := StrToInt( Copy(Memo1.Lines.Strings[i],84,3));
Dm1.QryInsProdAmb.ParamByName('BpaQtde').AsInteger := StrToInt(Copy(Memo1.Lines.Strings[i],87,6));
Dm1.QryInsProdAmb.ParamByName('BpaTipoAtm').AsString := Copy(Memo1.Lines.Strings[i],149,1);
Dm1.QryInsProdAmb.ExecSQL;
Label1.Caption :='Aguarde enquanto o sistema importa os dados : '+ IntToStr(i + 1);
Label1.Refresh;
ProgressBar1.Max :=vCount;
ProgressBar1.Position :=i;
Sleep(01);
end;
end;
ShowMessage('Foram Importados '+IntToStr(vCount)+' Procedimentos');
end;
end;