'Ouvrir' 'Traitements'
""$$&&((,-*1..002290%."1$1((**,,,56-2+40!(%,&.(3)4*,.,177-73$-$,&/))&4++,1002244%.'%$1((**,,,12-2244""'#%,&1&&-&-1061-47"*)0'#(*)',(,-0-1-51"($%%1+(*(-'-*07889*%-%1%1)(+-*1..00222-&*$1&#)-*))2('0+3535!$"'$()+*/-1-00(1144"(%'*))2*'-1'(04134,&&"1&&((***5)41*2745"!('('(3+%+--,274853"/%1%0(0)),,.(17655*"'%1(((')&,1))2-2244""&&&/(')--2**042648%,%*(-$)*/,,.300104+!%%'%+(&*3,-*34(2/47!#)1%0(+)--*.,022759(!$1&#)-*)).,1002244$)'-%%(-*%,0-'3(3/50"%$$&-))%&-2.'1-7848!#$,***-**,,..731,47"!$%*#*-**,,..2)7)55"-$)&2)'+2+/-205224-!!)(%,(')-&&.'142-99$-$$&&((((,/.'1-1,88$-$$&&((,-,()41*8)81"$$&%,(0*3-)-'1+284+"!(+*.(/*'-+)11-1-81"$$&%,(0)-,/.'2+3-51!'%%&,(2*(-.*34-2291""&)%%'$&-,*.(1*2*4+!%%'%+(&*3,-*34(2/47!#)1%2),)(-&()117685"/$$&+(()0,3-)171+46"+$%*+$0*/,'-+5-1.45!-%"&$(**'-)(-0-2351"!).$1((**,,,57)1141"%$0%'+0+/-0.)002)55%&%*&')-((,'-*0-5521""$$&&&&*/,'-11*6621""$$&&*-,-,,..00735*()(1&$(&)4,4.315175+"($+&%$3&2,/.'135-50"$%.*1(**(-2.61-2/47$+#1%1)')),2.406108+&-$$)1(((%--'*4-2446!,$,&+)%)'-3.(0+218+&*$/&')+%--0.,1.1143!$$$(%(-*+-1.-734-21""$$&&*1(*,'.60)1690(+"1*%$$2-42./0-1353!%%1&(()&0&+.,702352&0$+*)%()%-,.-54.,-."(%'*)%(*,-1.3111.51!!()$1',*&)*..422+8.&($/&'$.&&(+..421-51!'%%&,(2*(()*/1*5585!&))%#(*))((61(*284,"/%$%'$3*1,')15-4-21""$$&&*1%4-0-1061-5+'$&&&')$*-'4,12-2244""&&&/(')--2(52-2221""$$&&$$*3,0-(1(2*4+!,"$&$)'&2++.'348,55!'$$%'+&,3,0-(1(2*4+!,$/&('(,-,,..004-21""$$&&$1*','-1202457!0%.&()%,1,&'.2-2244"""1$1((**,,'+1*8)6."!$%(0&%+(,'+'222-4/!(%-&-$%(),1.+1-219.$-$$&&((,1&2.,0-2/56!)$-%'(1*(',,1002244(($/&')-)4((,1002244$-"1&&((**&5.'1*1157(!$&&*(&(2&.*4067244$-$$&&((&),3.)1*2155!'""#%(&*,-.-/0+2.56!*$,&+)2,*,*-'6-2.47!&$&&*(&(2&.-(0+2.89!!%)%)(1%-,,..004-21""$$&&$)*3,)-4011157$$#%&((*)0-/.30,185,"*$+%,*(*,-'(10,2758"($(&(&0(--).30,6555!%%)&-'(*&)2-46)5255"-$)&2)'+2+/-205224-!!)((%(-*+-1.-5.2644(*$+&))2*)---'223146"$%.%/(3*.-&-60(2+5*$"$"%'&-*.,'-*062646(*$$(2)$*3,0*)111559")'$&*%2)4,'.-016348""&,&+(%)4,---174435"($"%0)/*3,0-(1(2*4+!,"$&$)'(-,0.'142848"(&,(2)$*3,0*)111559")'$&*$/*/,'-11*6648"&"1&&((**'+-46)5255"-$)&2)'+2+/-205224-!!)((%(-*+-1.-5.2644(*$+&))2*)---'223146"$%.%/(3*.-&-60(2+5*$"$"%'&-*.,'-*062646(*$$(+)+*3,0*)111559")'$&*%2)4,'.-016348""&,&+(%)4,---174435"($"%0)/*3,0-(1(2*4+!,"$&$)'(-,0.'142848"(&,(+)+*3,0*)111559")'$&*$/*/,'-11*6644"&)*%,&1(%+1.2112+51!,$&&%)-%+&-.1031-45%0$(&&%2)4&5-+062646'($&%)(-+4-1.2451165"-$#%1()%0,(..005,5*())$%%(-*%,0-'3(3/50"%$$&-))%&&-.1031-45%0$(&&((**&4.3051,45!!%'$$+)*(,*-01/2+40!(%,&.(3)4*,.,178-40"'%(&(($*('&.(152-44#,%1&2$%)(,3.2451159!%$-'&($**,,)41*2745"!(#&*((**,,(60+255*"!%%%'**+),&.,1.1/4+".%&%.(0*3-2,.021761".$'%*(&*&,&'(061541#,%1&2$%)(,3.2451159!%$-'&($**,,*/0/2751!,((&*((&/,/.'1-1,88"&(/&/('(0'+-4442221""$$&&$)*3,)-4011157$$#%&((*)0-/.30,185,"*$+%,*(*,-'(10,2758"($(&(&0(4-*.30,6555!%%)&-'(,-,,..2-4-44""$$'#)2(1(--'132894"%$'&')&(),1.+1-219.$-$$&&((,1&4.3051,45!!%'$$+)*(,*-01/2+40!(%,&.(3)4*,.,178-40"'&($$(-*/-&-5333+45#,##&1+.,3-)-51-3,5."%$)%#'%*3,0*)111559")'$$1((**,,((0/2751!,((&&($&(+2.+041+5+&!$$&$()(&-1.41,1)56$+%/&+(,)(-4.60+1,24"$%'#2'(***1..00228/!,$#&*)3)3+&,30,185,"*$+%,(/)/,3.2161*4,"+%*$&(*)'+0'.004-44""$$()+&*'+',,0-2/56!)$-(2*0).+()/04134,&&"1&&((**(1.20+4-39!+%*%().*(',,1002244$-"1&&((**)+.'151545"($,)2((%4',,1002244$-"1&&((**'+-21-2851!+'"'(($)+,4**
###
'Importer du journal de TVA' 'Traitements'
    
    document ::= 'comptabilite.Journal_De_TVA'
    
    info{'Veuillez utiliser l''état standard "TVA états préparatoires" pour importer les valeurs dans votre déclaration.'}
    
    SI etat.EstVerrouille ALORS
    	info{'L''import n''est pas possible sur un état verrouillé.'}
    	SORTIR FAUX
    FINSI
    
    SI document.dateDebut = ?	ALORS
    	info{'L''état Journal de TVA n''est pas initialisé.
Vous ne pouvez donc pas importer les montants.'}
    SORTIR FAUX
    FINSI
    
    document.etatPreparationTVA{}
    
    SI NON document.parametrageCerfas ALORS	
    	document.parametrageCerfas := VRAI	
    	document.parametrageCerfas_MODIF{}
    FINSI
    
    SI NON ouiNon{'Les montants seront repris du dernier calcul du journal de TVA
Période du ' + document.dateDebut + ' au ' + document.dateFin + '
    
    	Taux normal : ' + document.tauxNormal + '
    	Taux réduit : ' + document.tauxReduit + '
    	Taux réduit : ' + document.tauxReduit7 + '
    	Taux normal DOM : ' + document.tauxNormalDOM + '
    	Taux réduit DOM : ' + document.tauxReduitDOM + '
    
Voulez vous continuer ?'}
    	ALORS	SORTIR FAUX
    FINSI
    
    ----------------
    
    AG0032 := document.exportationsHorsCE
    AG0033 := document.autresOperationsNonImposables
    AG0034 := document.livraisonsIntracom
    AG0206 := document.baseNormal
    AG0105 := document.baseReduit
    AG005B := document.baseReduit7
    AG0201 := document.baseDOMNormal
    AG0100 := document.baseDOMReduit
    AG0703 := document.tvaDeductibleImmos
    AG0702 := document.tvaDeductibleBiensServices
    
    INTER3517_2{}
    
    ----------------
    
    info{'Les montants ont été importés.'}
    
    SORTIR VRAI
###
'Importer depuis TVA Etats préparatoires' 'Traitements'
    
    importerEtatsPrep{}
###
'Imprimer' 'Traitements'
""$$&&((,-*1..002273!,&-**)&)-,&-1072*90'#$"%'($,),1-11-2845!-#$&()')&,'((5*5-51!-%$#1*-**,,..2)6*41"#%1&%%2(',3+)311427$(%#&/)-)0,4--002857&%%*&')-'(,(-+0(6621""$$&&*1%4-2.'012187('$+#)+)),*',(132/51!0$,%%((*(-'*)1*2751(($'%*(-%%*1..002266"/$'%1)2&&*1..002221$-$$&&((&/-2.+041+5+#(#&%+)/)+-'.55,5743%&)*'&*-**,,..2-4-44""$$(-($)-)5++07369/"&%#&.$$,-,,..006)48!-$"%')&**-2.(011590&$$+%,))))--*35.2398%,'$$1((**,,,12-2244""(-&*)-*,-3.*0(174-"('$$1((**,,,12-2244""(#&+('*(--,33,1-46!-$0%0(&'**1..002221$-$$&&(((1,(-15)3347#&(/&')$*-))
###
'Verrouiller' 'Traitements'
    
    NbrERR	:=	0
	ControleMontantNegatif{}
    CONTROLECA12AGR{}	
    
    SI NbrERR > 0 ALORS
    	info{'Vous ne pouvez pas verrouiller la TVA CA12 AGR car vous avez des erreurs dans la saisie. 
Veuillez consulter le compte rendu pour connaître les erreurs.'}
		SORTIR FAUX
	FIN SI
    
	SI NON TesterMentionExpresseTvaMotifOnVerrou{} ALORS
		SORTIR FAUX
	FIN SI

    verrouiller{}
	Verrouiller3310TIC_FP{}

    SORTIR VRAI
###
'Déverrouiller' 'Traitements'
    deverrouiller{}
	Verrouiller3310TIC_FP{}
###
'Proposer les écritures de TVA' 'Traitements'
    
    |
    	jnl<Objet> 
    |
    
    SI exerciceComptable.EstVerrouille[periode.fin] ALORS
    	info{'Cette période est verrouillée, il vous est impossible d''effectuer ce traitement'}
    	SORTIR FAUX
    FIN SI
    
    jnl	::=	'Journal'
    
    -- Choix du journal
    SI generation=? ALORS generation:= 'cerfa' FINSI
    SI NON dialogue{100,400,'choixJournal', 'generation', 'Choix du journal'} ALORS SORTIR FAUX FIN SI
    
    SI choixJournal = ? ALORS SORTIR FAUX FIN SI
    
    POUR TOUT journal TEL QUE ''+journal = choixJournal FAIRE
    	jnl	:=	journal
    FIN FAIRE
    
    SI jnl.clos ALORS
    	info{'Le journal que vous avez choisi est clos. Vous ne pouvez pas ajouter les écritures de TVA dans ce journal'}
    	SORTIR FAUX
    FIN SI
    
    exerciceComptable.gestionTVA	:=	NOM
    exerciceComptable.faireAjoutAutoTVA	:=	VRAI
    jnl.OUVRIR{}
    
    SORTIR VRAI
###
'Comptes substitués' 'Traitements'
    voirComptesSubstitues{}
###
'Archiver' 'Traitements'
    
    archiver{}
###
'----' 'Traitements'
###
'EDITVA' 'Traitements'
    
    | 
    	okNeant <Booléen> 
    	savPasDGI<Booléen> titulaireTrouve<Booléen>
    	tmpIBAN<Chaine> tmpBIC<Chaine> tmpEtranger<Booléen> tmpTitulaire<Chaine>
    	tmpCleIban<Chaine> tmpEtab<Chaine> tmpGuichet<Chaine> tmpCompte<Chaine> tmpCle<Chaine>
    	tmpBanque<Objet> MAJ_EDIPaiement_TVA<Chaine>
    |

    tmpBanque ::= 'Role'
    
    typeInterchange	:=	'EDITVA'
	
	MAJ_EDIPaiement_TVA := '250516'
	
	SI palierJuillet ALORS
		SI EDIversion{} < MAJ_EDIPaiement_TVA ET NON shift {} ALORS
			info{'La transmission de ces imprimés au format EDITVA sera possible à compter
de juillet 2025 (mise en application du nouveau format au CSI de Strasbourg)'}
			SORTIR FAUX
		FINSI
	FINSI
	---------------------------------- Controle ajouté pour 2025 car controle ajouté après livraison des tva et de l'edi
    NbrERR := 0 
	ControleMontantNegatif{}
	SI NbrERR = 0 ALORS
		INTER3517_2{}
		Controler3310TIC_FP{}
	FINSI
	SI NbrERR > 0 ALORS
    	info{'Vous ne pouvez pas envoyer la TVA CA12 AGR car vous avez des erreurs dans la saisie. 
Veuillez consulter le compte rendu pour connaître les erreurs.'}
    	SORTIR FAUX
    FIN SI
    -------------------------------------------------------------------------------------------------------------------
    ------------------------------------------------ajouté pour 2025 car modif après livraison des tva
    SI 3517AGR_YC <> ? ET 3517AGR_YC <> 0 ALORS
    	info{'Des changements ont été apportés au niveau de la page 4 et son extension 1, veuillez déverrouiller et ouvrir votre état pour le valider.'}
    	SORTIR FAUX
    FINSI 
    --------------------------------------------------------------------------------------------------------------
    
    envoiCA12	:=	VRAI
    envoi3517DDR	:=	(DDR_AG > 0)
    SI NON dialogue{80, 100, 'envoiCA12', 'envoi3517DDR', 'Envoi EDITVA'} ALORS
    	info{'L''envoi EDITVA a été annulé.'}
    	SORTIR FAUX
    SINON
    	SI envoiCA12 ET envoi3517DDR ALORS
    		SI NON ouiNon{'Confirmez-vous l''envoi de la CA12 AGR ET de la demande de remboursement (3517DDR) ?'} ALORS SORTIR FAUX FIN SI
    	SINON
    		SI envoiCA12 ALORS
    			SI NON ouiNon{'Confirmez-vous l''envoi de la CA12 AGR uniquement ?'} ALORS SORTIR FAUX FIN SI
    		SINON
    			SI envoi3517DDR ALORS
    				SI NON ouiNon{'Confirmez-vous l''envoi de la demande de remboursement (3517DDR) uniquement ?'} ALORS SORTIR FAUX FIN SI
    			SINON
    				info{'Vous n''avez rien sélectionné pour l''envoi.'}
    				SORTIR FAUX
    			FIN SI
    		FIN SI
    	FIN SI
    FIN SI
    
    SI envoiCA12 ALORS
    	SI AG_NEANT = 'x'	ALORS	
    		okNeant := ouiNon{'Vous avez coché la case Déclaration Néant sur l''imprimé 3517BCA12A. 
Cela signifie qu''aucune donnée de cet imprimé à part l''identification (et les commentaires) ne sera transmise à la DGI. 
Confirmez vous la génération du fichier EDITVA ?' }
    		SI NON okNeant ALORS SORTIR FAUX	FINSI
    	FINSI
    FIN SI
    
    SI envoi3517DDR ALORS
      	SI DDR_AG <> ? ALORS

	      	POUR TOUT element<Role> DE dossier.lstNouveauxContacts FAIRE
	    		SI element.type = 'Banque' ET element.estBanqueTLR1 ALORS
	    			tmpBanque := element
	    			tmpIBAN := element.IBAN
		    		tmpIBAN	:=	substituerCaracteres{tmpIBAN, ' ', ''}
	    			tmpBIC := element.CodeBIC
	    			tmpEtranger := element.abIBANEtranger
	    			SI element.TitulaireCompte <> ? ALORS
	                    tmpTitulaire          :=          element.TitulaireCompte
	                FIN SI
	    		FIN SI
	    	FIN FAIRE

	        SI (tmpIBAN = ? OU taille{tmpIBAN} < 1) OU (tmpBIC = ? OU taille{tmpBIC} < 1) ALORS
				info{'Vous avez demandé le remboursement de ' + DDR_AG + ' euros sur la page 3 de votre CA12A.
La demande de remboursement implique l''obligation de renseigner l''IBAN et le code BIC depuis le contact "Banque" du Dossier Permanent, catégorie "Général".
Veuillez compléter correctement ces deux champs sur l''échelle des temps correspondante sur le premier compte de télérèglement EDITVA.'}
				SORTIR FAUX
			SINON
				SI tmpEtranger ALORS
					SI aujourdhui{} < 01.12.2016 ALORS
						info{'L''envoi en EDI des données bancaires étrangères sera accessible à compter du 01/12/2016.
Veuillez sélectionner un autre compte bancaire.'}
						SORTIR FAUX
					SINON
						SI controleIBANetranger {tmpIBAN} = FAUX	ALORS
		    				info{'Les renseignements concernant le compte 1 ne sont pas valides.
Veuillez contrôler la Clé IBAN ainsi que l''IBAN  pour ce contact Banque, depuis le Dossier Permanent, en vous positionnant sur l''échelle des temps correspondant à la période de votre déclaration.'}
		    				SORTIR FAUX
		    			FINSI   
		    		FIN SI
				SINON
					tmpCleIban := chaine{tmpIBAN, 1, 4}
					tmpEtab := chaine{tmpIBAN, 5, 9}
					tmpGuichet := chaine{tmpIBAN, 10, 14}
					tmpCompte := chaine{tmpIBAN, 15, 25}
					tmpCle := chaine{tmpIBAN, 26, 27}
					SI NON controleIBAN2{tmpEtab, tmpGuichet, tmpCompte, tmpCle, tmpCleIban} ALORS
	    				info{'Les renseignements concernant le compte 1 ne sont pas valides.
Veuillez contrôler la Clé IBAN ainsi que l''IBAN  pour ce contact Banque, depuis le Dossier Permanent, en vous positionnant sur l''échelle des temps correspondant à la période de votre déclaration.'}
	    				SORTIR FAUX
	    			FINSI   
	    		FIN SI

				-- contrôle du code BIC
	    		SI taille{tmpBIC} > 0 ALORS
	    			SI NON controleCodeBIC{tmpBIC} ALORS
	    				info{'Le code BIC renseigné pour le compte 1 n''est pas correct (il doit contenir 8 ou 11 caractères sans espace et en majuscule).'}
	    				SORTIR FAUX
	    			FIN SI
	    		FIN SI

	    		info{'Vous avez demandé le remboursement de ' + DDR_AG + ' euros sur la page 3 de votre CA12A.
Les coordonnées bancaires transmises sont celles du premier compte de télérèglement EDITVA : 
	    '  + tmpIBAN + '-' + tmpBIC}

	    ----------------------------------------------------------
	    		-- Recherche du TitulaireCompte
	    		SI  taille{titulaireCpteRbmt}  < 3 ALORS
		    		titulaireTrouve := FAUX
		    		SI taille{tmpTitulaire} > 0 ALORS
		                titulaireCpteRbmt          :=          tmpTitulaire
		    			titulaireTrouve := VRAI
		    		FIN SI
		    
		    		SI NON titulaireTrouve ALORS
		    			titulaireCpteRbmt  := '?'
		    		FINSI
		    ----------------------------------------------------------
		    		titulaireCpteRbmt := saisir { 'Merci de nous indiquer le titulaire du compte ' + tmpIBAN + '-' + tmpBIC+'
pour la demande de remboursement.' , titulaireCpteRbmt }
		    		SI titulaireCpteRbmt = '' ALORS
		    			SORTIR FAUX
		    		FINSI
		    
		    		TANT QUE taille{titulaireCpteRbmt}  < 3 FAIRE
		    			titulaireCpteRbmt := saisir { 'Merci de nous indiquer le titulaire du compte ' + tmpIBAN + '-' + tmpBIC+'
pour la demande de remboursement.' , titulaireCpteRbmt }
		    			SI titulaireCpteRbmt = '' ALORS
		    				SORTIR FAUX
		    			FINSI
		    		FIN FAIRE

		    		-- remplissage du titulaire de la Banque
		    		SI taille{tmpTitulaire} < 1 ALORS
		    			info{'Le nom du titulaire que vous avez renseigné est reporté directement dans le contact banque pour la prochaine déclaration.'}
		    			tmpBanque.TitulaireCompte := titulaireCpteRbmt
		    			commit{tmpBanque}
		    		FIN SI
		    	FINSI
		    FIN SI
    	FIN SI
    FIN SI
    
    -------------------------
    anneeTVA  := '2025'
    GUM := 'D00B'
    -------------------------
	
    liasse_tva := 'CA12AGR'	
    SI NON envoiCA12 ALORS
    	liasse_tva	:=	'3517DDR'
    	paiementTLR := FAUX
    FIN SI
    liasse_agr := ''	
    
    tva_debutPeriode := dateDebutDate	--CA12Du	
    tva_finPeriode := dateFinDate	--CA12Au		
    
    remplirTypeClotureExo{}
    -------------------------------------------------
    SI envoiCA12 ALORS
    	montantTvaDu 		:= AG_TT
    	montantTvaCredit 	:= AG_TVA_CRED
    SINON
    	montantTvaDu 		:= 0
    	montantTvaCredit 	:= 0
    FIN SI
    SI envoi3517DDR ALORS
    	montantRbmtDemande 	:= DDR_AG
    SINON
    	montantRbmtDemande 	:= 0
    FIN SI
    -------------------------------------------------
    
	VerifCoalaHttpSiServiceEdiEnHttps{typeInterchange}

    SORTIR EDITVA2{}
    
    EDITVA_initialisation{}
    
    SI controlesOK = VRAI	ALORS
    	SI envoiCA12 ALORS
    		SI NON pasDGI ALORS
    			EDITVA_entete{}		
    			EDITVA_detail{}    			
    			EDITVA_fin{}
    		FIN SI
    	
    		savPasDGI	:=	pasDGI
    		SI envoiOGA ALORS
    			-- maj des données pour deuxième fichier
    			tva_fichierCompta	:=	chaine{tva_fichierCompta, 1, taille{tva_fichierCompta}-3}+'ped'
    			tva_fichierNom	:=	chaine{tva_fichierNom, 1, taille{tva_fichierNom}-3}+'ped'
    			ouvrirEdi {tva_fichierCompta}
    			pasDGI	:=	VRAI
    		
    			ExportTVA_entete{}		
    			EDITVA_detail{}
    			ExportTVA_fin{}
    			pasDGI	:=	FAUX
    		FIN SI
    	FIN SI
    
    	-- 3517DDR
    	SI envoi3517DDR ET NON savPasDGI ALORS
    		EDITVA_DDR{}
    	FIN SI
    FINSI
    
    SORTIR VRAI
###
'Exporter au format EDITVA' 'Traitements'
    
    
    | 
    	okNeant <Booléen> titulaireTrouve<Booléen>
    	tmpIBAN<Chaine> tmpBIC<Chaine> tmpEtranger<Booléen> tmpTitulaire<Chaine>
    	tmpCleIban<Chaine> tmpEtab<Chaine> tmpGuichet<Chaine> tmpCompte<Chaine> tmpCle<Chaine>
    	tmpBanque<Objet> MAJ_EDIPaiement_TVA<Chaine>
    |

    tmpBanque ::= 'Role'
    
    typeInterchange	:=	'ExportEDITVA'
    
    MAJ_EDIPaiement_TVA := '250516'
	
	SI palierJuillet ALORS
		SI EDIversion{} < MAJ_EDIPaiement_TVA ET NON shift {} ALORS
			info{'La transmission de ces imprimés au format EDITVA sera possible à compter
de juillet 2025 (mise en application du nouveau format au CSI de Strasbourg)'}
			SORTIR FAUX
		FINSI
	FINSI
	---------------------------------- Controle ajouté pour 2025 car controle ajouté après livraison des tva et de l'edi
    NbrERR := 0 
	ControleMontantNegatif{}
	SI NbrERR = 0 ALORS
		INTER3517_2{}
		Controler3310TIC_FP{}
	FINSI
	SI NbrERR > 0 ALORS
    	info{'Vous ne pouvez pas envoyer la TVA CA12 AGR car vous avez des erreurs dans la saisie. 
Veuillez consulter le compte rendu pour connaître les erreurs.'}
    	SORTIR FAUX
    FIN SI
    -------------------------------------------------------------------------------------------------------------------
    ------------------------------------------------ajouté pour 2025 car modif après livraison des tva
    SI 3517AGR_YC <> ? ET 3517AGR_YC <> 0 ALORS
    	info{'Des changements ont été apportés au niveau de la page 4 et son extension 1, veuillez déverrouiller et ouvrir votre état pour le valider.'}
    	SORTIR FAUX
    FINSI 
    --------------------------------------------------------------------------------------------------------------
    
    envoiCA12	:=	VRAI
    envoi3517DDR	:=	(DDR_AG > 0)
    SI NON dialogue{80, 100, 'envoiCA12', 'envoi3517DDR', 'Envoi EDITVA'} ALORS
    	info{'L''envoi EDITVA a été annulé.'}
    	SORTIR FAUX
    SINON
    	SI envoiCA12 ET envoi3517DDR ALORS
    		SI NON ouiNon{'Confirmez-vous l''envoi de la CA12 AGR ET de la demande de remboursement (3517DDR) ?'} ALORS SORTIR FAUX FIN SI
    	SINON
    		SI envoiCA12 ALORS
    			SI NON ouiNon{'Confirmez-vous l''envoi de la CA12 AGR uniquement ?'} ALORS SORTIR FAUX FIN SI
    		SINON
    			SI envoi3517DDR ALORS
    				SI NON ouiNon{'Confirmez-vous l''envoi de la demande de remboursement (3517DDR) uniquement ?'} ALORS SORTIR FAUX FIN SI
    			SINON
    				info{'Vous n''avez rien sélectionné pour l''envoi.'}
    				SORTIR FAUX
    			FIN SI
    		FIN SI
    	FIN SI
    FIN SI
    
    SI envoiCA12 ALORS
    	SI AG_NEANT = 'x'	ALORS	
    		okNeant := ouiNon{'Vous avez coché la case Déclaration Néant sur l''imprimé 3517BCA12A. 
Cela signifie qu''aucune donnée de cet imprimé à part l''identification (et les commentaires) ne sera transmise à la DGI. 
Confirmez vous la génération du fichier EDITVA ?' }
    		SI NON okNeant ALORS SORTIR FAUX	FINSI
    	FINSI
    FIN SI
    
    SI envoi3517DDR ALORS
      	SI DDR_AG <> ? ALORS

	      	POUR TOUT element<Role> DE dossier.lstNouveauxContacts FAIRE
	    		SI element.type = 'Banque' ET element.estBanqueTLR1 ALORS
	    			tmpBanque := element
	    			tmpIBAN := element.IBAN
		    		tmpIBAN	:=	substituerCaracteres{tmpIBAN, ' ', ''}
	    			tmpBIC := element.CodeBIC
	    			tmpEtranger := element.abIBANEtranger
	    			SI element.TitulaireCompte <> ? ALORS
	                    tmpTitulaire          :=          element.TitulaireCompte
	                FIN SI
	    		FIN SI
	    	FIN FAIRE

	        SI (tmpIBAN = ? OU taille{tmpIBAN} < 1) OU (tmpBIC = ? OU taille{tmpBIC} < 1) ALORS
				info{'Vous avez demandé le remboursement de ' + DDR_AG + ' euros sur la page 3 de votre CA12A.
La demande de remboursement implique l''obligation de renseigner l''IBAN et le code BIC depuis le contact "Banque" du Dossier Permanent, catégorie "Général".
Veuillez compléter correctement ces deux champs sur l''échelle des temps correspondante sur le premier compte de télérèglement EDITVA.'}
				SORTIR FAUX
			SINON
				SI tmpEtranger ALORS
					SI aujourdhui{} < 01.12.2016 ALORS
						info{'L''envoi en EDI des données bancaires étrangères sera accessible à compter du 01/12/2016.
Veuillez sélectionner un autre compte bancaire.'}
						SORTIR FAUX
					SINON
						SI controleIBANetranger {tmpIBAN} = FAUX	ALORS
		    				info{'Les renseignements concernant le compte 1 ne sont pas valides.
Veuillez contrôler la Clé IBAN ainsi que l''IBAN  pour ce contact Banque, depuis le Dossier Permanent, en vous positionnant sur l''échelle des temps correspondant à la période de votre déclaration.'}
		    				SORTIR FAUX
		    			FINSI   
		    		FIN SI
				SINON
					tmpCleIban := chaine{tmpIBAN, 1, 4}
					tmpEtab := chaine{tmpIBAN, 5, 9}
					tmpGuichet := chaine{tmpIBAN, 10, 14}
					tmpCompte := chaine{tmpIBAN, 15, 25}
					tmpCle := chaine{tmpIBAN, 26, 27}
					SI NON controleIBAN2{tmpEtab, tmpGuichet, tmpCompte, tmpCle, tmpCleIban} ALORS
	    				info{'Les renseignements concernant le compte 1 ne sont pas valides.
Veuillez contrôler la Clé IBAN ainsi que l''IBAN  pour ce contact Banque, depuis le Dossier Permanent, en vous positionnant sur l''échelle des temps correspondant à la période de votre déclaration.'}
	    				SORTIR FAUX
	    			FINSI   
	    		FIN SI

				-- contrôle du code BIC
	    		SI taille{tmpBIC} > 0 ALORS
	    			SI NON controleCodeBIC{tmpBIC} ALORS
	    				info{'Le code BIC renseigné pour le compte 1 n''est pas correct (il doit contenir 8 ou 11 caractères sans espace et en majuscule).'}
	    				SORTIR FAUX
	    			FIN SI
	    		FIN SI

	    		info{'Vous avez demandé le remboursement de ' + DDR_AG + ' euros sur la page 3 de votre CA12A.
Les coordonnées bancaires transmises sont celles du premier compte de télérèglement EDITVA : 
	    '  + tmpIBAN + '-' + tmpBIC}

	    ----------------------------------------------------------
	    		-- Recherche du TitulaireCompte
	    		SI  taille{titulaireCpteRbmt}  < 3 ALORS
		    		titulaireTrouve := FAUX
		    		SI taille{tmpTitulaire} > 0 ALORS
		                titulaireCpteRbmt          :=          tmpTitulaire
		    			titulaireTrouve := VRAI
		    		FIN SI
		    
		    		SI NON titulaireTrouve ALORS
		    			titulaireCpteRbmt  := '?'
		    		FINSI
		    ----------------------------------------------------------
		    		titulaireCpteRbmt := saisir { 'Merci de nous indiquer le titulaire du compte ' + tmpIBAN + '-' + tmpBIC+'
pour la demande de remboursement.' , titulaireCpteRbmt }
		    		SI titulaireCpteRbmt = '' ALORS
		    			SORTIR FAUX
		    		FINSI
		    
		    		TANT QUE taille{titulaireCpteRbmt}  < 3 FAIRE
		    			titulaireCpteRbmt := saisir { 'Merci de nous indiquer le titulaire du compte ' + tmpIBAN + '-' + tmpBIC+'
pour la demande de remboursement.' , titulaireCpteRbmt }
		    			SI titulaireCpteRbmt = '' ALORS
		    				SORTIR FAUX
		    			FINSI
		    		FIN FAIRE

		    		-- remplissage du titulaire de la Banque
		    		SI taille{tmpTitulaire} < 1 ALORS
		    			info{'Le nom du titulaire que vous avez renseigné est reporté directement dans le contact banque pour la prochaine déclaration.'}
		    			tmpBanque.TitulaireCompte := titulaireCpteRbmt
    					commit{tmpBanque}
		    		FIN SI
		    	FINSI
		    FIN SI
    	FIN SI
    FIN SI
    

    -------------------------
    GUM := 'D00B'
    anneeTVA  := '2025'
    -------------------------
    
    ExportFormatEDI{}	
    
    SORTIR VRAI
###
'EDITVA_DDR' 'EDI'
    
    -------------------------
    anneeTVA  := '2025'
    GUM := 'D00B'
    -------------------------
    liasse_tva := '3517DDR'
    liasse_agr := ''	-- pour distinguer CA12A de CA12 dans DOC sans incidence sur nom fichier
    
    SI Euro <> ?	ALORS	tva_monnaieSouscription := 'EE'	FINSI
    SI Franc <> ?	ALORS	tva_monnaieSouscription := 'EF'	FINSI
    SI CptaFranc <> ?	ALORS	tva_monnaieSouscription := 'FF'	FINSI
    
    tva_fichierNom := dossier.CodeDossier  + '_'+liasse_tva
    
    libellePoster := fichierNom
    fichierTraite := fichierNom
    
    tva_fichierNom += '.ped'
    
    tiroir := 'xxxxxxxx'
    tiroir := chaine { tiroir, 1 , 8 , '00000000' }
    tiroir := chaine { tiroir, 2 , 1 , '' + mois {N_1+1}}
    tiroir := chaine { tiroir, 4 , 3 , '' + chaine { '' + annee {N_1+1} , 3 , 4  } }
    tiroir := chaine { tiroir, 6 , 5 , '' + mois { N}}
    tiroir := chaine { tiroir, 8 , 7 , '' +  chaine { '' + annee {N} , 3 , 4  } }
    
    tva_fichierCompta :=  dossier.repertoire + '/compta/doc/' + tiroir + '/editva/' + tva_fichierNom 						-- exemplaire stocké dans la compta
    tva_fichierTransmis :=  racine{} + '/bal/editva/' + tva_fichierNom				-- exemplaire à transmettre
    
    ouvrirEdi {tva_fichierCompta}
 
	SI NON pasDGI ALORS
		envoiOGA	:=	FAUX
		ExportTVA_entete{}		
		EDITVA_detailDDR{}
		ExportTVA_fin{}
	FIN SI
    
    SORTIR VRAI
###
'EDITVA_detail' 'EDI'
    
    |
    	i<Entier>
    |

    -- T-IDENTIF 2016
	donneeNADcomplet { 'T-IDENTIF' , 'AA' , '00' ,  chaine{tva_siret, 1, 9}, tva_nom, 'NS' , 'NS', '' , '' , tva_adresse1 , tva_adresse2, tva_adresse3, tva_ville, tva_codepostal, '', '' , '' } 
	SI tva_dateCess <> ? ET cess  ALORS donneeDTM102 { 'T-IDENTIF' , 'BB' , '00' , tva_dateCess , '' } FINSI
	SI estSocieteMere = VRAI   ALORS donneeCCI { 'T-IDENTIF' , 'BC' , '00' , 'X' , 'TBX' } FINSI
	SI tva_debutPeriode <> ?   ALORS donneeDTM102 { 'T-IDENTIF' , 'CA' , '00' , tva_debutPeriode , '' } FINSI
	SI tva_finPeriode <> ?   ALORS donneeDTM102 { 'T-IDENTIF' , 'CB' , '00' , tva_finPeriode , '' } FINSI
	SI TLR1_IBAN  <> ? ET paiementTLR = VRAI ET TLR1 = VRAI  ALORS donneeFIIIBAN2 { 'T-IDENTIF' , 'GA' , '00' , TLR1_IBAN , TLR1_IBANetranger , TLR1_codeBIC , '' } FINSI
	SI TLR2_IBAN  <> ? ET paiementTLR = VRAI ET TLR2 = VRAI  ALORS donneeFIIIBAN2 { 'T-IDENTIF' , 'GB' , '00' , TLR2_IBAN , TLR2_IBANetranger, TLR2_codeBIC , '' } FINSI
	SI TLR3_IBAN  <> ? ET paiementTLR = VRAI ET TLR3 = VRAI  ALORS donneeFIIIBAN2 { 'T-IDENTIF' , 'GC' , '00' , TLR3_IBAN , TLR3_IBANetranger, TLR3_codeBIC , '' } FINSI
	SI TLR1_montant <> ? ET paiementTLR = VRAI ET TLR1 = VRAI  ALORS donneeMOA2 { 'T-IDENTIF' , 'HA' , '00' , TLR1_montant , '' } FINSI
	SI TLR2_montant <> ? ET paiementTLR = VRAI ET TLR2 = VRAI  ALORS donneeMOA2 { 'T-IDENTIF' , 'HB' , '00' , TLR2_montant , '' } FINSI
	SI TLR3_montant <> ? ET paiementTLR = VRAI ET TLR3 = VRAI  ALORS donneeMOA2 { 'T-IDENTIF' , 'HC' , '00' , TLR3_montant , '' } FINSI
	SI TLR1_reference <> ? ET paiementTLR = VRAI ET TLR1 = VRAI  ALORS donneeRFF { 'T-IDENTIF' , 'KA' , '00' , TLR1_reference , '' } FINSI
	SI TLR2_reference <> ? ET paiementTLR = VRAI ET TLR2 = VRAI  ALORS donneeRFF { 'T-IDENTIF' , 'KB' , '00' , TLR2_reference , '' } FINSI
	SI TLR3_reference <> ? ET paiementTLR = VRAI ET TLR3 = VRAI  ALORS donneeRFF { 'T-IDENTIF' , 'KC' , '00' , TLR3_reference , '' } FINSI
	SI tva_refObligationFiscale <> ?   ALORS donneeRFF { 'T-IDENTIF' , 'KD' , '00' , tva_refObligationFiscale , '' } FINSI
	SI tva_dateRedressement <> ?   ALORS donneeDTM102 { 'T-IDENTIF' , 'KE' , '00' , tva_dateRedressement , '' } FINSI
	SI tva_echeance3514 <> ?   ALORS donneeDTM610 { 'T-IDENTIF' , 'KF' , '00' , tva_echeance3514 , '' } FINSI
    
    -- 3517BCA12A 2016
    --donneeCCI { '3517BCA12A' , 'AE' , '00' , codeCloture , 'CEX' } 	
	SI PaiImp <> ?   ALORS donneeCCI { '3517BCA12A' , 'AF' , '00' , 'X' , 'TBX' } FINSI

	SI AG0037 <> ?   ALORS donneeMOA { '3517BCA12A' , 'DA' , '00' , AG0037 , '' } FINSI
	SI AG0032 <> ?   ALORS donneeMOA { '3517BCA12A' , 'DB' , '00' , AG0032 , '' } FINSI
	SI AG0033 <> ?   ALORS donneeMOA { '3517BCA12A' , 'DC' , '00' , AG0033 , '' } FINSI
	SI AG0034 <> ?   ALORS donneeMOA { '3517BCA12A' , 'DD' , '00' , AG0034 , '' } FINSI
	SI AG0105 <> ?   ALORS donneeMOA { '3517BCA12A' , 'DE' , '00' , AG0105 , '' } FINSI
	SI 3517AGR_DF <> ?   ALORS donneeMOA { '3517BCA12A' , 'DF' , '00' , 3517AGR_DF , '' } FINSI
	SI AG0900 <> ?   ALORS donneeMOA { '3517BCA12A' , 'DH' , '00' , AG0900 , '' } FINSI
	SI AG0950 <> ?   ALORS donneeMOA { '3517BCA12A' , 'DJ' , '00' , AG0950 , '' } FINSI
	SI AG0207 <> ?   ALORS donneeMOA { '3517BCA12A' , 'DK' , '00' , AG0207 , '' } FINSI
	SI AG0970 <> ?   ALORS donneeMOA { '3517BCA12A' , 'DL' , '00' , AG0970 , '' } FINSI
	SI AG0980 <> ?   ALORS donneeMOA { '3517BCA12A' , 'DM' , '00' , AG0980 , '' } FINSI
	SI AG0981 <> ?   ALORS donneeMOA { '3517BCA12A' , 'DN' , '00' , AG0981 , '' } FINSI
	SI AG0031 <> ?   ALORS donneeMOA { '3517BCA12A' , 'DP' , '00' , AG0031 , '' } FINSI
	SI AG0151 <> ?   ALORS donneeMOA { '3517BCA12A' , 'DQ' , '00' , AG0151 , '' } FINSI
	SI AG0044 <> ?   ALORS donneeMOA { '3517BCA12A' , 'DR' , '00' , AG0044 , '' } FINSI
	SI AG0044_TD <> ?   ALORS donneeMOA { '3517BCA12A' , 'DS' , '00' , AG0044_TD , '' } FINSI
	SI AG0100 <> ?   ALORS donneeMOA { '3517BCA12A' , 'DU' , '00' , AG0100 , '' } FINSI
	SI AG0201 <> ?   ALORS donneeMOA { '3517BCA12A' , 'DV' , '00' , AG0201 , '' } FINSI
	SI AG0029 <> ?   ALORS donneeMOA { '3517BCA12A' , 'DY' , '00' , AG0029 , '' } FINSI
	SI AG0030 <> ?   ALORS donneeMOA { '3517BCA12A' , 'DZ' , '00' , AG0030 , '' } FINSI
	SI AG007B <> ?   ALORS donneeMOA { '3517BCA12A' , 'EC' , '00' , AG007B , '' } FINSI
	SI AG007B_TD <> ?   ALORS donneeMOA { '3517BCA12A' , 'ED' , '00' , AG007B_TD , '' } FINSI
	SI AG0105_TD <> ?   ALORS donneeMOA { '3517BCA12A' , 'EE' , '00' , AG0105_TD , '' } FINSI
	SI AG0900_TD <> ?   ALORS donneeMOA { '3517BCA12A' , 'EH' , '00' , AG0900_TD , '' } FINSI
	SI AG0950_TD <> ?   ALORS donneeMOA { '3517BCA12A' , 'EJ' , '00' , AG0950_TD , '' } FINSI
	SI AG0207_TD <> ?   ALORS donneeMOA { '3517BCA12A' , 'EK' , '00' , AG0207_TD , '' } FINSI
	SI AG0970_TD <> ?   ALORS donneeMOA { '3517BCA12A' , 'EL' , '00' , AG0970_TD , '' } FINSI
	SI AG0980_TD <> ?   ALORS donneeMOA { '3517BCA12A' , 'EM' , '00' , AG0980_TD , '' } FINSI
	SI AG0981_TD <> ?   ALORS donneeMOA { '3517BCA12A' , 'EN' , '00' , AG0981_TD , '' } FINSI
	SI AG0031_TD <> ?   ALORS donneeMOA { '3517BCA12A' , 'EP' , '00' , AG0031_TD , '' } FINSI
	SI AG0151_TD <> ?   ALORS donneeMOA { '3517BCA12A' , 'EQ' , '00' , AG0151_TD , '' } FINSI
	SI AG0600 <> ?   ALORS donneeMOA { '3517BCA12A' , 'ER' , '00' , AG0600 , '' } FINSI
	SI AG_TVA_DU <> ?   ALORS donneeMOA { '3517BCA12A' , 'ES' , '00' , AG_TVA_DU , '' } FINSI
	SI AG0100_TD <> ?   ALORS donneeMOA { '3517BCA12A' , 'EU' , '00' , AG0100_TD , '' } FINSI
	SI AG0201_TD <> ?   ALORS donneeMOA { '3517BCA12A' , 'EV' , '00' , AG0201_TD , '' } FINSI
	SI AG0030_TD <> ?   ALORS donneeMOA { '3517BCA12A' , 'EZ' , '00' , AG0030_TD , '' } FINSI
	SI AG0703 <> ?   ALORS donneeMOA { '3517BCA12A' , 'FA' , '00' , AG0703 , '' } FINSI
	SI AG0702 <> ?   ALORS donneeMOA { '3517BCA12A' , 'FB' , '00' , AG0702 , '' } FINSI
	SI AG0058 <> ?   ALORS donneeMOA { '3517BCA12A' , 'FC' , '00' , AG0058 , '' } FINSI
	SI AG0059 <> ?   ALORS donneeMOA { '3517BCA12A' , 'FD' , '00' , AG0059 , '' } FINSI
	SI AG_TVA_DEDUC <> ?   ALORS donneeMOA { '3517BCA12A' , 'FF' , '00' , AG_TVA_DEDUC , '' } FINSI
	SI AGl21 <> ?   ALORS donneePCD { '3517BCA12A' , 'FG' , '00' , AGl21 , '' } FINSI
	SI AG_TVA_NET <> ?   ALORS donneeMOA { '3517BCA12A' , 'GA' , '00' , AG_TVA_NET , 'FORCE' } FINSI
	SI AG0705 <> ?   ALORS donneeMOA { '3517BCA12A' , 'GB' , '00' , AG0705 , '' } FINSI
	SI AG0018 <> ?   ALORS donneeMOA { '3517BCA12A' , 'HA' , '00' , AG0018 , '' } FINSI
	SI AG_SOLD <> ?   ALORS donneeMOA { '3517BCA12A' , 'JA' , '00' , AG_SOLD , '' } FINSI
	SI AG_EXE <> ?   ALORS donneeMOA { '3517BCA12A' , 'JB' , '00' , AG_EXE , 'FORCE' } FINSI
	SI AG0020 <> ?   ALORS donneeMOA { '3517BCA12A' , 'JC' , '00' , AG0020 , 'FORCE' } FINSI
	
	SI AG4213 <> ?   ALORS donneeMOA { '3517BCA12A' , 'LC' , '00' , AG4213 , '' } FINSI
	SI AG4220 <> ?   ALORS donneeMOA { '3517BCA12A' , 'LF' , '00' , AG4220 , '' } FINSI
	SI AG4326 <> ?   ALORS donneeMOA { '3517BCA12A' , 'UR' , '00' , AG4326 , '' } FINSI
	SI AG4314 <> ?   ALORS donneeMOA { '3517BCA12A' , 'UQ' , '00' , AG4314 , '' } FINSI
	SI AG035C <> ?   ALORS donneeMOA { '3517BCA12A' , 'LM' , '00' , AG035C , '' } FINSI
	SI AG_TVA_CRED <> ?   ALORS donneeMOA { '3517BCA12A' , 'MA' , '00' , AG_TVA_CRED , '' } FINSI
	SI AG8002 <> ?   ALORS donneeMOA { '3517BCA12A' , 'MB' , '00' , AG8002 , '' } FINSI
	SI AG_TVA_CRED <> ? OU AG8002 <> ?   ALORS donneeMOA { '3517BCA12A' , 'MC' , '00' , AG8003 , 'FORCE' } FINSI
	SI AGl39 <> ?   ALORS donneeMOA { '3517BCA12A' , 'NA' , '00' , AGl39 , '' } FINSI
	SI AGl40 <> ?   ALORS donneeMOA { '3517BCA12A' , 'NB' , '00' , AGl40 , '' } FINSI
	SI AG_TT <> ?   ALORS donneeMOA { '3517BCA12A' , 'NC' , '00' , AG_TT , '' } FINSI
	--SI AG_NEANT <> ?  ALORS donneeCCI { '3517BCA12A' , 'ND' , '00' , 'X' , 'TBX' } FINSI
	SI 3517AGR_NP <> ?   ALORS donneeMOA { '3517BCA12A' , 'NP' , '00' , 3517AGR_NP , '' } FINSI
	SI 3517AGR_NQ <> ?   ALORS donneeQTYentier { '3517BCA12A' , 'NQ' , '00' , 3517AGR_NQ , '' } FINSI
	SI 3517AGR_NR <> ?   ALORS donneeQTYentier { '3517BCA12A' , 'NR' , '00' , 3517AGR_NR , '' } FINSI
	SI 3517AGR_NS <> ?   ALORS donneeQTYentier { '3517BCA12A' , 'NS' , '00' , 3517AGR_NS , '' } FINSI
	SI 3517AGR_NT <> ?   ALORS donneeQTYentier { '3517BCA12A' , 'NT' , '00' , 3517AGR_NT , '' } FINSI
	SI 3517AGR_NU <> ?   ALORS donneeQTYentier { '3517BCA12A' , 'NU' , '00' , 3517AGR_NU , '' } FINSI
	SI 3517AGR_NV <> ?   ALORS donneeQTYentier { '3517BCA12A' , 'NV' , '00' , 3517AGR_NV , '' } FINSI
	SI 3517AGR_NW <> ?   ALORS donneeQTYentier { '3517BCA12A' , 'NW' , '00' , 3517AGR_NW , '' } FINSI
	SI 3517AGR_NX <> ?   ALORS donneeQTYentier { '3517BCA12A' , 'NX' , '00' , 3517AGR_NX , '' } FINSI
	SI 3517AGR_NY <> ?   ALORS donneeQTYentier { '3517BCA12A' , 'NY' , '00' , 3517AGR_NY , '' } FINSI
	SI 3517AGR_NZ <> ?   ALORS donneeQTYentier { '3517BCA12A' , 'NZ' , '00' , 3517AGR_NZ , '' } FINSI
	SI 3517AGR_PA <> ?   ALORS donneeMOA { '3517BCA12A' , 'PA' , '00' , 3517AGR_PA , '' } FINSI
	SI 3517AGR_PB <> ?   ALORS donneeMOA { '3517BCA12A' , 'PB' , '00' , 3517AGR_PB , '' } FINSI
	SI 3517AGR_PC <> ?   ALORS donneeMOA { '3517BCA12A' , 'PC' , '00' , 3517AGR_PC , '' } FINSI
	SI 3517AGR_PD <> ?   ALORS donneeMOA { '3517BCA12A' , 'PD' , '00' , 3517AGR_PD , '' } FINSI
	SI 3517AGR_PE <> ?   ALORS donneeMOA { '3517BCA12A' , 'PE' , '00' , 3517AGR_PE , '' } FINSI
	SI 3517AGR_PF <> ?   ALORS donneeMOA { '3517BCA12A' , 'PF' , '00' , 3517AGR_PF , '' } FINSI
	SI 3517AGR_PG <> ?   ALORS donneeMOA { '3517BCA12A' , 'PG' , '00' , 3517AGR_PG , '' } FINSI
	SI 3517AGR_PH <> ?   ALORS donneeMOA { '3517BCA12A' , 'PH' , '00' , 3517AGR_PH , '' } FINSI
	SI 3517AGR_PJ <> ?   ALORS donneeMOA { '3517BCA12A' , 'PJ' , '00' , 3517AGR_PJ , '' } FINSI
	SI AG0602 <> ?   ALORS donneeMOA { '3517BCA12A' , 'RC' , '00' , AG0602 , '' } FINSI
	SI AG0603 <> ?   ALORS donneeMOA { '3517BCA12A' , 'RD' , '00' , AG0603 , '' } FINSI
	SI AG4247 <> ?   ALORS donneeMOA { '3517BCA12A' , 'RG' , '00' , AG4247 , '' } FINSI
	SI AG4248 <> ?   ALORS donneeMOA { '3517BCA12A' , 'RH' , '00' , AG4248 , '' } FINSI
	SI AG4249 <> ?   ALORS donneeMOA { '3517BCA12A' , 'RJ' , '00' , AG4249 , '' } FINSI
	SI AG4250 <> ?   ALORS donneeMOA { '3517BCA12A' , 'RK' , '00' , AG4250 , '' } FINSI
	SI AG4253 <> ?   ALORS donneeMOA { '3517BCA12A' , 'RM' , '00' , AG4253 , '' } FINSI
	SI AG4254 <> ?   ALORS donneeMOA { '3517BCA12A' , 'RN' , '00' , AG4254 , '' } FINSI
	SI AG4273 <> ?   ALORS donneeMOA { '3517BCA12A' , 'RP' , '00' , AG4273 , '' } FINSI
	SI AG4274 <> ?   ALORS donneeMOA { '3517BCA12A' , 'RQ' , '00' , AG4274 , '' } FINSI
	SI AG4270 <> ?   ALORS donneeMOA { '3517BCA12A' , 'RR' , '00' , AG4270 , '' } FINSI
	SI AG4268 <> ?   ALORS donneeMOA { '3517BCA12A' , 'RS' , '00' , AG4268 , '' } FINSI
	SI AG4269 <> ?   ALORS donneeMOA { '3517BCA12A' , 'RT' , '00' , AG4269 , '' } FINSI
	SI AG4271 <> ?   ALORS donneeMOA { '3517BCA12A' , 'RU' , '00' , AG4271 , '' } FINSI
	SI AG4256 <> ?   ALORS donneeMOA { '3517BCA12A' , 'RV' , '00' , AG4256 , '' } FINSI
	SI AG4259 <> ?   ALORS donneeMOA { '3517BCA12A' , 'RW' , '00' , AG4259 , '' } FINSI
	SI AG4255 <> ?   ALORS donneeMOA { '3517BCA12A' , 'RX' , '00' , AG4255 , '' } FINSI
	SI AG4266 <> ?   ALORS donneeMOA { '3517BCA12A' , 'RY' , '00' , AG4266 , '' } FINSI
	SI AG4267 <> ?   ALORS donneeMOA { '3517BCA12A' , 'RZ' , '00' , AG4267 , '' } FINSI

	i := 1
	TANT QUE i <= 4 FAIRE
		SI etat!{'3517AGR_WF'+i}chaine <> '?' ALORS donneeCCI { '3517BCA12A' , 'WF' , ''+i ,  etat!{'3517AGR_WF'+i}chaine , 'PE1' } FINSI
		SI etat!{'3517AGR_WG'+i}reel <> ? ALORS donneeQTY { '3517BCA12A' , 'WG' , ''+i ,  etat!{'3517AGR_WG'+i}reel , '' } FINSI	
		SI etat!{'3517AGR_WH'+i}monnaie <> ?   ALORS donneeMOA { '3517BCA12A' , 'WH' , ''+i , etat!{'3517AGR_WH'+i}monnaie , '' } FINSI	
		SI etat!{'3517AGR_WJ'+i}monnaie <> ?   ALORS donneeMOA { '3517BCA12A' , 'WJ' , ''+i , etat!{'3517AGR_WJ'+i}monnaie , '' } FINSI
		SI etat!{'3517AGR_WK'+i}monnaie <> ?   ALORS donneeMOA { '3517BCA12A' , 'WK' , ''+i , etat!{'3517AGR_WK'+i}monnaie , '' } FINSI
		SI etat!{'3517AGR_WL'+i}monnaie <> ?   ALORS donneeMOA { '3517BCA12A' , 'WL' , ''+i , etat!{'3517AGR_WL'+i}monnaie , '' } FINSI
		SI etat!{'3517AGR_WM'+i}monnaie <> ?   ALORS donneeMOA { '3517BCA12A' , 'WM' , ''+i , etat!{'3517AGR_WM'+i}monnaie , '' } FINSI
		SI etat!{'3517AGR_WN'+i}monnaie <> ?   ALORS donneeMOA { '3517BCA12A' , 'WN' , ''+i , etat!{'3517AGR_WN'+i}monnaie , '' } FINSI
		i += 1
	FIN FAIRE  

	SI 3517AGR_YC1 <> ?   ALORS donneeMOA { '3517BCA12A' , 'YC' , '00' , 3517AGR_YC1 , '' } 
	SINON
		SI 3517AGR_YC2 <> ?   ALORS donneeMOA { '3517BCA12A' , 'YC' , '00' , 3517AGR_YC2 , '' } FINSI
	FINSI

	SI 3517AGR_XM <> ?   ALORS donneeMOA { '3517BCA12A' , 'XM' , '00' , 3517AGR_XM , '' } FINSI
	SI 3517AGR_XN <> ?   ALORS donneeMOA { '3517BCA12A' , 'XN' , '00' , 3517AGR_XN , '' } FINSI
	SI 3517AGR_XP <> ?   ALORS donneeMOA { '3517BCA12A' , 'XP' , '00' , 3517AGR_XP , '' } FINSI
	SI 3517AGR_XQ <> ?   ALORS donneeMOA { '3517BCA12A' , 'XQ' , '00' , 3517AGR_XQ , '' } FINSI

    SI 3517AGR_AJ <> ?   ALORS donneeMOA { '3517BCA12A' , 'AJ' , '00' , 3517AGR_AJ , '' } FINSI
	
	SI NON palierJuillet ALORS
		SI 3517AGR_AH <> ?   ALORS donneeMOA { '3517BCA12A' , 'AH' , '00' , 3517AGR_AH , '' } FINSI
	FINSI
    SI 3517AGR_VM <> ?   ALORS donneeMOA { '3517BCA12A' , 'VM' , '00' , 3517AGR_VM , '' } FINSI
	
	SI 3517AGR_WP <> ?   ALORS donneeMOA { '3517BCA12A' , 'WP' , '00' , 3517AGR_WP , '' } FINSI
	SI 3517AGR_WQ <> ?   ALORS donneeMOA { '3517BCA12A' , 'WQ' , '00' , 3517AGR_WQ , '' } FINSI
	SI 3517AGR_WR <> ?   ALORS donneeMOA { '3517BCA12A' , 'WR' , '00' , 3517AGR_WR , '' } FINSI
	SI 3517AGR_VK <> ?   ALORS donneeMOA { '3517BCA12A' , 'VK' , '00' , 3517AGR_VK , '' } FINSI
	SI 3517AGR_UW <> ?   ALORS donneeMOA { '3517BCA12A' , 'UW' , '00' , 3517AGR_UW , '' } FINSI
	
	SI 3517AGR_US <> ?   ALORS donneeMOA { '3517BCA12A' , 'US' , '00' , 3517AGR_US , '' } FINSI
	SI 3517AGR_UT <> ?   ALORS donneeMOA { '3517BCA12A' , 'UT' , '00' , 3517AGR_UT , '' } FINSI
	SI 3517AGR_UU <> ?   ALORS donneeMOA { '3517BCA12A' , 'UU' , '00' , 3517AGR_UU , '' } FINSI
	SI 3517AGR_UV <> ?   ALORS donneeMOA { '3517BCA12A' , 'UV' , '00' , 3517AGR_UV , '' } FINSI
	
	SI 3517AGR_UX <> ?   ALORS donneeMOA { '3517BCA12A' , 'UX' , '00' , 3517AGR_UX , '' } FINSI
	SI 3517AGR_UY <> ?   ALORS donneeMOA { '3517BCA12A' , 'UY' , '00' , 3517AGR_UY , '' } FINSI
	SI 3517AGR_UZ <> ?   ALORS donneeMOA { '3517BCA12A' , 'UZ' , '00' , 3517AGR_UZ , '' } FINSI
	SI 3517AGR_VA <> ?   ALORS donneeMOA { '3517BCA12A' , 'VA' , '00' , 3517AGR_VA , '' } FINSI
	SI 3517AGR_VB <> ?   ALORS donneeMOA { '3517BCA12A' , 'VB' , '00' , 3517AGR_VB , '' } FINSI
	
	SI 3517AGR_WW <> ?   ALORS donneeMOA { '3517BCA12A' , 'WW' , '00' , 3517AGR_WW , '' } FINSI
	SI 3517AGR_WT <> ?   ALORS donneeMOA { '3517BCA12A' , 'WT' , '00' , 3517AGR_WT , '' } FINSI
	SI 3517AGR_WU <> ?   ALORS donneeMOA { '3517BCA12A' , 'WU' , '00' , 3517AGR_WU , '' } FINSI
	SI 3517AGR_VF <> ?   ALORS donneeMOA { '3517BCA12A' , 'VF' , '00' , 3517AGR_VF , '' } FINSI
	SI 3517AGR_VL <> ?   ALORS donneeMOA { '3517BCA12A' , 'VL' , '00' , 3517AGR_VL , '' } FINSI

	SI AG4269_B <> ?   ALORS donneeMOA { '3517BCA12A' , 'SC' , '00' , AG4269_B , '' } FINSI
	SI AG4271_B <> ?   ALORS donneeMOA { '3517BCA12A' , 'SD' , '00' , AG4271_B , '' } FINSI
	SI 3517AGR_SE <> ?   ALORS donneeMOA { '3517BCA12A' , 'SE' , '00' , 3517AGR_SE , '' } FINSI
	SI 3517AGR_SF <> ?   ALORS donneeMOA { '3517BCA12A' , 'SF' , '00' , 3517AGR_SF , '' } FINSI
	SI 3517AGR_SG <> ?   ALORS donneeMOA { '3517BCA12A' , 'SG' , '00' , 3517AGR_SG , '' } FINSI
	SI 3517AGR_SH <> ?   ALORS donneeMOA { '3517BCA12A' , 'SH' , '00' , 3517AGR_SH , '' } FINSI
	SI 3517AGR_SJ <> ?   ALORS donneeMOA { '3517BCA12A' , 'SJ' , '00' , 3517AGR_SJ , '' } FINSI
	SI 3517AGR_SK <> ?   ALORS donneeMOA { '3517BCA12A' , 'SK' , '00' , 3517AGR_SK , '' } FINSI
	SI 3517AGR_SL <> ?   ALORS donneeQTY { '3517BCA12A' , 'SL' , '00' , 3517AGR_SL , '' } FINSI
	SI 3517AGR_SM <> ?   ALORS donneeQTY { '3517BCA12A' , 'SM' , '00' , 3517AGR_SM , '' } FINSI
	SI 3517AGR_SQ <> ?   ALORS donneeMOA { '3517BCA12A' , 'SQ' , '00' , 3517AGR_SQ , '' } FINSI
	SI 3517AGR_SR <> ?   ALORS donneeMOA { '3517BCA12A' , 'SR' , '00' , 3517AGR_SR , '' } FINSI
	SI 3517AGR_SS <> ?   ALORS donneeMOA { '3517BCA12A' , 'SS' , '00' , 3517AGR_SS , '' } FINSI
	SI 3517AGR_ST <> ?   ALORS donneeMOA { '3517BCA12A' , 'ST' , '00' , 3517AGR_ST , '' } FINSI
	SI 3517AGR_SU <> ?   ALORS donneeMOA { '3517BCA12A' , 'SU' , '00' , 3517AGR_SU , '' } FINSI
	SI 3517AGR_SV <> ?   ALORS donneeMOA { '3517BCA12A' , 'SV' , '00' , 3517AGR_SV , '' } FINSI
	SI 3517AGR_SW <> ?   ALORS donneeMOA { '3517BCA12A' , 'SW' , '00' , 3517AGR_SW , '' } FINSI
	SI 3517AGR_SX <> ?   ALORS donneeMOA { '3517BCA12A' , 'SX' , '00' , 3517AGR_SX , '' } FINSI
	SI 3517AGR_SY <> ?   ALORS donneeMOA { '3517BCA12A' , 'SY' , '00' , 3517AGR_SY , '' } FINSI
	SI 3517AGR_SZ <> ?   ALORS donneeMOA { '3517BCA12A' , 'SZ' , '00' , 3517AGR_SZ , '' } FINSI

	SI (3517AGR_TR > 0 OU  3517AGR_TS > 0 OU 3517AGR_TT > 0) ALORS
		donneeMOA { '3517BCA12A' , 'TA' , '00' , 3517AGR_TA , 'FORCE' }
		donneeMOA { '3517BCA12A' , 'TB' , '00' , 3517AGR_TB , 'FORCE' }
	FINSI
	
	SI 3517AGR_TK <> ?   ALORS donneeMOA { '3517BCA12A' , 'TK' , '00' , 3517AGR_TK , '' } FINSI
	SI 3517AGR_TL <> ?   ALORS donneeMOA { '3517BCA12A' , 'TL' , '00' , 3517AGR_TL , '' } FINSI
	SI 3517AGR_TM <> ?   ALORS donneeMOA { '3517BCA12A' , 'TM' , '00' , 3517AGR_TM , '' } FINSI
	SI 3517AGR_TR <> ?   ALORS donneeQTY { '3517BCA12A' , 'TR' , '00' , 3517AGR_TR , '' } FINSI
	SI 3517AGR_TS <> ?   ALORS donneeQTY { '3517BCA12A' , 'TS' , '00' , 3517AGR_TS , '' } FINSI
	SI 3517AGR_TT <> ?   ALORS donneeQTY { '3517BCA12A' , 'TT' , '00' , 3517AGR_TT , '' } FINSI
	SI 3517AGR_TU <> ?   ALORS donneeQTY { '3517BCA12A' , 'TU' , '00' , 3517AGR_TU , '' } FINSI
	SI 3517AGR_TV <> ?   ALORS donneeQTY { '3517BCA12A' , 'TV' , '00' , 3517AGR_TV , '' } FINSI
	SI 3517AGR_TW <> ?   ALORS donneeQTY { '3517BCA12A' , 'TW' , '00' , 3517AGR_TW , '' } FINSI
	SI 3517AGR_TX <> ?   ALORS donneeQTY { '3517BCA12A' , 'TX' , '00' , 3517AGR_TX , '' } FINSI
	SI 3517AGR_TY <> ?   ALORS donneeQTY { '3517BCA12A' , 'TY' , '00' , 3517AGR_TY , '' } FINSI
	SI 3517AGR_TZ <> ?   ALORS donneeMOA { '3517BCA12A' , 'TZ' , '00' , 3517AGR_TZ , '' } FINSI
	SI 3517AGR_UA <> ?   ALORS donneeMOA { '3517BCA12A' , 'UA' , '00' , 3517AGR_UA , '' } FINSI
	SI 3517AGR_UB <> ?   ALORS donneeMOA { '3517BCA12A' , 'UB' , '00' , 3517AGR_UB , '' } FINSI
	SI 3517AGR_UP <> ?   ALORS donneeQTY { '3517BCA12A' , 'UP' , '00' , 3517AGR_UP , '' } FINSI

    SI imprimeCourant <> '3517BCA12A'	ALORS
    	donneeCCI { '3517BCA12A' , 'AE' , '00' , codeCloture , 'CEX' } 	
    	donneeCCI { '3517BCA12A' , 'ND' , '00' , 'X' , 'TBX' }
    	SI Comm1 <> ?  OU Comm2 <> ? OU Comm3 <> ? OU Comm4 <> ? OU Comm5 <> ?  ALORS 
    		donneeFTXcinq { '3517BCA12A' , 'BA' , '00' , Comm1, Comm2 , Comm3 , Comm4 , Comm5 , '' }
    	FIN SI
    SINON	
    	donneeCCI { '3517BCA12A' , 'AE' , '00' , codeCloture , 'CEX' } 	
    	SI Comm1 <> ?  OU Comm2 <> ? OU Comm3 <> ? OU Comm4 <> ? OU Comm5 <> ?  ALORS 
    		donneeFTXcinq { '3517BCA12A' , 'BA' , '00' , Comm1, Comm2 , Comm3 , Comm4 , Comm5 , '' } 
    	FINSI
    FIN SI

	SI mentionExpresseTvaMotif ALORS
		SI avecTVA_AcompteCP_AA ALORS donneeCCI { '3517BCA12A' , 'AA' , '00' , 'X' , 'TBX' } FINSI
		SI avecTVA_TIC_AB ALORS donneeCCI { '3517BCA12A' , 'AB' , '00' , 'X' , 'TBX' } FINSI
		SI avecTVA_Autres_AC ALORS donneeCCI { '3517BCA12A' , 'AC' , '00' , 'X' , 'TBX' } FINSI
		donneeCCI{'3517BCA12A', 'AG', '00', 'X', 'TBX'}
	FINSI
	
	SI palierJuillet ALORS
		SI 3517AGR_YR <> ?   ALORS donneeMOA { '3517BCA12A' , 'YR' , '00' , 3517AGR_YR , '' } FINSI
		
		SI 3517AGR_XY <> ?   ALORS donneeMOA { '3517BCA12A' , 'XY' , '00' , 3517AGR_XY , '' } FINSI
		SI 3517AGR_ZL <> ?   ALORS donneeMOA { '3517BCA12A' , 'ZL' , '00' , 3517AGR_ZL , '' } FINSI
		SI 3517AGR_YB <> ?   ALORS donneeMOA { '3517BCA12A' , 'YB' , '00' , 3517AGR_YB , '' } FINSI
		
		SI 3517AGR_YW <> ?   ALORS donneeMOA { '3517BCA12A' , 'YW' , '00' , 3517AGR_YW , '' } FINSI
		SI 3517AGR_YA <> ?   ALORS donneeMOA { '3517BCA12A' , 'YA' , '00' , 3517AGR_YA , '' } FINSI
		SI 3517AGR_YV <> ?   ALORS donneeMOA { '3517BCA12A' , 'YV' , '00' , 3517AGR_YV , '' } FINSI
		
		SI 3517AGR_XZ <> ?   ALORS donneeMOA { '3517BCA12A' , 'XZ' , '00' , 3517AGR_XZ , '' } FINSI
		SI 3517AGR_YU <> ?   ALORS donneeMOA { '3517BCA12A' , 'YU' , '00' , 3517AGR_YU , '' } FINSI
		SI 3517AGR_ZN <> ?   ALORS donneeMOA { '3517BCA12A' , 'ZN' , '00' , 3517AGR_ZN , '' } FINSI
		
		SI 3517AGR_YS <> ?   ALORS donneeMOA { '3517BCA12A' , 'YS' , '00' , 3517AGR_YS , '' } FINSI
		SI 3517AGR_ZM <> ?   ALORS donneeMOA { '3517BCA12A' , 'ZM' , '00' , 3517AGR_ZM , '' } FINSI
		SI 3517AGR_GM <> ?   ALORS donneeMOA { '3517BCA12A' , 'GM' , '00' , 3517AGR_GM , '' } FINSI		
	FINSI

	EDITVA_detail_3310TIC_FP{}

###
'EDITVA_detailDDR' 'EDI'
    
    -- T-IDENTIF 2012
    donneeNADcomplet { 'T-IDENTIF' , 'AA' , '00' ,  chaine{tva_siret, 1, 9}, tva_nom, 'NS' , 'NS', '' , '' , tva_adresse1 , tva_adresse2, tva_adresse3, tva_ville, tva_codepostal, '', '' , '' } 	
    SI tva_dateCess <> ? ET cess  ALORS donneeDTM102 { 'T-IDENTIF' , 'BB' , '00' , tva_dateCess , '' } FINSI	
    SI estSocieteMere = VRAI   ALORS donneeCCI { 'T-IDENTIF' , 'BC' , '00' , 'X' , 'TBX' } FINSI	
    SI tva_debutPeriode <> ?   ALORS donneeDTM102 { 'T-IDENTIF' , 'CA' , '00' , tva_debutPeriode , '' } FINSI	
    SI tva_finPeriode <> ?   ALORS donneeDTM102 { 'T-IDENTIF' , 'CB' , '00' , tva_finPeriode , '' } FINSI	
    /*
    SI paiementTLR = VRAI   ALORS donneeCCI { 'T-IDENTIF' , 'EA' , '00' , 'X' , 'TBX' } FINSI	
    SI paiementVIR = VRAI   ALORS donneeCCI { 'T-IDENTIF' , 'EB' , '00' , 'X' , 'TBX' } FINSI	
    SI paiementCHQ = VRAI   ALORS donneeCCI { 'T-IDENTIF' , 'EC' , '00' , 'X' , 'TBX' } FINSI	
    SI paiementESP = VRAI   ALORS donneeCCI { 'T-IDENTIF' , 'ED' , '00' , 'X' , 'TBX' } FINSI	
    SI tva_vir_nb <> ? ET paiementVIR = VRAI  ALORS donneeQTYentier { 'T-IDENTIF' , 'EE' , '00' , tva_vir_nb , '' } FINSI	
    SI tva_vir_ref <> ? ET paiementVIR = VRAI  ALORS donneeRFF { 'T-IDENTIF' , 'FB' , '00' , tva_vir_ref , '' } FINSI	
    SI tva_chq_ref <> ? ET paiementCHQ = VRAI  ALORS donneeRFF { 'T-IDENTIF' , 'FC' , '00' , tva_chq_ref , '' } FINSI	
    SI tva_esp_ref <> ? ET paiementESP = VRAI  ALORS donneeRFF { 'T-IDENTIF' , 'FD' , '00' , tva_esp_ref , '' } FINSI	
    SI TLR1_etab  <> ? ET paiementTLR = VRAI ET TLR1 = VRAI  ALORS donneeFIIIBAN { 'T-IDENTIF' , 'GA' , '00' , TLR1_etab , TLR1_guichet , TLR1_compte , TLR1_cle, TLR1_cleIBAN, TLR1_IBAN, TLR1_codeBIC , '' } FINSI	
    SI TLR2_etab  <> ? ET paiementTLR = VRAI ET TLR2 = VRAI  ALORS donneeFIIIBAN { 'T-IDENTIF' , 'GB' , '00' , TLR2_etab , TLR2_guichet , TLR2_compte , TLR2_cle, TLR2_cleIBAN, TLR2_IBAN, TLR2_codeBIC , '' } FINSI	
    SI TLR3_etab  <> ? ET paiementTLR = VRAI ET TLR3 = VRAI  ALORS donneeFIIIBAN { 'T-IDENTIF' , 'GC' , '00' , TLR3_etab , TLR3_guichet , TLR3_compte , TLR3_cle, TLR3_cleIBAN, TLR3_IBAN, TLR3_codeBIC , '' } FINSI	
    SI TLR1_montant <> ? ET paiementTLR = VRAI ET TLR1 = VRAI  ALORS donneeMOA2 { 'T-IDENTIF' , 'HA' , '00' , TLR1_montant , '' } FINSI	
    SI TLR2_montant <> ? ET paiementTLR = VRAI ET TLR2 = VRAI  ALORS donneeMOA2 { 'T-IDENTIF' , 'HB' , '00' , TLR2_montant , '' } FINSI	
    SI TLR3_montant <> ? ET paiementTLR = VRAI ET TLR3 = VRAI  ALORS donneeMOA2 { 'T-IDENTIF' , 'HC' , '00' , TLR3_montant , '' } FINSI	
    SI TLR1_reference <> ? ET paiementTLR = VRAI ET TLR1 = VRAI  ALORS donneeRFF { 'T-IDENTIF' , 'KA' , '00' , TLR1_reference , '' } FINSI	
    SI TLR2_reference <> ? ET paiementTLR = VRAI ET TLR2 = VRAI  ALORS donneeRFF { 'T-IDENTIF' , 'KB' , '00' , TLR2_reference , '' } FINSI	
    SI TLR3_reference <> ? ET paiementTLR = VRAI ET TLR3 = VRAI  ALORS donneeRFF { 'T-IDENTIF' , 'KC' , '00' , TLR3_reference , '' } FINSI	
    */
    SI tva_refObligationFiscale <> ?   ALORS donneeRFF { 'T-IDENTIF' , 'KD' , '00' , tva_refObligationFiscale , '' } FINSI	
    SI tva_dateRedressement <> ?   ALORS donneeDTM102 { 'T-IDENTIF' , 'KE' , '00' , tva_dateRedressement , '' } FINSI	
    SI tva_echeance3514 <> ?   ALORS donneeDTM610 { 'T-IDENTIF' , 'KF' , '00' , tva_echeance3514 , '' } FINSI	
    
    --3517DDR 2016	
    SI DDR_AA <> ?   ALORS donneeMOA { '3517DDR' , 'AA' , '00' , DDR_AA , '' } FINSI	
    SI DDR_AB <> ?   ALORS donneeMOA { '3517DDR' , 'AB' , '00' , DDR_AB , '' } FINSI	
    SI DDR_AC <> ?   ALORS donneeMOA { '3517DDR' , 'AC' , '00' , DDR_AC , '' } FINSI	
    SI DDR_AD <> ?   ALORS donneeMOA { '3517DDR' , 'AD' , '00' , DDR_AD , '' } FINSI	
    SI DDR_AE <> ?   ALORS donneeMOA { '3517DDR' , 'AE' , '00' , DDR_AE , '' } FINSI	
    SI DDR_AFNOM <> ?   ALORS donneeNADsignature { '3517DDR' , 'AF' , '00' , DDR_AFLIEU, DDR_AFNOM, DDR_AFQUALITE , '' } FINSI	
    SI DDR_AG <> ?   ALORS donneeMOA { '3517DDR' , 'AG' , '00' , DDR_AG , '' } FINSI	
    SI DDR_AH <> ?   ALORS donneeCCI { '3517DDR' , 'AH' , '00' , 'X' , 'TBX' } FINSI	
    SI DDR_AJ <> ?   ALORS donneeCCI { '3517DDR' , 'AJ' , '00' , 'X' , 'TBX' } FINSI	
    SI DDR_AG <> ?   ALORS donneeFIIIBANtitulaire2 { '3517DDR' , 'AK' , '00' , titulaireCpteRbmt, TLR1_IBAN, TLR1_IBANetranger, TLR1_codeBIC , '' } FINSI	
    SI commentaireDDR <> ?   ALORS donneeFTX { '3517DDR' , 'AL' , '00' , commentaireDDR , '' } FINSI	
    SI DDR_BA <> ?   ALORS donneeDTM102 { '3517DDR' , 'BA' , '00' , DDR_BA , '' } FINSI	
    SI DDR_BB <> ?   ALORS donneeCCI { '3517DDR' , 'BB' , '00' , 'X' , 'TBX' } FINSI
###
'EDITVA2' 'EDI'
    
    tva_debutPeriode := dateDebutDate	--CA12Du
    tva_finPeriode := dateFinDate	--CA12Au
    
    remplirTypeClotureExo{}
    
    SI Euro <> ?		ALORS	tva_monnaieSouscription := 'EE'	FINSI
    SI Franc <> ?		ALORS	tva_monnaieSouscription := 'EF'	FINSI
    SI CptaFranc <> ?	ALORS	tva_monnaieSouscription := 'FF'	FINSI
    
    
    ExportTVA_initialisation{}
    
    SI controlesOK = VRAI	ALORS
    	SI envoiCA12 ET (NON pasDGI OU envoiOGA) ALORS
			ExportTVA_entete{}
			EDITVA_detail{}
			ExportTVA_fin{}
    	FIN SI
    
    	-- 3517DDR
    	SI envoi3517DDR ALORS
    		EDITVA_DDR{}
    	FIN SI
    FINSI
    
    SORTIR VRAI
###
'ExportFormatEDI' 'EDI'
    
    liasse_tva := 'CA12AGR'
    SI NON envoiCA12 ALORS
    	liasse_tva := '3517DDR'
    	paiementTLR := FAUX
    FIN SI
    
    tva_debutPeriode := dateDebutDate	--CA12Du
    tva_finPeriode := dateFinDate	--CA12Au
    
    remplirTypeClotureExo{}
    
    SI envoiCA12 ALORS
    	montantTvaDu 		:= AG_TT
    	montantTvaCredit 	:= AG_TVA_CRED
    SINON
    	montantTvaDu 		:= 0
    	montantTvaCredit 	:= 0
    FIN SI
    SI envoi3517DDR ALORS
    	montantRbmtDemande 	:= DDR_AG
    SINON
    	montantRbmtDemande 	:= 0
    FIN SI
    
    SI Euro <> ?		ALORS	tva_monnaieSouscription := 'EE'	FINSI
    SI Franc <> ?		ALORS	tva_monnaieSouscription := 'EF'	FINSI
    SI CptaFranc <> ?	ALORS	tva_monnaieSouscription := 'FF'	FINSI
    
    
    ExportTVA_initialisation{}
    
    SI controlesOK = VRAI	ALORS
    	SI envoiCA12 ET (NON pasDGI OU envoiOGA) ALORS
    		ExportTVA_entete{}		
    		EDITVA_detail{}
    		ExportTVA_fin{}
    	FIN SI
    
    	-- 3517DDR
    	SI envoi3517DDR ALORS
    		EDITVA_DDR{}
    	FIN SI
    FINSI
###
'remonterTypeClotureExo' 'EDI'
    
    SORTIR typeClotureExo
###
'remplirTypeClotureExo' 'EDI'
    
    SI ('' + tva_finPeriode) # '31/12/' 	
    ALORS	
    	typeClotureExo := '12'	-- année civile
    SINON	
    	typeClotureExo := '12E'	-- exercice
    FINSI
###
'tva_debutPeriode_MODIF' 'EDI'
    
    remplirTypeClotureExo{}
    affichage{VRAI}
    
    SORTIR VRAI
###
'tva_finPeriode_MODIF' 'EDI'
    
    remplirTypeClotureExo{}
    affichage{VRAI}
    
    SORTIR VRAI
###
'typeClotureExo_MODIF' 'EDI'
    
    SI NON ouiNon{'Etes-vous sûr de vouloir modifier le type de déclaration CA12 AGR ?'} ALORS 
    	SI (sysInfo{'noyau'} = 'C')	ALORS
    		SI typeClotureExo = '12' ALORS
    			typeClotureExo	:=	'12E'
    		SINON
    			typeClotureExo	:=	'12'
    		FIN SI
    		affichage{VRAI}
    	SINON
    		SORTIR FAUX 
    	FIN SI
    FIN SI
    
    SORTIR VRAI
###
'-----' 'Evénements'
###
'INITIALISER' 'Evénements'
    numero := 85
    categorie := 'Etats TVA 2025...'
	
###
'MENU_Importer depuis TVA Etats préparatoires' 'Evénements'
    
    SI EstVerrouille ALORS
    	info{'Traitement impossible car la TVA est verrouillée'}
    	SORTIR FAUX
    FIN SI

    SI NON ouiNon{'Vous allez importer les valeurs depuis l''état TVA Etats préparatoires.
Souhaitez-vous continuer ?'} ALORS
    	SORTIR FAUX
    FIN SI
    
    importerEtatsPrep{}
    
    affichage{}
    
    SORTIR VRAI
###
'MENU_        Annuler l'import des valeurs depuis l'état TVA Etats préparatoires' 'Evénements'
    
    SI EstVerrouille ALORS
    	info{'Traitement impossible car la TVA est verrouillée'}
    	SORTIR FAUX
    FIN SI

    SI NON ouiNon{'Vous allez annuler l''import des valeurs depuis l''état TVA Etats préparatoires.
Les données seront remises à ?. Souhaitez-vous continuer ?'} ALORS
    	SORTIR FAUX
    FIN SI
    
    AG0032 := ?
    AG0033 := ?
    AG0034 := ?
    AG0105 := ?
    AG0206 := ?
    AG005B := ?
    AG0100 := ?
    AG0201 := ?
    AG0970 := ?
    AG0970_TD := ?
    AG0980 := ?
    AG0980_TD := ?
    AG0031 := ?
    AG0031_TD := ?
    AG0703 := ?
    AG0702 := ?
    AG0900 := ?
    AG0900_TD := ?
    
    AG0207 := ?
    AG0151 := ?
    
    INTER3517_2{}
    
    affichage{}
    
    SORTIR VRAI
###
'OUVERTURE' 'Evénements'
    
    IMP:=	FAUX
    
    impression { 'entete.ps' }
    impression { 'compta/25/liasse.ps' }
###
'3517_1' 'Toutes fonctions'
    INTER3517_1{}
###
'3517_2' 'Toutes fonctions'
    INTER3517_2{}
###
'3517__3' 'Toutes fonctions'
	INTER3517_3{}
    INTER3517_2{}
###
'3517_3' 'Toutes fonctions'
	INTER3517_3{}
    INTER3517_2{}
###
'3517__4' 'Toutes fonctions'
    INTER3517_3{}
    INTER3517_2{}
	INTER3517_4{}
###
'3517_4' 'Toutes fonctions'
    INTER3517_3{}
    INTER3517_2{}
	INTER3517_4{}
###
'3517_5' 'Toutes fonctions'
    INTER3517_5{}
###
'3517AGR__ext1' 'Toutes fonctions'
    INTER3517_2{}
###
'3517AGR_ext1' 'Toutes fonctions'
    INTER3517_2{}
###
'ajoutAutoTVA' 'Toutes fonctions'
    
    |
    	libelleEcritureTva <Chaine>
    	edit<Objet>
    	tmpMonnaie<Monnaie>
    	tmpCompte<Chaine> tmpinfo<Chaine> 
    	CR<Chaine> 
    	listeCompteACreer<Objet> 
    	i<Entier> listeCompte44571<Objet> 
    	compte445710<Booléen>    
    |
    
    compte445710 := FAUX
    listeCompte44571 := creerListe{}
    POUR TOUT compte '44571' FAIRE
        	ajouterElement{listeCompte44571, compte.numero}
    FIN FAIRE
    SI nbElements{listeCompte44571} = 1 ET ''+elementDIndice{listeCompte44571, 1} = '445710' ALORS
    	compte445710 := VRAI
    FINSI
    ---------
    
    listeCompteACreer := creerListe{}
    
    CR := '
    '    
    edit	::=	'EditeurDeJournaux'
    edit	:=	exerciceComptable.argEditJournaux
    
    libelleEcritureTva := 'OD de TVA CA12A ' + chaine{'' +dateFin, 4, 10}
    
    SI generation = 'cerfa'	ALORS
    	SI compte445710 ALORS
    		SI AG0207_TD > 0	ALORS	edit.ajouterLigneTVA {dateFin, '44571'+indiceTaux{20.00}, '', libelleEcritureTva , AG0207_TD, 0.00}	FINSI	-- Ligne 04
	    	SI AG0151_TD > 0	ALORS	edit.ajouterLigneTVA {dateFin, '44571'+indiceTaux{10.00}, '', libelleEcritureTva , AG0151_TD, 0.00}	FINSI	-- Ligne 05 A
	    	SI AG005B_TD > 0	ALORS   edit.ajouterLigneTVA {dateFin, '44571'+indiceTaux7{}, '', libelleEcritureTva , AG005B_TD,0.00}		FINSI	-- Ligne 05 B
	    SINON
    		SI AG0207_TD > 0	ALORS	
	    		tmpCompte := chaine{'44571' + indiceTaux{20.0}+ '0000000000',1,exerciceComptable.tailleCodeCompte}
	    		compte ::= tmpCompte
	    		SI compte = ?
	    		ALORS
	    			tmpinfo +=  'Le compte ' + tmpCompte + ' sera affecté au taux de TVA 20.' + CR
	    			ajouterElement{listeCompteACreer, tmpCompte + ' TVA COLLECTEE 20%'}
	    		FINSI
	    	FIN SI 
    		SI AG0151_TD > 0	ALORS	
	    		tmpCompte := chaine{'44571' + indiceTaux{10.0}+ '0000000000',1,exerciceComptable.tailleCodeCompte}
	    		compte ::= tmpCompte
	    		SI compte = ?
	    		ALORS
	    			tmpinfo +=  'Le compte ' + tmpCompte + ' sera affecté au taux de TVA 10.' + CR
	    			ajouterElement{listeCompteACreer, tmpCompte + ' TVA COLLECTEE 10%'}
	    		FINSI 
	    	FIN SI
	    	SI AG005B_TD > 0	ALORS   
	    		tmpCompte := chaine{'44571' + indiceTaux7{}+ '0000000000',1,exerciceComptable.tailleCodeCompte}
	    		compte ::= tmpCompte
	    		SI compte = ?
	    		ALORS
	    			tmpinfo +=  'Le compte ' + tmpCompte + ' sera affecté au taux de TVA 7.' + CR
	    			ajouterElement{listeCompteACreer, tmpCompte + ' TVA COLLECTEE 7%'}
	    		FINSI 
	    	FIN SI
	    	SI tmpinfo <> '' ALORS
	    		SI ouiNon{tmpinfo+ 'Souhaitez-vous la création de compte ?'} ALORS
	    			i := 1
	    			TANTQUE i<= nbElements{listeCompteACreer}
	    			FAIRE
	    				tmpCompte := ''+elementDIndice{listeCompteACreer,i}
	    				creerCompte{chaine{tmpCompte,1,exerciceComptable.tailleCodeCompte},chaine{tmpCompte,exerciceComptable.tailleCodeCompte+2,taille{tmpCompte}}}
	    				i+=1
	    			FIN FAIRE 
	    			SI AG0207_TD > 0	ALORS
	    				tmpCompte := '44571' + indiceTaux{20.0}
	    				edit.ajouterLigneTVA {dateFin, tmpCompte, '', libelleEcritureTva , AG0207_TD ,  tmpMonnaie}
	    			FINSI
	    			SI AG0151_TD > 0	ALORS
	    				tmpCompte := '44571' + indiceTaux{10.0}
	    				edit.ajouterLigneTVA {dateFin, tmpCompte, '', libelleEcritureTva , AG0151_TD,  tmpMonnaie}
	    			FINSI
	    			SI AG005B_TD > 0	ALORS	
	    				tmpCompte := '44571' + indiceTaux7{}
	    				edit.ajouterLigneTVA {dateFin, tmpCompte, '', libelleEcritureTva , AG005B_TD,  tmpMonnaie}	
	    			FINSI
	    		FINSI
	    	SINON
	    		SI AG0207_TD  > 0	ALORS
	    			tmpCompte := '44571' + indiceTaux{20.0}
	    			edit.ajouterLigneTVA {dateFin, tmpCompte, '', libelleEcritureTva , AG0207_TD,  tmpMonnaie}
	    		FINSI
	    		SI AG0151_TD > 0	ALORS
	    			tmpCompte := '44571' + indiceTaux{10.0}
	    			edit.ajouterLigneTVA {dateFin, tmpCompte, '', libelleEcritureTva , AG0151_TD,  tmpMonnaie}
	    		FINSI
	    		SI AG005B_TD > 0	ALORS	
	    			tmpCompte := '44571' + indiceTaux7{}
	    			edit.ajouterLigneTVA {dateFin, tmpCompte, '', libelleEcritureTva , AG005B_TD,  tmpMonnaie}	
	    		FINSI
	    	FINSI	    	
	    FIN SI
    	SI AG0206_TD > 0	ALORS	edit.ajouterLigneTVA {dateFin, '44571200', '', libelleEcritureTva , AG0206_TD, 0.00}			FINSI	-- Ligne 05
    	SI AG0105_TD > 0	ALORS	edit.ajouterLigneTVA {dateFin, '44571100', '', libelleEcritureTva , AG0105_TD, 0.00}			FINSI	-- Ligne 05 C
    
    	SI AG0100_TD > 0	ALORS	edit.ajouterLigneTVA {dateFin, '', '', libelleEcritureTva , AG0100_TD, 0.00}		FINSI	-- Ligne 06
    	
    	SI AG0201_TD > 0	ALORS	edit.ajouterLigneTVA {dateFin, '', '', libelleEcritureTva , AG0201_TD, 0.00}		FINSI	-- Ligne 07
    	SI AG0900_TD > 0	ALORS	edit.ajouterLigneTVA {dateFin, '', '', libelleEcritureTva , AG0900_TD, 0.00}		FINSI	-- Ligne 08
    	SI AG0950_TD > 0	ALORS	edit.ajouterLigneTVA {dateFin, '445780', '', libelleEcritureTva , AG0950_TD, 0.00}	FINSI	-- Ligne 09
    	SI AG0030_TD > 0	ALORS	edit.ajouterLigneTVA {dateFin, '', '', libelleEcritureTva , AG0030_TD, 0.00}		FINSI	-- Ligne 09b
    	SI AG0970_TD > 0	ALORS	edit.ajouterLigneTVA {dateFin, '', '', libelleEcritureTva , AG0970_TD, 0.00}		FINSI	-- Ligne 10
    	SI AG0980_TD > 0	ALORS	edit.ajouterLigneTVA {dateFin, '', '', libelleEcritureTva , AG0980_TD, 0.00}		FINSI	-- Ligne 11
    	SI AG0981_TD > 0	ALORS	edit.ajouterLigneTVA {dateFin, '', '', libelleEcritureTva , AG0981_TD, 0.00}		FINSI	-- Ligne 12
    	SI AG0031_TD > 0	ALORS	edit.ajouterLigneTVA {dateFin, '445200', '', libelleEcritureTva , AG0031_TD, 0.00}	FINSI	-- Ligne 13
    	SI AG0600 > 0		ALORS	edit.ajouterLigneTVA {dateFin, '445840', '', libelleEcritureTva , AG0600, 0.00}	FINSI	-- Ligne 14
    	SI AG0703 > 0		ALORS	edit.ajouterLigneTVA {dateFin, '445620', '', libelleEcritureTva , 0.00, AG0703}	FINSI	-- Ligne 17
    	SI AG0702 > 0		ALORS	edit.ajouterLigneTVA {dateFin, '445660', '', libelleEcritureTva , 0.00, AG0702}	FINSI	-- Ligne 18
    	SI AG0058 > 0		ALORS	edit.ajouterLigneTVA {dateFin, '445670', '', libelleEcritureTva , 0.00, AG0058}	FINSI	-- Ligne 19
    	SI AG0059 > 0		ALORS	edit.ajouterLigneTVA {dateFin, '', '', libelleEcritureTva , 0.00, AG0059}		FINSI	-- Ligne 20
    	SI AG0018 > 0		ALORS	edit.ajouterLigneTVA {dateFin, '445810', '', libelleEcritureTva , 0.00, AG0018}	FINSI	-- Ligne 25
    	SI AG9989 > 0		ALORS	edit.ajouterLigneTVA {dateFin, '', '', libelleEcritureTva , 0.00, AG9989}		FINSI	-- Ligne 26
    	SI AG9999 > 0		ALORS	edit.ajouterLigneTVA {dateFin, '', '', libelleEcritureTva , AG9999, 0.00}		FINSI	-- Ligne 27
    	SI AGl39 > 0		ALORS	edit.ajouterLigneTVA {dateFin, '445510', '', libelleEcritureTva , 0.00, AGl39}		FINSI	-- Ligne 39
    	SI AGl40 > 0		ALORS	edit.ajouterLigneTVA {dateFin, '445580', '', libelleEcritureTva , 0.00, AGl40}		FINSI	-- Ligne 40
    	edit.affecterObjetEtatTVA{etat}
    SINON
    	calculSoldeComptaTva{'445711'}
    	calculSoldeComptaTva{'445712'}
    	calculSoldeComptaTva{'445713'}
    	calculSoldeComptaTva{'445714'}
    	calculSoldeComptaTva{'445715'}
    	calculSoldeComptaTva{'445716'}
    	calculSoldeComptaTva{'445717'}
    	calculSoldeComptaTva{'445718'}
    	calculSoldeComptaTva{'445719'}
    	calculSoldeComptaTva{'445780'}
    	calculSoldeComptaTva{'445200'}
    	calculSoldeComptaTva{'445840'}
    	calculSoldeComptaTva{'445660'}
    	calculSoldeComptaTva{'445620'}
    	calculSoldeComptaTva{'445670'}
    	SI AG_TVA_CRED > 0	ALORS	edit.ajouterLigneTVA {dateFin, '445670', '', libelleEcritureTva , AG_TVA_CRED, 0.00}	FINSI	-- Ligne 36
    	SI AG_TT > 0		ALORS	edit.ajouterLigneTVA {dateFin, '445510', '', libelleEcritureTva , 0.00, AG_TT}		FINSI	-- Ligne 41
    	calculSoldeComptaTva{'445580'}
    FINSI
###
'CALCUL_Calcul_de_la_taxe_ADAR' 'Toutes fonctions'
    
    |
    	exerciceCourant<Date>
    |
    
    exerciceComptable	::=	exerciceCourant
    
    SI ADAR_1 = ? ALORS
    	ADAR_1	:=	1
    FINSI
    
    SI ADAR_2 = ? ALORS
    	ADAR_2	:=	12
    FINSI
    
    INTER_Calcul_de_la_taxe_ADAR{}
###
'Calcul_de_la_taxe_ADAR' 'Toutes fonctions'
    
    INTER_Calcul_de_la_taxe_ADAR{}
###
'calculer' 'Toutes fonctions'
    
    SI avec3616 ALORS
    	CALCUL_Calcul_de_la_taxe_ADAR{}
    FINSI
###
'calculSoldeComptaTva' 'Toutes fonctions'
{cpte <Chaine>}
    
    
    | 
    	libelleEcritureTva <Chaine>
    	edit<Objet>
    |
    
    edit	::=	'EditeurDeJournaux'
    edit	:=	exerciceComptable.argEditJournaux
    
    
    libelleEcritureTva := 'OD de TVA CA12A ' + chaine{'' +dateFin, 4, 10}
        
    SI soldeDebit{cpte}[dateFin] > 0	ALORS	edit.ajouterLigneTVA {dateFin, cpte, '', libelleEcritureTva , 0.0, soldeDebit{cpte}[dateFin]}	FINSI
    SI soldeCredit{cpte}[dateFin] > 0	ALORS	edit.ajouterLigneTVA {dateFin, cpte, '', libelleEcritureTva , soldeCredit{cpte}[dateFin], 0.0}	FINSI
###
'ControleMontantNegatif' 'Toutes fonctions'
	|
		affMessErrMtNeg<Booléen>
	|
	
	affMessErrMtNeg := FAUX
	SI AG0037 < 0 OU AG0032 < 0
		OU AG0033 < 0 OU 3517AGR_DF < 0 OU AG0034 < 0 OU _51 < 0 OU AG0029 < 0 OU 3517AGR_PF < 0 OU 3517AGR_PG < 0 
		OU AG0207 < 0 OU AG0207_TD < 0 OU AG0151 < 0 OU AG0151_TD < 0 OU AG0105 < 0 OU AG0105_TD < 0
		OU AG0100 < 0 OU AG0100_TD < 0 OU AG0201 < 0 OU AG0201_TD < 0 OU AG007B < 0 OU AG007B_TD < 0
		OU AG0900 < 0 OU AG0900_TD < 0 OU AG0950 < 0 OU AG0950_TD < 0
		OU 3517AGR_PH < 0 OU 3517AGR_PJ < 0 OU 3517AGR_SQ < 0 OU 3517AGR_SR < 0 OU 3517AGR_SS < 0 OU 3517AGR_ST < 0 OU 3517AGR_SU < 0 
		OU 3517AGR_SV < 0 OU 3517AGR_SW < 0 OU 3517AGR_SX < 0 OU 3517AGR_SY < 0 OU 3517AGR_SZ < 0
		OU AG0030 < 0 OU AG0030_TD < 0 OU AG0044 < 0 OU AG0044_TD < 0 OU AG0970 < 0 OU AG0970_TD < 0
		OU AG0980 < 0 OU AG0980_TD < 0 OU AG0981 < 0 OU AG0981_TD < 0 OU AG0031 < 0 OU AG0031_TD < 0 OU AG0600 < 0 OU AG0602 < 0
		OU AG0703 < 0 OU AG0702 < 0 OU AG0058 < 0 OU AG0059 < 0 OU AG0603 < 0 OU AG0018 < 0
		OU AG4220 < 0 OU AG4213 < 0 OU 3517AGR_SJ < 0 OU AG4326 < 0 OU AG4314 < 0 OU AG035C < 0 OU AG4253 < 0 OU AG4254 < 0
		OU AG4247 < 0 OU AG4248 < 0 OU 3517AGR_SL < 0 OU AG4249 < 0 OU 3517AGR_SM < 0 OU AG4250 < 0 OU AG4273 < 0 OU AG4274 < 0
		OU 3517AGR_TK < 0 OU 3517AGR_TL < 0 OU 3517AGR_TM < 0 OU 3517AGR_SH < 0 OU 3517AGR_SK < 0 OU AG4270 < 0 
		OU AG4268 < 0 OU AG4269 < 0 OU AG4269_B < 0 OU AG4271 < 0 OU AG4271_B < 0
		OU 3517AGR_PA < 0 OU 3517AGR_PB < 0 OU 3517AGR_PC < 0 OU 3517AGR_PD < 0 OU 3517AGR_PE < 0 OU 3517AGR_TA < 0 OU 3517AGR_TB < 0
		OU 3517AGR_SE < 0 OU 3517AGR_SF < 0 OU 3517AGR_SG < 0 OU AG4256 < 0 OU AG4259 < 0 OU AG4255 < 0 OU AG4266 < 0 OU AG4267 < 0
		OU 3517AGR_AJ < 0 OU 3517AGR_AH < 0 OU 3517AGR_TZ < 0 OU 3517AGR_UA < 0 OU 3517AGR_UB < 0
		OU 3517AGR_US < 0 OU 3517AGR_UT < 0 OU 3517AGR_UU < 0 OU 3517AGR_XN < 0
	ALORS
    	affMessErrMtNeg := VRAI	
    FINSI
	
	SI palierJuillet ALORS
    	SI 3517AGR_YR < 0 ALORS
	    	affMessErrMtNeg := VRAI
	    FINSI
    FINSI
	
	SI affMessErrMtNeg ALORS
    	ERR := 'ERR25 : Vous avez saisi un montant négatif dans votre déclaration de TVA. En cas de transmission au format EDITVA, le rejet sera systématique lors du traitement par le centre informatique des impôts.'
		MSG{}	
		NbrERR += 1		
    FINSI

    SORTIR VRAI
###
'CONTROLECA12AGR' 'Toutes fonctions'
    
    SI (AG0900 > 0 ET (AG0900_TD = 0 OU AG0900_TD = ?)) OU ((AG0900 = 0 OU AG0900 = ?) ET AG0900_TD > 0) 
    OU (AG0950 > 0 ET (AG0950_TD = 0 OU AG0950_TD = ?)) OU ((AG0950 = 0 OU AG0950 = ?) ET AG0950_TD > 0) 
    OU (AG0030 > 0 ET (AG0030_TD = 0 OU AG0030_TD = ?)) OU ((AG0030 = 0 OU AG0030 = ?) ET AG0030_TD > 0)
    OU (AG0044 > 0 ET (AG0044_TD = 0 OU AG0044_TD = ?)) OU ((AG0044 = 0 OU AG0044 = ?) ET AG0044_TD > 0)
    OU (AG0970 > 0 ET (AG0970_TD = 0 OU AG0970_TD = ?)) OU ((AG0970 = 0 OU AG0970 = ?) ET AG0970_TD > 0)
    OU (AG0980 > 0 ET (AG0980_TD = 0 OU AG0980_TD = ?)) OU ((AG0980 = 0 OU AG0980 = ?) ET AG0980_TD > 0)
    OU (AG0981 > 0 ET (AG0981_TD = 0 OU AG0981_TD = ?)) OU ((AG0981 = 0 OU AG0981 = ?) ET AG0981_TD > 0)
    OU (AG0031 > 0 ET (AG0031_TD = 0 OU AG0031_TD = ?)) OU ((AG0031 = 0 OU AG0031 = ?) ET AG0031_TD > 0)
    OU (AG4249 > 0 ET (3517AGR_SL = 0 OU 3517AGR_SL = ?)) OU ((AG4249 = 0 OU AG4249 = ?) ET 3517AGR_SL > 0)
    OU (AG4270 > 0 ET (3517AGR_SH = 0 OU 3517AGR_SH = ?)) OU ((AG4270 = 0 OU AG4270 = ?) ET (3517AGR_SH > 0))
    OU (AG4268 > 0 ET (3517AGR_SK = 0 OU 3517AGR_SK = ?)) OU ((AG4268 = 0 OU AG4268 = ?) ET (3517AGR_SK > 0))
    OU (3517AGR_SE > 0 ET (AG4256 = 0 OU AG4256 = ?)) OU ((3517AGR_SE = 0 OU 3517AGR_SE = ?) ET AG4256 > 0)
    OU (3517AGR_SF > 0 ET (AG4259 = 0 OU AG4259 = ?)) OU ((3517AGR_SF = 0 OU 3517AGR_SF = ?) ET AG4259 > 0)
    OU (3517AGR_SG > 0 ET (AG4255 = 0 OU AG4255 = ?)) OU ((3517AGR_SG = 0 OU 3517AGR_SG = ?) ET AG4255 > 0)
    ALORS
    	ERR	:=	'ERR1 : Vous avez rempli une base HT sans remplir la Taxe Due ou inversement' 
    	MSG{}
    FIN SI
    
    SI AG0900_TD < arrondiSup {((AG0900*2.1%) - 0.49999999999)} OU AG0900_TD > arrondiSup {((AG0900 *(20.6)%) - 0.49999999999)} ALORS
    	ERR	:=	'ERR2 : Le montant Taxe Due ligne 08 est incohérent par rapport à la base HT'
    	MSG{}
    FIN SI
    
    SI AG0031_TD < arrondiSup {((AG0031*2.1%) - 0.49999999999)} OU AG0031_TD > arrondiSup {((AG0031*20%) - 0.49999999999)} ALORS
    	ERR	:=	'ERR3 : Le montant Taxe Due ligne 13 est incohérent par rapport à la base HT'
    	MSG{}
    FIN SI
    
    SI AGl21 < 0 OU AGl21 > 100 ALORS
    	ERR	:=	'ERR4 : Le pourcentage saisi ligne 20A n''est pas correct' 
    	MSG{}
    FIN SI
    
    SI entier{AG8002} > entier{AG_TVA_CRED} ALORS
    	ERR	:=	'ERR6 : Le montant du remboursement demandé ne peut pas être supérieur au crédit de TVA.' 
    	MSG{}
    FIN SI
    
    SI taille{DDR_AFNOM} < 1 ET DDR_AD <> ? ET DDR_AD <> 0 ALORS
    	ERR	:=	'ERR7 : Vous n''avez pas rempli le soussigné' 
    	MSG{}
    FIN SI
    
    SI AG0031_TD > 0 ET ((AG0703 = ? OU AG0703 = 0) ET (AG0702 = ? OU AG0702 = 0) ET (AG0059 = ? OU AG0059 = 0)) ALORS
    	ERR	:=	'ERR8 : La présence d''un montant ligne 13 au titre des acquisitions intracommunautaires
    implique la présence de la ligne 17, 18 ou 20 au titre de la TVA déductible.' 
    	MSG{}
    FIN SI
    
    SI (taille{DDR_AFNOM} > 0 OU taille{DDR_AFQUALITE} > 0) ET taille{DDR_AFLIEU} < 1 ET DDR_AD <> ? ET DDR_AD <> 0 ALORS
    	ERR	:=	'ERR9 : Vous n''avez pas rempli le lieu pour la demande de remboursement' 
    	MSG{}
    FIN SI
    
    SI DDR_AD > 0 ET DDR_AH = ? ET DDR_AJ = ? ALORS
    	ERR	:=	'ERR10 : Vous n''avez pas renseigné le mode prise en compte du remboursement demandé.' 
    	MSG{}
    FIN SI
    
    SI DDR_AD > DDR_AC  ALORS
    	ERR	:=	'ERR11 : Vous ne pouvez pas demander un remboursement supérieur au maximum remboursable.' 
    	MSG{}
    FIN SI
    
    SI (DDR_BB <> ? ET DDR_AA < 0) OU (DDR_BB =? ET DDR_AA > 0 ET DDR_AA < 150) ALORS
    	ERR	:=	'ERR12 : Le crédit remboursable ne peut être inférieur aux seuils prévus à l''article 242-0 C de l''annexe II au CGI, sauf événements particuliers'
    	MSG{}
    FIN SI
    
    SI DDR_BB <> ? ET DDR_BA = ? ALORS
    	ERR	:=	'ERR13 : Vous devez renseigner la date correspondant à l''événement coché (DDR_BB)'
    	MSG{}
    FIN SI

    SI AG_TT <> ? ET taille{entier{AG_TT}} > 6 ALORS
    	ERR	:=	'ERR14 : Le montant total à payer (ligne 41) ne peut pas être supérieur à 6 chiffres.' 
    	MSG{}
    FIN SI

    SI DDR_AD <> ? ET taille{entier{DDR_AD}} > 7 ALORS
    	ERR	:=	'ERR15 : Le montant du remboursement demandé (page 3 ligne 45) ne doit pas être supérieur à 7 chiffres.' 
    	MSG{}
    FIN SI

    SI ( (3517AGR_NQ > 0 ET (3517AGR_PA = 0 OU 3517AGR_PA = ?)) OU ((3517AGR_NQ = 0 OU 3517AGR_NQ = ?) ET 3517AGR_PA > 0 ) OU
    		(3517AGR_NR > 0 ET (3517AGR_PB = 0 OU 3517AGR_PB = ?)) OU ((3517AGR_NR = 0 OU 3517AGR_NR = ?) ET 3517AGR_PB > 0 ) OU
    		(3517AGR_NS > 0 ET (3517AGR_PC = 0 OU 3517AGR_PC = ?)) OU ((3517AGR_NS = 0 OU 3517AGR_NS = ?) ET 3517AGR_PC > 0 ) OU
    		(3517AGR_NT > 0 ET (3517AGR_PD = 0 OU 3517AGR_PD = ?)) OU ((3517AGR_NT = 0 OU 3517AGR_NT = ?) ET 3517AGR_PD > 0 ) OU
    		(3517AGR_NU > 0 ET (3517AGR_PE = 0 OU 3517AGR_PE = ?)) OU ((3517AGR_NU = 0 OU 3517AGR_NU = ?) ET 3517AGR_PE > 0 )) ALORS
    	ERR	:=	'ERR16 : Taxe à l''essieu Un nombre de véhicules est renseigné sans taxe due associée ou inversement (page 3)'
    	MSG{}
    FINSI

    SI ((3517AGR_TW > 0 ET (3517AGR_TZ = 0 OU 3517AGR_TZ = ?)) OU ((3517AGR_TW = 0 OU 3517AGR_TW = ?) ET 3517AGR_TZ > 0) OU 
		(3517AGR_TY > 0 ET (3517AGR_UB = 0 OU 3517AGR_UB = ?)) OU ((3517AGR_TY = 0 OU 3517AGR_TY = ?) ET 3517AGR_UB > 0)) ALORS
    	ERR	:=	'ERR17 : Vous avez saisi un nombre d''hectolitres sans taxe due ou inversement (page 4)'
    	MSG{}
    FINSI

    SI (3517AGR_TA <> ? OU 3517AGR_TB <> ?) ET  (3517AGR_TR = 0 OU 3517AGR_TR = ?) ET  (3517AGR_TS = 0 OU 3517AGR_TS = ?) ET (3517AGR_TT = 0 OU 3517AGR_TT = ?) ALORS
    	ERR:=	'ERR18: Taxe sur les émissions de CO2 et/ou polluants atmosphériques (page 3): Vous avez renseigné un montant de taxe sur les émissions de CO2 ou de taxe sur les polluants atmosphériques (ligne 60B ou 60C), alors vous devez obligatoirement renseigner une des 3 données  sur le nombre de véhicules non exonérés de la taxe (montant supérieur à 0).'
    	MSG{}
    FINSI

    SI ((3517AGR_TA = ? ) OU (3517AGR_TB = ? )) ET  (3517AGR_TR > 0 OU  3517AGR_TS > 0 OU 3517AGR_TT > 0) ALORS
    	ERR:=	'ERR19: Taxe sur les émissions de CO2 et/ou polluants atmosphériques (page 3): Vous avez renseigné un nombre de véhicules non exonérés de la taxe, alors les taxes des lignes 60B ET 60C doivent être saisies (supérieures ou égales à 0) (page 3).'
    	MSG{}
    FINSI
	
	SI palierJuillet ALORS
		SI (3517AGR_YW > 3517AGR_XY) OU (3517AGR_YA > 3517AGR_ZL) OU (3517AGR_YV > 3517AGR_YB) ALORS
			ERR	:=	'ERR20 : Le crédit de majoration d''accise sur les énergies imputé sur la TVA ne peut pas être supérieur au crédit de majoration d''accise sur les énergies constaté.'
			MSG{}
		FIN SI

		SI (3517AGR_XY > 0 OU 3517AGR_YW > 0) ET (3517AGR_YS > 0) ALORS
			ERR	:=	'ERR21a : Vous ne pouvez pas avoir à la fois un crédit de majoration de TIC (constaté ou imputé) et un reliquat de majoration de TIC à payer (Ligne M1)' 
			MSG{}
		FIN SI

		SI (3517AGR_ZL > 0 OU 3517AGR_YA > 0) ET (3517AGR_ZM > 0) ALORS
			ERR	:=	'ERR21b : Vous ne pouvez pas avoir à la fois un crédit de majoration de TIC (constaté ou imputé) et un reliquat de majoration de TIC à payer (Ligne M2)' 
			MSG{}
		FIN SI

		SI (3517AGR_YB > 0 OU 3517AGR_YV > 0) ET (3517AGR_GM > 0) ALORS
			ERR	:=	'ERR21c : Vous ne pouvez pas avoir à la fois un crédit de majoration de TIC (constaté ou imputé) et un reliquat de majoration de TIC à payer (Ligne M3)' 
			MSG{}
		FIN SI
	FINSI

	SI (3517AGR_US > 3517AGR_WP) OU (3517AGR_UT > 3517AGR_WQ) OU (3517AGR_UU > 3517AGR_WR) OU (3517AGR_XN > 3517AGR_XM) ALORS
		ERR	:=	'ERR20 : Le crédit d''accise sur les énergies imputé sur la TVA ne peut pas être supérieur au crédit d''accise sur les énergies constaté.'
		MSG{}
    FIN SI

    SI (3517AGR_WP > 0 OU 3517AGR_US > 0) ET (3517AGR_WW > 0) ALORS
    	ERR	:=	'ERR21a : Vous ne pouvez pas avoir à la fois un crédit de TIC (constaté ou imputé) et un reliquat de TIC à payer (Ligne X1)' 
    	MSG{}
    FIN SI

    SI (3517AGR_WQ > 0 OU 3517AGR_UT > 0) ET (3517AGR_WT > 0) ALORS
    	ERR	:=	'ERR21b : Vous ne pouvez pas avoir à la fois un crédit de TIC (constaté ou imputé) et un reliquat de TIC à payer (Ligne X2)' 
    	MSG{}
    FIN SI

    SI (3517AGR_WR > 0 OU 3517AGR_UU > 0) ET (3517AGR_WU > 0) ALORS
    	ERR	:=	'ERR21c : Vous ne pouvez pas avoir à la fois un crédit de TIC (constaté ou imputé) et un reliquat de TIC à payer (Ligne X3)' 
    	MSG{}
    FIN SI

	SI palierJuillet ALORS
		SI (3517AGR_VK <= AG_SOLD) ALORS
			SI (3517AGR_US <> 3517AGR_WP) OU (3517AGR_UT <> 3517AGR_WQ) OU (3517AGR_UU <> 3517AGR_WR) OU (3517AGR_XN <> 3517AGR_XM) OU (3517AGR_YW <> 3517AGR_XY) OU (3517AGR_YA <> 3517AGR_ZL) OU (3517AGR_YV <> 3517AGR_YB) ALORS
				ERR	:=	'ERR22 : Si le total du crédit d''accise sur les énergies constaté est inférieur ou égal au montant de la TVA due (Ligne 28), vous devez imputer la totalité de ce crédit sur la TVA.'
				MSG{}	
			FINSI
		FIN SI	
	SINON
		SI (3517AGR_VK <= AG_SOLD) ALORS
			SI (3517AGR_US <> 3517AGR_WP) OU (3517AGR_UT <> 3517AGR_WQ) OU (3517AGR_UU <> 3517AGR_WR) OU (3517AGR_XN <> 3517AGR_XM) ALORS
				ERR	:=	'ERR22 : Si le total du crédit d''accise sur les énergies constaté est inférieur ou égal au montant de la TVA due (Ligne 28), vous devez imputer la totalité de ce crédit sur la TVA.'
				MSG{}	
			FINSI
		FIN SI
	FINSI

    SI 3517AGR_VK > AG_SOLD ALORS
    	SI 3517AGR_VA <> 3517AGR_VK - 3517AGR_UV ALORS
    		ERR :=	'ERR23 :Si le total du crédit d''accise sur les énergies constaté est supérieur au montant de la TVA due (ligne 28), le reliquat de crédit d''accise sur les énergies à rembourser (Y4) doit être égal au total du crédit d''accise sur les énergies constaté - le crédit d''accise sur les énergies imputé sur la TVA (X4)'
    		MSG{}
    	FINSI
		
		SI 3517AGR_UV <> AG_SOLD ALORS
			ERR :=	'ERR25 : Si le total du crédit constaté d''accise sur les énergies est supérieur au montant de la TVA due, le montant total du crédit imputé sur la TVA doit être égal au montant total de la TVA due.'
    		MSG{}		
		FINSI		
    FINSI
	
	SI NON Extension_3310TIC_FP ALORS
		SI NON (3517AGR_VF = 3517AGR_XQ) ALORS
			SI 3517AGR_VF > 0 ALORS
				ERR := 'ERR24 : Le total de taxe due est supérieur à zéro, l''annexe 3310_TIC doit être présente.'
				MSG{}
			FINSI
		FINSI
	FINSI

	NbrERR += Controler3310TIC_FP{}

    SORTIR VRAI
###
'envoi3517DDR_MODIF' 'Toutes fonctions'
    
    SI envoi3517DDR ET DDR_AG <= 0 ALORS
    	info{'Vous n''avez pas demandé de remboursement sur la page 3.'}
    	SI sysInfo{'noyau'} = 'C' ALORS
    		envoi3517DDR :=	FAUX
    		affichage{VRAI}
    		SORTIR FAUX
    	SINON
    		SORTIR FAUX
    	FIN SI
    FIN SI
    
    SORTIR VRAI
###
'importerEtatsPrep' 'Toutes fonctions'
    
    document ::= 'comptabilite.TVA_Etats_preparatoires'
    
    SI etat.EstVerrouille ALORS
    	info{'L''import n''est pas possible sur un état verrouillé.'}
    	SORTIR FAUX
    FINSI
    
    SI document.dateDebut = ?	ALORS
    	info{'L''état TVA Etats preparatoires n''est pas initialisé.
Vous ne pouvez donc pas importer les montants.'}
    SORTIR FAUX
    FINSI
    
    SI NON document.parametrageCerfas ALORS	
    	document.parametrageCerfas := VRAI	
    	document.parametrageCerfas_MODIF{}
    FINSI
    
    SI NON ouiNon{'Les montants seront repris depuis la dernière préparation de déclaration deTVA réalisée pour la période :
Du ' + document.dateDebut + ' au ' + document.dateFin + '
    
    	Taux normal : ' + document.tauxNormal2 + '
    	Taux normal : ' + document.tauxNormal + '
    	Taux réduit : ' + document.tauxReduit2 + '
    	Taux réduit : ' + document.tauxReduit + '
    	Taux réduit : ' + document.tauxReduit3 + '
    	Taux normal DOM : ' + document.tauxNormalDOM + '
    	Taux réduit DOM : ' + document.tauxReduitDOM + '
    
Souhaitez-vous continuer ?'}
    	ALORS	SORTIR FAUX
    FINSI
    
    AG0032 := document.HT04
    AG0033 := document.HT05
    AG0034 := document.HT06
    AG0105 := document.HT0155
    AG0100 := document. HT0121
    AG0201 := document. HT0185
    AG0970 := document. HT02B
    AG0970_TD := document.TVA02B
    AG0980 := document. HT02A
    AG0980_TD := document.TVA02A
    AG0031 := document.HT03
    AG0031_TD := document.TVA03
    AG0703 := document.TVA19
    AG0702 := document.TVA20
    AG0900 := document.HT01autre + document.HT02autre + document.HT01196 + document.HT017
    AG0900_TD := document.TVA01autre + document.TVA02autre + document.TVA01196 + document.TVA017
    
    AG0207 := document.HT0120
    AG0151 := document.HT0110
    
    info{'Les montants ont été importés.'}
    
    INTER3517_2{}
    
    SORTIR VRAI
###
'imprimer' 'Toutes fonctions'
    
    SI CompteRendu ALORS
    	etat.etat	:=	'COMPTE RENDU '+NOM
    SINON
    	etat.etat	:=	NOM
    FIN SI
    
    IMP	:=	FAUX
    NbrERR	:=	0
    INTER3517_1{}
    INTER3517_2{}
    INTER3517_3{}
    INTER3517_4{}
    INTER3517_5{}
    CONTROLECA12AGR{}
    IMP	:=	VRAI
    
    SI CompteRendu OU NbrERR > 0 ALORS
    	impression { 'listingNew.ps' }
    	impression { 'texte.ps' }
    	impression { 'compta/liasse' }
    	OLDPAGE	:=	''
    	NbrERR		:=	0
    	CONTROLECA12AGR{}
    	impression { 'fin_lst' }
    FINSI
    
    SetLibelleDossier{}

    impression{'compta/25/liasse.ps'}
    
    SI ImpressionPartielle ALORS
    	SI I_3517_1 ALORS
    		agree	:=	VRAI
    		impressionDirecte{'compta/25/TVA/3517_1.fnd'}
    		impression{'compta/25/TVA/3517.fnd'}
    		impression{'compta/25/TVA/3517_1.var'}
    		agree	:=	FAUX
    	FINSI
    
    	SI I_3517_2 ALORS    		
	    	impressionDirecte{'compta/25/TVA/3517_2.fnd'}
	    	impression{'compta/25/TVA/3517_2_c.fnd'}
	    	impression{'compta/25/TVA/3517.fnd'}
	    	impression{'compta/25/TVA/3517_2.var'}    	
       	FINSI
    
    	SI I_3517_3 ALORS
			SI palierJuillet ALORS
				impressionDirecte{'compta/25/TVA/3517__3.fnd'}
				impression{'compta/25/TVA/3517.fnd'}
				impression{'compta/25/TVA/3517__3.var'} 
			SINON
				impressionDirecte{'compta/25/TVA/3517_3.fnd'}
				impression{'compta/25/TVA/3517.fnd'}
				impression{'compta/25/TVA/3517_3.var'} 
			FINSI
    	FINSI
		
    	SI I_3517_4 ALORS
			SI palierJuillet ALORS
				impressionDirecte{'compta/25/TVA/3517__4.fnd'}
				impression{'compta/25/TVA/3517__4_c.fnd'}
				impression{'compta/25/TVA/3517__4.var'}
			SINON
				impressionDirecte{'compta/25/TVA/3517_4.fnd'}
				impression{'compta/25/TVA/3517_4_c.fnd'}
				impression{'compta/25/TVA/3517_4.var'}
			FINSI
    	FINSI
		
    	SI I_3517_5 ALORS
    		impressionDirecte{'compta/25/TVA/3517_5.fnd'}
    		impression{'compta/25/TVA/3517_5_c.fnd'}
    		impression{'compta/25/TVA/3517_5.var'} 		
    	FINSI
    
    	SI I_TaxeAdar ET avec3616 ALORS
    		impression{'compta/25/TVA/taxeADAR.fnd'}
    		impression{'compta/25/TVA/taxeADAR.var'}
    	FINSI

		SI I_3517AGR_ext1 ET Extensions ET 3517AGR_ext1 ALORS
			SI palierJuillet ALORS
				impressionDirecte{'compta/25/TVA/ca12__3_ext3.fnd'}
				impression{'compta/25/TVA/3517AGR__ext1.var'}
			SINON
				impressionDirecte{'compta/25/TVA/ca12_3_ext3.fnd'}
				impression{'compta/25/TVA/3517AGR_ext1.var'}
			FINSI
	    FIN SI

		SI I_ImprPartiel_3310TIC_FP ALORS
			Imprimer3310TIC_FP{}
		FINSI
    SINON
    	agree	:=	VRAI
    	impressionDirecte{'compta/25/TVA/3517_1.fnd'}
    	impression{'compta/25/TVA/3517.fnd'}
    	impression{'compta/25/TVA/3517_1.var'}
    	agree	:=	FAUX
  	
	    impressionDirecte{'compta/25/TVA/3517_2.fnd'}
	    impression{'compta/25/TVA/3517_2_c.fnd'}	
	    impression{'compta/25/TVA/3517.fnd'}	
	    impression{'compta/25/TVA/3517_2.var'}
    
		SI palierJuillet ALORS
			impressionDirecte{'compta/25/TVA/3517__3.fnd'}
			impression{'compta/25/TVA/3517.fnd'}
			impression{'compta/25/TVA/3517__3.var'}		
		SINON
			impressionDirecte{'compta/25/TVA/3517_3.fnd'}
			impression{'compta/25/TVA/3517.fnd'}
			impression{'compta/25/TVA/3517_3.var'}
		FINSI
		
		SI palierJuillet ALORS
			impressionDirecte{'compta/25/TVA/3517__4.fnd'}
			impression{'compta/25/TVA/3517__4_c.fnd'}
			impression{'compta/25/TVA/3517__4.var'}		
		SINON
			impressionDirecte{'compta/25/TVA/3517_4.fnd'}
			impression{'compta/25/TVA/3517_4_c.fnd'}
			impression{'compta/25/TVA/3517_4.var'}
		FINSI

		SI Extensions ALORS
			SI 3517AGR_ext1	ALORS		
				SI palierJuillet ALORS
					impressionDirecte{'compta/25/TVA/ca12__3_ext3.fnd'}
					impression{'compta/25/TVA/3517AGR__ext1.var'}
				SINON
					impressionDirecte{'compta/25/TVA/ca12_3_ext3.fnd'}
					impression{'compta/25/TVA/3517AGR_ext1.var'}
				FINSI
			FINSI
		FINSI

		impressionDirecte{'compta/25/TVA/3517_5.fnd'}
		impression{'compta/25/TVA/3517_5_c.fnd'}
		impression{'compta/25/TVA/3517_5.var'} 		

    	SI avec3616 ALORS
    		impression{'compta/25/TVA/taxeADAR.fnd'}
    		impression{'compta/25/TVA/taxeADAR.var'}
    	FINSI

		Imprimer3310TIC_FP{}
    FINSI

###
'SetLibelleDossier' 'Toutes fonctions'
	libelleDossier := 'Dossier : ' + dossier.Ndoss
###
'initTVA_AGR' 'Toutes fonctions'

	|
		mm <Entier>IsDateCessation<Booléen>
	|

	-- Trois fonctions distinctes pour l'initialisation des CA3 - CA12 - CA12AGR du fait des divergences qui apparaissent progressivement

	etat.etat := ''

	IsDateCessation := FAUX

	TVARN	:=	FAUX
	TVARS	:=	VRAI		--- prend en compte l'exercice par défaut

	init{}

	etat.etat := 'Déclaration CA12 agricole'

	controlerDates{}

	POUR TOUT compte FAIRE
		SI compte.txTVA <> ? ALORS
			compte.txTVA := monnaie{'' + compte.txTVA}
		FINSI
	FIN FAIRE
    
    ----------------------CA12 OU CA12E---------------------------
    
    SI mois{periode.fin} = 12	ALORS
    	CA12Du:= debutExercice{0}
    	CA12Au:= date {31,12,annee{periode.fin}}
    SINON
    	CA12Du:= debutExercice{0}
    	CA12Au:= finExercice{0}
    FINSI
    
    dateDebut := CA12Du
    dateFin := CA12Au
    
    
		-- Gestion des cessations d'activité en cours d'exercice ----
	SI dossier.dateCessationActivite <> ? ET dossier.dateCessationActivite >= dateDebut	ET dossier.dateCessationActivite < dateFin	ALORS
		dateFin := dossier.dateCessationActivite
		IsDateCessation := VRAI
	FINSI

    SI mois {CA12Au } = 12 ALORS
    	CA12X	:=	''
    	CA12EX	:=	'XXXXXXXX'
    SINON
    	CA12X	:=	'XXXXXXX'
    	CA12EX	:=	''
    FINSI
    
    
    dateDebutChaine_C := date{'JJMMAAAA' , dateDebut}
    dateFinChaine_C 	:= date{'JJMMAAAA' , dateFin}
    SI dateDebutChaine = ? ALORS
    	dateDebutChaine := dateDebutChaine_C
    FIN SI
    SI dateFinChaine = ? ALORS
    	dateFinChaine 	:= dateFinChaine_C
    FIN SI
    
    ---------------------------------------------
    SI CA12X	 = '' 
    	ALORS	OPT	:=	'0'
    	SINON	OPT	:=	'1'
    FINSI
    ---------------------------------------------
    SI dossier.NumeroRCM =  ? 
    	ALORS	CM	:=	'0'
    	SINON	CM	:=	'1'
    FINSI
    
    CA12Du3	:=	chaine{6 , '0'}
    		CA12Du3	:=	chaine{CA12Du3,2 ,1 ,'' + jour {CA12Du}}
    		CA12Du3	:=	chaine{CA12Du3,4 ,3 ,'' + mois {CA12Du}}
    		CA12Du3	:=	chaine{CA12Du3,6 ,5 ,chaine{'' + annee{CA12Du},3 ,4}}
    
    CA12Au3	:=	chaine{6 , '0'}
    		CA12Au3	:=	chaine{CA12Au3,2 ,1 ,'' + jour {CA12Au}}
    		CA12Au3	:=	chaine{CA12Au3,4 ,3 ,'' + mois {CA12Au}}
    		CA12Au3	:=	chaine{CA12Au3,6 ,5 ,chaine{'' + annee{CA12Au},3 ,4}}
    
    
    SI dateDebutChaine = ? ALORS
    	dateDebutChaine := date{'JJMMAAAA' , CA12Du}
    FINSI
    
    SI dateFinChaine = ? ALORS
    	dateFinChaine 	:= date{'JJMMAAAA' , CA12Au}
    FINSI
    
	dateDebutDate_C	:=	CA12Du
	dateFinDate_C 	:=	CA12Au
	SI IsDateCessation ET dateFin < CA12Au ALORS
		dateFinDate_C := dateFin
	FINSI

	SI dateDebutDate = ? ALORS
		dateDebutDate := dateDebutDate_C
	FIN SI
	SI dateFinDate = ? ALORS
		dateFinDate 	:= dateFinDate_C
	FIN SI

    -------------------------INITIALISATION CA12---------------------------------------
    
    NomDossier	:=	dossier.RaisonSociale
    AdrDoss1	:=	dossier.Adresse1	-- + '  ' +  dossier.Adresse2 + '  ' + dossier.Adresse3
    AdrDoss1bis	:=	dossier.Adresse2 + '  ' + dossier.Adresse3
    AdrDoss2	:=	dossier.CodePostal + '    ' + dossier.Ville
    TEL 		:= 	dossier.Telephone	
    NumTVAIntra	:=	dossier.NumTVAIntra + chaine {dossier.Siret , 10 , 14}	-- corrigé TGO 24/07/2002
    SI dossier.SiretTva <> ? ALORS NumTVAIntra := dossier.NumTVAIntra + chaine {dossier.SiretTva , 10 , 14} FINSI	-- cas particulier de déclaration faite sous un siret différent du DP	

    NumTVAIntra1 := chaine{NumTVAIntra, 1, 2}
    NumTVAIntra2 := chaine{NumTVAIntra, 3, 4}
    NumTVAIntra3 := chaine{NumTVAIntra, 5, 14}

    siretDossier1 := chaine{dossier.Siret, 1, 9}
    siretDossier2 := chaine{dossier.Siret, 10, 14}
    
    CodAct		:=	dossier.Ape
    
    SI Lieu	= ? 	ALORS	Lieu 	:=	dossier.Ville 	FINSI 
    SI DateCA = ? 	ALORS	DateCA 	:=	aujourdhui{}	FINSI
    
    AdrServ1	:=	dossier.AdrRec1		
    AdrServ2	:=	dossier.AdrRec2			
    AdrServ3	:=	dossier.AdrRec3			
    AdrServ4	:=	dossier.CPRec + ' ' + dossier.VilleRec	
    mm		:=	mois {periode.fin}
    
    ------------CALCUL JOUR ET MOIS LIMITE----------------------
    
    JourLimite	:=	dossier.JourLimite
    SI JourLimite	=	?  ALORS
    info{'Vous devez renseigner le jour limite de dépôt
    depuis le Dossier permanent, contact "SIE", onglet "SIE".'}
    FINSI
    MoisLimite	:=	nomMois{mm + 1}
    
    ------------AU MOIS--------------
    
    SI dossier.PeriodTVA = 'Mensuel' ALORS
    PeriodeCA	:=	nomMois { mm } +  '       ' + annee {periode.fin }
    FINSI
    
    ----------------------------TVA REEL NORMAL ET MINIREEL-----------------------------
    
    SI TVARN ALORS
    
    	SI dossier.RegimeTVA = 'Réel Normal' ALORS
    		CodeRegime := 1
    		SI dossier.PeriodTVA = 'Mensuel' ALORS	Regime	:=	'EM'	FINSI
    		SI dossier.PeriodTVA =  'Trimestriel' ALORS	Regime	:=	'ET'	FINSI
    		SI dossier.PeriodTVA =  'Saisonnier' ALORS	Regime	:=	'ES'	FINSI
    		SI dossier.PeriodTVA = 'Acomptes Provisionnel' ALORS					-- Correction libellé TGO 02/01/2001
    			CodeRegime	:=	2
    			Regime		:=	'AM'
    		FINSI
    	FINSI
    
    	SI dossier.RegimeTVA = 'Mini-Réel' ALORS
    		CodeRegime := 7
    		SI dossier.PeriodTVA = 'Mensuel' ALORS	Regime	:=	'RM'	FINSI
    		SI dossier.PeriodTVA =  'Trimestriel' ALORS	Regime	:=	'RT'	FINSI
    		SI dossier.PeriodTVA =  'Saisonnier' ALORS	Regime	:=	'RS'	FINSI
    	FINSI
    FINSI
    
    ----------------------------TVA REEL SIMPLIFIE-----------------------------
    SI TVARS ALORS
    	SI dossier.PeriodTVA	= ?  ALORS
    		info{'La périodicité de TVA est obligatoire,
    veuillez la renseigner dans le dossier
    permanent avant de compléter le formulaire.'}
    	FINSI
    
    	CodeRegime := 3
    	SI dossier.PeriodTVA =  'Saisonnier' 
    		ALORS	Regime	:=	'SS'
    		SINON 	Regime	:=	'ST'
    	FINSI
    FINSI
    
    -----------------TVA REEL---------------------
    SI TVARN ALORS
    
    	Periode := chaine {5 , '0' }
    	Periode := chaine { Periode, 3 , 3 , ' ' }
    	Periode := chaine { Periode, 2 , 1 , '' + mois {periode.fin}}
    	Periode := chaine { Periode, 5 , 4 , chaine{'' + annee{periode.fin}, 3 , 4}}
    	SI dossier.PeriodTVA =  'Trimestriel'  ALORS
    		mm	:=	mois {periode.fin}
    		SI mm = 03 ALORS Periode := chaine { Periode, 1 , 2 , '31'} FINSI
    		SI mm = 06 ALORS Periode := chaine { Periode, 1 , 2 , '32'} FINSI
    		SI mm = 09 ALORS Periode := chaine { Periode, 1 , 2 , '33'} FINSI
    		SI mm = 12 ALORS Periode := chaine { Periode, 1 , 2 , '34'} FINSI
    	FINSI
    FINSI
    
    -----------------TVA SIMPLIFIE---------------------
    SI TVARS ALORS
    
    	Periode	:=	chaine {5 , '0' }
    	mm	:=	mois {periode.fin}
    	Periode := chaine { Periode, 3 , 3 , ' ' }
    	Periode := chaine { Periode, 2 , 1 , '' + mois {periode.moisCourant}}
    	Periode := chaine { Periode, 5 , 4 , chaine{'' + annee{periode.moisCourant}, 3 , 4}}
    	SI TVARS ALORS
    		SI mm = 12 ALORS Periode := chaine { Periode, 1 , 2 , '99'} FINSI
    		SI mm <> 12 ALORS Periode := chaine { Periode, 1 , 2 , '98'} FINSI
    	FINSI
    
    FINSI
    
    ------------------------------------------
    AG0058_C	:=	chercherDerniereTVA{}
    ------------------------------------------
    
    SI dossier.NuméroFrp = ?	ALORS
    	dossier.NuméroFrp := dossier.NumRecette + dossier.Ndoss + dossier.CleRecette 
    FINSI
    
    numFrp := dossier.NuméroFrp
    
    SetLibelleDossier{}
    
    EDITVA_moisFin := '' + mm	
    EDITVA_regime := Regime	
    
    ------------------------------------------
    SORTIR VRAI
###
'INTER_Calcul_de_la_taxe_ADAR' 'Toutes fonctions'
    
    |
    	ratio<Réel> taux1<Réel> taux2 <Réel>
    	forfait<Monnaie> plafond<Monnaie>
    |
    
    forfait		:=	90
    plafond		:=	370000
    taux1		:=	0.0019
    taux2		:=	0.0005
    ratio		:=	ADAR_2 / 12
    ADAR_M1_C	:=	AG0037 + AG0032 + AG0033 + AG0034 + AG0105 + AG0206 + AG005B + AG0100 + AG0201 + AG007B + AG0900 + AG0950 + AG0981+ AG0970
    
    SI ADAR_M1 = ? ALORS
    	ADAR_M1	:=	ADAR_M1_C
    FINSI
    
    ADAR_3		:=	entier{ADAR_M1} + entier{ADAR_M2}
    ADAR_F1_C	:=	forfait * ADAR_1 * ratio
    ADAR_F1_C	:=	entier{ADAR_F1_C}
    
    SI ADAR_F1 = ? ALORS
    	ADAR_F1	:=	ADAR_F1_C
    FINSI
    
    plafond	:=	plafond * ratio * ADAR_1
    
    SI ADAR_3 > plafond ALORS
    	ADAR_F2_C	:=	(plafond * taux1) + ((ADAR_3 - plafond) * taux2)
    SINON
    	ADAR_F2_C	:=	ADAR_3 * taux1
    FINSI
    
    ADAR_F2_C	:=	entier{ADAR_F2_C}
    
    SI ADAR_F2 = ? ALORS
    	ADAR_F2	:=	ADAR_F2_C
    FINSI
    
    ADAR_4		:=	entier{ADAR_F1} + entier{ADAR_F2}
    AG4220_C	:=	ADAR_4
    
    SI AG4220 = ? ALORS
    	AG4220	:=	AG4220_C
    FINSI
###
'INTER3517_1' 'Toutes fonctions'
    
    Periode		:=	'99 ' + chaine{'' + annee {periode.fin},3,4}
    Regime		:=	'AST'
    CodeRegime	:=	8
    CleOptique := dossier.Ndoss+ Cle + '0' + CodeRegime + '99' + chaine{'' + annee {periode.fin},3,4} + '11'
    
    SI dateDebutDate = ? ALORS
    	dateDebutDate := dateDebutDate_C
    FIN SI
    SI dateFinDate = ? ALORS
    	dateFinDate 	:= dateFinDate_C
    FIN SI
    
    SI dateFinDate < exerciceComptable.dateDebut OU dateFinDate > exerciceComptable.dateFin ALORS
    	info{'La fin de période de déclaration doit être comprise dans l''exercice.'}
    	dateFinDate 		:=	dateFinDate_C
    FIN SI
    
    SI ''+dateFinDate # '31/12'	ALORS	
    	CA12X :=  ''
    	CA12EX := 'XXXXXXXXX'
    SINON
    	CA12X :=  'XXXXXXXXX'
    	CA12EX := ''
    FINSI
###
'INTER3517_2' 'Toutes fonctions'
    
    |
    	RN<Monnaie>
    |
    
    -- SUPPRESSION DECIMALES BASES donnant lieu à calcul de pourcentage --
    -- Pour éviter des erreurs d'arrondis avec des décimales masquées à l'affichage mais existant dans la variable --
    -- entier {monnaie}   0,15 > 0     0,50 > 1    0,75 > 1
	
	-- CONTROLE MONTANTS NEGATIFS POUR EDITVA
	AG0037 :=  arrondiMonnaieSupZero{VRAI, AG0037}
	AG0032 :=  arrondiMonnaieSupZero{VRAI, AG0032}
	AG0033 :=  arrondiMonnaieSupZero{VRAI, AG0033}
	3517AGR_DF :=  arrondiMonnaieSupZero{VRAI, 3517AGR_DF}
	AG0034 :=  arrondiMonnaieSupZero{VRAI, AG0034}
	AG0029 :=  arrondiMonnaieSupZero{VRAI, AG0029}
	3517AGR_PF :=  arrondiMonnaieSupZero{VRAI, 3517AGR_PF}	
	3517AGR_PG :=  arrondiMonnaieSupZero{VRAI, 3517AGR_PG}
	
	AG0207 :=  arrondiMonnaieSupZero{VRAI, AG0207}
	AG0207_TD :=  arrondiMonnaieSupZero{VRAI, AG0207_TD}
	AG0151 :=  arrondiMonnaieSupZero{VRAI, AG0151}
	AG0151_TD :=  arrondiMonnaieSupZero{VRAI, AG0151_TD}
	AG0105 :=  arrondiMonnaieSupZero{VRAI, AG0105}
	AG0105_TD :=  arrondiMonnaieSupZero{VRAI, AG0105_TD}
	
	AG0100 :=  arrondiMonnaieSupZero{VRAI, AG0100}
	AG0100_TD :=  arrondiMonnaieSupZero{VRAI, AG0100_TD}
	AG0201 :=  arrondiMonnaieSupZero{VRAI, AG0201}
	AG0201_TD :=  arrondiMonnaieSupZero{VRAI, AG0201_TD}
	AG007B :=  arrondiMonnaieSupZero{VRAI, AG007B}
	AG007B_TD :=  arrondiMonnaieSupZero{VRAI, AG007B_TD}
	
	AG0900 :=  arrondiMonnaieSupZero{VRAI, AG0900}
	AG0900_TD :=  arrondiMonnaieSupZero{VRAI, AG0900_TD}
	AG0950 :=  arrondiMonnaieSupZero{VRAI, AG0950}
	AG0950_TD :=  arrondiMonnaieSupZero{VRAI, AG0950_TD}
	
	3517AGR_PH :=  arrondiMonnaieSupZero{VRAI, 3517AGR_PH}
	3517AGR_PJ :=  arrondiMonnaieSupZero{VRAI, 3517AGR_PJ}
	3517AGR_SQ :=  arrondiMonnaieSupZero{VRAI, 3517AGR_SQ}
	3517AGR_SR :=  arrondiMonnaieSupZero{VRAI, 3517AGR_SR}
	3517AGR_SS :=  arrondiMonnaieSupZero{VRAI, 3517AGR_SS}
	3517AGR_ST :=  arrondiMonnaieSupZero{VRAI, 3517AGR_ST}
	3517AGR_SU :=  arrondiMonnaieSupZero{VRAI, 3517AGR_SU}
	3517AGR_SV :=  arrondiMonnaieSupZero{VRAI, 3517AGR_SV}
	3517AGR_SW :=  arrondiMonnaieSupZero{VRAI, 3517AGR_SW}
	3517AGR_SX :=  arrondiMonnaieSupZero{VRAI, 3517AGR_SX}
	3517AGR_SY :=  arrondiMonnaieSupZero{VRAI, 3517AGR_SY}
	3517AGR_SZ :=  arrondiMonnaieSupZero{VRAI, 3517AGR_SZ}
	
	AG0030 :=  arrondiMonnaieSupZero{VRAI, AG0030}
	AG0030_TD :=  arrondiMonnaieSupZero{VRAI, AG0030_TD}
	AG0044 :=  arrondiMonnaieSupZero{VRAI, AG0044}
	AG0044_TD :=  arrondiMonnaieSupZero{VRAI, AG0044_TD}
	AG0970 :=  arrondiMonnaieSupZero{VRAI, AG0970}
	AG0970_TD :=  arrondiMonnaieSupZero{VRAI, AG0970_TD}
	AG0980 :=  arrondiMonnaieSupZero{VRAI, AG0980}
	AG0980_TD :=  arrondiMonnaieSupZero{VRAI, AG0980_TD}
	AG0981 :=  arrondiMonnaieSupZero{VRAI, AG0981}
	AG0981_TD :=  arrondiMonnaieSupZero{VRAI, AG0981_TD}
	AG0031 :=  arrondiMonnaieSupZero{VRAI, AG0031}
	AG0031_TD :=  arrondiMonnaieSupZero{VRAI, AG0031_TD}	
	AG0600 :=  arrondiMonnaieSupZero{VRAI, AG0600}
	AG0602 :=  arrondiMonnaieSupZero{VRAI, AG0602}
	
	AG0703 :=  arrondiMonnaieSupZero{VRAI, AG0703}
	AG0702 :=  arrondiMonnaieSupZero{VRAI, AG0702}
	AG0058 :=  arrondiMonnaieSupZero{VRAI, AG0058}
	AG0059 :=  arrondiMonnaieSupZero{VRAI, AG0059}
	AG0603 :=  arrondiMonnaieSupZero{VRAI, AG0603}
	AG0018 :=  arrondiMonnaieSupZero{VRAI, AG0018}
	
	AG4220 :=  arrondiMonnaieSupZero{VRAI, AG4220}
	AG4213 :=  arrondiMonnaieSupZero{VRAI, AG4213}
	3517AGR_SJ :=  arrondiMonnaieSupZero{VRAI, 3517AGR_SJ}
	AG4326 :=  arrondiMonnaieSupZero{VRAI, AG4326}
	AG4314 :=  arrondiMonnaieSupZero{VRAI, AG4314}
	AG035C :=  arrondiMonnaieSupZero{VRAI, AG035C}
	AG4253 :=  arrondiMonnaieSupZero{VRAI, AG4253}
	AG4254 :=  arrondiMonnaieSupZero{VRAI, AG4254}
	AG4247 :=  arrondiMonnaieSupZero{VRAI, AG4247}
	AG4248 :=  arrondiMonnaieSupZero{VRAI, AG4248}
	3517AGR_SL :=  arrondiMonnaieSupZero{VRAI, 3517AGR_SL}
	AG4249 :=  arrondiMonnaieSupZero{VRAI, AG4249}
	3517AGR_SM :=  arrondiMonnaieSupZero{VRAI, 3517AGR_SM}
	AG4250 :=  arrondiMonnaieSupZero{VRAI, AG4250}
	AG4273 :=  arrondiMonnaieSupZero{VRAI, AG4273}
	AG4274 :=  arrondiMonnaieSupZero{VRAI, AG4274}
	3517AGR_TK :=  arrondiMonnaieSupZero{VRAI, 3517AGR_TK}
	3517AGR_TL :=  arrondiMonnaieSupZero{VRAI, 3517AGR_TL}
	3517AGR_TM :=  arrondiMonnaieSupZero{VRAI, 3517AGR_TM}
	3517AGR_SH :=  arrondiMonnaieSupZero{VRAI, 3517AGR_SH}
	3517AGR_SK :=  arrondiMonnaieSupZero{VRAI, 3517AGR_SK}
	AG4270 :=  arrondiMonnaieSupZero{VRAI, AG4270}
	AG4268 :=  arrondiMonnaieSupZero{VRAI, AG4268}
	AG4269 :=  arrondiMonnaieSupZero{VRAI, AG4269}
	AG4269_B :=  arrondiMonnaieSupZero{VRAI, AG4269_B}
	AG4271 :=  arrondiMonnaieSupZero{VRAI, AG4271}
	AG4271_B :=  arrondiMonnaieSupZero{VRAI, AG4271_B}
	
	3517AGR_PA :=  arrondiMonnaieSupZero{VRAI, 3517AGR_PA}
	3517AGR_PB :=  arrondiMonnaieSupZero{VRAI, 3517AGR_PB}
	3517AGR_PC :=  arrondiMonnaieSupZero{VRAI, 3517AGR_PC}
	3517AGR_PD :=  arrondiMonnaieSupZero{VRAI, 3517AGR_PD}
	3517AGR_PE :=  arrondiMonnaieSupZero{VRAI, 3517AGR_PE}
	3517AGR_TA :=  arrondiMonnaieSupZero{VRAI, 3517AGR_TA}
	3517AGR_TB :=  arrondiMonnaieSupZero{VRAI, 3517AGR_TB}
	
	3517AGR_SE :=  arrondiMonnaieSupZero{VRAI, 3517AGR_SE}
	3517AGR_SF :=  arrondiMonnaieSupZero{VRAI, 3517AGR_SF}
	3517AGR_SG :=  arrondiMonnaieSupZero{VRAI, 3517AGR_SG}
	AG4256 :=  arrondiMonnaieSupZero{VRAI, AG4256}
	AG4259 :=  arrondiMonnaieSupZero{VRAI, AG4259}
	AG4255 :=  arrondiMonnaieSupZero{VRAI, AG4255}
	AG4266 :=  arrondiMonnaieSupZero{VRAI, AG4266}
	AG4267 :=  arrondiMonnaieSupZero{VRAI, AG4267}
	3517AGR_AJ :=  arrondiMonnaieSupZero{VRAI, 3517AGR_AJ}
	3517AGR_AH :=  arrondiMonnaieSupZero{VRAI, 3517AGR_AH}
	3517AGR_TZ :=  arrondiMonnaieSupZero{VRAI, 3517AGR_TZ}
	3517AGR_UA :=  arrondiMonnaieSupZero{VRAI, 3517AGR_UA}
	3517AGR_UB :=  arrondiMonnaieSupZero{VRAI, 3517AGR_UB}
	
	3517AGR_US :=  arrondiMonnaieSupZero{VRAI, 3517AGR_US}
	3517AGR_UT :=  arrondiMonnaieSupZero{VRAI, 3517AGR_UT}
	3517AGR_UU :=  arrondiMonnaieSupZero{VRAI, 3517AGR_UU}
	3517AGR_XN :=  arrondiMonnaieSupZero{VRAI, 3517AGR_XN}
	
	3517AGR_TW :=  arrondiMonnaieSupZero{VRAI, 3517AGR_TW}
	3517AGR_NQ :=  entierSupZero{VRAI, 3517AGR_NQ}
	3517AGR_NV :=  entierSupZero{VRAI, 3517AGR_NV}
	3517AGR_NR :=  entierSupZero{VRAI, 3517AGR_NR}
	3517AGR_NW :=  entierSupZero{VRAI, 3517AGR_NW}
	3517AGR_NS :=  entierSupZero{VRAI, 3517AGR_NS}
	3517AGR_NX :=  entierSupZero{VRAI, 3517AGR_NX}
	3517AGR_NT :=  entierSupZero{VRAI, 3517AGR_NT}
	3517AGR_NY :=  entierSupZero{VRAI, 3517AGR_NY}
	3517AGR_NU :=  entierSupZero{VRAI, 3517AGR_NU}
	3517AGR_NZ :=  entierSupZero{VRAI, 3517AGR_NZ}
	
	SI palierJuillet ALORS
		3517AGR_YR :=  arrondiMonnaieSupZero{VRAI, 3517AGR_YR}
	FINSI
   
    AG0037 := entier {AG0037}
    AG0105 := entier {AG0105}
    AG0206 := entier {AG0206}
    AG005B := entier {AG005B}
    AG0100 := entier {AG0100}
    AG0201 := entier {AG0201}
    AG0207 := entier {AG0207}
    AG0151 := entier {AG0151}
    
    AG0105_TD	:= entier {AG0105 * 5.5/100}
    AG0206_TD	:= entier {AG0206 * 19.6/100}
    AG005B_TD	:= entier{AG005B * 7/100}
    AG0100_TD	:= entier {AG0100 * 2.1/100}
    AG0201_TD	:= entier {AG0201 * 8.5/100}
    AG0207_TD	:= entier {AG0207 * 20/100}
    AG0151_TD	:= entier {AG0151 * 10/100}

    3517AGR_PJ	:= entier {3517AGR_PH * 20/100}
    3517AGR_SR	:= entier {3517AGR_SQ * 10/100}
    3517AGR_ST	:= entier {3517AGR_SS * 8.5/100}
    3517AGR_SV	:= entier {3517AGR_SU * 5.5/100}
    3517AGR_SX	:= entier {3517AGR_SW * 2.1/100}
    3517AGR_SZ	:= entier {3517AGR_SY * 1.05/100}
    
    AG0900_TD := entier {AG0900_TD}
    AG0950_TD := entier {AG0950_TD}
    AG0030_TD := entier {AG0030_TD}
    AG0044_TD := entier {AG0044_TD}
    AG0970_TD := entier {AG0970_TD}
    AG0980_TD := entier {AG0980_TD}
    AG0981_TD := entier {AG0981_TD}
    AG0031_TD := entier {AG0031_TD}
    AG0600 := entier {AG0600}
    
    SI AG0058 = ? ALORS
    	AG0058	:=	AG0058_C
    FINSI
    
    AG0703 := entier {AG0703}
    AG0702 := entier {AG0702}
    AG0058 := entier {AG0058}
    AG0059 := entier {AG0059}
    AG0018 := entier {AG0018}
    AG9989 := entier {AG9989}
    AG9999 := entier {AG9999}
    AG4220 := entier {AG4220}
    AG4216 := entier {AG4216}
    AG4213 := entier {AG4213}
    AG4326 := entier {AG4326}
    AG4314 := entier {AG4314}
    AG035C := entier {AG035C}
    AG035D := entier {AG035D}
    AG035E := entier {AG035E}
    AG035F := entier {AG035F}
    AG035G := entier {AG035G}
    AG035H := entier {AG035H}

    AG4220 := entier {AG4220}
    AG4213 := entier {AG4213}
    AG4326 := entier {AG4326}
    AG4314 := entier {AG4314}
    AG035C := entier {AG035C}
    AG4253 := entier {AG4253}
    AG4254 := entier {AG4254}
    AG4247 := entier {AG4247}
    AG4248 := entier {AG4248}
    AG4248 := entier {AG4248}
    AG4250 := entier {AG4250}
    AG4273 := entier {AG4273}
    AG4274 := entier {AG4274}
    AG4269_B := entier {AG4269_B}
    AG4271_B := entier {AG4271_B}

    3517AGR_SJ := entier {3517AGR_SJ}
    3517AGR_SH := entier {3517AGR_SH}
    3517AGR_SK := entier {3517AGR_SK}

	AG4213 := arrondiSup {((3517AGR_SJ * 1%) - 0.4999999)}

    AG4250 := 3517AGR_SM * 125
    AG4256 := 3517AGR_SE * 20.2%
    AG4259 := 3517AGR_SF * 6.9%
    AG4255 := 3517AGR_SG * 12%

    AG4256 := entier {AG4256}
    AG4259 := entier {AG4259}
    AG4255 := entier {AG4255}

    AG4266 := entier {AG4266}
    AG4267 := entier {AG4267}

	3517AGR_AJ_C := 0
	3517AGR_AH_C := 0	

	------ ajouté en 2025 car modification après livraison de l'état	
	3517AGR_YC := ?
	-----------------------------------------------------------------
	
	SI 3517AGR_YC1 <> ? ET 3517AGR_YC2 <> ? ET 3517AGR_YC1 <> 0 ET 3517AGR_YC2 <> 0 ALORS
    	info{'Vous ne pouvez pas renseigner la régularisation d''une période antérieure sur les deux périodes.'}
    	3517AGR_YC2 := ?
    FINSI
	
	SI palierJuillet ALORS
		SI 3517AGR_WF1 = '5' ALORS
			info{'Vous ne pouvez plus sélectionner la période 5 à partir des TVA du mois de Juin.' }
			3517AGR_WF1 := ?
		FINSI
		3517AGR_WF2 := ?
		3517AGR_WN2 := 0
		3517AGR_WN2_C := 0
	FINSI

	SI 3517AGR_WF1 <> '?' ALORS			
		SI 3517AGR_WK1 - 3517AGR_WL1 - 3517AGR_WM1 + 3517AGR_YC1 > 0 ALORS		 	 
			3517AGR_WN1_C := 3517AGR_WK1 - 3517AGR_WL1 - 3517AGR_WM1 + 3517AGR_YC1
		SINON
			3517AGR_WN1_C := 0
		FINSI
	FINSI
	SI 3517AGR_WF2 <> '?' ALORS			
		SI 3517AGR_WK2 - 3517AGR_WL2 - 3517AGR_WM2 + 3517AGR_YC2 > 0 ALORS		 	 
			3517AGR_WN2_C := 3517AGR_WK2 - 3517AGR_WL2 - 3517AGR_WM2 + 3517AGR_YC2
		SINON
			3517AGR_WN2_C := 0
		FINSI
	FINSI

	SI 3517AGR_WF1 = '4' ALORS -- 3517AGR_WN1 doit remonter dans 3517AGR_AJ
		3517AGR_AJ_C += 3517AGR_WN1_C
	FINSI
	SI 3517AGR_WF1 = '5' ALORS -- 3517AGR_WN1 doit remonter dans 3517AGR_AH
		3517AGR_AH_C += 3517AGR_WN1_C
	FINSI

	SI 3517AGR_WF2 = '4' ALORS -- 3517AGR_WN2 doit remonter dans 3517AGR_AJ
		3517AGR_AJ_C += 3517AGR_WN2_C
	FINSI
	SI 3517AGR_WF2 = '5' ALORS -- 3517AGR_WN2 doit remonter dans 3517AGR_AH
		3517AGR_AH_C += 3517AGR_WN2_C
	FINSI

	SI 3517AGR_WN1 = ? OU 3517AGR_WN1 = 0 ALORS 
		3517AGR_WN1 := 3517AGR_WN1_C				
	FINSI
	SI 3517AGR_WN2 = ? OU 3517AGR_WN2 = 0 ALORS 
		3517AGR_WN2 := 3517AGR_WN2_C				
	FINSI

	SI 3517AGR_AJ = ? OU 3517AGR_AJ = 0 ALORS 3517AGR_AJ := 3517AGR_AJ_C FINSI
	SI 3517AGR_AH = ? OU 3517AGR_AH = 0 ALORS 3517AGR_AH := 3517AGR_AH_C FINSI	
	
	SI palierJuillet ALORS  -- Suppression de 3517AGR_AH pour le palier de juillet 2025
		3517AGR_VM := 3517AGR_AJ
	SINON
		3517AGR_VM := 3517AGR_AJ + 3517AGR_AH
	FINSI

    AG4269	:= arrondiSup {((AG4269_B * 0.5/100) - 0.4999999)}
    AG4271	:= arrondiSup {((AG4271_B * 0.5/100) - 0.4999999)}

    AG4270 := 3517AGR_SH * 11%
    AG4268 := 3517AGR_SK * 6%
    AG4269 := entier {AG4269}
    AG4271 := entier {AG4271}
    
    AG_TVA_DU	:=	AG0105_TD + AG0100_TD + AG0201_TD +
    			AG0900_TD + AG0950_TD + AG0970_TD + AG0980_TD + AG0981_TD + AG0031_TD +
    			AG0600 + AG0030_TD + AG0044_TD + AG007B_TD + AG0207_TD  + AG0151_TD +
    			AG0602 + 3517AGR_PJ + 3517AGR_SR + 3517AGR_ST + 3517AGR_SV + 3517AGR_SX + 3517AGR_SZ
    
    AG_TVA_DEDUC	:=	AG0703 + AG0702 + AG0058 + AG0059 + AG0603
    
    SI AG_TVA_DU > AG_TVA_DEDUC ALORS
    	AG_TVA_NET	:= 	AG_TVA_DU - AG_TVA_DEDUC
    	AG0705		:=	?
    SINON
    	AG_TVA_NET	:=	?
    	AG0705		:=	AG_TVA_DEDUC - AG_TVA_DU
    FINSI
    
    RN 		:= 	AG_TVA_NET - (AG0705 + AG0018)
    
    SI RN < 0 ALORS
    	AG_SOLD	:=	?
    SINON
    	AG_SOLD	:=	RN	
    FINSI
    
    RN 		:= 	AG0018 - AG_TVA_NET
    
    SI RN < 0 ALORS
    	AG_EXE		:=	?
    SINON
    	AG_EXE		:=	RN	
    FINSI
    
    RN		:=	AG0705 + AG_EXE
    
    SI AGl21 > 100	ALORS
    	info{'Le pourcentage ne peut être supérieur à 100.'}
    	AGl21	:=	?
    FINSI
    
    SI AG_EXE > 0  ALORS 
    	AG0020	:=	RN 
    SINON 
    	SI (AG_SOLD > 0) OU (AG_SOLD = 0 ET (AG0018 = AG_TVA_NET)) ALORS
    		AG0020	:=	0
    	SINON
    		AG0020	:=	AG0705 + AG0018
    	FINSI
    FINSI
    
    SI avec3616 ALORS
    	SI AG4220 = ? ALORS
    		AG4220	:=	AG4220_C
    	FINSI
    FINSI
    
    SI avec3616 ALORS
    	INTER_Calcul_de_la_taxe_ADAR{}
    FINSI

    AGl40		:=	AG4220 + AG4213 + AG4326 + AG4314 + AG035C + AG4253 + AG4254 + AG4247 + AG4248 + AG4249 + AG4250 + AG4273
    			 + AG4274 + AG4270 + AG4268 + AG4269 + AG4271 + AG4256 + AG4259 + AG4255 + AG4266 + AG4267
    			 + 3517AGR_VM
    			 + 3517AGR_NP + 3517AGR_TM + 3517AGR_TA + 3517AGR_TB + 3517AGR_TZ + 3517AGR_UA + 3517AGR_UB
				 
	SI palierJuillet ALORS
    	AGl40 += 3517AGR_YR
    FINSI

    AG_TVA_CRED	:=	AG0020
    AG8002		:=	DDR_AD	
    AG8003		:=	AG_TVA_CRED - AG8002
    
    AGl39		:=	AG_SOLD - 3517AGR_UW
    
    SI 3517_35B_MONTANT<> ? ALORS
    	AGl40	:=	AGl40 + 3517_35B_MONTANT
    FINSI   
	
	INTER3517_4{}	

###
'INTER3517_3' 'Toutes fonctions'


	SI (3517AGR_NV > 3517AGR_NQ) ALORS
		info{'Le nombre de véhicules rail-route ne peut pas être supérieur au nombre de véhicules.'}
		3517AGR_NV := ?
	FINSI

	SI (3517AGR_NW > 3517AGR_NR) ALORS
		info{'Le nombre de véhicules rail-route ne peut pas être supérieur au nombre de véhicules.'}
		3517AGR_NW := ?
	FINSI

	SI (3517AGR_NX > 3517AGR_NS) ALORS
		info{'Le nombre de véhicules rail-route ne peut pas être supérieur au nombre de véhicules.'}
		3517AGR_NX := ?
	FINSI

	SI (3517AGR_NY > 3517AGR_NT) ALORS
		info{'Le nombre de véhicules rail-route ne peut pas être supérieur au nombre de véhicules.'}
		3517AGR_NY := ?
	FINSI

	SI (3517AGR_NZ > 3517AGR_NU) ALORS
		info{'Le nombre de véhicules rail-route ne peut pas être supérieur au nombre de véhicules.'}
		3517AGR_NZ := ?
	FINSI

	3517AGR_TM := (3517AGR_TK * 0.9/100) + (3517AGR_TL * 0.1/100)
	3517AGR_UA := (3517AGR_TX * 0.54)

	3517AGR_TM := entier{3517AGR_TM}
	3517AGR_UA := entier{3517AGR_UA}
	3517AGR_UB := entier{3517AGR_UB}
	

	3517AGR_NP := 3517AGR_PA + 3517AGR_PB + 3517AGR_PC + 3517AGR_PD + 3517AGR_PE

###
'INTER3517_4' 'Toutes fonctions'

	3517AGR_WP :=  arrondiMonnaieSupZero{VRAI, 3517AGR_WP}
	3517AGR_WQ :=  arrondiMonnaieSupZero{VRAI, 3517AGR_WQ}
	3517AGR_WR :=  arrondiMonnaieSupZero{VRAI, 3517AGR_WR}
	3517AGR_XM :=  arrondiMonnaieSupZero{VRAI, 3517AGR_XM}
	
	SI palierJuillet ALORS
		3517AGR_XY :=  arrondiMonnaieSupZero{VRAI, 3517AGR_XY}
		3517AGR_ZL :=  arrondiMonnaieSupZero{VRAI, 3517AGR_ZL}
		3517AGR_YB :=  arrondiMonnaieSupZero{VRAI, 3517AGR_YB}
		3517AGR_YW :=  arrondiMonnaieSupZero{VRAI, 3517AGR_YW}
		3517AGR_YA :=  arrondiMonnaieSupZero{VRAI, 3517AGR_YA}
		3517AGR_YV :=  arrondiMonnaieSupZero{VRAI, 3517AGR_YV}
		3517AGR_YS :=  arrondiMonnaieSupZero{VRAI, 3517AGR_YS}
		3517AGR_ZM :=  arrondiMonnaieSupZero{VRAI, 3517AGR_ZM}
		3517AGR_GM :=  arrondiMonnaieSupZero{VRAI, 3517AGR_GM}
	SINON
		3517AGR_XY := 0
		3517AGR_ZL := 0
		3517AGR_YB := 0
		3517AGR_YW := 0
		3517AGR_YA := 0
		3517AGR_YV := 0
		3517AGR_YS := 0
		3517AGR_ZM := 0
		3517AGR_GM := 0
	FINSI
	
	3517AGR_VK :=  3517AGR_WP + 3517AGR_WQ + 3517AGR_WR + 3517AGR_XM + 3517AGR_XY + 3517AGR_ZL + 3517AGR_YB

	3517AGR_US :=  arrondiMonnaieSupZero{VRAI, 3517AGR_US}
	3517AGR_UT :=  arrondiMonnaieSupZero{VRAI, 3517AGR_UT}
	3517AGR_UU :=  arrondiMonnaieSupZero{VRAI, 3517AGR_UU}
	3517AGR_XN :=  arrondiMonnaieSupZero{VRAI, 3517AGR_XN}	

	SI  3517AGR_US + 3517AGR_UT + 3517AGR_UU + 3517AGR_XN + 3517AGR_YW + 3517AGR_YA + 3517AGR_YV > AG_SOLD ALORS
		info{'Le total du crédit d''accise sur les énergies imputé sur la TVA (X4) ne peut pas dépasser le montant de la TVA due (ligne 28).'}
		3517AGR_US := ?
		3517AGR_UT := ?
		3517AGR_UU := ?
		3517AGR_XN := ?
		3517AGR_YW := ?
		3517AGR_YA := ?
		3517AGR_YV := ?
	FINSI

	3517AGR_UV :=  3517AGR_US + 3517AGR_UT + 3517AGR_UU + 3517AGR_XN + 3517AGR_YW + 3517AGR_YA + 3517AGR_YV

	3517AGR_UW :=  3517AGR_UV

	SI (3517AGR_WP - 3517AGR_US > 0) ALORS
		3517AGR_UX := 3517AGR_WP - 3517AGR_US
	SINON
		3517AGR_UX := 0
	FINSI

	SI (3517AGR_WQ - 3517AGR_UT > 0) ALORS
		3517AGR_UY := 3517AGR_WQ - 3517AGR_UT
	SINON
		3517AGR_UY := 0
	FINSI

	SI (3517AGR_WR - 3517AGR_UU > 0) ALORS
		3517AGR_UZ := 3517AGR_WR - 3517AGR_UU
	SINON
		3517AGR_UZ := 0
	FINSI

	SI (3517AGR_XM - 3517AGR_XN > 0) ALORS
		3517AGR_XP := 3517AGR_XM - 3517AGR_XN
	SINON
		3517AGR_XP := 0
	FINSI
	
	SI palierJuillet ALORS
		SI (3517AGR_XY - 3517AGR_YW > 0) ALORS
			3517AGR_XZ := 3517AGR_XY - 3517AGR_YW
		SINON
			3517AGR_XZ := 0
		FINSI
		
		SI (3517AGR_ZL - 3517AGR_YA > 0) ALORS
			3517AGR_YU := 3517AGR_ZL - 3517AGR_YA
		SINON
			3517AGR_YU := 0
		FINSI
		
		SI (3517AGR_YB - 3517AGR_YV > 0) ALORS
			3517AGR_ZN := 3517AGR_YB - 3517AGR_YV
		SINON
			3517AGR_ZN := 0
		FINSI		
	SINON
		3517AGR_XZ := 0
		3517AGR_YU := 0
		3517AGR_ZN := 0
	FINSI
	
	3517AGR_VA :=  3517AGR_UX + 3517AGR_UY + 3517AGR_UZ + 3517AGR_XP + 3517AGR_XZ + 3517AGR_YU + 3517AGR_ZN



	3517AGR_VB := 3517AGR_VA


	3517AGR_WW :=  arrondiMonnaieSupZero{VRAI, 3517AGR_WW}
	3517AGR_WT :=  arrondiMonnaieSupZero{VRAI, 3517AGR_WT}
	3517AGR_WU :=  arrondiMonnaieSupZero{VRAI, 3517AGR_WU}
	3517AGR_XQ :=  arrondiMonnaieSupZero{VRAI, 3517AGR_XQ}

	3517AGR_VF :=  3517AGR_WW + 3517AGR_WT + 3517AGR_WU + 3517AGR_XQ + 3517AGR_YS + 3517AGR_ZM + 3517AGR_GM

	3517AGR_VL :=  3517AGR_VF

	AGl39 := AG_SOLD - 3517AGR_UW

	AG_TT := AGl39 + AGl40 + 3517AGR_VL

###
'INTER3517_5' 'Toutes fonctions'
    
    |
    	remboursement<Monnaie>
    |
    
    SI DDR_BB <> ? ALORS
    	DDR_AA	:=	AG0705
    SINON
    	SI AG0705 >= 150			-- seuil à 150 euros	
    		ALORS	DDR_AA := AG0705
    		SINON	DDR_AA := ?
    	FINSI
    FIN SI
    
    DDR_AB	:=	AG_EXE
    DDR_AC	:=	DDR_AA+ DDR_AB
    remboursement	:=	DDR_AC- DDR_AD
    
    DDR_AE	:=	remboursement
    SI DDR_AE< 0 ALORS
    	DDR_AE	:=	0
    FIN SI

    DDR_AG := DDR_AD
    
    INTER3517_2{}
###
'PAGE_3517_1' 'Toutes fonctions'
    agree	:=	VRAI
    impressionDirecte{'compta/25/TVA/3517_1.fnd'}
    impression{'compta/25/TVA/3517.fnd'}
    impression{'compta/25/TVA/3517_1_c.fnd'}
    impression{'fin_page'}
    agree	:=	FAUX
###
'PAGE_3517_2' 'Toutes fonctions'
    impressionDirecte{'compta/25/TVA/3517_2.fnd'}
    impression{'compta/25/TVA/3517_2_c.fnd'}
    impression{'compta/25/TVA/3517.fnd'}
    impression{'fin_page'}
###
'PAGE_3517__3' 'Toutes fonctions'
    impressionDirecte{'compta/25/TVA/3517__3.fnd'}
    impression{'compta/25/TVA/3517.fnd'}
    impression{'fin_page'}
###
'PAGE_3517_3' 'Toutes fonctions'
    impressionDirecte{'compta/25/TVA/3517_3.fnd'}
    impression{'compta/25/TVA/3517.fnd'}
    impression{'fin_page'}
###
'PAGE_3517__4' 'Toutes fonctions'
    impressionDirecte{'compta/25/TVA/3517__4.fnd'}
    impression{'compta/25/TVA/3517__4_c.fnd'}
    impression{'fin_page'}
###
'PAGE_3517_4' 'Toutes fonctions'
    impressionDirecte{'compta/25/TVA/3517_4.fnd'}
    impression{'compta/25/TVA/3517_4_c.fnd'}
    impression{'fin_page'}
###
'PAGE_3517_5' 'Toutes fonctions'
    impressionDirecte{'compta/25/TVA/3517_5.fnd'}
    impression{'compta/25/TVA/3517_5_c.fnd'}
    impression{'fin_page'}
###
'PAGE_Calcul_de_la_taxe_ADAR' 'Toutes fonctions'
    impression{'compta/25/TVA/taxeADAR.fnd'}
    impression{'fin_page'}
###
'PAGE_3517AGR__ext1' 'Toutes fonctions'
    impressionDirecte{'compta/25/TVA/ca12__3_ext3.fnd'}
    impression{'fin_page'}
###
'PAGE_3517AGR_ext1' 'Toutes fonctions'
    impressionDirecte{'compta/25/TVA/ca12_3_ext3.fnd'}
    impression{'fin_page'}
###
'SELECTION' 'Toutes fonctions'

    InitMentionExpresseTvaMotif{}
	InitialiserExtensions3310TIC_FP{}
	MasquerAttributs3310TIC_FP{}
    majComptesDeSubstitution{}
    majGrise{}
    
    Télétransmissions	:=	VRAI	-- Rend le tiroir (caché par défaut au niveau EtatComptable) visible
    EDITVA		:=	VRAI
    EDILIASSE		:=	FAUX
    EDITDFC		:=	FAUX
    
    preLiasseCode		:=	FAUX
###
'AG0032_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG0033_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG0034_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG0207_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG0151_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG0105_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG0206_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG005B_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG0100_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG0201_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG0981_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG0981_TD_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG0031_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG0031_TD_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG0703_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG0702_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG0900_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG0900_TD_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG0970_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG0970_TD_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG0980_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'AG0980_TD_BULLE' 'InfoBulles'
	SORTIR GetExpressionImportEtatTvaPreparatoire{}
###
'3517AGR_WF1_BULLE' 'InfoBulles'
	SORTIR GetInfoBulle3517S_BU_Ou_3517AGR_WF{}
###
'3517AGR_WF2_BULLE' 'InfoBulles'
	SORTIR GetInfoBulle3517S_BU_Ou_3517AGR_WF{}
###
'AG0058_BULLE' 'InfoBulles'
	SORTIR 'Cette zone correspond à la valeur du report de crédit de TVA de la précédente déclaration, ligne 38.
Vous pouvez modifier le montant ou reprendre sa valeur avec "?".'
###
'AG4220_BULLE' 'InfoBulles'
	SORTIR 'Le montant provient du formulaire « Taxe ADAR » si vous l''avez ajouté.
Vous pouvez modifier la valeur et lui faire reprendre son montant initial en saisissant "?".'
###
