algoritimo em foxpro
-
Upload
edilson-silva -
Category
Documents
-
view
213 -
download
0
Transcript of algoritimo em foxpro
-
7/31/2019 algoritimo em foxpro
1/3
al lc_setor,lc_ficha_id,produto,banho,cor asString
ficha_id=""
etor=""
etor=alltrim(thisform.pgfichar.page1.cbsetor.Value)
ficha_id=alltrim(thisform.pgfichar.page1.txficha.Value)
mpty(lc_setor))
messagebox("Campo Setor em Branco..! ",64,'Aviso..!')
thisform.pgfichar.page1.cbsetor.SetFocus()
urn
f
mpty(lc_ficha_id))
messagebox("Campo Ficha em Branco..! ",64,'Aviso..!')
thisform.pgfichar.page1.txficha.SetFocus()
urn
f
ct * from producao where status_producao='100' and left(lote,1)='F' ;
and alltrim(ficha_id)=lc_ficha_id intocursor TMPficha_prd
ct TMPficha_prd
wse
duto=TMPficha_prd.produto_id
ho=TMPficha_prd.banho_id
=TMPficha_prd.cor_id
ntfor !eof('TMPficha_prd') to IsLocsLoc > 0 )
&& Comea o processo de Validao da Ficha
&&browse
lcCpydate = datetime()
selectdistinc s.setor_id,s.controle,p.atu_data,p.hist1 from setor s leftjoin producao p on
_id=p.setor_id and p.status_producao='100' ;
where p.ficha_id=lc_ficha_id intocursor TMPStCont
select TMPStCont
debug
suspend
if(TMPStCont.controle=.f. and empty(TMPStCont.atu_data))
select opcao from opclist where grp_opc_id='SHID' intoarray IdHist
NovoIdHist= val(IdHist)+1
update opclist set opcao=str(NovoIdHist) where grp_opc_id='SHID' && Atualiza
do Hist No Opclist
update producao set setor_id=val(lc_setor), hist1=NovoIdHist,atu_data=lcCpydate
produto_id=produto and banho_id=banho;
and cor_id=cor and status_producao='100' and ficha_id=lc_ficha_id
* gera lanamento no histrico
*
insertinto setor_hist(ficha_id,setor_id,usuario,data_hora,controle,atrasos,hist
values (lc_ficha_id ,val(lc_setor),str(thisform.usuario),lcCpydate,'P',0,t)
else && if(TMPStCont.controle=.f. and empty(TMPStCont.atu_data))
select controle from setor where setor_id= val(lc_setor) intoarray
o
if(TMPStCont.controle=.f. and !empty(TMPStCont.atu_data) and TMPStCo
> 0 and (TMPStCont.setor_id val(lc_setor) and StProximo .f.))
select opcao from opclist where grp_opc_id='SHID' intoarray I
NovoIdHist= val(IdHist)+1
update opclist set opcao=str(NovoIdHist) where grp_opc_id='SHI
ualiza a Chave do Hist No Opclist
update producao set setor_id=val(lc_setor), hist1=NovoIdHist,at
Cpydate where produto_id=produto and banho_id=banho;and cor_id=cor and status_producao='100' and ficha_id=lc
d
-
7/31/2019 algoritimo em foxpro
2/3
* gera lanamento no histrico
*
update setor_hist set data_saida=lcCpydate wherehist=TMPStCon
insertinto setor_hist(ficha_id,setor_id,usuario,controle,atraso
values (lc_ficha_id ,val(lc_setor),str(thisform.usuario),
oIdHist)
else && if(TMPStCont.controle=.f. and !empty(TMPStCont.atu_data) a
Cont.hist1 > 0 and TMPStCont.setor_id val(lc_setor))
select controle from setor where setor_id= val(lc_setor) int
tProximo
if(TMPStCont.controle=.f. and !empty(TMPStCont.atu_data) and
nt.hist1 > 0 and (TMPStCont.setor_id val(lc_setor) and StProximo .t.))
select opcao from opclist where grp_opc_id='SHID' i
y IdHist
NovoIdHist= val(IdHist)+1
update opclist set opcao=str(NovoIdHist) where grp
SHID' && Atualiza a Chave do Hist No Opclist
update producao set setor_id=val(lc_setor), hist1=N
,atu_data=lcCpydate where produto_id=produto and banho_id=banho;
and cor_id=cor and status_producao='100' and
d=lc_ficha_id
* gera lanamento no histrico
*
update setor_hist set data_saida=lcCpydate wherehCont.hist1
insertinto setor_hist(ficha_id,setor_id,usuario,dat
ntrole,atrasos,hist) ;
values (lc_ficha_id ,val(lc_setor),str(thisform
,lcCpydate,'P',0,NovoIdHist)
else&&if(TMPStCont.controle=.f. and !empty(TMPStCont.atu_da
TMPStCont.hist1 > 0 and (TMPStCont.setor_id val(lc_setor) and StProximo .t.))
selectcount(*) from setor_hist s leftjoin producao p on
_id=p.ficha_id ;
where s.ficha_id=lc_ficha_id and left(p.lote,2)='F
tor_id=val(lc_setor) intoarray ExistLanc
if(!empty(TMPStCont.atu_data) and TMPStCont.hist1 > 0 andanc > 0))
doform fmmotivo.scx with lc_ficha_id , lc_
tCont.hist1 to returno
select opcao from opclist where grp_opc_id=
oarray IdHist
NovoIdHist= val(IdHist)+1
update opclist set opcao=str(NovoIdHist) wh
_opc_id='SHID' && Atualiza a Chave do Hist No Opclist
update producao set setor_id=val(lc_setor),
voIdHist,atu_data=lcCpydate where produto_id=produto and banho_id=banho;
and cor_id=cor and status_producao='
ficha_id=lc_ficha_id
* gera lanamento no histrico
*update setor_hist set data_saida=lcCpydate
t=TMPStCont.hist1
insertinto setor_hist(ficha_id,setor_id,usu
a_hora,controle,atrasos,hist) ;
values (lc_ficha_id ,val(lc_setor),str
usuario),lcCpydate,'P',0,NovoIdHist)
endif
-
7/31/2019 algoritimo em foxpro
3/3
endif
endif
endif
messagebox("Ficha No Localizada na Produo..! ",64,'Aviso..!')
thisform.pgfichar.page1.txficha.Value=""
thisform.pgfichar.page1.txficha.SetFocus()
return
f