****************************************************
*
* LENS : LISTER LES LIGNES EN PRESTATAIRE SANS INCIDENCE COMPTABLE
*
****************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "FACTURAIDE" TO F.FACTURAIDE ELSE STOP
OPEN "", "CIVILAIDE" TO F.CIVILAIDE ELSE STOP
PRINT "PERIODE (AAAAMM) ?"
INPUT W_Mois
PRINT "TYPE D'ACTIVITE (P=Prestataire, M=Mandataire,I=Intermediaire) ?"
INPUT W_Typeact
EXECUTE 'COMO ON Sansincidcompta.txt'
EXECUTE 'SELECT FACTURAIDE AVEC PeriodeCleFactAide = "':W_Mois:'" AND AVEC ActiviteFact = "':W_Typeact:'" PAR-DECR @ID'
PRINT " "
W_Fini = "Faux"
W_TamponCle = ""
LOOP
 READNEXT W_Cle ELSE W_Fini = "Vrai"
 WHILE W_Fini = "Faux"		
 IF W_Cle[1,25] # W_TamponCle THEN
  READ ENR_FACTURAIDE FROM F.FACTURAIDE,W_Cle ELSE STOP
  W_Count = DCOUNT(ENR_FACTURAIDE<2>, CHAR(253))
  FOR i = 1 TO W_Count					
   W_Libelle = ENR_FACTURAIDE<2,i>
   W_Libelle = W_Libelle "L(#30)"
   W_Compta = ENR_FACTURAIDE<6,i>
   W_Incid = ENR_FACTURAIDE<14,i>
   W_Montant = ENR_FACTURAIDE<5,i>
   W_Montant=W_Montant "R26,(#10)"
   IF W_Compta = "" THEN
    READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Cle[1,5] ELSE ENR_CIVILAIDE=""
    NOM=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
    NOM=NOM "L(#20)"
    PRINT "AIDE ":W_Cle[1,5]:" ":NOM:"   ":W_Libelle:"   ":W_Montant
   END ELSE
    IF W_Incid#0 THEN
     READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Cle[1,5] ELSE ENR_CIVILAIDE=""
     NOM=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
     NOM=NOM "L(#20)"
     PRINT "AIDE ":W_Cle[1,5]:" ":NOM:"   ":W_Libelle:"   ":W_Montant
    END
   END
  NEXT i			
  W_TamponCle = W_Cle[1,25]
 END
REPEAT
EXECUTE "COMO OFF"
STOP
