0

こんにちは、誰でも Sage X3 で私を助けることができます。

OITF ウィンドウ内で使用する新しいテーブル (ZITEMECO) と新しい画面 (ZITF0) を作成しましたが、テーブルを読み取るのに問題があります。$LIENS アクションがまったく機能していないようです。何が間違っていますか?

SPEITF のコードは次のとおりです。

# Gestão da máscara ITF0 (Específico)

$ACTION
  Case ACTION
    When "OUVRE"      : Gosub OUVRE
    When "APRES_CRE"  : Gosub APRES_CRE
    When "APRES_MOD"  : Gosub APRES_MOD
    When "LIENS"      : Gosub LIENS
    When Default
  Endcase
Return

$OUVRE
  If clalev([F:ZITE]) : Local File ZITMECO[ZITE] : Endif
  Local File ZITMECO [ZITE]

Return

$APRES_CRE
  Gosub APRES_CRE_MOD
Return

$APRES_MOD
  Gosub APRES_CRE_MOD
Return

$APRES_CRE_MOD

  Local Integer LN_EXISTE
  LN_EXISTE=1
  Read [ZITE]ZITE0=[M:ITF0]ITMREF;[M:ITF0]STOFCY
  If fstat=0
   LN_EXISTE=2
  Else
   LN_EXISTE=1
  Endif

    Trbegin[F:ZITE]
          [F:ZITE]ITMREF=[M:ITF0]ITMREF
          [F:ZITE]STOFCY=[M:ITF0]STOFCY
          [F:ZITE]VIDRO=[M:ZITF0]VIDRO
          [F:ZITE]PLASTICO=[M:ZITF0]PLASTICO
          [F:ZITE]PAPEL=[M:ZITF0]PAPEL
          [F:ZITE]ECAL=[M:ZITF0]ECAL
          [F:ZITE]ACO=[M:ZITF0]ACO
          [F:ZITE]ALUM=[M:ZITF0]ALUM
          [F:ZITE]MADEIRA=[M:ZITF0]MADEIRA
          [F:ZITE]OUTROS=[M:ZITF0]OUTROS
   If LN_EXISTE=2

       Rewrite [F:ZITE]
   Else

       Write [F:ZITE]
   Endif
          If fstat=0
            Commit
          Else
            Rollback
          Endif

Return

$LIENS

  Filter [F:ZITE]
  Filter [F:ZITE] Where [F:ZITE]ITMREF=[M:ITF0]ITMREF and [F:ZITE]STOFCY=[M:ITF0]STOFCY

          [M:ZITF0]VIDRO=[F:ZITE]VIDRO
          [M:ZITF0]PLASTICO=[F:ZITE]PLASTICO
          [M:ZITF0]PAPEL=[F:ZITE]PAPEL
          [M:ZITF0]ECAL=[F:ZITE]ECAL
          [M:ZITF0]ACO=[F:ZITE]ACO
          [M:ZITF0]ALUM=[F:ZITE]ALUM
          [M:ZITF0]MADEIRA=[F:ZITE]MADEIRA
          [M:ZITF0]OUTROS=[F:ZITE]OUTROS

  Affzo [M:ZITF0]

Return

誰かが私を助けることができれば、私はこれで立ち往生しています...テーブルに値を書き込んで変更することはできますが、それらを読み取ることはできません。

4

1 に答える 1

0

あなたの$LIENSブロックには読み取りがありません。フィルター ステートメントはフィルター処理を行うだけです。[F:ZITE] ... nextforまたはRead [F:ZITE]last または first またはを追加する必要がありますread [F:ZITE]ZITE0=[M:ITF0]ITMREF;[M:ITF0]STOFCY

于 2018-06-06T20:16:31.363 に答える