PC Toledo

Código: Selecionar todos

   @ 13,17 GET VCODCLI PICT "999999"     VALID FUNCLIENT(VCODCLI)
   @ 13,57 GET VDTALVA  PICT "99/99/99"
   @ 14,43 GET VENTALVA PICT "99/99/99"
   @ 16,36 GET VDTHAB   PICT "99/99/99"
   @ 16,61 GET VDTENHAB PICT "99/99/99"
   READ
*********************************************
FUNCTION FUNCLIENT(VCODCLI)
   WAUX=RECNO()
   close databases
   close format
DO WHILE .T.
   CLEAR GETS
   *****
   close databases
   close format
   AARQ(8,.F.)
   Select CLIENT
   Set index to (M->CAMINHO+"\"+M->CODIGO+"\CLIENT")
   Set delete off
   Set order to 2
   *****
   LOCATE ALL FOR CODIGO=RIGHT("00000"+LTRIM(STR(VCODCLI,5)),5)
   *****
   IF .NOT. FOUND()
      TELA40=SAVESCREEN(00,01,24,79)
      DO WDEPP  /// JANELA DE PESQUISA
      RESTSCREEN(00,01,24,79,TELA40)
      VCODCLI=VAL(CODIGO)
      VNOME=NOME_CLI
      COR("SAY")
      @ 13,17 SAY VCODCLI PICT "99999"
      @ 24,21 SAY VNOME   PICT "@!"
      EXIT
   ELSE
      VCODCLI=VAL(CODIGO)
      VNOME=NOME_CLI
      COR("SAY")
      @ 13,17 SAY VCODCLI PICT "99999"
      @ 24,21 SAY VNOME   PICT "@!"
      EXIT
   ENDIF
ENDDO
CLEAR GETS
close databases
close format
AARQ(5,.F.)
   Select SOCIO
   Set index to (M->CAMINHO+"\"+M->CODIGO+"\CLIENT")
   Set delete off
   set order to 1
   GOTO WAUX

***************
PROCEDURE WDEPP
***************
SET CURSOR OFF
tela_old5 = SAVESCREEN(05,08,19,76)
GOTO TOP
CAMPOS={[CODIGO],[PROPRIETAR]}
PIC={[@!],[@!]}
CABECALHO={[CODIGO],[PROPRIETARIO]}
DO DBCONS
SET SOFTSEEK OFF
RETURN
***************************************************************************

Código: Selecionar todos

FUNCTION FUNCLIENT(VCODCLI) 
VQSEL:=SELECT()
VQORD:=INDEXORD()
WAUX=RECNO()
// close databases // Lembre que nao é aconselhavel RE-ABRIR os DBF
// close format   // Mantenha-os abertos neste modulo, porque voce ira precisar

// DO WHILE .T. // Nao é necessário fazer um DO WHILE

   // CLEAR GETS // Este comando é que deve estar fazendo fugir do GET
   // close databases
   // close format
   // AARQ(8,.F.) // No inicio deste módulo, abra seus DBF com TODOS seus
                  // indices para que TODOS seus NTXs sejam atualizados
   Select CLIENT 
   // Set index to (M->CAMINHO+"\"+M->CODIGO+"\CLIENT")
   // Set delete off
   Set order to 2 // Verifique a sequencia 2, se é da chave de indexaçao: CODIGO
                 //  isto se seu campo for caracter e for com zeros no lugar de
                 //  espaços. Exemplo: "000001"
                 //  STRZERO(CODIGO,5,0), isto se seu campo CODIGO for numerico

   // LOCATE ALL FOR CODIGO=RIGHT("00000"+LTRIM(STR(VCODCLI,5)),5) // Nao utilize
   // isto porque deixa muito lento. Se voce tem um indice, utilize o SEEK

   IF .NOT. FOUND() 
      TELA40=SAVESCREEN(00,01,24,79) 

      // DO WDEPP  /// JANELA DE PESQUISA
      /*
      Aqui eu utilizaria o nome da funçao que exibe os nomes. Porque
      da¡ voce traz o numero da matricula que foi selecionada.
      Eu acostumo usar FUNCTION com parametros em lugar de PROCEDURE
      e no final, que deh um retorno do numero do CODIGO
      */
      // Digamos que o nome dessa funçao seja MOSTRA_CLI(), entao ficaria assim:
      VCODCLI:=VAL( MOSTRA_CLI() )

      RESTSCREEN(00,01,24,79,TELA40)
      // VCODCLI=VAL(CODIGO)
      VNOME=NOME_CLI 
      COR("SAY") 
      @ 13,17 SAY VCODCLI PICT "99999" 
      @ 24,21 SAY VNOME   PICT "@!" 
      // EXIT
   ELSE 
      VCODCLI=VAL(CODIGO) 
      VNOME=NOME_CLI 
      COR("SAY") 
      @ 13,17 SAY VCODCLI PICT "99999" 
      @ 24,21 SAY VNOME   PICT "@!" 
      // EXIT
   ENDIF 
ENDDO 
// CLEAR GETS
// close databases
// close format
// AARQ(5,.F.)
//    Select SOCIO
//   Set index to (M->CAMINHO+"\"+M->CODIGO+"\CLIENT")
//   Set delete off
//   set order to 1
SELECT(VQSEL)
INDEXORD(VQORD)
GOTO WAUX

FUNCTION WDEPP()
SET CURSOR OFF 
// tela_old5 = SAVESCREEN(05,08,19,76)
GOTO TOP 
CAMPOS={[CODIGO],[PROPRIETAR]} 
PIC={[@!],[@!]} 
CABECALHO={[CODIGO],[PROPRIETARIO]} 
// DO DBCONS
// Faça aqui o DBCONS e atribua a uma variavel (neste caso VRET) o resultado
// do que o usu rio selecionou. Eu acostumo utilizar TBROWSE. Seria bom ver
// esse DBCONS.

// após execuçao do DBCONS, ficaria assim VRET:=CODIGO
SET SOFTSEEK OFF 
RETURN VRET

Código: Selecionar todos

*****************
PROCEDURE DBCONS
*****************
SOMBRA(07,10,16,66)
@ 07,10 TO 16,66
@ 08,11 SAY "                RELACAO DE PROPRIETARIOS               "
@ 09,11 TO 09,65
@ 09,33 say "{P}Pesquisa"
DBEDIT(10,11,16,65,CAMPOS,[WRR],PIC,CABECALHO,"ÄÂÄ"," ³ ","ÄÁÄ")
RESTSCREEN(05,08,19,76,tela_old5)
SET SOFTSEEK OFF
**************
PROCEDURE WRR
**************
PARA mode
DO CASE
  CASE mode = 1
    GOTO TOP
  CASE mode = 2
    GOTO BOTTOM
    RETURN(1)
  CASE mode = 3
    RETURN(0)
  CASE mode = 4
    DO CASE
      CASE LASTKEY() = 13
         RETURN(0)
      CASE LASTKEY() = 27
         RETURN(0)
      CASE LASTKEY()=112 .OR. LASTKEY()=80
           DO WHILE .T.
              SET ORDER TO 2
              TELA10=SAVESCREEN(02,00,19,79)
              SOMBRA(09,15,11,65)
              COR("SAY")
              @ 09,15 CLEAR TO 11,65
              SET COLOR TO N/BG
              @ 09,15 TO 11,65 DOUBLE
              SET COLOR TO
              VNOM100=SPACE(32)
              COR("SAY")
              @ 10,32 SAY SPACE(30)
              @ 10,17 SAY "Digite o Nome:"
              COR("GET")
              @ 10,32 GET VNOM100 PICT "@!"
              SET CURSOR ON
              READ
              SET CURSOR OFF
              IF LASTKEY()=27
                 SET CURSOR OFF
                 EXIT
              ENDIF
              SEEK TRIM(VNOM100)
              SET COLOR TO
              EXIT
           ENDDO
           RESTSCREEN(02,00,19,79,TELA10)
           SET COLOR TO
           RETURN 2
    ENDCASE
ENDCASE
RETURN
*******************************

Código: Selecionar todos

set cent off
set date brit
priv vdata1:=vdata2:=vdata3:=vdata4:=ctod("")
do whil .t.
  @6,10 get vdata1 vali datas(readvar())
  @7,10 get vdata2 vali datas(readvar())
  @8,10 get vdata3 vali datas(readvar()) 
  @9,10 get vdata4 vali datas(readvar()) 
  read
  if lastkey()=27
    exit
  endi
endd

Código: Selecionar todos

function datas(x)
if empty(&x)
  retu .f.
endi
if x=="VDATA2"
  vdata3=vdata2+15
  clea gets
  keyb chr(13)+chr(13) // vai pro get do VDATA3
elseif x=="VDATA4"
  clea gets
  keyb chr(27)
endi
retu .t.