PROCEDURE PG_GenererPasserelle_Releves(_FichierCSV est un booléen ,BSuppression est un booléen)

HLitPremier(PARAMETRE)

PG_InitailiserLesvariables_SAGE()
Brenvoyer est un booléen = Faux
HLitRecherchePremier(CLIENT,IDCLIENT,RELEVECLIENT.IDCLIENT)
SI HTrouve(CLIENT) = True ALORS
	
	HLitRecherchePremier(QUINZAINE,IDQUINZAINE,RELEVECLIENT.IDQUINZAINE)
	SI HTrouve(QUINZAINE) ALORS
		SI RELEVECLIENT.ReleveClientCMU = Faux ALORS
			Vs_LibelleEcriture = "VTES "+QUINZAINE.LibelleQuinzaine+" - "+CLIENT.NomClient
		SINON
			Vs_LibelleEcriture = "VTES CMU "+QUINZAINE.LibelleQuinzaine+" - "+CLIENT.NomClient
		FIN
		
		Vs_ReferenceDocument = QUINZAINE.LibelleQuinzaine
	FIN
	
	
	DateCompta est une chaîne = RELEVECLIENT.DateComptableReleve
	SI DateCompta = "" ALORS
		DateCompta = RELEVECLIENT.DateReleveClient
	FIN
	
	Vs_DatePiece = DateVersChaîne(DateCompta,"JJMMAA")
	Vs_DateEcheance = DateVersChaîne(RELEVECLIENT.DateEcheanceReleve,"JJMMAA")
	
	_MTTC est une monétaire = Arrondi(RELEVECLIENT.TotalTTCReleveClient)
	_MHTExo est une monétaire = Arrondi(RELEVECLIENT.TotalHTExonereTvaReleve)
	
	_MHTtaxable est une monétaire = Arrondi(RELEVECLIENT.TotalHTtaxableReleve)
	_MHTtaxable_Taux1 est une monétaire =0
	_MHTtaxable_Taux2 est une monétaire = 0
	
	_Mtaxe est une monétaire = Arrondi(RELEVECLIENT.TotalTaxeReleveClient)
	_Mtaxe_Taux1 est une monétaire = 0
	_Mtaxe_Taux2 est une monétaire = 0
	_MBIC est une monétaire = Arrondi(RELEVECLIENT.TotalBICReleve)
	
	EcartTTC est une monétaire
	
	SI PARAMETRE.TauxTaxe1 > 0 ET PARAMETRE.TauxTaxe2 > 0 ALORS
		REQ_REPARTITION_TVA_FACTURECLIENT.ParamIDreleveClient = RELEVECLIENT.IDRELEVECLIENT
		REQ_REPARTITION_TVA_FACTURECLIENT.ParamIDFactureClient = Null
		
		HExécuteRequête(REQ_REPARTITION_TVA_FACTURECLIENT,hRequêteDéfaut)
		POUR TOUT REQ_REPARTITION_TVA_FACTURECLIENT
			SI REQ_REPARTITION_TVA_FACTURECLIENT.TauxTaxeProduit = PARAMETRE.TauxTaxe1 ALORS
				_Mtaxe_Taux1 = Arrondi(REQ_REPARTITION_TVA_FACTURECLIENT.TotalTaxeFacture)
				_MHTtaxable_Taux1 = Arrondi(REQ_REPARTITION_TVA_FACTURECLIENT.TotalNetHTFacture)
			FIN
			
			SI REQ_REPARTITION_TVA_FACTURECLIENT.TauxTaxeProduit = PARAMETRE.TauxTaxe2 ALORS
				_Mtaxe_Taux2 = Arrondi(REQ_REPARTITION_TVA_FACTURECLIENT.TotalTaxeFacture)
				_MHTtaxable_Taux2 = Arrondi(REQ_REPARTITION_TVA_FACTURECLIENT.TotalNetHTFacture)
			FIN
		FIN
		
		EcartTTC  = _MTTC - (_MHTExo + _MHTtaxable_Taux1 + _MHTtaxable_Taux2 + _Mtaxe + _MBIC)
	SINON
		EcartTTC  = _MTTC - (_MHTExo + _MHTtaxable + _Mtaxe + _MBIC)
	FIN
	
	SI EcartTTC <> 0 ET Abs(EcartTTC) <= 2 ALORS
		_MHTExo = _MHTExo + EcartTTC
	FIN
	
	Vs_MontantTTC = _MTTC
	Vs_MontantHTExo = _MHTExo
	
	Vs_MontantHTTaxable = _MHTtaxable
	Vs_MontantHTTaxable_Taux1 = _MHTtaxable_Taux1
	Vs_MontantHTTaxable_Taux2 = _MHTtaxable_Taux2
	
	Vs_MontantTVA = _Mtaxe
	Vs_MontantTVA_Taux1 = _Mtaxe_Taux1
	Vs_MontantTVA_Taux2 = _Mtaxe_Taux2
	
	Vs_MontantRetenu = _MBIC
	
	SI BSuppression = True ALORS
		Vs_MontantTTC  = -1 * _MTTC
		Vs_MontantHTExo  = -1 * _MHTExo
		Vs_MontantHTTaxable  = -1 * _MHTtaxable
		Vs_MontantTVA  = -1 * _Mtaxe
		Vs_MontantRetenu  = -1 * _MBIC
		
		Vs_MontantHTTaxable_Taux1 = -1 * _MHTtaxable_Taux1
		Vs_MontantHTTaxable_Taux2 = -1 * _MHTtaxable_Taux2
		
		Vs_MontantTVA_Taux1 = 1 * _Mtaxe_Taux1
		Vs_MontantTVA_Taux2 = 1 * _Mtaxe_Taux2
	FIN
	
	HLitRecherchePremier(TOURNEE,IDTOURNEE,CLIENT.IDTOURNEE)
	SI HTrouve(TOURNEE) ALORS
		Vs_AgenceClient = TOURNEE.IDAGENCE
	FIN
	
	Vs_NumeroDocument = RELEVECLIENT.NumeroReleveClient
	Vs_CompteTiers = CLIENT.NumeroCompteTiers
	
	SAGE_IDElement = RELEVECLIENT.IDRELEVECLIENT
	SAGE_TypeDoc = 2
	SAGE_IDBuro = 0
	SAGE_IDMotif = 0
	SAGE_IDFamille = 0
	SAGE_IDModeExp = 0
	
	Vs_TypeJournal  = C_TYPE_ECRITURE_VENTES
	SI RELEVECLIENT.ReleveClientCMU = True ALORS
		Vs_TypeJournal = C_TYPE_ECRITURE_VENTES_CMU
	FIN
	
	SI _FichierCSV = Faux ALORS
		Brenvoyer = PG_INTEGRATION_SAGE()
	SINON
		Brenvoyer = PasserelleSAGE()
	FIN
