Rollmobs 16.3

1
Mises à jours mineures pour ce mois de Mars 2016

Horoscope:

  • (1) A côté de la date accouchement, est précisé le signe du  zodiaque (Intérêt médical limité, mais ça plait aux mamans)

rollmobs_163

  • Calcul de l’age gestationnel selon la LCC
    • (2) Mise en place d’un Spinner plus ergonomique que le Tracker
  • Intégration au programme médical (Médycs) :
    • Passage des paramètres NOM, PRENOM, DATE DE NAISSANCE et AGE
    • Ce qui permet d’afficher un calendrier Gestationnel personnalisé

rollmobs_163_CAL

  • Le passage des paramètres doit se faire de cette façon :
"£SH : ddr#;£[SG : nom]#;£[SG : prénom]#;£[SG : date de naissance]#;£[SG : age]#"
  1. Double guillemets début et fin
  2. ; entre chaque champ
  3. dans l’ordre
    1. DDR
    2. NOM
    3. PRENOM
    4. DDN
    5. AGE
  • Exemple dans Médycs :
    • GynAdmin
      • Paramètres Globaux
        • Passerelle
          • Raccourcis (La ligne préformatée toute faite se récupère dans le menu OPTIONS de Rollmobs)

rollmobs_medycs

 

  • Possibilité de régler les Marges à l’impression

rollmobs_marges

Téléchargement
Bonus pour le programmeur
Horoscope

Retourne le signe du zodiaque attaché à la date

function Get_Zodiac(MaDate: Tdate): string;

var
  d, m: Integer;

begin

  m := monthof(MaDate);
  d := dayof(MaDate);

  // Selon le mois
  case m of
    1: // Janvier
      if d <= 19 then
        result := 'Capricorne'
      else
        result := 'Verseau';

    2:
      if d <= 19 then
        result := 'Verseau'
      else
        result := 'Poissons';

    3:
      if d <= 20 then
        result := 'Poissons'
      else
        result := 'Bélier';

    4:
      if d <= 19 then
        result := 'Bélier'
      else
        result := 'Taureau';

    5:
      if d <= 21 then
        result := 'Taureau'
      else
        result := 'Gémeaux';

    6:
      if d <= 21 then
        result := 'Taureau'
      else
        result := 'Cancer';

    7:
      if d <= 22 then
        result := 'Cancer'
      else
        result := 'Lion';

    8:
      if d <= 23 then
        result := 'Lion'
      else
        result := 'Vierge';

    9:

      if d <= 23 then
        result := 'Vierge'
      else
        result := 'Balance';

    10:

      if d <= 23 then
        result := 'Balance'
      else
        result := 'Scorpion';

    11:

      if d <= 23 then
        result := 'Scorpion'
      else
        result := 'Sagittaire';

    12:

      if d <= 22 then
        result := 'Sagittaire'
      else
        result := 'Capricorne';

  end;

end;
ParamStr
  • Le programme appelant injecte 1 seul paramètre divisé en plusieurs champs (Cela évite les égarements liés aux espaces dans les champs signalétique)
  • Cette routine sépare les champs dans la ligne  (équivalent de la fonction split)
    • La ligne est placée dans un StringList
    • Splittée par sa fonction intégrée DelimitedText
 procedure TForm1.FormCreate(Sender: TObject);
    var
      s:   string;
      TAB: TStringList;
      DDR: string;

    begin

      TAB := TStringList.Create;
    
      try
        if ParamCount > 0 then
          begin
            s := paramstr(1);

            TAB.Delimiter     := ';';
            TAB.DelimitedText := s;
            // affectation des param
            if TAB.Count > 0 then
              DDR := TAB[0];
            if TAB.Count > 1 then
              _NOM := TAB[1];
            if TAB.Count > 2 then
              _PRENOM := TAB[2];
            if TAB.Count > 3 then
              _DDN := TAB[3];
            if TAB.Count > 4 then
              _AGE := TAB[4];
      finally
        TAB.Free;
      end;
end;

More from my site

Un commentaire

  1. JC BlueGYN JC BlueGYN

    ===========================
    Mises à jour mineures : Avril 2016
    ===========================
    __________
    OPTIONS :
    – Ouvrir le calendrier au démarrage (ouvre directement sur la page “Calendrier”
    _______________
    Page Calendrier :
    – MENU : Copier (copie l’image du calendrier dans le presse papier)

Laisser un commentaire