Discussion :

[BF0509]

Bonjour,

Je m'explique, je suis en train de travailler sur un modèle d'import de commande d'achat via un traitement spécifique et un modèle d'import.
Je souhaiterais si possible affecter un compteur spécifique à ces commandes.

Savez-vous comment je peux faire sachant qu'au niveau des achats, nous n'avons pas d'action possible au niveau des transactions de saisies comme c'est la cas pour les ventes.

Merci par avance

[BF0509]

Je viens de trouver ce point d'entrée qui pourrait peut-être fonctionner mais je ne comprends pas son fonctionnement :

Traitement SUBANM : Gestion des compteurs
NUMERO : Affectation d'un numéro de compteur
Le point d’entrée NUMERO permet de prendre la main en affectation du numéro d’un compteur.

Est-ce que vous savez comment utiliser celui-ci pour dire que je veux utiliser tel compteur plutôt qu'un autre ?

J'ai tenté comme suit mais j'ai une erreur sur une clé déjà existante avec un numéro de compteur qui n'a rien à voir :

###################################################################################

$ACTION
Case ACTION
When "NUMERO" : #Gosub NUMERO
Endcase
Return


###################################################################################
$NUMERO
If GIMPORT and GFONCTION = "GESPOH"
COMPTEUR = "PCNUX"
SIT = "AAA"
DAT = date$

Endif

Return

[castorameur]

Bonjour et en faisant simplement un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
IF GIMPORT then
Call  NUMERO ("ZXX","SOC",date$,"",ZCHRONO,ZSTAT) From SUBANM

dans le RAZCRE
avec ZXX le code de ton compteur, SOC la société et tu récupère ton numéro dans ZCHRONO

sinon le but du point d'entrée NUMERO étant surtout de pouvoir créer un numéro sans tenir compte du paramétrage de la structure du compteur en mémoire.

[BF0509]

ça donnerait ça du coup dans SPEPOH ?

# Gestion du masque POH2 (Spécifique)

######################################################################################
##
######################################################################################
$ACTION
Case ACTION
When "RAZCRE" : Gosub RAZCRE
When default
Endcase
Return

######################################################################################

$RAZCRE
Local Char ZCHRONO
Local Integer ZSTAT

If GIMPORT Then
Call NUMERO ("ZPNUX","NEO",date$,"",ZCHRONO,ZSTAT) From SUBANM
[F: POH]POHNUM = ZCHRONO
Endif
Return

[BF0509]

Bonjour,

Je donne donc la solution :

# Gestion du masque POH2 (Spécifique)

######################################################################################
##
######################################################################################
$ACTION
Case ACTION
When "INICRE" : Gosub INICRE
When default
Endcase
Return

######################################################################################

$INICRE
Local Char ZCHRONO(16)
Local Integer ZSTAT

If GIMPORT Then
Infbox "Appel chrono"
GMANCOU = 2 #Permet d'indiquer l'utilisation du compteur manuel pour ne pas utiliser le compteur automatique
Call NUMERO ("PON","NEO",date$,"",ZCHRONO,ZSTAT) From SUBANM
[MOH0]POHNUM = ZCHRONO
[FOH]POHNUM = ZCHRONO
Affzo [MOH0]POHNUM
Endif
Return