PC Toledo

Código: Selecionar todos

clear screen

set date brit
set century on
set talk off
set delimiters to "[]"
set delimiters on

ADBF = {{"CODMAT","C",8,0},{"CODALM","C",2,0},{"DATANT","D",8,0},;
        {"FISANT","N",9,1},{"FINANT","N",13,2},{"CUSANT","N",14,6}}

dbcreate("MEMORIA",ADBF)

ADBF = {{"CODMAT","C",8,0},{"DESMAT","C",60,0},{"CODCPL","C",9,0},{"UNIDADE","C",15,0},;
        {"FISANT","N",9,1},{"FINANT","N",13,2},{"CUSANT","N",14,6}}

dbcreate("MEMORIA1",ADBF)

close all

select 1
use ALMOX
set index to ALMOX01,ALMOX02

select 2
use MATERIAL
set index to MATERIA1,MATERIA2,MATERIA3

select 3
use UNIDADE
set index to UNIDADE1,UNIDADE2

select 8
use ESTOQUE
set index to ESTOQUE,EUQOTSE

select 20
use MEMORIA
index on CODMAT+CODALM to MEMORIA

select 21
use MEMORIA1
index on CODMAT to MEMORIA1

VCODALM = space(2)
@ 10,15 say "Para Almoxarifado:"
@ 14,15 say "  Do Almoxarifado:"
@ 15,15 say "         Material:"

@ 10,34 get VCODALM pict "99"
read

if lastkey() <> 27
   select 8
   set filter to CODALM<>"02" .and. CODALM<>"03" .and. CODALM<>"04"
   go top
   do while .not. eof()
      @ 14,34 get CODALM   pict "99"
      @ 15,34 get CODMAT   pict "@R 9.99.99.999"
      clear gets

      select 20
      seek ESTOQUE->CODMAT+ESTOQUE->CODALM
      if .not. found()
         append blank
      endif
      replace CODMAT with ESTOQUE->CODMAT,;
              CODALM with ESTOQUE->CODALM,;
              DATANT with ESTOQUE->DATANT,;
              FISANT with ESTOQUE->FISANT,;
              FINANT with ESTOQUE->FINANT,;
              CUSANT with ESTOQUE->CUSANT

      select 8
      skip
   enddo

   select 20
   go top
   do while .not. eof()
      select 2
      seek MEMORIA->CODMAT

      select 3
      seek MATERIAL->CODUNI

      select 21
      seek MEMORIA->CODMAT
      if .not. found()
         append blank
      endif
      replace CODMAT  with MEMORIA->CODMAT,;
              DESMAT  with MATERIAL->DESMAT,;
              UNIDADE with UNIDADE->DESUNI,;
              CODCPL  with MATERIAL->COD_CPL,;
              FISANT  with MEMORIA1->FISANT+MEMORIA->FISANT,;
              FINANT  with MEMORIA1->FINANT+MEMORIA->FINANT              

      select 20
      skip
   enddo

   select 21
   go top
   do while .not. eof()
      if FISANT > 0
         replace CUSANT with FINANT/FISANT
      endif

      skip
   enddo
endif
close all
return