CI_MDE;Emissoes para meu CNPJ;sys_tbbrow; 3; 0;23;79;CI_MDE;;
:SKEL
//Variavel zbSituacao:=#TEXTO_FONTE
//  se fg_fat=" " entao zSituacao="Nao Registrada"
//  endif
//#FIM_TEXTO_FONTE
// DIGVAL;DIGVAL;C;@S28; 28;;
// Minha Sit;FG_SIT;C;x;  1;;
// DHRECBTO;DHRECBTO;@;;  8;;
// NPROT;NPROT;C;@S15; 15;;
// 68;ChecaPortalNFE(AllTrim(ChNfe));D-Download ;Baixa NFE Selecionada direto do Portal do Governo;sembitmap;;;Lucida Sans Unicode;-12;Consultar/&Baixar NFE pelo Certificado Digital;
// 73;lst_alias(D_OB);I-Imprime ;

VARIAVEL zbCor=""
VARIAVEL znAzul0:=16711680
VARIAVEL znAzul1:=10027008
VARIAVEL zAzul2:=16776960
VARIAVEL zW:=16777215
VARIAVEL zBlack:=0
VARIAVEL zRed:=255
VARIAVEL zGreen:=32768
VARIAVEL znCinza:=8421504
VARIAVEL zYellow:=65535
VARIAVEL zFgUsaCores:=(xGetEnv("USA_CORES_NO_BROWSE")="S")
VARIAVEL zSitManifestacao:={||if(Day(DT_OP_OK)>0,"Oper.Confirmada",if(day(DT_OP_NOK)>0,"Oper.NaoConfirmada",if(Day(DT_UNKNOWN)>0,"Desconheco",if(day(DT_KNOWN)>0,"Estou Ciente","Sem Ciencia"))))}
variavel #TEXTO_FONTE
   //ONINIT
   if zFgUsaCores
      zbCor:={||IF(FG_FAT=" ",if( Day(DT_OP_OK)>0.or.Day(DT_KNOWN)>0,{znAzul0,zW,zW,znAzul0},{zRed,zW,zW,zRed}),if(FG_FAT="D",{znAzul0,zW,zW,znAzul0},{zGreen,zW,zW,zGreen}))}
      hwg_TbFi(D_oB, 'DtEmissao;DEMI;D;;  8;N;zbCor;')
      hwg_TbFi(D_oB, 'Emitente;XNOME;C;@S30; 30;N;zbCor;')
      hwg_TbFi(D_oB, 'ValorNf;VNF;N;999999999.99; 14;N;zbCor;')
      hwg_TbFi(D_oB, 'Situacao;if(FG_FAT=" ",eVal(zSitManifestacao),"Entrada Confirmada");P;@S20; 20;N;zbCor;')
      hwg_TbFi(D_oB, 'TpNf;if(TPNF="1","Sou Destinatario","Remetente de Devolucao");P;@S22;22;N;zbCor;')
   else
      hwg_TbFi(D_oB, 'DtEmissao;DEMI;D;;  8;N;;')
      hwg_TbFi(D_oB, 'Emitente;XNOME;C;@S30; 30;N;;')
      hwg_TbFi(D_oB, 'ValorNf;VNF;N;999999999.99; 14;N;;')
      hwg_TbFi(D_oB, 'Situacao;if(FG_FAT=" ",eVal(zSitManifestacao),"Entrada Confirmada");P;@S20; 20;N;;')
      hwg_TbFi(D_oB, 'TpNf;if(TPNF="1","Sou Destinatario","Remetente de Devolucao");P;@S22;22;N;;')
   endif
   hwg_TbFi(D_oB, 'ChaveNFe;CHNFE;C;@S44; 44;S;')
   hwg_TbFi(D_oB, 'CNPJ_Emit;CNPJ;C;@S14; 14;;')
   hwg_TbFi(D_oB, 'Forn;PFFOR;N;999999;  6;;')
   hwg_TbFi(D_oB, 'NF;PFNUM;N;999999999;  9;;')
   hwg_TbFi(D_oB, 'DataCheg;PFDATACHE;D;;  8;;')
   hwg_TbFi(D_oB, 'NSU;NSU;N;999999;6;;')
   hwg_TbFi(D_oB, 'IE;IE;C;@S18; 18;;')
   hwg_TbFi(D_oB, 'SitNf;CSITNFE;C;x;  1;;')
   //ENDONINIT
   //ONDLGINIT
         oDlg:Maximize()
   //ENDDLGINIT
#FIM_TEXTO_FONTE
:TBMT
 13;Ci_MDe("downloadnfe");Enter-Download_NFE ;

 49;Ci_MDe("cnf_ciencia");1-Estou_Ciente ;
 50;Ci_MDe("cnf_desconhecimento");2-Desconheco ;
 51;Ci_MDe("cnf_recebida_ok");3-Recebi_ok ;
 52;Ci_MDe("cnf_devolvida");4-Nao_Recebi_Ok ;

 79;tb_index(D_OB);O-Ordena ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 84;tb_locate(D_oB);T-Busca_Trecho ;
 76;tb_locate(D_oB);L-Busca_Iniciais ;
 67;tb_locate(D_oB);C-Repete_Busca ;
 70;tb_filter(d_ob);F-Filtra ;
