05 Out 2019 21:26
@ 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()
05 Out 2019 21:54
06 Out 2019 15:48
JoséQuintas escreveu:Quando a LIB quer enfeitar demais, complica tudo.
Esse é o menu normal do Windows, deve seguir a mesma regra do menu principal pra separador.
Só não sei se liberaram isso para o programador, já que vai direto o array, e não um menu.
13 Dez 2019 17:58
oToolbar1:AddButton(ID_CONV_01_32 , , 4, 8, "Convênios" ,{||SCC128HW()},"Convênios"; //, "oToolbutton11")
,{;
{ "Lançamentos Futuros /Parcelamento" , 4,{||SCC128HWP()}};
, { "", 5,""}; // separador
, { "Conveniados" , 6,{||SCC116aHW()}};
, { "Contas " , 7,{||SCC116BHW()}};
, { "", 8,""};
, { "Lançados " , 9,{||SCC41701()}};
, { "Negativos" , 10,{||SCC41702()}};
, { "Extrato " , 11,{||SCC41703()}};
, {"Total a Repassar aos Conveniados" , 12,{||SCC41704()}} };
, "oToolbutton11")
20 Set 2020 21:37
@ 0,0 TOOLBAR oToolbar1 ;
SIZE oDlg:nWidth,32 ;
BITMAPSIZE 24, 24 ;
STYLE BTNS_AUTOSIZE + TBSTYLE_TRANSPARENT
TOOLBUTTON oToolbar1 ;
ID 700 ;
BITMAP "AVI\folder.bmp" ;
STATE 4;
TEXT "" ;
TOOLTIP "Abrir o documento." ;
ON CLICK {|| ::AbrirDocumento( GridDocumentos ) }
oToolbar1:AddButton(0, , 4, 1, "" ,,,'', "oToolbuttonsep1")
TOOLBUTTON oToolbar1 ;
ID 701 ;
BITMAP "AVI\iCancela.BMP" ;
STATE 4;
TEXT "" ;
TOOLTIP "" ;
ON CLICK {|| oDlg:Close() }
oToolbar1:AddButton(0, , 4, 1, "" ,,,'', "oToolbuttonsep2")
20 Set 2020 21:50