PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV (précédentes versions) → le corps de la facture n'apparais   sur l’aperçue  après des modifications
le corps de la facture n'apparais sur l’aperçue après des modifications
Débuté par Bosco Giuseppe, 29 mai 2017 12:54 - Aucune réponse
Posté le 29 mai 2017 - 12:54
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