SNGPC_PE;Perdas SNGPC;sys_tbbrow; 3; 0;23;79;padrao;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL Z_BLOCK = {|x_prd| se_prod->(dbseek(x_prd)), 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() ),"")

VARIAVEL zSemTrn = "S"
VARIAVEL zDe  = ctod("01."+SubStr(Dtoc(date()),4))
VARIAVEL zAte = date()

VARIAVEL ztmp = "1; 09; 12;13;60;Selecao de Registros;"+chr(13)+chr(10)+":TFIE"+chr(13)+chr(10)
VARIAVEL ztmp = ztmp+"1; 2; 2;So os nao transmitidos?;P; 1;zSemTrn;!;;;"+chr(13)+chr(10)
VARIAVEL zFgFiltra = QuickDialog("get_sngpcsa", "Filtragem:" , ztmp )

VARIAVEL zNil = Mensagem( "Selecionando Perdas" )
VARIAVEL zNil = if(zSemTrn= "S", DbSetFilter( _CreateBlock("day(datatrn)=0"), "day(datatrn)=0") ,"")
VARIAVEL zNil = DbGoTop()
VARIAVEL zNil = Mensagem("")
// 13;doget(D_ob);Enter-Edita ;
: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;se_prod->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");C;@s11;3;N;
Dt_Perda;MDATA;D;;  9;;
Motivo;MOTIVOPERD;N;9;6;;
Dt_Transm;DataTrn;D;;  8;;
Hora_Trn;horatrn;C;;  8;;
Codigo;PCOD;N;999999;  6;;