FIN

RENVOYER Brenvoyer


///////////////////////////////////

PROCEDURE PG_InitailiserLesvariables_SAGE()

Vs_TypeJournal = 0
Vs_AgenceClient = 0
Vs_DatePiece = ""
Vs_DateEcheance = ""
Vs_NumeroDocument = ""
Vs_LibelleEcriture = ""
Vs_MontantTTC = ""
Vs_MontantHTExo = ""
Vs_MontantRetenu = ""


Vs_MontantFraisAssurance = ""
Vs_MontantFraisExp = ""

Vs_MontantHTTaxable = ""
Vs_MontantHTTaxable_Taux1 = ""
Vs_MontantHTTaxable_Taux2 = ""

Vs_MontantTVA = ""
Vs_MontantTVA_Taux1 = ""
Vs_MontantTVA_Taux2 = ""

Vs_MontantApresRetenu = ""
Vs_NumeroDocument = ""
Vs_ReferenceDocument = ""
Vs_ModeReg = ""
Vs_CompteTiers = ""
Vs_MontantPreacheminement = ""
Vs_MontantFraisTransit = ""


////////////////////////////////////////////////////////////////////////////////////////


PROCEDURE PasserelleSAGE()

/// Valeur
//// 1 - Factures
//  2 - Releve CLIENT
//  3 - Regelement
//  4 - Escomptes
//  5 - Ristournes
//  6 - Correction de stock
//  7 - Bon de livraison
//  8 - Reclamation FOURNISSEUR
//  9 - Transfert intersite
// 10 - Contrat Mediciel
// 10 - Paiement Escomptes/Rist


