SGL Hexalis - Retransmettre factures Hprim
Fermé
neimad01
Messages postés
6
Date d'inscription
mercredi 30 mai 2012
Statut
Membre
Dernière intervention
21 janvier 2015
-
11 juin 2013 à 14:13
neimad01 Messages postés 6 Date d'inscription mercredi 30 mai 2012 Statut Membre Dernière intervention 21 janvier 2015 - 11 juin 2013 à 14:19
neimad01 Messages postés 6 Date d'inscription mercredi 30 mai 2012 Statut Membre Dernière intervention 21 janvier 2015 - 11 juin 2013 à 14:19
A voir également:
- Formation logiciel hexalis
- Money logiciel - Télécharger - Comptabilité & Facturation
- Logiciel montage vidéo gratuit windows 10 - Guide
- Logiciel benchmark - Guide
- Logiciel spss - Télécharger - Outils professionnels
- Logiciel de sauvegarde - Guide
1 réponse
neimad01
Messages postés
6
Date d'inscription
mercredi 30 mai 2012
Statut
Membre
Dernière intervention
21 janvier 2015
11 juin 2013 à 14:19
11 juin 2013 à 14:19
Devant l'absence de réponse de la hotline, voici un petit script shell qui devrait répondre au besoin. A utiliser avec toute prudence car il peut notamment ne pas fonctionner sous toutes les version d'Hexalis.
Il a été testé dans un environnement Hexalis 3.
Après, il suffit d'aller re-transmettre les factures dans les annexes.
. /opt/hexaflux/VARENV_GLX
if [ "A$1" = "A" ]
then
echo "Usage: retransmettreHprimFacturation.sh [-h nohosp| -n nodemx]" >&2
exit 1
fi
while [ $# -gt 0 ]
do
case $1 in
-h) shift; LNoHosp=$1;;
-n) shift; LNoDemx=$1;;
*) shift;;
esac
done
if [ "A$LNoHosp" = "A" -a "A$LNoDemx" = "A" ]
then
echo "Usage: retransmettreHprimFacturation.sh [-h nohosp| -n nodemx]" >&2
exit 1
fi
if [ "A$LNoHosp" != "A" -a "A$LNoDemx" != "A" ]
then
echo "Usage: retransmettreHprimFacturation.sh [-h nohosp| -n nodemx]" >&2
exit 1
fi
LNoHosp="${LNoHosp}%"
LNoDemx="${LNoDemx}%"
sqlplus -s $SQLUSER/$SQLPASSWD@$NOM_BASE_LABO <<!!
delete from hprimfactures
where (nodem) in (select d.nodem
from demande d, apcorr c
where d.clabo='1'
and d.nohosp like '$LNoHosp'
and d.nodemx like '$LNoDemx'
and d.nodem=c.nodem)
and typetrans=2
/
delete from hprimencours
where (nodem,claboi,claboe) in (select d.nodem, d.clabo, c.ccorr
from demande d, apcorr c
where d.clabo='1'
and d.nohosp like '$LNoHosp'
and d.nodemx like '$LNoDemx'
and d.nodem=c.nodem)
and typetrans=1
/
delete from idx
where (nodemx,tri) in (select d.nodemx, c.ccorr
from demande d, apcorr c
where d.clabo='1'
and d.nohosp like '$LNoHosp'
and d.nodemx like '$LNoDemx'
and d.nodem=c.nodem)
/
insert into idx (select d.clabo, 'HP_FAC', d.nodemx, NULL, 0, NULL,
'20130531', 301,
'FINJOUR', NULL, 0,NULL,9, c.ccorr, 'ATTENTE', NULL,NULL,NULL,
NULL,NULL,NULL,
0,0,0,0,0,0
from demande d, apcorr c
where d.clabo='1'
and d.nohosp like '$LNoHosp'
and d.nodemx like '$LNoDemx'
and d.nodem=c.nodem)
/
commit
/
quit;
!!
Il a été testé dans un environnement Hexalis 3.
Après, il suffit d'aller re-transmettre les factures dans les annexes.
. /opt/hexaflux/VARENV_GLX
if [ "A$1" = "A" ]
then
echo "Usage: retransmettreHprimFacturation.sh [-h nohosp| -n nodemx]" >&2
exit 1
fi
while [ $# -gt 0 ]
do
case $1 in
-h) shift; LNoHosp=$1;;
-n) shift; LNoDemx=$1;;
*) shift;;
esac
done
if [ "A$LNoHosp" = "A" -a "A$LNoDemx" = "A" ]
then
echo "Usage: retransmettreHprimFacturation.sh [-h nohosp| -n nodemx]" >&2
exit 1
fi
if [ "A$LNoHosp" != "A" -a "A$LNoDemx" != "A" ]
then
echo "Usage: retransmettreHprimFacturation.sh [-h nohosp| -n nodemx]" >&2
exit 1
fi
LNoHosp="${LNoHosp}%"
LNoDemx="${LNoDemx}%"
sqlplus -s $SQLUSER/$SQLPASSWD@$NOM_BASE_LABO <<!!
delete from hprimfactures
where (nodem) in (select d.nodem
from demande d, apcorr c
where d.clabo='1'
and d.nohosp like '$LNoHosp'
and d.nodemx like '$LNoDemx'
and d.nodem=c.nodem)
and typetrans=2
/
delete from hprimencours
where (nodem,claboi,claboe) in (select d.nodem, d.clabo, c.ccorr
from demande d, apcorr c
where d.clabo='1'
and d.nohosp like '$LNoHosp'
and d.nodemx like '$LNoDemx'
and d.nodem=c.nodem)
and typetrans=1
/
delete from idx
where (nodemx,tri) in (select d.nodemx, c.ccorr
from demande d, apcorr c
where d.clabo='1'
and d.nohosp like '$LNoHosp'
and d.nodemx like '$LNoDemx'
and d.nodem=c.nodem)
/
insert into idx (select d.clabo, 'HP_FAC', d.nodemx, NULL, 0, NULL,
'20130531', 301,
'FINJOUR', NULL, 0,NULL,9, c.ccorr, 'ATTENTE', NULL,NULL,NULL,
NULL,NULL,NULL,
0,0,0,0,0,0
from demande d, apcorr c
where d.clabo='1'
and d.nohosp like '$LNoHosp'
and d.nodemx like '$LNoDemx'
and d.nodem=c.nodem)
/
commit
/
quit;
!!
