PC Toledo

Código: Selecionar todos

SET DELE ON  
CLS     
** --- Variáveis --- ** 
p1 := p2 := SPACE(12)
pRESP := SPACE(1) 
p1COR := p1TAM := NIL
p1ESTATUAL := 0

WHILE .T.

@ 03,02 TO 20,75

@ 05,15 SAY "MUDAR O CODIGO ----------> " GET P1 PICT "@!" VALID !EMPTY(P1)
@ 07,15 SAY "PARA O CODIGO -----------> " GET P2 PICT "@!" VALID !EMPTY(P2)
@ 09,15 SAY "Confirma Alteracao (S/N) ? " GET pRESP PICT "@!" VALID(pRESP$"SN")
READ
INKEY(0)
 IF LASTKEY()=27 .AND. pRESP = "N"
   CLOSE ALL
   CLS
   RETURN 
ELSE

*   ////////////////
*  // CADPOS.DBF //
* ////////////////  
  * // Alteração Quando já existir o P2 atualizar o estoque  
 
  USE CADPOS
  INDEX ON CODIGO TO CADPOS3
  
  CLOSE CADPOS
  USE CADPOS
  SET INDEX TO CADPOS3.NTX

  CONTA := 1

  @ 12,12 SAY "Aguarde um momento... Atualizando CADPOS.DBF !!!"

  while .T.
   @ 13,28 SAY CONTA
 SET ORDER TO 3
 SEEK P1 
 IF !FOUND()   
  close all
  cls
  return
 else       
    p1COR := COR 
    p1TAM := TAMANHO 
    p1ESTATUAL := ESTATUAL 
    lParidade := .F. 
    SEEK P2 
      IF FOUND() 
        WHILE CODIGO = P2 
          IF COR = p1COR .AND. TAMANHO = p1TAM 
            REPL ESTATUAL WITH ESTATUAL + p1ESTATUAL 
            lParidade := .T.
            CONTA++                       
          ENDIF
         SKIP
         ENDDO                
      ENDIF 
    SEEK P1
      IF lParidade = .F. 
        REPL CODIGO WITH P2
        CONTA++ 
         SKIP;LOOP 
      ELSE 
        DELE 
      ENDIF
  endif
  loop
 ENDDO       
* --- Fim CADPOS 
  DBCOMMITALL()

  ALERT("* * * ROTINA REALIZADA COM SUCESSO! * * * ")
  ALERT("ATENCAO=>Ao entrar no sistema, INDEXAR todos os arquivos!")                    
ENDIF

inkey(0)
CLOSE ALL
CLS
RETURN
ENDDO 

Código: Selecionar todos

Alert( cMensagem, [aOpções], [cCor])