SNGPC_SA;Saidas 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 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 = "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 Venda Inicial.:;P; 8;zDe;99.99.9999;;;"+chr(13)+chr(10)
VARIAVEL ztmp = ztmp+"1; 3; 2;Data de Venda 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 zFgFiltra = QuickDialog("get_sngpcsa", "Filtragem:" , ztmp )
VARIAVEL ztmp = if(zFgFiltra, SNGPC_SA->(DbCloseArea()), "")
VARIAVEL ztmp = if(zFgFiltra, ABRA ("0NOIDX", r_siga, "SNGPC_SA", "SNGPC_SA", "SNGPCSA3", "mdata", "SNGPC_SA", "Cr_num_doc", "SNGPCSA2", "str(pcod,6)+plote"), "")
VARIAVEL ztmp = if(zFgFiltra, OrdScope(0, zDe), "")
VARIAVEL ztmp = if(zFgFiltra, OrdScope(1, zAte), "")
VARIAVEL zNil = if(zFgFiltra, DbGoTop(), "")
VARIAVEL zNil = Mensagem( "Selecionando Saidas entre "+Dtoc(zDe)+" e "+Dtoc(zAte) )
VARIAVEL zFiltro = "MDATA>=zDe.and.MDATA<=zAte"+if(zSemTrn= "S",".and.day(datatrn)=0","")+if(zErrados= "S",'.and.left(HoraTrn,4)="ERRO"',"")
VARIAVEL zNil = if(zFgFiltra, DbSetFilter( _CreateBlock(zFiltro), zFiltro), "")
VARIAVEL zNil = if(zFgFiltra, DbGoTop(), "")
VARIAVEL zNil = Mensagem("")
// 13;doget(D_ob);Enter-Edita ;
// Apresentacao;eval(z_block,pcod);C;@s25;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_SA");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;@s25;26;N;
Quant;MQUANT;N;999999;  6;;
Lote;PLOTE;C;@S10; 10;;
Trn;if(day(datatrn)>0,"Sim","Nao");P;@s11;3;N;
DataVenda;MDATA;D;; 10;;
DataReceita;MDATARECEI;D;; 10;;
Dt_Transm;DataTrn;D;; 10;;
TipReceita;tipRECEITA;N;9; 1;;
NumeroReceita;numRECEITA;C;@S10; 10;;
CRM;CRM;C;@S10; 10;;
Prescritor;medico;C;@!30;30;;
CRM_UF;UF;C;xx;  2;;
CRM_Conselho;CRM_CRO;C;!!!!; 4;;
UsoMed;USOMEDIC;N;9;  1;;
Comprador;COMPRADOR;C;@S30; 30;;
TpDoc;TIPOID;N;99;2;;
Identidade;NUMERODOC;C;@!7; 7;;
Orgao;ORGAOEXPED;C;@S10; 10;;
Uf;UFEXPED;C;xx;  2;;
RegistroMs;PREGMS;C;@S18; 18;;
Cod;PCOD;N;999999;  6;;
Hora_Trn;horatrn;C;;  8;;
COO;fNumCoo;C;;6;;

