Italian Come contabilizzare AUTOMATICAMENTE fatture acquisto? Che conti scegliere?

Star-Dust

Expert
Licensed User
Longtime User
S
Python e B4X; non possiamo paragonare la lana con la seta.
Se c'è freddo metto la lana, se vado in una cena di Gala metto la seta.
Dipende ndo vai

Gianni tu come Filippo sei qui da giugno 2007, giusto?
 

giannimaione

Well-Known Member
Licensed User
Longtime User
B4X:
    OPEN "TOTALI" TO TOTALI ELSE ABORT
    mm="Import file xml/7pm"
    MM<-1>="Import file xls (aruba)"
    MM<-1>="Import file csv (AdE)"
    MM<-1>="Registrazione Acquisti"
    MM<-1>="Registrazione Vendite"
    CALL MENUMENU (MM, IN$, CF)
    IF CF>0 THEN IN$="0"
    IF IN$="0" THEN
        IF IVACQ<1> <> "" THEN
            DELETE TOTALI,"FE_ACQ":PDL
            CHAIN IVACQ<1>
        END ELSE
            STOP
        END
    END
   BEGIN CASE
    CASE IN$=1
        CHAIN "RUN COGE FE_PRELEVA"
    CASE IN$=2
        CHAIN "RUN COGE FE_PRELEVA2"
    CASE IN$=3
        CHAIN "RUN COGE FE_PRELEVA3"
    CASE IN$=4
        FATACQ="FATACQ"
        FATACQ<99>="RUN COGE FE_ACQ"
        WRITE FATACQ ON TOTALI,"CAUSALE":PDL
        CHAIN "RUN EURO2000 FATTACC"
    CASE IN$=5
        FATACQ="FATVEN"
        FATACQ<99>="RUN COGE FE_ACQ"
        WRITE FATACQ ON TOTALI,"CAUSALE":PDL
        CHAIN "RUN EURO2000 FATTACC"
    END CASE
    STOP
uno stralcio
 

Star-Dust

Expert
Licensed User
Longtime User
B4X:
    OPEN "TOTALI" TO TOTALI ELSE ABORT
    mm="Import file xml/7pm"
    MM<-1>="Import file xls (aruba)"
    MM<-1>="Import file csv (AdE)"
    MM<-1>="Registrazione Acquisti"
    MM<-1>="Registrazione Vendite"
    CALL MENUMENU (MM, IN$, CF)
    IF CF>0 THEN IN$="0"
    IF IN$="0" THEN
        IF IVACQ<1> <> "" THEN
            DELETE TOTALI,"FE_ACQ":PDL
            CHAIN IVACQ<1>
        END ELSE
            STOP
        END
    END
   BEGIN CASE
    CASE IN$=1
        CHAIN "RUN COGE FE_PRELEVA"
    CASE IN$=2
        CHAIN "RUN COGE FE_PRELEVA2"
    CASE IN$=3
        CHAIN "RUN COGE FE_PRELEVA3"
    CASE IN$=4
        FATACQ="FATACQ"
        FATACQ<99>="RUN COGE FE_ACQ"
        WRITE FATACQ ON TOTALI,"CAUSALE":PDL
        CHAIN "RUN EURO2000 FATTACC"
    CASE IN$=5
        FATACQ="FATVEN"
        FATACQ<99>="RUN COGE FE_ACQ"
        WRITE FATACQ ON TOTALI,"CAUSALE":PDL
        CHAIN "RUN EURO2000 FATTACC"
    END CASE
    STOP
uno stralcio
Sarebbe B4X ovviamente
 

Star-Dust

Expert
Licensed User
Longtime User

giannimaione

Well-Known Member
Licensed User
Longtime User
Sarebbe B4X ovviamente
è un "basic" .... MM<..> è tipo "Dim MM As List" .... nel 2007, cercavo un tool di sviluppo per WIN CE, e trovai B4PPC, con un basic molto familiare; il resto puoi immaginarlo; ho cercato di approfondire altri tools e/o linguaggi (tra questi python), ma senza particolare successo.
 

Star-Dust

Expert
Licensed User
Longtime User
è un "basic" .... MM<..> è tipo "Dim MM As List" .... nel 2007, cercavo un tool di sviluppo per WIN CE, e trovai B4PPC, con un basic molto familiare; il resto puoi immaginarlo; ho cercato di approfondire altri tools e/o linguaggi (tra questi python), ma senza particolare successo.
pick Basic? (se nessuno si offende e con rispetto parlando)

Certo ci dev'essere quello che è chiamato "colpo di fulmine" e quell'altro che è chiamato "tempo"
 
Top