HLitPremier(PARAMETRE_UNIQUEAGENCE)

SI PARAMETRE_UNIQUEAGENCE.CheminDossierComptable <> "" ALORS
	
	NumCompteTiers est une chaîne  = Vs_CompteTiers
	
	IDFiles est un entier
	
	SI Vs_TypeJournal = 1 ALORS
		IDFiles = fOuvre(PARAMETRE_UNIQUEAGENCE.CheminDossierComptable+"VENTES_"+PG_DateServeur()+".txt",foAjout+foLectureEcriture)
		SI IDFiles = -1 ALORS		
			IDFiles = fCrée(PARAMETRE_UNIQUEAGENCE.CheminDossierComptable+"VENTES_"+PG_DateServeur()+".txt",foAnsi)
		FIN
	SINON
		IDFiles = fOuvre(PARAMETRE_UNIQUEAGENCE.CheminDossierComptable+"DIVERS_"+PG_DateServeur()+".txt",foAjout+foLectureEcriture)
		SI IDFiles = -1 ALORS		
			IDFiles = fCrée(PARAMETRE_UNIQUEAGENCE.CheminDossierComptable+"DIVERS_"+PG_DateServeur()+".txt",foAnsi)
		FIN
	FIN
	
	CodJournal,NumCompteGeneral,MontDebit,MontCredit sont des chaînes
	Lettrage est une chaîne = "   "
	
	TANTQUE Taille(Vs_DateEcheance) < 6
		Vs_DateEcheance += " "
	FIN
	
	NumPiece est une chaîne
	TANTQUE Taille(NumPiece) < 13
		NumPiece += " "
	FIN
	
	NumCompteTiers = Gauche(NumCompteTiers,20)
	TANTQUE Taille(NumCompteTiers) < 20
		NumCompteTiers += " "
	FIN
	
	NumCompteTierVide est une chaîne = ""
	
	SI PARAMETRE.PaysSociete = CodeTG ALORS
		TANTQUE Taille(NumCompteTierVide) < 20
			NumCompteTierVide += " "
		FIN
	SINON
		//TANTQUE Taille(NumCompteTierVide) < 17
		TANTQUE Taille(NumCompteTierVide) < 20
			NumCompteTierVide += " "
		FIN
	FIN
	
	Vs_LibelleEcriture = Gauche(Vs_LibelleEcriture,35)
	TANTQUE Taille(Vs_LibelleEcriture) < 35
		Vs_LibelleEcriture += " "
	FIN
	
	
	PG_ExecuteRequeteSchema(Vs_TypeJournal,Vs_AgenceClient)
	
	POUR TOUT REQ_SCHEMACOMPTABLE_ECRITURE
		
		CodJournal = REQ_SCHEMACOMPTABLE_ECRITURE.CodeJournalComptable
		TANTQUE Taille(CodJournal) < 6
			CodJournal += " "
		FIN
		
		NumCompteGeneral = REQ_SCHEMACOMPTABLE_ECRITURE.NumeroCompteGeneralComptable
		TANTQUE Taille(NumCompteGeneral) < 13
			NumCompteGeneral += " "
		FIN		
		
		MontAMvter est un entier = 0
		
		SI REQ_SCHEMACOMPTABLE_ECRITURE.TypeMvtDebitCredit = 1 ALORS
			MontDebit = PG_AffecterMontant_SelonType(REQ_SCHEMACOMPTABLE_ECRITURE.TypeMontant)
			MontCredit = " "
			MontAMvter = MontDebit
		SINON
			MontCredit = PG_AffecterMontant_SelonType(REQ_SCHEMACOMPTABLE_ECRITURE.TypeMontant)
			MontDebit = " "
			MontAMvter = MontCredit
		FIN
		
		SI MontAMvter < 0 ALORS
			MontAMvter = MontAMvter * -1
			SI MontDebit <> " " ALORS
				MontCredit = MontAMvter
				MontDebit = " "
			SINON
				MontDebit = MontAMvter
				MontCredit = " "
			FIN				
		FIN	
		
		TANTQUE Taille(MontDebit) < 14
			MontDebit = " "+MontDebit
		FIN		
		
		TANTQUE Taille(MontCredit) < 14
			MontCredit = " "+MontCredit
		FIN
		
		TANTQUE Taille(Vs_NumeroDocument) < 17
			Vs_NumeroDocument += " "
		FIN
		
		TANTQUE Taille(Vs_ModeReg) < 35
			Vs_ModeReg += " "
		FIN
		
		SI IDFiles > 0 ALORS
			SI REQ_SCHEMACOMPTABLE_ECRITURE.AjouterCompteTiers = 0 ALORS
				fEcritLigne(IDFiles,CodJournal+Vs_DatePiece+NumPiece+Vs_NumeroDocument+NumCompteGeneral+NumCompteTierVide+Vs_LibelleEcriture+MontDebit+MontCredit+Vs_DateEcheance+Vs_ModeReg)
			SINON
				fEcritLigne(IDFiles,CodJournal+Vs_DatePiece+NumPiece+Vs_NumeroDocument+NumCompteGeneral+NumCompteTiers+Vs_LibelleEcriture+MontDebit+MontCredit+Vs_DateEcheance+Vs_ModeReg)
			FIN
		FIN
	FIN
	
	SI IDFiles > 0 ALORS
		fFerme(IDFiles)
	FIN
