// DUPLICATION DE FICHE, une facture reste une facture, un devis reste un devis #si DBOX("Voulez-vous vraiment dupliquer cette fiche ?"+FINLIGNE() +FINLIGNE() +"Ce sera une fiche "+FINLIGNE()+MAJUSCULE( SI(@SDocument=1;@VDevisOuOffre; SI(@SDocument=2;"Bull. Livraison"; SI(DEFAUT(@Total;1)<0;"Note de crédit";"Facture")))) +FINLIGNE()+"non imprimée, et non payée !"+FINLIGNE()+FINLIGNE(); "OUI/NON") // copie de la fiche, puis // Annulation des impressions @SImpressionBullLivr := 0 @SImpressionDevis := 0 @SImpressionFacture := 0 @SImpressionMensualit := 0 @SImpressionRappel1 := 0 @SImpressionRappel2 := 0 @SImpressionRappel3 := 0 // Annulation des dates @DateFacture := VIDE() @DateRappel1 := VIDE() @DateRappel2 := VIDE() @DateRappel3 := VIDE() @DateSoldeDû := VIDE() @DateTravail := VIDE() @DateDevis := VIDE() @DateBulletinLivr := VIDE() // Annulation des paiements @PDates := VIDE() @PTypePaiement := VIDE() @PTypes := VIDE() @PMontants := VIDE() @PIdentificateurBVR := VIDE() @Payé := 0 // Annulation de la comptabilisation @SComptabilisation := 0 @SComptabilisationMen := 0 // Annulations diverses @FraisRappel := 0 @BL_Facturé := 0 #SINON MENU( "Edition:Annuler modifications") #FIN