SX_ORC_D;Solicitacoes Agrupadas;sys_tbbrow; 5; 0;20;68;padrao;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL zRecnBrw := 1
VARIAVEL zbOpenAll := #TEXTO_FONTE
   DbCloseAll()
   Abra_Arq("SE_PROD")
   Abra("0NOIDX",R_SIGA,"SX_ORCAP","SX_ORCAP","SX_ORCAP","Str(IdCotacao,6)+Str(IdForn,6)+Str(pCod,6)")
   Abra("0NOIDX",R_SIGA,"SX_ORCAF","SX_ORCAF","SX_ORCAF","str(idcotacao,6)+cp_desc")
   Abra("0NOIDX",R_SIGA,"SX_ORC_D","SX_ORC_D","SX_ORC_D","CP_DESC")
   DbGoTo(zRecnBrw)
#FIM_TEXTO_FONTE

VARIAVEL zbAddForns = #TEXTO_FONTE
   Private zFgHaForns,zIdCotacao:=IdCotacao,zDescCotacao:=CP_DESC
   se !(zFgHaForns:=SX_ORCAF->(DbSeek(str(zIdCotacao,6)))) entao zFgHaForns:=DbGet("SX_ORCAF",1)
   se zFgHaForns entao SX_ORCAF->( Brow_Db("SX_ORCAF") )
#FIM_TEXTO_FONTE

VARIAVEL z_blkPrt = {||zalias:=alias(),z_recn:=recno(),z_cotsobre:=cp_desc,Relat("pf_rorc(z_cotsobre)"),DbCloseAll(),Abra_Arq(zalias), dbgoto(z_recn)} 

COMANDO ANTES eVal(zbOpenAll)

// 13;Eval(zbAddForns);Enter-Fornecedores ;
:TBMT
 13;SxOrcProdutos(d_ob, IdCotacao);Enter-Produtos ;
 32;Eval(zbAddForns);Barra-Fornecedores ;
 22;tb_insert(D_OB).and.(DbGoTo(zRecnBrw),if(pitens="S",SxOrcProdutos(D_oB,IdCotacao),eVal(zbAddForns)));Ins-Inclui ; 
 69;DoGet(D_ob);E-Altera ;
  7;tb_del(d_ob);Del-Apaga ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 73;Eval(z_blkPrt);I-Imprime ;
:TBFI
Assunto;CP_DESC;C;@S30; 30;;
UltComp;Substr(Dtoc(Data),4,5);C;99.99; 7;;
Observacoes;CP_DESC2;C;@S24;20;;
Itens;Pitens;C;x;5;;
Codigo;IDCOTACAO;N;999999;  6;;