Fórum Xmaker

Preciso montar um relatório por secretaria, no diálogo de impressão coloco um combo box seleciono a secretaria e mando imprimir, imprimindo somente a secretaria selecionada no combo box...

Passa o nome da tua tabela campo codigo e nome

Obrigado,
Leão

Olá Ildeones, me passa o nome da tua tabela e campo codigo e nome_descrição.

um exemplo do ACBr sobre nfe

procedure TForm1.FormCreate(Sender: TObject);
var
T : TSSLLib;
I : TpcnTipoEmissao ;
J : TpcnModeloDF;
K : TpcnVersaoDF;
begin
cbTipoEmissao.Items.Clear ;
For T := Low(TSSLLib) to High(TSSLLib) do
cbTipoEmissao.Items.Add( GetEnumName(TypeInfo(TSSLLib), integer(T) ) ) ;
cbTipoEmissao.ItemIndex := 0 ;

cbFormaEmissao.Items.Clear ;
For I := Low(TpcnTipoEmissao) to High(TpcnTipoEmissao) do
cbFormaEmissao.Items.Add( GetEnumName(TypeInfo(TpcnTipoEmissao), integer(I) ) ) ;
cbFormaEmissao.Items[0] := 'teNormal' ;
cbFormaEmissao.ItemIndex := 0 ;

cbModeloDF.Items.Clear ;
For J := Low(TpcnModeloDF) to High(TpcnModeloDF) do
cbModeloDF.Items.Add( GetEnumName(TypeInfo(TpcnModeloDF), integer(J) ) ) ;
cbModeloDF.Items[0] := 'moNFe' ;
cbModeloDF.ItemIndex := 0 ;

cbVersaoDF.Items.Clear ;
For K := Low(TpcnVersaoDF) to High(TpcnVersaoDF) do
cbVersaoDF.Items.Add( GetEnumName(TypeInfo(TpcnVersaoDF), integer(K) ) ) ;
cbVersaoDF.Items[0] := 've200' ;
cbVersaoDF.ItemIndex := 0 ;

LerConfiguracao;
PageControl3.ActivePage := tsNFe;
pgRespostas.ActivePageIndex := 2;

ACBrNFe1.Configuracoes.WebServices.Salvar := true;

if cbTipoEmissao.ItemIndex <> -1 then
ACBrNFe1.Configuracoes.Geral.SSLLib := TSSLLib(cbTipoEmissao.ItemIndex);
end;