Transform Legacy Code Into Modern Applications

Delphi — as it is today

1. procedure TfrmClientes.btnGuardarClick(Sender: TObject);
2. var saldo: Double;
3. begin
4. saldo := StrToFloat(edtSaldo.Text);
5. if saldo > 1000000 then
6. begin
7. ShowMessage('Requiere aprobacion del gerente');
8. Exit;
9. end;
10. Query1.SQL.Text := 'UPDATE Clientes SET Saldo = :s WHERE Id = :id';
11. Query1.ExecSQL;
12. end;

COBOL — as it is today

1. PROCEDURE DIVISION.
2. VALIDAR-LIMITE.
3. IF SALDO-CLIENTE > 1000000
4. MOVE 'REQUIERE APROBACION' TO WS-MENSAJE
5. PERFORM MOSTRAR-ERROR
6. GO TO FIN-VALIDAR
7. END-IF.
8. EXEC SQL
9. UPDATE CLIENTES SET SALDO = :SALDO-CLIENTE
10. WHERE ID = :ID-CLIENTE
11. END-EXEC.
12. FIN-VALIDAR.
13. EXIT.

VB6 — as it is today

1. Private Sub cmdGuardar_Click()
2. Dim saldo As Double
3. saldo = CDbl(txtSaldo.Text)
4. If saldo > 1000000 Then
5. MsgBox "Requiere aprobacion del gerente"
6. Exit Sub
7. End If
8. cn.Execute "UPDATE Clientes SET Saldo = " & saldo & _
9. " WHERE Id = " & lblId.Caption
10. End Sub

PowerBuilder — as it is today

1. event clicked; // cb_guardar
2. decimal ld_saldo
3. ld_saldo = dec(sle_saldo.text)
4. IF ld_saldo > 1000000 THEN
5. MessageBox("Aviso", "Requiere aprobacion del gerente")
6. RETURN
7. END IF
8. UPDATE clientes SET saldo = :ld_saldo WHERE id = :il_id;
9. COMMIT USING SQLCA;
10. end event