Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Printing Report
Message
General information
Forum:
Visual FoxPro
Category:
Troubleshooting
Title:
Miscellaneous
Thread ID:
00230366
Message ID:
00230371
Views:
22
HERE IS THE SQL STATEMENT:

SELECT CSR AS CSR,"American Modern Insurance Group(A rated, Admitted)" as carrier,;
n_boat_value AS BOAT_VALUE,SPACE(20) AS WATERSKI, 350 AS TOWING, ;
nUNINSURED AS UNINSURED, nTrkr_value AS TRLR_VALUE,BASEPREM AS BASEPREM,;
SUBTOT AS SUBTOT,nLIAB_PREM AS LIABPREM, MED_PREM AS MEDPREM,;
TRLR_PREM AS TRLR_PREM, M_EQ_PREM AS M_EQ_PREM, CRD_PREM AS CRD_PREM,;
M_EQ_PREM as M_EQ_PREM,UNINS_PREM AS UNINS_PREM,CREDITS AS CREDITS,;
l_SafetyEquip as S_Equip,PERS_PREM AS PERS_PREM,l_LIE AS LIE,;
nPers_Eff AS PERS_EFF, nMedPay AS MEDPAY,nPREM2D AS PREM2D,;
nPrem5D AS PREM5D, ALLTRIM(STR(quotes.quote_id)) AS QUOTE_ID,;
Vessel AS VESSEL,ag_name AS AG_NAME,ag_fax AS AG_FAX,ag_phone AS AG_PHONE,;
quotes.writer_id,ALLTRIM(LIABILITY.DETAIL) AS LIABILITY, ;
ALLTRIM(TERRITORY.DETAIL) AS TERRITORY,l_LIABONLY AS l_LIABONLY, ;
ALLTRIM(UNDERWRITER.F_NAME) + " " + ALLTRIM(UNDERWRITER.L_NAME) AS WRITER,;
UNDERWRITER.EXTENSION,ALLTRIM(DRIVERS.FNAME) +" " + ALLTRIM(DRIVERS.LNAME);
AS INSURED,"ACV" AS PL_TYPE,DED2D AS DED2D,SAFE_DR as safe_dr,;
DED5D AS DED5D,iLIAB_ID AS LIAB_ID,iTerr_id as Terr_id,l_SAFETY_CR AS ;
SC,l_TheftProtection AS THEFT_PROT,nP_AGE AS P_AGE,iHull_id AS HULL_ID,;
iBOAT_ID AS BOAT_ID,cOWNER AS cOWNER,TOT_MVR AS MVR, TOT_LOSS AS TOT_LOSS,;
nEXPERIENCE AS EXPERIENCE,nLENGTH AS LENGTH,cSTATE AS cSTATE,nHP AS HP,;
BOAT AS BOATTYPE, HULL AS HULLTYPE,n_amh_ded as amh_ded,nDiscretionary AS ;
DISC_CRD ;
FROM LIABILITY,TERRITORY,UNDERWRITER,DRIVERS,QUOTES;
WHERE LIABILITY.LIAB_ID == iLIAB_ID AND ;
LIABILITY.C_P_ID == PROG_ID AND ;
TERRITORY.C_P_ID == PROG_ID AND ;
TERRITORY.TERR_ID == iTERR_ID AND ;
UNDERWRITER.WRITER_ID == quotes.writer_id AND ;
DRIVERS.QUOTE_ID == iCUR_Q_ID and ;
DRIVERS.TYPE == "P" AND ;
QUOTES.QUOTE_ID == iCUR_Q_ID ;
GROUP BY quotes.quote_id ;
INTO TABLE C:\RATINGv5\OUTPUT
SELECT OUTPUT
IF _TALLY = 0
WAIT WINDOW "No record was found."
RETURN
ELSE
ALTER TABLE OUTPUT ADD COLUMN BINDING M NULL
ALTER TABLE OUTPUT ADD COLUMN EXTRA M NULL
SELECT OUTPUT
UPDATE OUTPUT SET BINDING = BIND_R,EXTRA = EX_R WHERE !EMPTY(alltrim(QUOTE_ID))
ENDIF
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform