SE_KTSET;;sys_tbbrow; 3; 0;23;79;SE_KTSET;;
:SKEL
VARIAVEL znAzul0:=16711680
VARIAVEL zW:=16777215
VARIAVEL zBlack:=0
VARIAVEL zRed:=255
VARIAVEL zGreen:=32768
VARIAVEL znCinza:=8421504
VARIAVEL zYellow:=65535
VARIAVEL zPcodInsumoSelecionado = 0
VARIAVEL zbTodas:={||zPcodInsumoSelecionado:=pCodInsumo, if("zPcodInsumoSelecionado"$dbFilter(),DbClearFilter(),DbSetFilter({||zPcodInsumoSelecionado=pCodInsumo},"zPcodInsumoSelecionado=pCodInsumo")), DbGoTop(), d_ob:Refresh(),d_ob:SetFocus() }
VARIAVEL zbMarcados:={||DbClearFilter(),DbSetFilter({||Cp_Status<>" "},'Cp_Status<>" "'), DbGoTop(), d_ob:Refresh(),d_ob:SetFocus() }
VARIAVEL zbDesMarcados:={||DbClearFilter(),DbSetFilter({||Cp_Status=" "},'Cp_Status=" "'), DbGoTop(), d_ob:Refresh(),d_ob:SetFocus() }
// VARIAVEL zbCor:={||if(Cp_Status=" ", if(nRecno>0, {znCinza,zW,zW,znCinza}, {znAzul0,zW,zW,znAzul0}), {zGreen,zW,zW,zGreen})}
VARIAVEL zbCor:={||if(Cp_Status=" ", if(nRecno>0, {znCinza,zW,zW,znCinza}, {znAzul0,zW,zW,znAzul0}), {zGreen,zW,zW,zGreen})}
// 84;cp_confere(D_oB,,, "marcatodos");T-Inverte Marcacao;T-Marca/Desmarca Invertendo Marcacao;sembitmap;;;Lucida Bright;-11;&T-MarcaDesmarca;;6;
comando saida DbClearFilter()
:TBMT
13;cp_confere(d_ob);Enter-Marca/DesMarca;Enter-Seleciona/DesMarca;sembitmap;;;Lucida Bright;-11;Seleciona;;6;
84;BrwComposicoes("marca_tempo_de_composicao");T-Tempos;T-Informa tempo para execucao desse processo;sembitmap;;;Lucida Bright;-11;&T-Tempos;;6;
86;Eval(zbTodas);V-Insumo;V-Exibe todos os Setores que envolvem o Insumo Selecionado;sembitmap;;;Lucida Bright;-11;&V-Insumo;;6;
86;Eval(zbMarcados);M-Marcados;M-Exibe Setores Selecionados por Insumos;sembitmap;;;Lucida Bright;-11;&M-Marcados;;6;
86;Eval(zbDesMarcados);D-Desmarcados;D - Exibe Setores nao Selecionados por Insumos;sembitmap;;;Lucida Bright;-11;&D-Desmarcados;;6;
79;tb_index(D_OB);O-Ordena ;O-Ordena a coluna do cursor;ordenar.ico;;;;;&O-Ordena;;;
:TBFI
Selecionado?;if(Cp_Status=" ","Nao Selecionado","Selecionado");P;@S15;15;N;zbCor;
Setor;(CODSETOR+"-"+left(Setor,1)+Lower(SubStr(Setor,2)));P;@S20;20;N;zbCor;
Pri;PRIORIDADE;C;XX;3;S;zbCor;
DescInsumo;left(pDesc,1)+lower(SubStr(pDesc,2));P;@S30;30;N;zbCor;
Obs;POBSFORMA;C;@S20; 20;S;zbCor;
QtdLoteProducao;QtdLotePrd;N;999999;15;S;zbCor;
TempoMinLtProd;TempoLtPrd;N;999999;15;S;zbCor;
CodIns;PCODINSUMO;N;999999;6;N;zbCor;
Composicao;PCOD;N;999999;6;N;zbCor;