FIN

RENVOYER Vrai


///////////////////////////////////////////////////////////////////////////////////////////////////


PROCEDURE PG_ExecuteRequeteSchema(ParamTypeJournal,ParamAgenceClient)

REQ_SCHEMACOMPTABLE_ECRITURE.AgenSelec = ParamAgenceClient
REQ_SCHEMACOMPTABLE_ECRITURE.ParamTypeEcriture = ParamTypeJournal
REQ_SCHEMACOMPTABLE_ECRITURE.ParamCorrectionMotif = Null
REQ_SCHEMACOMPTABLE_ECRITURE.ParamRetourFseurMotif = Null
REQ_SCHEMACOMPTABLE_ECRITURE.ParamBuroAchat = Null

SI ParamTypeJournal = C_TYPE_ECRITURE_CORRECTION ALORS
	REQ_SCHEMACOMPTABLE_ECRITURE.ParamCorrectionMotif = SAGE_IDMotif
FIN

SI ParamTypeJournal = C_TYPE_ECRITURE_RECLMAFSEUR OU ParamTypeJournal = C_TYPE_ECRITURE_ACHATS OU ParamTypeJournal = C_TYPE_ECRITURE_PRE_RECEPTION ALORS
	
	SI ParamTypeJournal = C_TYPE_ECRITURE_RECLMAFSEUR ALORS
		REQ_SCHEMACOMPTABLE_ECRITURE.ParamRetourFseurMotif = SAGE_IDMotif
	SINON
		REQ_SCHEMACOMPTABLE_ECRITURE.ParamRetourFseurMotif = Null
	FIN
	
	REQ_SCHEMACOMPTABLE_ECRITURE.AgenSelec = ParamAgenceClient
	REQ_SCHEMACOMPTABLE_ECRITURE.ParamTypeEcriture = ParamTypeJournal
	REQ_SCHEMACOMPTABLE_ECRITURE.ParamBuroAchat = SAGE_IDBuro
	REQ_SCHEMACOMPTABLE_ECRITURE.ParamFamille = SAGE_IDFamille
	REQ_SCHEMACOMPTABLE_ECRITURE.ParamModeExp = SAGE_IDModeExp
