PC Toledo

Código: Selecionar todos

PROCEDURE entra_prod(xmens)
local telin   := savescreen()
local getlist := {}

if pcount() == 0
   xmens := "S"
endif

private lin, n := 1, j
private wsomatot := xitens := 0
private acodfab[25],adescr[25],aquant[25],apreco[25],aprecotot[25]
readexit(.t.)
@11,20 say "Vendidos:       unidades no valor de R$ "

do while .t.

   afill(acodfab,space(13))
   afill(adescr,space(30))
   afill(aquant,0)
   afill(apreco,0)
   afill(aprecotot,0)

   @12,0 clear to 23,79    
   @12,0 to 23,79 double
   @14,1 to 14,78
   @13,1 say "C¢digo pe‡a   Descri‡Æo                          Quant.     Pre‡o      Total"
   lin := 15
   select prod
   set order to 1

   do while .t.

      @ lin,1 get acodfab[n] pict "@!" 
      read

      if lastkey() == 27

         resposta(22,20,"Confirma sa¡da ? <SN>","SN")

         if f_resp == "S" 
            restscreen(,,,,telin)
            readexit(.f.)
            exit
         endif

      endif

      if lastkey() == 24 && seta para baixo

         n ++

         if n > 25
            msg_tecla("Limite m ximo 25 produtos")
            n --
            loop
         endif

         if adescr[n-1] == space(30)
            n --
            loop
         endif

         lin ++

         if lin > 22
            scroll(15,1,22,78,1)
            lin := 22
            exibe_prod(0)
            loop 
         endif

         @ lin,15 get adescr[n] pict "@!"
         @ lin,49 get aquant[n] pict "@E ###,###"
         @ lin,57 get apreco[n] pict "@E ##,###.##"
         @ lin,67 get aprecotot[n] pict "@E ###,###.##"
         clear gets
         loop

      endif

      if lastkey() == 05 && seta para cima

         n --

         if n < 1 
            msg_tecla("J  chegou … linha 1")
            n ++
            loop
         endif

         lin --

         if lin < 15
            scroll(15,1,22,78,-1)
            lin := 15
         endif

         exibe_prod(0)
         loop

      endif

      acodfab[n] := alltrim(acodfab[n])
      mcodlen    := len(acodfab[n])
      acodfab[n] := acodfab[n] + space(13 - mcodlen)
      @ lin,1 get acodfab[n] pict "@! XXXXXXXXXXXXXX"
      clear gets

      if substr(acodfab[n],1,13) == space(13) && val(acodfab[n]) == 0
         est4201a()
         if codpesq <> space(13)
            acodfab[n] := codpesq
            @ lin,1 say space(13)
            @ lin,1 get acodfab[n] pict "@! XXXXXXXXXXXXXX"
            clear gets
         else
            @ 24,0 say "NÆo existe produto com este n£mero !"
            acodfab[n] := space(13)
            loop
         endif
      endif

      set order to 1
      seek acodfab[n]
      if eof()
         msg_tecla("Produto nÆo cadastrado - <ENTER> continua")
         acodfab[n] := space(13)
         loop
      endif
      adescr[n]    := prod->nome
      apreco[n]    := prod->pr_vend_a
      aprecotot[n] := apreco[n] * aquant[n]
      exibe_prod(1)

      if n < 25

         n ++
         lin ++

         if lin > 22
            scroll(15,1,22,78,1)
            lin := 22 
         endif

      endif

      wsomatot := xitens := 0

      for j := 1 to 25
          xitens   += aquant[j]
          wsomatot += (aquant[j] * apreco[j])
      next

      @ 11,30 say xitens pict "999" color "gr+/b"
      @ 11,60 say wsomatot pict "@E ###,###.##" color "gr+/b"

   enddo

   return(wsomatot)

enddo

PROCEDURE exibe_prod(modo)
//local getlist := {}
private getlist := {}
@ lin,15 say adescr[n] pict "@!" color "bg+/b"
@ lin,49 get aquant[n] pict "@E ###,###" valid verif_quant(aquant[n])
@ lin,57 get apreco[n] pict "@E ##,###.##" valid apreco[n] <> 0

if modo == 1
   read
   if updated()
      aprecotot[n] := 0
   endif
else
   clear gets
endif

@ lin,67 get aprecotot[n] pict "@E ###,###.##" valid ver_tot(aprecotot[n]) 
if modo == 1
   read
else
   clear gets
endif

return

FUNCTION verif_quant(quant)
local getlist := {}

if quant == 0
   msg_tecla("Este ¡tem nÆo ser  gravado no pedido !!")
endif

return .t.
   
FUNCTION ver_tot(precotot)
local getlist := {}
aprecotot[n] := apreco[n] * aquant[n]

if precotot == 0
   @ lin,67 get aprecotot[n] pict "@E ###,###.##" 
   clear gets
   return .t.
else
   apreco[n]    := precotot / aquant[n]
   aprecotot[n] := apreco[n] * aquant[n]
   @ lin,67 get aprecotot[n] pict "@E ###,###.##" 
   clear gets
endif
return .t.