PC Toledo

Código: Selecionar todos

// Seleccionar Clientes p/ F10

FUNCTION SEL_CLIa
  SET KEY 28 TO HELP1()      // F1
  SET KEY -9 TO
  MALIAS=ALIAS()
  WTESTEA:=WTESTEA1:=.F.       // teste se abre fich.ivas/artigos
  IF !WERRO
    IF SELECT("ENTI")=0
      ABER_FICH("ENTIDAD","ENTI",.F.,2, 0)
    ELSE
      SELE ENTI
      WTESTEA1=.T.
    ENDIF
    IF !WERRO
      WECRAN_L1=SAVESCREEN( 5, 0,22,78)
      SETCOLOR("W*")
      @20, 0
      @19,02 SAY "???"
      SETCOLOR(WCOR)
      SETCOLOR("W+/B")
      ACCEPT "  Descri‡Æo: " TO MFILTRO
      SETCOLOR(WCOR)
      IF LASTKEY()<>27
        IF WTESTEA1
          SET ORDER TO 2
        ELSE
          SET INDEX TO ENTIDAD2
        ENDIF
        SEEK TRIM(UPPER(MFILTRO))
        DECLARE VETOR1[4], VETOR3[4]
        VETOR4="Í"
        MCOR=SETCOLOR()
        SETCOLOR("B/W")
        @ 5, 3 TO 22,78 DOUBLE
        SETCOLOR("W/B")
        VETOR3[1]="CODIGO"
        VETOR3[2]="DESCRIۂO"
        VETOR3[3]="VAL. ABERTO"
        VETOR3[4]="LIM.CREDITO"
        VETOR1[1]="LEFT(COD,MDIM_C_ART)"
        VETOR1[2]="LEFT(DESC,42-MDIM_C_ART)"
        VETOR1[3]="TRANSFORM(ROUND(VAL_DEBI,MROUND),'@E 99,999,999.99')"
        VETOR1[4]="TRANSFORM(ROUND(LIM_CRED,MROUND),'@E 99,999,999.99')"
        DBEDIT( 6,4,21,77,VETOR1,.T.,.T.,VETOR3,VETOR4)
        SETCOLOR(MCOR)
      ENDIF
      RESTSCREEN( 5, 0,22,78,WECRAN_L1)
      IF !WTESTEA1
        SELE ENTI
        USE
      ELSE
        SET INDEX TO ENTIDAD1
      ENDIF
    ENDIF
  ENDIF
  SET KEY -9 TO SEL_CLI            // F10=seleccionar CLIENTES
  SET KEY 28 TO HELP                // F1

RETURN .T.