FIN

HExécuteRequête(REQ_SCHEMACOMPTABLE_ECRITURE,hRequêteDéfaut)

SI ParamTypeJournal = C_TYPE_ECRITURE_RECLMAFSEUR OU ParamTypeJournal = C_TYPE_ECRITURE_ACHATS OU ParamTypeJournal = C_TYPE_ECRITURE_PRE_RECEPTION ALORS
	SI HNbEnr(REQ_SCHEMACOMPTABLE_ECRITURE) = 0 ALORS
		
		SI ParamTypeJournal = C_TYPE_ECRITURE_RECLMAFSEUR ALORS
			REQ_SCHEMACOMPTABLE_ECRITURE.ParamRetourFseurMotif = SAGE_IDMotif
		SINON
			REQ_SCHEMACOMPTABLE_ECRITURE.ParamRetourFseurMotif = Null
		FIN
		
		REQ_SCHEMACOMPTABLE_ECRITURE.AgenSelec = ParamAgenceClient
		REQ_SCHEMACOMPTABLE_ECRITURE.ParamTypeEcriture = ParamTypeJournal
		REQ_SCHEMACOMPTABLE_ECRITURE.ParamBuroAchat = SAGE_IDBuro
		REQ_SCHEMACOMPTABLE_ECRITURE.ParamModeExp = SAGE_IDModeExp	
		REQ_SCHEMACOMPTABLE_ECRITURE.ParamFamille = 0
		HExécuteRequête(REQ_SCHEMACOMPTABLE_ECRITURE,hRequêteDéfaut)		
		
		SI HNbEnr(REQ_SCHEMACOMPTABLE_ECRITURE) = 0 ALORS
			
			SI ParamTypeJournal = C_TYPE_ECRITURE_RECLMAFSEUR ALORS
				REQ_SCHEMACOMPTABLE_ECRITURE.ParamRetourFseurMotif = SAGE_IDMotif
			SINON
				REQ_SCHEMACOMPTABLE_ECRITURE.ParamRetourFseurMotif = Null
			FIN
			
			REQ_SCHEMACOMPTABLE_ECRITURE.AgenSelec = ParamAgenceClient
			REQ_SCHEMACOMPTABLE_ECRITURE.ParamTypeEcriture = ParamTypeJournal
			REQ_SCHEMACOMPTABLE_ECRITURE.ParamBuroAchat = SAGE_IDBuro
			REQ_SCHEMACOMPTABLE_ECRITURE.ParamFamille = SAGE_IDFamille
			REQ_SCHEMACOMPTABLE_ECRITURE.ParamModeExp = 0	
			HExécuteRequête(REQ_SCHEMACOMPTABLE_ECRITURE,hRequêteDéfaut)	
			
			SI HNbEnr(REQ_SCHEMACOMPTABLE_ECRITURE) = 0 ALORS
				
				SI ParamTypeJournal = C_TYPE_ECRITURE_RECLMAFSEUR ALORS
					REQ_SCHEMACOMPTABLE_ECRITURE.ParamRetourFseurMotif = SAGE_IDMotif
				SINON
					REQ_SCHEMACOMPTABLE_ECRITURE.ParamRetourFseurMotif = Null
				FIN
				
				REQ_SCHEMACOMPTABLE_ECRITURE.AgenSelec = ParamAgenceClient
				REQ_SCHEMACOMPTABLE_ECRITURE.ParamTypeEcriture = ParamTypeJournal
				REQ_SCHEMACOMPTABLE_ECRITURE.ParamBuroAchat = SAGE_IDBuro
				REQ_SCHEMACOMPTABLE_ECRITURE.ParamModeExp = 0
				REQ_SCHEMACOMPTABLE_ECRITURE.ParamFamille = 0		
				HExécuteRequête(REQ_SCHEMACOMPTABLE_ECRITURE,hRequêteDéfaut)
				
				SI HNbEnr(REQ_SCHEMACOMPTABLE_ECRITURE) = 0 ALORS
					
					SI ParamTypeJournal = C_TYPE_ECRITURE_RECLMAFSEUR ALORS
						REQ_SCHEMACOMPTABLE_ECRITURE.ParamRetourFseurMotif = SAGE_IDMotif
					SINON
						REQ_SCHEMACOMPTABLE_ECRITURE.ParamRetourFseurMotif = Null
					FIN
					
					REQ_SCHEMACOMPTABLE_ECRITURE.AgenSelec = ParamAgenceClient
					REQ_SCHEMACOMPTABLE_ECRITURE.ParamTypeEcriture = ParamTypeJournal
					REQ_SCHEMACOMPTABLE_ECRITURE.ParamModeExp = 0
					REQ_SCHEMACOMPTABLE_ECRITURE.ParamFamille = 0	
					REQ_SCHEMACOMPTABLE_ECRITURE.ParamBuroAchat = 0		
					HExécuteRequête(REQ_SCHEMACOMPTABLE_ECRITURE,hRequêteDéfaut)
				FIN
			FIN
		FIN
	FIN
