VCPFldGetText
void VCPFldGetText(Word id, char *s);
//ENDH
/*************************************************
     Get the text of a field on the
     active form.

     id = user defined id of the field
     *s = char pointer where the result goes

     Example:
     ========

     char erg[32];
     VCPFldGetText(FLDREC, erg);

**************************************************/
void VCPFldGetText(Word id, char *s)
{
	FormPtr frmp;
	FieldPtr fldp;

	frmp=FrmGetActiveForm();
	fldp=FrmGetObjectPtr(frmp, FrmGetObjectIndex(frmp, id));
	if (FldGetTextPtr(fldp)>NULL){
		StrCopy(s, FldGetTextPtr(fldp));
	}
	else{
		s[0]=0;
	}
}
