*--------------------------------------
SET DEBUG OFF
SET ECHO OFF
*
SET BELL OFF
SET CENTURY ON
SET CENTURY TO 19 ROLLOVER 30
SET CONFIRM ON
SET DATE FRENCH
SET DECIMAL TO 0
SET DELETED ON
SET DEVELOPMENT ON
SET DOHISTORY OFF
SET ESCAPE OFF
SET FIXED ON
SET HISTORY off
SET HOURS TO 24
*SET RESOURCE ON
SET SAFETY OFF
SET SCOREBOARD OFF
SET STATUS OFF
SET STATUS BAR OFF
SET STEP OFF
SET SYSFORMATS ON
SET SYSMENU OFF
SET TALK OFF
SET FUNCTION 2  TO ""
SET FUNCTION 3  TO ""
SET FUNCTION 4  TO ""
SET FUNCTION 5  TO ""
SET FUNCTION 6  TO ""
SET FUNCTION 7  TO ""
SET FUNCTION 8  TO ""
SET FUNCTION 9  TO ""
SET FUNCTION 10 TO ""
SET REFRESH TO 1,10
CLOSE DATABASES ALL
_SCREEN.AUTOCENTER=.T.
_SCREEN.CLOSABLE=.T.
_SCREEN.WINDOWSTATE=2
*SET PATH TO c:\copost\ 	&& Définit le chemin d'accès à la base de données
SET PATH TO (CURDIR( ))  	
CLOSE DATABASES ALL
lcVorig = SPACE(05)
lcPays = "B "
DIMENSION tb_pays(4)
tb_pays(1) = "B "
tb_pays(2) = "CH"
tb_pays(3) = "F "
tb_pays(4) = "L "
lcCopo = SPACE(06)
lcCopoX = "999999"
lcLopo = SPACE(30)
lcLopoX = REPLICATE("Z",30)
SET MULTILOCKS ON
OPEN DATABASE copo SHARED

SELECT 0							&& Vue par code postal
USE vCopo NODATA SHARED 
CURSORSETPROP('buffering', 5)

SELECT 0							&& Vue par localité
USE vLopo NODATA SHARED 
CURSORSETPROP('buffering', 5)

DO FORM copost.scx

DO WHILE TXNLEVEL() > 0
	WAIT WINDOW "Nested Transaction ="+STR(TXNLEVEL(),3)+" Pressez une touche quelconque."
	END TRANSACTION
ENDDO
CLOSE DATABASES ALL

ON SHUTDOWN
ON ERROR
PUSH KEY CLEAR
SET SYSMENU TO DEFAULT
SET BELL ON
SET DELETED OFF
SET ESCAPE ON
SET HISTORY ON
SET FIXED OFF
SET SCOREBOARD ON
SET STATUS ON
SET TALK ON
RETURN