Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

...
select 8
use rechnung index tnummer
select 5
set relation to terminnr into rechnung
...
DECLARE F1 [7]
F1[1]=rechnung->rdatum      ----> hier wird nur beim ausführen des programms unter xbase eine fehlermeldung ausgegeben ! ( siehe unten )
F1[2]=verkauf1->bm1
F1[3]=verkauf1->vkp1
F1[4]=verkauf1->betrag0
F1[5]=verkauf1->artikelnr
F1[6]=verkauf1->vprodukt
F1[7]=rechnung->rnr2


DECLARE K1[7]
K1[1]="Verkaufsdatum"
K1[2]="Menge"
K1[3]="VKPreis netto"
K1[4]="VKSumme netto"
K1[5]="Artikelnummer"
K1[6]="Produktname"
K1[7]="Rechnungsnummer"

clear
@ 24,1 SAY "[ESC]=Zurück [F1]=Gesamtsumme [F2]=Drucken"
do f1 with "2"
DBEDIT(1,0,23,79,F1,"vkfedit","",K1)
do f1 with "1"
set relation to

Code: Alles auswählen

select 8
use rechnung index tnummer
select 5
set relation to terminnr into rechnung
...

SELECT 8      <----- nach dem einfügen der Zeile läuft es jetzt durch :-)

DECLARE F1 [7]
F1[1]=rechnung->rdatum      ----> hier wird nur beim ausführen des programms unter xbase eine fehlermeldung ausgegeben ! ( siehe unten )
F1[2]=verkauf1->bm1
F1[3]=verkauf1->vkp1
F1[4]=verkauf1->betrag0
F1[5]=verkauf1->artikelnr
F1[6]=verkauf1->vprodukt
F1[7]=rechnung->rnr2

Code: Alles auswählen

procedure main
   local x
   DECLARE F1 [7], F2 [7]

   for x := 1 to 7
       F1 [x] := "F1-"+str(x,1)
       F2 [x]  = "F2-"+str(x,1)
       ? x,F1[x],F2[x]
   next

return

Code: Alles auswählen

XBase2, Alink, VIO         NEU 20.09.2001
Xbase++ (R) Compiler 1.90.355 Apr 10 2009
Copyright (c) Alaska Software. All rights reserved.
File: test.prg Line:   12
test.prg(8:0): warning XBT0102: Ambiguous variable reference F1
test.prg(9:0): warning XBT0102: Ambiguous variable reference F2
test.prg(10:0): warning XBT0102: Ambiguous variable reference F1
test.prg(10:0): warning XBT0102: Ambiguous variable reference F2
File test.prg compiled successfully.
Alaska 32-Bit Linker Version 1.90.355
Copyright (c) Alaska Software 1997-2009. All rights reserved.

D:\TEST\TestDeclare> test

         1 F1-1 F2-1
         2 F1-2 F2-2
         3 F1-3 F2-3
         4 F1-4 F2-4
         5 F1-5 F2-5
         6 F1-6 F2-6
         7 F1-7 F2-7
D:\TEST\TestDeclare>

Code: Alles auswählen

procedure vkuebs
#include "box.ch"
cls
select 8
use rechnung
index on rnr to tnummer
set index to tnummer
index on rdatum to vkdatum
set index to vkdatum
set scoreboard off

select 8
use rechnung index tnummer
select 5
set relation to terminnr into rechnung

clear
do uebschr with "Terminzeitraum"

clear gets
vsdat1=space(2)
vsjahr=space(4)
@4,20 to 8,56 double
@5,22 say 'Datumsauswahlkriterium eingeben:'
@7,27 say "Monat:" get vsdat1 picture "99"
@7,37 say "Jahr:" get vsjahr picture "9999"
vsdat1=month(date())
vsjahr=year(date())
read
*----------------------------zahlart F ausklammern-------------------
set filter to month(rechnung->rdatum)=(vsdat1) .and. year(rechnung->rdatum)=(vsjahr) .and. rechnung->zahlart<>"F" .and. rechnung->storno<>"S"
go top

cls
select 8
DECLARE F1 [7]
F1[1]="rechnung->rdatum"
F1[2]="verkauf1->bm1"
F1[3]="verkauf1->vkp1"
F1[4]="verkauf1->betrag0"
F1[5]="verkauf1->artikelnr"
F1[6]="verkauf1->vprodukt"
F1[7]="rechnung->rnr2"


DECLARE K1[7]
K1[1]="Verkaufsdatum"
K1[2]="Menge"
K1[3]="VKPreis netto"
K1[4]="VKSumme netto"
K1[5]="Artikelnummer"
K1[6]="Produktname"
K1[7]="Rechnungsnummer"

