DIC_FORN;Codigos de Produtos nos Fornec;sys_tbbrow; 3; 0;23;79;padrao;;
:SKEL
VARIAVEL w_colsep = " "+chr(179)
VARIAVEL znil := DIC_FORN->( Abra("0NOIDX",R_SIGA,"SE_PROD","SE_PROD","SEIP_C","PCOD"), Abra("0NOIDX",R_SIGA,"SCCPFOR","SCCPFOR","SCCPCGC","CP_CGC") )
variavel #TEXTO_FONTE
   //ONINIT
         hwg_TbFi(@D_oB,'MeuCod;PCOD;N;999999; 6;S;')
         hwg_TbFi(@D_oB,'Minha Descricao;se_prod->(DbSeek(Dic_Forn->pCod),pDesc);P;@S30;30;S;')
         hwg_TbFi(@D_oB,'EAN;PDIC6;N;99999999999999; 14;S;')
         hwg_TbFi(@D_oB,'Cod.No Fornec;CPROD;C;@S30; 10;S;')
         hwg_TbFi(@D_oB,'Nome Fornec;sccpfor->(DbSeek(FormataCnpjCpf(Dic_Forn->CNPJ_FORN)),if(empty(cp_fantasi),cp_nome,cp_fantasi));P;@S20;20;;')
         hwg_TbFi(@D_oB,'Descr.Fornec;XPROD;C;@S60; 25;N;')
         hwg_TbFi(@D_oB,'UCOM;UCOM;C;@S10; 5;S;')
         hwg_TbFi(@D_oB,'CNPJ_FORN;CNPJ_FORN;C;@S14; 14;S;')
         hwg_TbFi(@D_oB,'NCM;NCM;C;@S8;  8;S;')
         hwg_TbFi(@D_oB,'Itens;pItens;N;9999.99;8;S;;')
         hwg_TbFi(@D_oB,'CFOP;CFOP;C;xxxx;  4;S;')
         hwg_TbFi(@D_oB,'DataCad;PDATACAD;D;;  8;S;')
         hwg_TbFi(@D_oB,'UTRIB;UTRIB;C;@S10; 10;;')
         hwg_TbFi(@D_oB,'CEANTRIB;CEANTRIB;C;@S16; 16;;')
         hwg_TbFi(@D_oB,'ICM_ORIG;ICM_ORIG;C;x;  1;;')
         hwg_TbFi(@D_oB,'ICM_CST;ICM_CST;C;xxx;  3;;')
         hwg_TbFi(@D_oB,'ICM_MODBC;ICM_MODBC;C;x;  1;;')
         hwg_TbFi(@D_oB,'PIS_CST;PIS_CST;C;xxx;  3;;')
         hwg_TbFi(@D_oB,'PIS_PPIS;PIS_PPIS;N;999.99;  8;;')
         hwg_TbFi(@D_oB,'COF_CST;COF_CST;C;xxx;  3;;')
         hwg_TbFi(@D_oB,'COF_PCOF;COF_PCOF;N;999.99;  8;;')
   //ENDONINIT
   //ONDLGINIT
         oDlg:Maximize()
   //ENDDLGINIT
#FIM_TEXTO_FONTE
COMANDO SAIDA Se_Prod->(dbCloseArea())
COMANDO SAIDA Sccpfor->(dbCloseArea())
