@ 1,-1 TOOLBAR oToolbar1 SIZE hwg_Getdesktopwidth(),43;
STYLE WS_DLGFRAME + BTNS_AUTOSIZE + TBSTYLE_TRANSPARENT
oToolbar1:AddButton("CMDINSERT", , 0, 16, "Inclui" ,{||CONTASAPAGAR( 'INCLUIR' ),obrowse1:REFRESH(),DBUNLOCKALL(),hwg_WriteStatus( oDlg,3,"Ordem: Nome Fornecedor")},'Incluir nova conta a pagar','', "oToolbutton1")
oToolbar1:AddButton("CMDEDIT", , 0, 16, "Altera" ,{||CONTASAPAGAR( 'ALTERAR' ),obrowse1:REFRESH(),DBUNLOCKALL(),hwg_WriteStatus( oDlg,3,"Ordem: Nome Fornecedor")},'Altera conta a pagar','', "oToolbutton2")
oToolbar1:AddButton("CMDDELETE", , 0, 16, "Exclui" ,{|| F4_Exclui( ), obrowse1:REFRESH() },'Exclui conta a pagar','', "oToolbutton3")
oToolbar1:AddButton("Store", , 4, 16, "Duplica" ,{||DUPLICACONTASAPAGAR( ) },'Gera Automaticamente varios lançamentos','', "oToolbutton4")
oToolbar1:AddButton("Accounting16", , 4, 16, "Baixa" ,{|| contasapagarbaixa( ) },'Baixar conta a pagar','', "oToolbutton5")
oToolbar1:AddButton("SCANNER", , 4, 16, "Recibo" ,{|| SCANNER_CONTASAPAGAR( ) },'Recibo do Pagamento em PDF','', "oToolbutton6")
oToolbar1:AddButton("REL_EMAIL", , 4, 16, "e-Mail" ,{||ENVIAEMAIL( )},'Envia Recibo do Pagamento em PDF por e-Mail','', "oToolbutton7")
oToolbar1:AddButton("boss", , 4, 16, "Atualiza" ,{||ATUALIZADADOS( )},'Atualiza Fornecedor do conta a pagar','', "oToolbutton8")
oToolbar1:AddButton("CLFLBMP", , 4, 16, "Consulta" ,{||CONSULTACONTASAPAGAR( )},'Consulta dados Contas a Pagar','', "oToolbutton9")
oToolbar1:AddButton("rel_print",, 4, 128, "Relatórios" ,,, {{"Despesas em Aberto por Fornecedor", 4,{| This, nId | RELATORIOCONTASAPAGAR1( ),Ordsetfocus(9),DBGOTOP(),onDlgInit( ) }};
,{"Despesas em Aberto por Vencimento", 5,{| This, nId | RELATORIOCONTASAPAGAR2( ),Ordsetfocus(9),DBGOTOP(),onDlgInit( ) }};
,{"Despesas Pagas por Fornecedor ", 7,{| This, nId | RELATORIOCONTASAPAGAR3( ),Ordsetfocus(9),DBGOTOP(),onDlgInit( ) }};
,{"Despesas Pagas por Vencimento ", 8,{| This, nId | RELATORIOCONTASAPAGAR4( ),Ordsetfocus(9),DBGOTOP(),onDlgInit( ) }};
,{"Recibo ", 9,{| This, nId | RECIBO_AVULSO( ) ,Ordsetfocus(9),DBGOTOP(),onDlgInit( ) }} };
, "oToolbutton16")
oToolbar1:AddButton("EXIT16BMP", , 4, 16, "Sair" ,{|| DBCLOSEALL(), oDlg:Close() },'Sair da rotina','', "oToolbutton15")
oToolbar1:CreateTool()
Só não consegui colocar um separador entre os relatórios, mas o resultado ficou legal :)) :)) :))