Imprimir ordem de serviço
07/03/2003
0
:?:
Preciso imprimir uma Ordem de Serviço onde o lay-out é mais ou menos assim.
NR. ORDEM SERVIÇO: 999999- Ord_Srv
DATA DA ORDEM ......: 99/99/9999- Ord_Data
NOME DO CLIENTE....: XXXXXXXXXXXXXXXXXXXXXX - Cli_Nome
DESCRIÇÃO DO ITEM QTDE VLR. UNITARIO VLR.TOTAL
XXXXXXXXXXXXXXXXX 99999 9999,999.99 9999,999.99
ZZZZZZZZZZZZZZZZZ 8888 888,888.88 888,888.88
TOTAL DA ORDEM DE SERVIÇO: >>> 9999,999.99
NOME DO VENDEDOR: XXXXXXXXXXX - Vnd_Nome
Obrigado.
Neto
Preciso imprimir uma Ordem de Serviço onde o lay-out é mais ou menos assim.
NR. ORDEM SERVIÇO: 999999- Ord_Srv
DATA DA ORDEM ......: 99/99/9999- Ord_Data
NOME DO CLIENTE....: XXXXXXXXXXXXXXXXXXXXXX - Cli_Nome
DESCRIÇÃO DO ITEM QTDE VLR. UNITARIO VLR.TOTAL
XXXXXXXXXXXXXXXXX 99999 9999,999.99 9999,999.99
ZZZZZZZZZZZZZZZZZ 8888 888,888.88 888,888.88
TOTAL DA ORDEM DE SERVIÇO: >>> 9999,999.99
NOME DO VENDEDOR: XXXXXXXXXXX - Vnd_Nome
Obrigado.
Neto
Anonymous
Curtir tópico
+ 0
Responder
Posts
07/03/2003
Anonymous
:?: Como imprimir.?
@ l,c say ´Nr. OS:´ + Ord_Srv ????? -> só sei assim..
Preciso imprimir uma Ordem de Serviço onde o lay-out é mais ou menos assim.
NR. ORDEM SERVIÇO: 999999- Ord_Srv
DATA DA ORDEM ......: 99/99/9999- Ord_Data
NOME DO CLIENTE....: XXXXXXXXXXXXXXXXXXXXXX - Cli_Nome
DESCRIÇÃO DO ITEM QTDE VLR. UNITARIO VLR.TOTAL
XXXXXXXXXXXXXXXXX 99999 9999,999.99 9999,999.99
ZZZZZZZZZZZZZZZZZ 8888 888,888.88 888,888.88
TOTAL DA ORDEM DE SERVIÇO: >>> 9999,999.99
NOME DO VENDEDOR: XXXXXXXXXXX - Vnd_Nome
Obrigado.
Neto
Responder
07/03/2003
Anonymous
Use uma query que contenha todos os dados do relatorio:
query1.SQL.Text := ´SELECT A.ORDEM, A.DATA_ORDEM, B.CLI_NOME, C.ITEM, C.VALOR_UNIT, C.QTD, (C.VALOR_UNIT * C.QTD) AS VALOR_TOTAL FROM TB_ORDEM A INNER JOIN TB_CLIENTE B ON A.CODCLI=B.CODCLI INNE JOIN TB_ITENS_ORDEM C ON A.ORDEM=C.ORDEM WHERE A.ORDEM=:ORDEM;
query1.ParamByName(´ORDEM´).AsInteger = nroOrdem;
No relatório (QuickReport)
-Adicione 1 QRBand com bandtype=rbPageHeader;
-Adicione 1 QRGroup com expression = query.ORDEM;
-Adicione 1 QRBand com bandtype=rbDetail;
-Adicione 1 QRBand com bandtype=rbSumary;
-Adicione 1 QRBand com bandtype=rbPageFooter;
-No QRGroup, adicione QRLabels e QRDBTexts referentes aos dados da ordem (numero, data, cliente);
-No QRBand com rbDetail coloque QRDBTexts dos itens (Detalhes)
-No QRBand com rbSumary coloque QRSysDatas e troque a propriedade data adequadamente...(vc consegue...)
-No QRBand com rbPageHeader e rbPageFooter vc coloca seu cabeçalho e seu rodape´, respectivamente...
Mãos à obra... Não dá para escrever todo o código...
query1.SQL.Text := ´SELECT A.ORDEM, A.DATA_ORDEM, B.CLI_NOME, C.ITEM, C.VALOR_UNIT, C.QTD, (C.VALOR_UNIT * C.QTD) AS VALOR_TOTAL FROM TB_ORDEM A INNER JOIN TB_CLIENTE B ON A.CODCLI=B.CODCLI INNE JOIN TB_ITENS_ORDEM C ON A.ORDEM=C.ORDEM WHERE A.ORDEM=:ORDEM;
query1.ParamByName(´ORDEM´).AsInteger = nroOrdem;
No relatório (QuickReport)
-Adicione 1 QRBand com bandtype=rbPageHeader;
-Adicione 1 QRGroup com expression = query.ORDEM;
-Adicione 1 QRBand com bandtype=rbDetail;
-Adicione 1 QRBand com bandtype=rbSumary;
-Adicione 1 QRBand com bandtype=rbPageFooter;
-No QRGroup, adicione QRLabels e QRDBTexts referentes aos dados da ordem (numero, data, cliente);
-No QRBand com rbDetail coloque QRDBTexts dos itens (Detalhes)
-No QRBand com rbSumary coloque QRSysDatas e troque a propriedade data adequadamente...(vc consegue...)
-No QRBand com rbPageHeader e rbPageFooter vc coloca seu cabeçalho e seu rodape´, respectivamente...
Mãos à obra... Não dá para escrever todo o código...
Responder
Clique aqui para fazer login e interagir na Comunidade :)