Information générale
Catégorie:
Gestionnaire de rapports & Rapports
Julius - very generous of you to look at the code. I appreciate it. Unfortunately, I pasted many of the control characters directly from the SPECIAL CHARACTERS menu of FP so that don't show on the code. If you can make any sense of this,great. If not, that's ok.
IF PETFILE.SPECIES = 'D' OR PETFILE.SPECIES = 'F'
? ' Pets Name: ' + PETFILE.pet_name
?? ' Owners Name: ' + TRIM(clntfile->last_name) + ', '+ ALLT(CLNTFILE.FIRST_NAME)
?
? ' Breed: ' + PETFILE.breed + ' Address: '+clntfile->street
? ' '+ spac(42) + TRIM(clntfile->city)+', '+clntfile->state + ' '+ STR(clntfile->zip,5,0)
?
? ' D.O.B.: ' + DTOC(PETFILE.dob)+SPAC(13)
?? 'Office Phone: '
?? clntfile->mrwrkphone FUNC "@R (999) 999-9999 ET. 9999"
? ' '
? ' Sex: '+PETFILE.sex+SPAC(24)
??'Name: '
?? clntfile.spouse_nam + iif(len(allt(clntfile.spouse_las)) # 0, ' '+ Allt(clntfile.spouse_las),'')
? ' '
? ' Color: '+PETFILE.COLOR+SPAC(9)
?? 'Office Phone: '
?? clntfile.MRSwkphone FUNC "@R (999) 999-9999 ET. 9999"
?
? spac(34) + 'Home Phone: '
?? CLNTFILE.AREACODE FUNC "@R (999)"
?? ' '
?? CLNTFILE.HOME_PHONE PICT '999-9999'
?
? ' Date No. Problem Date No. Problem'
? 'Ú' + REPL(CHR(196),8)+'Â' + REPL(CHR(196),3) + 'Â'+REPL(CHR(196),24) +'Â' + REPL(CHR(196),8)+'Â' + REPL(CHR(196),3) + 'Â'+REPL(CHR(196),25)+ '¿'
FOR N = 1 TO 16
? '³ ³ ³ ³ ³ ³ ³'
?'Ã'+REPL(CHR(196),8)+'Å'+REPL(CHR(196),3)+'Å'+REPL(CHR(196),24)+'Å'+REPL(CHR(196),8)+'Å'+REPL(CHR(196),3)+'Å'+REPL(CHR(196),25)+ '´'
ENDFOR
? '³ ³ ³ ³ ³ ³ ³'
? 'À' + REPL(CHR(196),8)+ 'Á' + REPL(CHR(196),3) + 'Á' + REPL(CHR(196),24) + 'Á' + REPL(CHR(196),8) + 'Á' + REPL(CHR(196),3) + 'Á' + REPL(CHR(196),25) + +'Ù'
? 'Ú' + REPL(CHR(196),10) + 'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+REPL(CHR(196),5)+'¿'
? '³D-H-L-P-P ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'
? 'Ã' + REPL(CHR(196),10)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+'´'
? '³Rabies ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'
? 'Ã' + REPL(CHR(196),10)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+'´'
? '³Intra Trac³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'
? 'Ã' + REPL(CHR(196),10)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+'´'
? '³Lymes ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'
? 'Ã' + REPL(CHR(196),10)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+'´'
? '³Stool ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'
? 'Ã' + REPL(CHR(196),10)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+'´'
? '³Heartworm ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'
? 'Ã' + REPL(CHR(196),10)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+'´'
? '³Weight ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'
? 'À'+ REPL(CHR(196),10)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5) + 'Ù'
ELSE
? ' Pets Name: ' + PETFILE.pet_name
?? ' Owners Name: ' + TRIM(clntfile->last_name) + ', '+ ALLT(CLNTFILE.FIRST_NAME)
?
? ' Breed: ' + PETFILE.breed + ' Address: '+clntfile->street
? ' '+ spac(42) + TRIM(clntfile->city)+', '+clntfile->state + ' '+ STR(clntfile->zip,5,0)
?
? ' D.O.B.: ' + DTOC(PETFILE.dob)+SPAC(13)
?? 'Office Phone: '
?? clntfile->mrwrkphone FUNC "@R (999) 999-9999 ET. 9999"
? ' '
? ' Sex: '+PETFILE.sex+SPAC(24)
??'Name: '
?? clntfile.spouse_nam + iif(len(allt(clntfile.spouse_las)) # 0, ' '+ Allt(clntfile.spouse_las),'')
? ' '
? ' Color: '+PETFILE.COLOR+SPAC(9)
?? 'Office Phone: '
?? clntfile.Mrswkphone FUNC "@R (999) 999-9999 ET. 9999"
?
? spac(34) + 'Home Phone: '
?? CLNTFILE.AREACODE FUNC "@R (999)"
?? ' '
?? CLNTFILE.HOME_PHONE PICT '999-9999'
?
? ' Date No. Problem Date No. Problem'
? 'Ú' + REPL(CHR(196),8)+'Â' + REPL(CHR(196),3) + 'Â'+REPL(CHR(196),24) +'Â' + REPL(CHR(196),8)+'Â' + REPL(CHR(196),3) + 'Â'+REPL(CHR(196),25)+ '¿'
FOR N = 1 TO 19
? '³ ³ ³ ³ ³ ³ ³'
?'Ã'+REPL(CHR(196),8)+'Å'+REPL(CHR(196),3)+'Å'+REPL(CHR(196),24)+'Å'+REPL(CHR(196),8)+'Å'+REPL(CHR(196),3)+'Å'+REPL(CHR(196),25)+ '´'
ENDFOR
? '³ ³ ³ ³ ³ ³ ³'
? 'À' + REPL(CHR(196),8)+ 'Á' + REPL(CHR(196),3) + 'Á' + REPL(CHR(196),24) + 'Á' + REPL(CHR(196),8) + 'Á' + REPL(CHR(196),3) + 'Á' + REPL(CHR(196),25) + +'Ù'
? 'Ú' + REPL(CHR(196),10) + 'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+REPL(CHR(196),5)+'¿'
? '³FVRC-P ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'
? 'Ã' + REPL(CHR(196),10)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+'´'
? '³Rabies ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'
? 'Ã' + REPL(CHR(196),10)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+'´'
? '³Leukemia ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'
? 'Ã' + REPL(CHR(196),10)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+'´'
? '³Weight ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'
? 'À'+ REPL(CHR(196),10)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5) + 'Ù'
ENDIF
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement