NF_CCE;Correcoes da NFe;sys_tbbrow; 4; 0;20;79;padrao;;
:SKEL
VARIAVEL zwFnum := if(type('m_FNUM')='U',0,m_FNUM)
VARIAVEL zwFSERIE := if(type('m_FSERIE')='U',Ltrim(Str(if(s_nf_serie<=1,1,s_nf_serie),2)),m_FSERIE)
VARIAVEL zwFMODELO := if(type('m_FSERIE')='U','55',m_fModelo)
VARIAVEL zwFCHAVENFE:= if(type('m_FCHAVENFE')='U',SPACE(44),m_FCHAVENFE)
VARIAVEL zwFDATAEMI := if(type('m_FDATAEMI')='U',Date(),m_FDATAEMI)
VARIAVEL zwFHORA := if(type('m_FHORA')='U',TIME(),m_FHORA)
VARIAVEL wChave := Pad(zwFMODELO,2)+str(zwFnum,10)+Pad(zwFSERIE,3)
VARIAVEL zNIL := if(zwFnum>0, (OrdScope(0,wChave),OrdScope(1,wChave),DbGoTop()), '')
variavel #TEXTO_FONTE
   //ONINIT
      hwg_TbFi(D_oB, 'NFE;FNUM;N;9999999999; 10;;')
      hwg_TbFi(D_oB, 'DataDoc;FDATAEMI;D;99.99.9999;10;;')
      hwg_TbFi(D_oB, 'HoraDoc;FHora;C;99:99:99;8;;')
      hwg_TbFi(D_oB, 'Seq;nSeqEvento;N;999;3;;')
      hwg_TbFi(D_oB, 'Correcao;xCorrecao;C;@S40;40;S;')
      hwg_TbFi(D_oB, 'Resultado;nfe_xmotiv;C;@S58;20;N;')
      hwg_TbFi(D_oB, 'Protocolo;nfe_nprot;C;@S18;18;S;')
      hwg_TbFi(D_oB, 'Mod;FMODELO;C;xx; 3;;')
      hwg_TbFi(D_oB, 'Ser;FSERIE;C;xxx; 3;;')
      hwg_TbFi(D_oB, 'ChaveNFE;FCHAVENFE;C;@S44; 44;;')
   //ENDONINIT
   //ONDLGINIT
      // oDlg:Maximize()
   //ENDDLGINIT
#FIM_TEXTO_FONTE
:TBMT
22;tb_insert(D_OB);Ins-Inclui_Obs ;Ins-Inclui;cadastrar.ico;;;;;Inclui;;;
68;AcaoNaSelecaoNFE("EnviarCCE");D-Enviar_CCE ;D - Enviar_CCE;D.jpg;;;Lucida Bright;-11;&D-Enviar;;;
81;AcaoNaSelecaoNFE("ENVIARCCE_EDIT");Q-EditarEnviar ;Q - Enviar CCE apos a Edicao;alterar.ico;;;Lucida Bright;-11;&Q-Editar;;;
73;AcaoNaSelecaoNFE("IMPRIMIRCCE");I-Imprime ;I-Imprime;impressora.ico;;;;;&I-Imprime;;;
65;tb_update(D_OB);A-Altera ;A-Altera;alterar.ico;;;;;&A-Altera;;;
 7;tb_del(D_ob);DEL-DELeta ;DEL-Deleta;deletar.ico;;;;;Deleta;;;
80;tb_pesq(D_OB);P-Pesquisa ;P-Pesquisa na coluna do cursor;pesquisa.ico;;;;;&P-Pesquisa;;;
79;tb_index(D_OB);O-Ordena ;O-Ordena a coluna do cursor;ordenar.ico;;;;;&O-Ordena;;;
61;doget(D_ob,,.t.);=-Repete_Edicao ;= - Repete_Edicao;sembitmap;;;Lucida Bright;-11;&=-Repete_Edicao;;6;
13;doget(D_ob);Enter-Edita ;Enter - Edita;sembitmap;;;Lucida Bright;-11;Edita;;6;
76;tb_locate(D_oB);L-Busca_Iniciais ;L-Busca pelas Iniciais na coluna do cursor;sembitmap;;;Lucida Bright;-11;&L-Iniciais;;6;
67;tb_locate(D_oB);C-Repete_Busca ;C-Repete Busca na coluna do cursor;sembitmap;;;Lucida Bright;-11;&C-Continua;;6;
84;tb_locate(D_oB);T-Busca_Trecho ;T-Pesquisa Trecho na coluna do cursor;sembitmap;;;Lucida Bright;-11;&T-Trecho;;6;
70;tb_filter(d_ob);F-Filtra ;F-Filtra Cursor;sembitmap;;;Lucida Bright;-11;&F-Filtra;;6;
69;tb_filter(d_ob,"Exp");E-Filtra_Expressao ;E-Filtra Expressao;sembitmap;;;Lucida Bright;-11;&E-Filtra;;6;
