//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1;7;7;16;72;;;;;;
:SKEL
VARIAVEL zNomeKit := vb_kits->Cr_Nome
Comando antes m_Codigo:=Vb_kits->Codigo
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 3;Codigo Kit.:;C;13;codigo;@S13;.f.;
 1; 3; 3;Nome do Kit:;P;35;zNomeKit;@S35;.f.;
 1; 5; 3;Produto....:;N;5;PCOD;999999;;m_pcod>0.and.psq_brow;se_prod;PSEPROD;N;S; 4;28;PDESC;@S35;
 1; 6; 3;Quantidade.:;N;6;Mquant;999999;;m_mquant>0.and.If(M_pvluvenda=0,(M_Pvluvenda:=Se_prod->Pvluvenda,RefreshGetList()),.t.);;
 1; 7; 3;Preco Venda:;N;10;Pvluvenda;9999999.99;m_pvluvenda>0;;
