Bonjours Problème modification facture Voilà mon client voudrais apporter des modifications sur les factures , qui on étais enregistrais. Voici comment : 1 composition de la facture 2 Valide documents voici le code EcranVersFichier()
// SI SAI_Societe= "" ET SAI_Nom= "" ALORS //1 : SCEGLIE UN CLISTE //2 : ANNULLA //1 : Nuovo //1 : ok SELON Dialogue("No e Stato Scelto clienti") CAS 1 Beep() Ouvre(Visioni_Elenco_Clienti) CAS 2 Ferme() FIN FIN ChampGrisé(COMBO_Produit) CalculeTotaux()
Ouvre(FEN_Modo_Pagamento) Ecriture_linge_Facture() Ecritue_Facture() //1 : CONTROLO STAMPA //2 : STAMPA DOCUMERNTO SELON Dialogue("PRONTI PER REGISTRARE E STAMPRE IL DOCUMENTO HO VERIFICARE GLI DATI?") //// // CONTROLO STAMPA CAS 1 iAperçu() iInitRequêteEtat(Etat_FV,FactureV.NumFacture) iImprimeEtat(Etat_FV) P_Sauvegarde_doc()“ici on reprend Ecriture_linge_Facture() FIN
ChampGrisé(MoiMême) Details Ecri Ecriture_linge_Facture () PROCEDURE Ecriture_linge_Facture() LigneFacV.NumFacture=SAI_NumFac POUR TOUTE LIGNE DE Table_LigneFV LigneFacV.Quantite=Col_Qte LigneFacV.Reference=Table_LigneFV.COL_Ref LigneFacV.LibProd=Table_LigneFV.COL_descri LigneFacV.Prix_V_HT=Table_LigneFV.COL_PrxVht LigneFacV.TauxTVA=Table_LigneFV.COL_tva LigneFacV.Nprix=Table_LigneFV.COL_SsTtlL HAjoute(LigneFacV) FIN
Details Ecritue_Facture() FactureV.DateDoc=SAI_DateDoc FactureV.NumFacture=SAI_NumFac FactureV.NumClient=Clients.NumClient FactureV.NomClient=Clients.NomClient FactureV.PrénomClient=Clients.Prénom FactureV.NomSociete=Clients.Societe FactureV.N_REG_Fact=Sai_RegFac FactureV.TotalHT=SAI_TotalHT FactureV.FraisPort=SAI_TotalFraisDePort FactureV.TotalTVA=SAI_Totaltva FactureV.TotalTTC=SAI_TotalTTC FactureV.MoisFAct=Sai_MoisFac // mois defacturation FactureV.IDAdresseLivraison=IDAdresseLivraison //FactureV.IDAdresseFacturation //FactureV.Acquittee //FactureV.Accompte FactureV.ModeReglement=ModeReglement FactureV.Dete_Ech1=SAI_Date_Eche1 FactureV.Date_Ech2=SAI_Date_Eche2 FactureV.Observations=SAi_Note FactureV.SaisiPar = gclLogin.m_gsUtilisateurLogue FactureV.SaisiLe = DateDuJour() HAjoute(FactureV)
Apres , l'aperçue du document et on faits l'enregistrements de la facture. Jusqu’à la tout va bien , mais le problème est quand on doit modifie le corps de facture. Voici ce qui se passe : Si on modifie un élément ou une ligne du corps et on confirme la modification, l'aperçue du document les lignes des articles facturé disparaisse. Pour obtenir les modifications apporte je dois enregistre , le reprendre et réimprime est là les lignes apparaisse. Pour info ces code ne sont pas sur la même fenêtre Voici le code des modification sur deux fenêtre
EcranVersFichier()
// SI SAI_Societe= "" ET SAI_Nom= "" ALORS //1 : SCEGLIE UN CLISTE //2 : ANNULLA //1 : Nuovo //1 : ok SELON Dialogue("No e Stato Scelto clienti") CAS 1 Beep() Ouvre(Visioni_Elenco_Clienti) // ANNULLA CAS 2 Ferme() FIN FIN ChampGrisé(COMBO_Produit) Re_CalculeTotaux() HLit(FactureV,SAI_NumFac) SI ModeReglement<> FactureV.ModeReglement ALORS Beep FIN Ecriture_linge_Facture()
Ecritue_Facture() //P_calcul_1_Date_Preavie() //P_calcul_2_Date_Preavis() //Mise_ajours_ECHEANCIERS()
//1 : CONTROLO STAMPA //2 : STAMPA DOCUMERNTO SELON Dialogue("PRONTI PER REGISTRARE E STAMPRE IL DOCUMENTO HO VERIFICARE GLI DATI?") //// // CONTROLO STAMPA CAS 1 //Mise_ajours_stock()//
iAperçu() iInitRequêteEtat(Etat_FV,FactureV,SAI_NumFac) iImprimeEtat(Etat_FV) P_Sauvegarde_doc() “ici on reprend Ecriture_linge_Facture() // STAMPA DOCUMERNTO FIN
ChampGrisé(MoiMême)
Details Ecritue_Facture() PROCEDURE Ecritue_Facture() //si FactureV..NouvelEnregistrement=Faux ALORS //Info("Fac",FactureV.NumFacture,SAI_NumFac)
FactureV.DateDoc=SAI_DateDoc //Facturev.NumFacture=Sai_NumFac FactureV.NumClient=Clients.NumClient FactureV.NomClient=Clients.NomClient FactureV.PrénomClient=Clients.Prénom FactureV.NomSociete=Clients.Societe //Facturev.N_REG_Fact=Sai_ FactureV.TotalHT=SAI_TotalHT FactureV.FraisPort=SAI_TotalFraisDePort FactureV.TotalTVA=SAI_Totaltva FactureV.TotalTTC=SAI_TotalTTC //FactureV.MoisFAct=Sai_MoisFac // mois defacturation FactureV.IDAdresseLivraison=IDAdresseLivraison FactureV.IDMODELIVRAISON=IDMODELIVRAISON //FactureV.IDAdresseFacturation //FactureV.Acquittee //FactureV.Accompte FactureV.ModeReglement=ModeReglement FactureV.Dete_Ech1=SAI_Date_Eche1 FactureV.Date_Ech2=SAI_Date_Eche2 FactureV.Observations=SAi_Note FactureV.ModifiéPar = gclLogin.m_gsUtilisateurLogue FactureV.ModifiéLe = DateDuJour() HModifie(FactureV,hNumEnrEnCours) // fin //
Details Ecri Ecriture_linge_Facture () PROCEDURE Ecriture_linge_Facture() LigneFacV.NumFacture=SAI_NumFac// //Info(COL_Quantite,COL_NumFacture,SAI_NumFac) POUR TOUTE LIGNE DE TABLE_LigneFacV LigneFacV.LibProd=COL_LibProd LigneFacV.Reference= TABLE_LigneFacV.COL_Reference LigneFacV.Quantite=COL_Quantite LigneFacV.TauxTVA=COL_TauxTVA LigneFacV.Prix_V_HT=COL_Prix_V_HT LigneFacV.Nprix=COL_Nprix HModifie(LigneFacV,SAI_NumFac)
FIN |