FIN

/////////////////////////////////////////////////////////////////////////////////////////


SELECT 
	SCHEMA_COMPTABLE.IDSCHEMA_COMPTABLE AS IDSCHEMA_COMPTABLE,	
	SCHEMA_COMPTABLE.TypeEcriture AS TypeEcriture,	
	SCHEMA_COMPTABLE.CodeJournalComptable AS CodeJournalComptable,	
	SCHEMA_COMPTABLE.NumeroCompteGeneralComptable AS NumeroCompteGeneralComptable,	
	SCHEMA_COMPTABLE.TypeMvtDebitCredit AS TypeMvtDebitCredit,	
	SCHEMA_COMPTABLE.IDFAMILLEPRODUIT AS IDFAMILLEPRODUIT,	
	SCHEMA_COMPTABLE.IDMODEEXPEDITION AS IDMODEEXPEDITION,	
	SCHEMA_COMPTABLE.IDBUREAUACHAT AS IDBUREAUACHAT,	
	SCHEMA_COMPTABLE.CreeLe AS CreeLe,	
	SCHEMA_COMPTABLE.CreePar AS CreePar,	
	SCHEMA_COMPTABLE.ModifieLe AS ModifieLe,	
	SCHEMA_COMPTABLE.ModifiePar AS ModifiePar,	
	SCHEMA_COMPTABLE.IDAGENCE AS IDAGENCE,	
	SCHEMA_COMPTABLE.IDCORRECTION_MOTIF AS IDCORRECTION_MOTIF,	
	SCHEMA_COMPTABLE.AjouterCompteTiers AS AjouterCompteTiers,	
	SCHEMA_COMPTABLE.TypeMontant AS TypeMontant,	
	SCHEMA_COMPTABLE.IDSITE_MAITRE AS IDSITE_MAITRE,	
	SCHEMA_COMPTABLE.IDRETOURFSEUR_MOTIF AS IDRETOURFSEUR_MOTIF
FROM 
	SCHEMA_COMPTABLE
WHERE 
	SCHEMA_COMPTABLE.IDAGENCE = {AgenSelec}
	AND	SCHEMA_COMPTABLE.TypeEcriture = {ParamTypeEcriture}
	AND	SCHEMA_COMPTABLE.IDCORRECTION_MOTIF = {ParamCorrectionMotif}
	AND	SCHEMA_COMPTABLE.IDRETOURFSEUR_MOTIF = {ParamRetourFseurMotif}
	AND	SCHEMA_COMPTABLE.IDBUREAUACHAT = {ParamBuroAchat}
	AND	SCHEMA_COMPTABLE.IDFAMILLEPRODUIT = {ParamFamille}
	AND	SCHEMA_COMPTABLE.IDMODEEXPEDITION = {ParamModeExp}
ORDER BY 
	TypeEcriture ASC,	
	IDSCHEMA_COMPTABLE ASC


