SF_ROMAN;Lotes de NFs p/ NFe;sys_tbbrow; 4; 0;20;79;padrao;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)

VARIAVEL zBlB={|| Zrecn:=recno(),Nfe_CriarLoteXml(froman,fnum), Abra_Arq("SF_ROMAN"), DbGoto(Zrecn)}
VARIAVEL zBlC={|| Zrecn:=recno(),Nfe_ImprimirDanfe(froman,fnum), Abra_Arq("SF_ROMAN"), DbGoto(Zrecn)}
VARIAVEL zBlD={|| Zrecn:=recno(),Nfe_EnviarNFE(froman,fnum), Abra_Arq("SF_ROMAN"), DbGoto(Zrecn)}
VARIAVEL zBlE={|| Zrecn:=recno(),Nfe_ConsultarNFE(froman,fnum), Abra_Arq("SF_ROMAN"), DbGoto(Zrecn)}
VARIAVEL zBlF={|| Zrecn:=recno(),Nfe_CancelarNFE(froman,fnum), Abra_Arq("SF_ROMAN"), DbGoto(Zrecn)}
VARIAVEL zBlG={|| Zrecn:=recno(),Nfe_InutilizarNFE(froman,fnum), Abra_Arq("SF_ROMAN"), DbGoto(Zrecn)}
VARIAVEL zBlH={|| Zrecn:=recno(),NFE_AssinarNFe(froman,fnum), Abra_Arq("SF_ROMAN"), DbGoto(Zrecn)}
VARIAVEL zBlI={|| Zrecn:=recno(),NFE_ValidarNFe(froman,fnum), Abra_Arq("SF_ROMAN"), DbGoto(Zrecn)}
VARIAVEL zBlJ={|| Zrecn:=recno(),NFE_Email(froman,fnum), Abra_Arq("SF_ROMAN"), DbGoto(Zrecn)}
:TBMT
 66;eval(zBlB);B-Criar_Assinar_Validar ;
 68;eval(zBlD);D-Enviar_NFE ;
 67;eval(zBlC);C-Imprimir_DANFE ;
 69;eval(zBlE);E-Consulta_NFe ;
 70;eval(zBlF);F-Cancelar_NFe ;
 71;eval(zBlG);G-Inutilizar_NFe ; 
 72;eval(zBlH);H-Assinar_NFe ; 
 73;eval(zBlI);I-Validar_NFe ; 
 74;eval(zBlJ);J-Email_NFe ; 
 22;tb_insert(D_oB);Ins-Inclui_NF ;
  7;tb_del(D_oB);Del-Cancela ;
 73;Lst_alias(D_OB);I-Imprime ; 
 79;tb_index(D_OB);O-Ordena ;
:TBFI
Lote;froman;N;999999;  6;N;
NF;fnum;N;999999;  6;;
Ok?;nfe_valid;C;!!!!;4;;
DANFE;nfe_prt;C;!;5;;
DtLote;fData;D;;  8;;
Stat;NFE_CSTAT;C;9999;4;;
nProt;nfe_nprot;C;@18;18;;
Email;nfe_email;C;!;5;;
Obs;nfe_xmotiv;C;@S58;10;;
Chave;nfe_chnfe;C;@S44;44;;
XML;nfe_xml;C;@S75;74;;
nRec;nfe_nrec;C;@18;18;;