SNGPC_TF;Transferencias SNGPC;sys_tbbrow; 3; 0;23;79;padrao;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL Z_BLOCK = {|nPCod| if(nPcod<>se_prod->pCod,se_prod->(dbseek(nPCod)),NIL), se_prod->pdesc }
VARIAVEL zSele = Select()
COMANDO ANTES zNil = IF(SELECT("SE_PROD")=0, ABRA_ARQ("SE_PROD"),"")
COMANDO ANTES zNil = DbSelectArea(zSele)
COMANDO SAIDA ZNIL = IF(SELE("SE_PROD")>0, Se_Prod->( DbCloseArea() ),"")
COMANDO DEPOIS ZNIL = IF(SELE("SE_PROD")>0, Se_Prod->( DbCloseArea() ),"")
:TBMT
 13;Sngpc_Mnt(d_ob, "MOVUPD");A-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 ;
:TBFI
Conc;Reg_Sel;C;!!;4;;
*;SngpcFgControl(pCod,.t.);C;x;1;;
Apresentacao;eval(Z_BLOCK,pcod);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");C;@s11;3;N;
Dt_Emissao;PFDATAEMI;D;;  8;;
N.F.;PFNUM;N;9999999;  7;;
CGC_Destino;CR_CGC;C;@S14; 14;;
Fornec;PFFOR;N;9999;  4;;
o;PFOPER;C;x;  1;;
Meu_CNPJ;CP_CGC;C;@S14; 14;;
Dt_Transm;DataTrn;D;;  8;;
Hora_Trn;horatrn;C;;  8;;
Codigo;PCOD;N;999999;  6;;