////////////////////////////////////////////////////////////////////////////////////////////



CONSTANTE 
	C_TYPE_ECRITURE_VENTES = 1
	C_TYPE_ECRITURE_RISTOURNES = 2
	C_TYPE_ECRITURE_ESCOMPTES = 3
	C_TYPE_ECRITURE_REGLEMENT = 4
	
	C_TYPE_ECRITURE_MEDICIEL = 99
	C_TYPE_ECRITURE_VENTES_CMU = 105
	C_TYPE_ECRITURE_CORRECTION = 100
	C_TYPE_ECRITURE_RECLMAFSEUR = 101
	C_TYPE_ECRITURE_TRANSFERT_SITE_ENVOI = 102
	C_TYPE_ECRITURE_TRANSFERT_SITE_RECEPTION = 103
	C_TYPE_ECRITURE_ACHATS = 104
	C_TYPE_ECRITURE_PRE_RECEPTION = 106
	C_TYPE_ECRITURE_ETIQUETTE = 107
	
FIN




////////////////////////////////////////////////////////////////////////////////////////////////////


SELECT 
	SCHEMA_COMPTABLE.IDSCHEMA_COMPTABLE AS IDSCHEMA_COMPTABLE,	
	SCHEMA_COMPTABLE.TypeEcriture AS TypeEcriture,	
	SCHEMA_COMPTABLE.CodeJournalComptable AS CodeJournalComptable,	
	SCHEMA_COMPTABLE.NumeroCompteGeneralComptable AS NumeroCompteGeneralComptable,	
	SCHEMA_COMPTABLE.TypeMvtDebitCredit AS TypeMvtDebitCredit,	
	SCHEMA_COMPTABLE.IDFAMILLEPRODUIT AS IDFAMILLEPRODUIT,	
	SCHEMA_COMPTABLE.IDMODEEXPEDITION AS IDMODEEXPEDITION,	
	SCHEMA_COMPTABLE.IDBUREAUACHAT AS IDBUREAUACHAT,	
	SCHEMA_COMPTABLE.CreeLe AS CreeLe,	
	SCHEMA_COMPTABLE.CreePar AS CreePar,	
	SCHEMA_COMPTABLE.ModifieLe AS ModifieLe,	
	SCHEMA_COMPTABLE.ModifiePar AS ModifiePar,	
	SCHEMA_COMPTABLE.IDAGENCE AS IDAGENCE,	
	SCHEMA_COMPTABLE.IDCORRECTION_MOTIF AS IDCORRECTION_MOTIF,	
	SCHEMA_COMPTABLE.AjouterCompteTiers AS AjouterCompteTiers,	
	SCHEMA_COMPTABLE.TypeMontant AS TypeMontant,	
	SCHEMA_COMPTABLE.IDSITE_MAITRE AS IDSITE_MAITRE,	
	SCHEMA_COMPTABLE.IDRETOURFSEUR_MOTIF AS IDRETOURFSEUR_MOTIF
FROM 
	SCHEMA_COMPTABLE
WHERE 
	SCHEMA_COMPTABLE.IDAGENCE = {AgenSelec}
	AND	SCHEMA_COMPTABLE.TypeEcriture = {ParamTypeEcriture}
	AND	SCHEMA_COMPTABLE.IDCORRECTION_MOTIF = {ParamCorrectionMotif}
	AND	SCHEMA_COMPTABLE.IDRETOURFSEUR_MOTIF = {ParamRetourFseurMotif}
	AND	SCHEMA_COMPTABLE.IDBUREAUACHAT = {ParamBuroAchat}
	AND	SCHEMA_COMPTABLE.IDFAMILLEPRODUIT = {ParamFamille}
	AND	SCHEMA_COMPTABLE.IDMODEEXPEDITION = {ParamModeExp}
ORDER BY 
	TypeEcriture ASC,	
	IDSCHEMA_COMPTABLE ASC


//////////////////////////////////////////////////////////////////////////////////////////