clear
@ 24,1 SAY "[ESC]=Zurck [F1]=Gesamtsumme [F2]=Drucken"
do f1 with "2"
DBEDIT(1,0,23,79,F1,"vkedit","",K1)
do f1 with "1"
set relation to
set scoreboard on
set filter to
return
FUNCTION vkedit
PARAMETERS Modus, Initial
Zeile=COL()
Reihe=ROW()
Rueck = 1
DO CASE

   CASE LASTKEY()=27
         Rueck=0
         clear gets
         CLs
         set cursor on

  CASE LASTKEY()=28
         do vkberechnung

  CASE LASTKEY()=-1
         do vkdruck1

endcase
return (rueck)

Code: Alles auswählen

cls
select 8

GO TOP     <------------- nach dem einfügen wieder folgende fehlermeldung

DECLARE F1 [7]
F1[1]="rechnung->rdatum"
F1[2]="verkauf1->bm1"
F1[3]="verkauf1->vkp1"
F1[4]="verkauf1->betrag0"
F1[5]="verkauf1->artikelnr"
F1[6]="verkauf1->vprodukt"
F1[7]="rechnung->rnr2"

Code: Alles auswählen

set relation to terminnr into rechnung

Code: Alles auswählen

do f1 with "1"

Code: Alles auswählen

procedure main
   local x, F1 := {,,,,,,}, F2 := {,,,,,,}
*   DECLARE F1 [7], F2 [7]

   for x := 1 to 7
       F1 [x] := "F1-"+str(x,1)
       F2 [x]  = "F2-"+str(x,1)
       ? x,F1[x],F2[x]
   next

   do F1

return

procedure F1
   ? "Test"
return

Code: Alles auswählen

procedure vkuebs
#include "box.ch"
cls
select 8
use rechnung
index on rnr to tnummer
*set index to tnummer
index on rdatum to vkdatum
*set index to vkdatum
set scoreboard off

select 8
use rechnung index tnummer
select 5
use verkauf1
index on terminnr to tttnr
use verkauf1 index tttnr

select 8
use rechnung index tnummer

set relation to tnummer into verkauf1

Code: Alles auswählen

select 8
use rechnung
index on rnr to tnummer
*set index to tnummer
index on rdatum to vkdatum
*set index to vkdatum
set scoreboard off

select 8
use rechnung index tnummer

Code: Alles auswählen

set relation to rechnung->rnr into verkauf1

Code: Alles auswählen

procedure ausreorg
cls
? " Vor dem Beenden werden die Datenbanken aus Sicherheitsgrümden REORGANISIERT ! "
?
? " Die REORGANISATION dauert eine kurze Zeit ! BITTE WARTEN ! "

if !file("kundnr.ntx")
use adresse1
index on field->kundnr to kundnr
endif
if !file("kundname.ntx")
use adresse1
index on field->name to kundname
endif
if !file("ktitel.ntx")
use adresse1
index on field->titel to ktitel
endif
if !file("hkundnr.ntx")
use adresse2
index on field->kundnr to hkundnr
endif
if !file("hname.ntx")
use adresse2
index on field->name to hname
endif
if !file("htitel.ntx")
use adresse2
index on field->titel to htitel
endif
if !file("Lartikel.ntx")
use lager1
index on artikelnr to Lartikel
endif
if !file("Lprodukt")
use lager1
index on produkt to Lprodukt
endif
*--------------neue lagernr------------------------------------
if !file("lnr.ntx")
use lager1
index on lagernr to lnr
endif
*---------------------------------------------------------------
if !file("terminnr.ntx")
use termin1
index on terminnr to terminnr
endif
if !file("tdat1.ntx")
use termin1
index on termin to tdat1
endif
if !file("find1.ntx")
use termin1
index on dkundnr to find1
endif

if !file("verkaufnr.ntx")
use verkauf1
index on verkaufnr to verkaufnr
endif
if !file("verktnr.ntx")
use verkauf1
index on terminnr to verktnr
endif
if !file("vartnr.ntx")
use verkauf1
index on artikelnr to vartnr
endif
*-----------------------------Verkauf1: lagernr---------------------
if !file("verklnr.ntx")
use verkauf1
index on lagernr to verklnr
endif
return

Code: Alles auswählen

LOCAL xMax     := 0
LOCAL nEvery   := 100
LOCAL i        := 0
   ...
   oProgress := DXE_ProgressBar():New(...)
   ...
   oProgress:Create()

   xMax     := Lastrec()
   nEvery   := INT(xMax/100)

   oProgress:Maximum := xMax
   oProgress:SetData( 1 )
   ...
   INDEX ON XXX TO YYY FOR Do_My_Progress(oProgress,nEvery,i++)


FUNCTION Do_My_Progress(oProgress,nEvery,i)
LOCAL nValue := i
   IF ((nValue) % (nEvery)) == 0
      nValue := oProgress:GetData()
      nValue += nEvery
      oProgress:SetData( nValue )
   ENDIF
RETURN .T.