Untitled

public text v1 · immutable

#412942

·published 2007-03-28 01:21 UTC

//Converte os Dados de PDB para TXT
If FileExists('P:\000179\dbItensPedido.pdb') Then
begin
  ShellExecute(0,nil,'C:\pdbcvt.exe','P:\000179\dbPedidoPalm.pdb P:\000179\dbPedidoPalm.txt /crID:EASY /name:dbPedidoPalm' ,nil,sw_hide);
  ShellExecute(0,nil,'C:\pdbcvt.exe','P:\000179\dbItensPedido.pdb P:\000179\dbItensPedido.txt /crID:EASY /name:dbItensPedido' ,nil,sw_hide);
  Exit;
End;

If FileExists('P:\000211\dbItensPedido.pdb') Then
begin
  ShellExecute(0,nil,'C:\pdbcvt.exe','P:\000211\dbPedidoPalm.pdb P:\000211\dbPedidoPalm.txt /crID:EASY /name:dbPedidoPalm' ,nil,sw_hide);
  ShellExecute(0,nil,'C:\pdbcvt.exe','P:\000211\dbItensPedido.pdb P:\000211\dbItensPedido.txt /crID:EASY /name:dbItensPedido' ,nil,sw_hide);
  Exit;
End;