View Complete Thread | FoxWeb Forum Home
Search:
Date:    Msg ID:   
From:    Thread:   
Subject:   
Pulling out my already falling out hair. I have the same code in two places on one FWX and it runs well in one pleace but not in the other. I have been working on this for two days.
 
SHIPPIT:
<%MergedText = TEXTMERGE(M.LNOTES, .F.)%>
<A HREF="PRINTIT.FWX?mletter=<%=(MergedText)%>" TARGET="_BLANK">[Print]</A>
 
DISCUSSION:
In one place I get the URL [Print] as expected and MergedText is passsed as expected. In another location on the same page, the whole text from the memo field with merged text prints in the column instead of the link.
 
CODE:
<%DO CASE%>
  <%CASE M.LETVIEW = "VCLCAASPR"%>
    <TABLE CELLSPACING=1 width=100%>
      <TR>
        <TD CLASS=PBSfields1 ALIGN="CENTER"><B>Client</B></TD>
        <TD CLASS=PBSfields1 ALIGN="CENTER"><B>Case Status</B></TD>
        <TD CLASS=PBSfields1 ALIGN="CENTER"><B>Provider</B></TD>
        <TD CLASS=PBSfields1 ALIGN="CENTER"><B>Action</B></TD>
     </TR>
     <%FOR I = 1 TO lnRecs%>
     <%GO I%>
       <TR>
         <TD CLASS=PBSfields1 VALIGN="TOP">
           <%=ALLTRIM(CLFNAME)+" "+ALLTRIM(CLLNAME)%>
         </TD>
         <TD CLASS=PBSfields1 VALIGN="TOP">
           Status#:&nbsp;<%=ALLTRIM(CASTATUS)%><BR>
           Case#:&nbsp;<%=ALLTRIM(CACASENO)%><BR>
           Intake:&nbsp;<%=DTOC(CAintdate)%><BR>
           Referred:&nbsp;<%=DTOC(CArefdate)%>
         </TD>
         <TD CLASS=PBSfields1 VALIGN="TOP">
           <%=ALLTRIM(PRFNAME)+" "+ALLTRIM(PRLNAME)%><BR>
           Status:&nbsp;<%=ALLTRIM(PRACTIVE)%><BR>
           Firm:&nbsp;<%=ALLTRIM(PRFNAME)%><BR>
           Panel:&nbsp;<%=ALLTRIM(PRPANEL)%>
         </TD>
         <TD CLASS=PBSfields1 VALIGN="TOP">
             THIS WORKS BY PLACING A LINK IN THE COLUMN
           <%MergedText = TEXTMERGE(M.LNOTES, .F.)%>
           <A HREF="PRINTIT.FWX?mletter=<%=(MergedText)%>" TARGET="_BLANK">[Print]</A>
         </TD>
      </TR>
    <%ENDFOR%>
   </TABLE>
 <%CASE M.LETVIEW = "VCLCA"%>
   <TABLE CELLSPACING=1 width=100%>
    <TR>
     <TD CLASS=PBSfields1 ALIGN="CENTER"><B>Client</B></TD>
     <TD CLASS=PBSfields1 ALIGN="CENTER"><B>Case Status</B></TD>
     <TD CLASS=PBSfields1 ALIGN="CENTER"><B>Action</B></TD>
    </TR>
     <%FOR I = 1 TO lnRecs%>
      <%GO I%>
      <TR>
       <TD CLASS=PBSfields1 VALIGN="TOP">
        <%=ALLTRIM(CLFNAME)+" "+ALLTRIM(CLLNAME)%>
       </TD>
       <TD CLASS=PBSfields1 VALIGN="TOP">
        Status#:&nbsp;<%=ALLTRIM(CASTATUS)%><BR>
        Case#:&nbsp;<%=ALLTRIM(CACASENO)%><BR>
        Intake:&nbsp;<%=DTOC(CAintdate)%><BR>
        Referred:&nbsp;<%=DTOC(CArefdate)%>
       </TD>
       <TD CLASS=PBSfields1 VALIGN="TOP">
        THIS PRINTS THE WHOLE MEMO FIELD IN THE COLUMN
        <%MergedText = TEXTMERGE(M.LNOTES, .F.)%>
        <A HREF="PRINTIT.FWX?mletter=<%=(MergedText)%>" TARGET="_BLANK">[Prints]</A>
       </TD>
      </TR>
     <%ENDFOR%>
   </TABLE>
<%ENDCASE%>
Anyone have any idea what I am doing wrong?
 
JOe