# #####################################################################################
# Thema : Metafora axiografwn
# To module ayto metaferei stin trexousa etairia ta axiografa poy den
# exoyn exoflithi apo mia alli etairia
#
# Objects : Application
#
# Author : George Tegos
# Version : 1.0
# #####################################################################################
import string
import win32api
import modules.gui.vsflexgrid as vsflexgrid
import atlas
import atlasLang
import modules.db.ctree as ctree
import modules.tools.dt as dt
import win32traceutil
gRoundDecimals = 0
def Application_RaiseEvent (pDisp, param1, param2):
global gGrid
currCmpPath = atlas.String8(Company.FullPath (""))
if param1 == "DocLoaded":
Document_Calculate ()
return None
def Document_Calculate():
#
# Get lists
#
sourcecomp = atlas.String8(Document.PropertyString('sourceComp'))
sourceCompPath = atlas.GetCompanyPath (sourcecomp, False)
destCompPath = atlas.String8(Company.FullPath(''))
session = atlas.AtlasSession()
session.Init()
sourcePagIfil = atlas.LogPagioIfil(session,sourceCompPath)
sourcePelIfil = atlas.LogPelIfil (session,sourceCompPath)
destPagIfil = atlas.LogPagioIfil(session,destCompPath)
destPelIfil = atlas.LogPelIfil(session,destCompPath)
try:
sourcePagIfil.Open()
destPagIfil.Open()
sourcePelIfil.Open ()
destPelIfil.Open ()
except ctree.CtreeException, ctExcept:
win32api.MessageBox (0, 'ctree error %d' % ctExcept.error)
session.Close()
return None
else:
pelMap={}
for pel in sourcePelIfil:
pelMap[pel.seqNr]=pel.code
pagMap={}
for pag in sourcePagIfil:
if pag.ktisi.promSeqNr:
pagMap[pag.code]=pelMap.get(pag.ktisi.promSeqNr,'')
pelMap={}
for pel in destPelIfil:
pelMap[pel.code]=pel.seqNr
session.BeginTransaction ()
for pag in destPagIfil:
pag.ktisi.promSeqNr=pelMap.get(pagMap.get(pag.code,''),pag.ktisi.promSeqNr)
pag.Modify()
session.CommitTransaction ()
sourcePagIfil.Close()
destPagIfil.Close()
sourcePelIfil.Close ()
destPelIfil.Close ()
session.Close()
return None
def Document_InitializeScript ():
# write html string to temporary file, and navigate to it
global gHtmlString
pagePath = Document.CreateTempFile ()
pageFile = file (pagePath, "w+")
pageFile.write (gHtmlString)
pageFile.close ()
WebBrowser.Navigate (pagePath)
#htmlPath = Application.Path (7)
#WebBrowser.Navigate (htmlPath+"CostEndo.htm")
global companyCode
companyCode=Company.Code+Company.Etos
prevCompanyEtos=string.atoi(Company.Etos)
prevCompanyEtos-=1
if prevCompanyEtos>9:
prevCompanyCode= Company.Code + str(prevCompanyEtos)
else:
prevCompanyCode= Company.Code + '0' + str(prevCompanyEtos)
#
# Setup from properties
#
Document.DeleteFormProperties ()
Document.AddFormProperty ("sourceComp", _("From"), "", 150, prevCompanyCode, "", "", "")
Document.DisplayFormProperties ()
return None
# The HTML string
gHtmlString = """
Διορθωση παγιων
|
Διορθωση παγιων |
Με την εργασια αυτη διορθωνονται οι κωδικοι προμηθευτη
των παγιων που μεταφερθηκαν απο αλλη χρηση.
|
Στο πεδίο "ΑΠΟ" δηλώστε την εταιρία απ’ όπου ειχατε μεταφερει τα παγια.
|
|
Πατήστε το πληκτρο "Calculate" στην γραμμή εργαλείων ή απο το πληκτρολογιο το F9.
|