Duvida

[JuniorVaz]

Ola, criei aqui no meu sistema, um controle de embalagens no estoque, ja está funcionando ok, e fiz pra quando lançar um pedido, ele verificar quantas embalagens tem no estoque, e se tiver menos de 800, aparece um aviso na linha 24 avisando quantas embalagens ainda restam. Tudo ok, fiz o seguinte comando:

if xquanti<800
xee=strzero(xquanti,6)
set color to r+*,n
@ 24,4 say "Existem apenas "+xee+" Embalagens no estoque"
inkey(2)

está funcionando ok, mas quando passa de zero, começa a aparecer o numero de embalagens do estoque negativos, gostaria de saber como faço pra quando for menor que 0, ele apenas aparecer que não existem mais embalagens no estoque. era só isso... vlw a todos ae...

[Dudu_XBase]

Tenta isso...

Código: Selecionar todos

Do Case
  Case  xquanti<800 .and. xquanti > 0
      xee=strzero(xquanti,6)
      set color to r+*,n
      @ 24,4 say "Existem apenas "+xee+" Embalagens no estoque"      
      inkey(2)
       
   Case xquanti = 0
        @ 24,4 say "Nao existem mais Embalagens no estoque" 
        inkey(2)     

   Otherwise  // Se quise arranca isso...
       @ 24,4 say "Saldo Suficiente em Estoque para suprimento."
        inkey(2)
  
endCase