SE_PROD;Cadastro de Produtos;sys_tbbrow; 8; 0;18;79;se_prod;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL zNil = Abra ("0NOIDX", r_siga,"ci_ncm","ci_ncm","ci_ncm","ncm")
VARIAVEL zNil = DbSelectArea("SE_PROD")
VARIAVEL zMonoFasico="N"
VARIAVEL zbMonoFasico={|nNcm| ci_ncm->(Efd_GrupoNcm(STR(nNcm,8), , @zMonoFasico), zMonoFasico) }
// VARIAVEL zbMonoFasico={|nNcm| ci_ncm->(Efd_GrupoNcm(STR(nNcm,8), @oSayNcm, @zMonoFasico), zMonoFasico) }
// Df;pDivFisc;C;9;2;S;
// Grupo Fiscal;Efd_GrupoFiscal(pDivFisc);P;@S11;11;N;
:TBMT
 85;SePnfeUpdate(d_ob);U-Reclassifica_CST ;
 22;upd_prod(1,"PROD_T1");Ins-Inclui Registro;
 13;se_doget(D_ob);Enter-Edita Campo;
 65;tb_update(D_OB);A-Altera Registro;
 69;ext_screen(pcod,pdatabal);E-Extrato ;
 71;DispEnt(pcod);G-Compras ;
 80;tb_pesq(D_OB);P-Pesquisa Chave;
 84;tb_locate(D_oB);T-Busca_Trecho ;
 76;tb_locate(D_oB);L-Busca_Iniciais ;
 67;tb_locate(D_oB);C-Repete_Busca ;
 61;doget(D_ob,,.t.);=-Repete_Edicao ;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
:TBFI
Descricao;PDESC;C;@s22;22;S;
Cod;PCOD;N;999999;6;N;
Un;PUNIDADE;C;xxxxx;  3;;
PrVenda;PVLUVENDA;N;9999.99;7;S;
NCM;pCodClaFis;N;99999999;8;;
hwg_TbFi(D_oB, '*;eVal(zbMonoFasico,se_prod->pCodClaFis);P;!;1;N;')
CF;pcategoria;C;!!!;2;S;
l;pNegPos;C;!;1;S;
CFOp;pcfop;C;9X999;5;S;
Tp;ptipoitem;P;!!;2;S;
Finalidade;Efd_TipoItem();P;@S13;13;N;
CSTicm;nf_csticm;C;999;6;S;
CSTipi;nf_cstipi;C;999;6;S;
CSTpis;nf_cstpis;C;999;6;S;
CSTcof;nf_cstcof;C;999;6;S;
EntPIS;nf_cstEpis;C;999;6;S;
EntCOF;nf_cstEcof;C;999;6;S;
SaiIPI;nf_cstipi;C;999;6;S;
EntIPI;nf_cstEipi;C;999;6;S;
TxPis;nf_txPis;N;999.99;6;S;
TxCof;nf_txCof;N;999.99;6;S;
Orig;nf_orig;C;9999;4;S;
Modalid;nf_modalid;C;9;7;S;
ClaPisCof;nf_lista;C;9;9;S;