//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 8;6;17;70;Indice Tecnico de Producao;;;;;
:SKEL
variavel zFgProdClosed = (select("se_prod")=0) 
variavel znil = if(zFgProdClosed, Abra_arq(Se_Prod,,"0",r_siga,"SE_PROD") , "")
variavel znil = if(zFgProdClosed, DbSelectArea("se_kits"), "")
comando saida znil = if(zFgProdClosed, se_prod->(DbCloseArea()) , "")
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Codigo do Produto/Composicao.:;N; 6;PCOD;999999;;psq_brow().and.(m_pdesc:=se_prod->pdesc,refreshgetlist());se_prod;pseprod_geral;N;S;;;;;
 1; 3; 2;Descricao do Kit/Composicao..:;C;30;PDESC;@S30;.f.;;;;;;
 1; 5; 2;Codigo do Insumo................:;N; 6;PCODINSUMO;999999;;psq_brow().and.(m_PDESCINSUM:=se_prod->pdesc,refreshgetlist());se_prod;pseprod_geral;N;S;;
 1; 6; 2;Descricao do Insumo.............:;C;30;PDESCINSUM;@S30;.f.;;;;;
 1; 7; 2;Qtd do Produto/Indice de Consumo:;N; 8;MQUANT;999.99;;m_mquant>0;;
