SNGPC_EN;Entradas SNGPC;sys_tbbrow; 6; 0;20;79;padrao;;
:SKEL
VARIAVEL zNil = Sngpc_Mnt(d_ob,"CHECASTRU")
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL Z_BLOCK = {|x_prd| se_prod->(dbseek(x_prd)), se_prod->pdesc }
VARIAVEL zSemTrn = "N"
VARIAVEL zErrados = "N"
VARIAVEL zNil = __SetCentury("on")
VARIAVEL zDe  = ctod("01."+SubStr(Dtoc(date()),4))
VARIAVEL zAte = date()
VARIAVEL ztmp = "1; 09; 12;16;60;Selecao de Registros;"+chr(13)+chr(10)+":TFIE"+chr(13)+chr(10)
VARIAVEL ztmp = ztmp+"1; 2; 2;Data de Chegada Inicial.:;P; 8;zDe;99.99.9999;;;"+chr(13)+chr(10)
VARIAVEL ztmp = ztmp+"1; 3; 2;Data de Chegada Final...:;P; 8;zAte;99.99.9999;;;"+chr(13)+chr(10)
VARIAVEL ztmp = ztmp+"1; 4; 2;So os nao transmitidos?;P; 1;zSemTrn;!;;;"+chr(13)+chr(10)
VARIAVEL ztmp = ztmp+"1; 5; 2;So Consertos Pendentes?;P; 1;zErrados;!;;;"+chr(13)+chr(10)
VARIAVEL zFg = QuickDialog("get_sngpcsa", "Filtragem:" , ztmp )
VARIAVEL ztmp = if(zFg,SNGPC_EN->(DbCloseArea()), "")
VARIAVEL ztmp = if(zFg,ABRA("0NOIDX",r_siga,"SNGPC_EN","SNGPC_EN","SNGPCEN3","PFDATACHE","SNGPC_EN","Str(pcod,6)+str(pfnum,7)+plote+str(pffor,6)+dtos(pfdatache)","SNGPCEN2","str(pcod,6)+plote"),"")
VARIAVEL ztmp = if(zFg,OrdScope(0, zDe), "")
VARIAVEL ztmp = if(zFg,OrdScope(1, zAte), "")
VARIAVEL zNil = if(zFg,DbGoTop(), "")
VARIAVEL zNil = Mensagem( "Selecionando Entradas entre "+Dtoc(zDe)+" e "+Dtoc(zAte) )
VARIAVEL zFiltro = "PFDATACHE>=zDe.and.PFDATACHE<=zAte"+if(zSemTrn= "S",".and.day(datatrn)=0","")+if(zErrados= "S",'.and.left(HoraTrn,4)="ERRO"',"")
VARIAVEL zNil = if(zFg, DbSetFilter( _CreateBlock(zFiltro), zFiltro), "")
VARIAVEL zNil = if(zFg, DbGoTop(), "")
VARIAVEL zNil = Mensagem("Entrada de Notas Fiscais")
COMANDO ANTES zSele = Select()
COMANDO ANTES zNil = IF(SELECT("SE_PROD")=0, ABRA_ARQ("SE_PROD"),"")
COMANDO ANTES zNil = DbSelectArea(zSele)
COMANDO DEPOIS ZNIL = IF(SELE("SE_PROD")>0, Se_Prod->( DbCloseArea() ),"")
COMANDO SAIDA ZNIL = IF(SELE("SE_PROD")>0, Se_Prod->( DbCloseArea() ),"")
// 13;doget(D_ob);Enter-Edita ;
// Apresentacao;eval(z_block,pcod);C;@s26;26;N;
:TBMT
 13;Sngpc_Mnt(d_ob, "MOVUPD");Enter-Altera ;
 32;Sngpc_Mnt(d_ob, "MOVCONCILIA");Barra-Concilia ;
 22;Sngpc_Mnt(d_ob, "MOVADD");Ins-Inclui ;
  7;Sngpc_Mnt(d_ob, "MOVDEL");DEL-DELeta ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
 84;tb_locate(D_OB);T-Trecho ;
 85;Sngpc_UpdateDescricoesSaidasEntradas("SNGPC_EN");U-Atualiza Descricoes;
 70;tb_filter(d_ob);F-Filtra ;
 69;DoGet(d_ob);E-Edita ;
 61;doget(D_ob,,.t.);=-Repete_Edicao ;
:TBFI
Conc;Reg_Sel;C;!!;4;;
*;SngpcFgControl(pCod,.t.,.t.);P;x;1;;
Apresentacao;pdesc;C;@s26;26;S;
RegistroMs;PREGMS;C;@S18; 18;;
Quant;MQUANT;N;999999;  6;;
Lote;PLOTE;C;@S10; 10;;
Trn;if(day(datatrn)>0,"Sim","Nao");P;@s11;3;N;
Dt_Chegada;PFDATACHE;D;; 10;;
Dt_Emissao;PFDATAEMI;D;; 10;;
Dt_Transm;DataTrn;D;;  10;;
Fornec;PFFOR;N;9999;  4;;
N.F.;PFNUM;N;9999999;  7;;
CGC_Emissor;CP_CGC;C;@S17; 17;;
CGC_Comprador;CR_CGC;C;@S17; 17;;
Oper;TIPOOPER;C;x;  1;;
Codigo;PCOD;N;999999;  6;;
Hora_Trn;horatrn;C;;  8;;
