DiabloX3

Consegui ter algumas ideias para resolver isso, apesar de ter falado que agora utilizo o fortes report, mas são bem parecidos heheh a dúvida agora é que quando executo o comando .Print direto sem o Preview(); meu formulário de relatorio não atualiza a venda, ou seja, se eu fizer 3 vendas, ele imprimi as 2 ultimas igual a primeira. Pelo debug ele passa os parametros certos pro código da venda, mas quando executa o .print isso não se concretiza. Com o preview(); da certo, ele mostra na tela a venda que fiz e imprimi essa mesma, mas sem ele não está sendo possivel. O que posso fazer? abraço

A estrutura era essa mesma que voce desenhou Micheus, e o meu ficou exatamente igual, o que acontecia é que pra cada registro que eu tinha no Detail (vamos supor 3 itens) ele gerava 5 parcelas (por exemplo) no subdetail, não consegui fazer o subdetail aparecer só no fim depois do contador de registros do detail. No meu caso, os dados do cliente eu não coloquei em Detail e sim em ColummHeader pois senao tambem apareceria n vezes e é pra aparecer um só. Acredito que possa ter feito alguma ligação errada dos DataSources pra não ter dado certo como voce falou, mas assim está funcionando. Aproveitando o tópico, o que eu necessito tambem, se puder me ajudar, é definir automático o numero de vias de impressao e quantidade de registros no mesmo formulário. O Jhonas andou passando uns links mas mesmo assim não achei o que queria. Meu formulário continuo é de meia folha e cabe vamos supor 6 itens + o sumario que tem uns totais. O problema que se eu colocar 10 itens ele imprimi os itens na mesma página só que o sumary sai na outra via. Eu queria deixar configurado pra imprimir até 6 registros +/- e se tiver mais que isso ele vai pra proxima pagina e continua lá. O número de vias seria 2 sem ter que clicar na impressora e colocar manual. Abraço

revivendo o tópico depois de uns meses heheh é que estou fazendo 3 projetos separadamente, e como sou mandado, dou prioridade àquele que me é passado. bom, só que voltei nesse caso do "relatório composto", a unica diferença é que agora estou usando o fortes report pois necessito da matricial voltando novamente nesse projeto, eu fiz então como você falou micheus, só que não deu certo por um motivo. Usando apenas bandas detail não consigo mostrar os itens e as parcelas. A solução que achei então foi criar 2 sub detail e dentro deles coloquei um detail pra cada, e liguei os sub detail com os datasources e funcionou. Tem algum problema em deixar assim ou é mais viável de outro jeito? abraço

me desculpe Jhonas, é que eu já tinha procurado mas não consegui sanar minha duvida, mesmo com o link que voce passou cai na pagina inicial do site e buscando por fortes lá no guia buscas, ele não me retorna nada, por isso resolvi criar o tópico ... abraços

Galera, preciso começar a estudar sobre Delphi+conexão remota. Eu uso banco Firebird com Interbase. Sei que é dificil começar ensinar por tópicos aqui, procurei bastante no google mas acredito que alguém aqui possa ter um tutorial mais especifico de como começar a desenvolver esse tipo de aplicação (WebService). Necessitarei de um servidor remoto em uma parte da cidade e varios acessando aquele banco. Por onde começo para entender esse procedimento? abraços

Olá amigos. pela necessidade de trabalhar com impressora matricial, tive que mudar rapidamente para o fortes report o qual tem um componente especifico para esse tipo de impressora que por sinal é muito bom Ficou tudo certo no relatório, é muito parecido com o QuickRep, só que estou com dois probleminhas: -Precisaria delimitar o nº de itens que vai ser impresso em cada via pois como tenho o Footer no fim, se eu tiver por exemplo 15 itens, ele vai criar uma nova pagina apesar pra jogar os dados do Footer e não é bem isso que deveria acontecer, prefiro que fique um espaço em branco e continue o restante em outrta pagina. então teria que delimitar ali, uns 9 itens por página. Como faço isso? -Outra dúivida é que estou trabalhando com formulários de meia folha e gostaria de imprimir em duas vias direto, sem ter q clicar pra dar preview, e colocar nas propriedades de impressao 2 Cópias, manualmente. Fucei nas funções mas não encontrei nada. Como posso proceder? Abraços

deu certo Jhonas mas teria q ter aqula linha do StringReplace pois não aceita "," mas já montei um jeito agora obrigado abraço

Pessoal, estou criando um txt com função Writeln. Os dados estao sendo puxados de uma Query, porem necessito fazer algumas formatações. Exemplo: no meu banco é guardado um valor de 25,669871440 mas no IBExpert mostra 3 digitos. Quando pego o valor real pra jogar em uma variavel, ele puxa todos os algarismos. O que eu preciso é trazer apenas 4 desses algarismos. já tentei varias funções mas não obtive sucesso. Segue o codigo exemplificando qtd : string; qtd := StringReplace(qryItem.FieldByName('ITE_QTD').AsString, ',', '.', [rfReplaceAll]); qtd := FormatMaskText('#0.0000', qtd); preciso primeiro trocar virgula por ponto e dpois mostrar 4 algarismos depois da virgula. Acontece que se o valor for inteiro, por exemplo 25 ele mostra da seguinte forma '25.xxxx' <- com 4 espaços em branco não parece ser dificil, mas não visualizei a solução ainda. O que posso fazer? abraços

Valeu Jhonas, mas o pessoal aki axa q vai passar pra TXT mesmo devido alguns testes que fizeram fiquei incumbido de ir adiantando uma leitura no TXT eheh uma curiosidade que notei já foi que quando vou criar as linhas no txt por writeln não consigo usar o invoke code pra usar os edt's. São muitos campos e como é tudo abreviado fica mais "xatinho" de trabalhar mudando td hora de form e olhando certinho como foi escrito. Já que tem esse processo de "completar codigo" no delphi gostaria de poder usa-lo, mas ele n esta disponivel e o codigo ta rodando sem erros. Por que será q não consigo invocá-lo? outro detalhe: vi que nos txt, ou voce pode usar um campo ou outro no caso do CNPJ CPF ou uso C02 ou C02a tentei alguma função como if edtdoc.maxlenght = 14 then caso fosse CNPJ então daria um Writeln C02 senao um C02a mas não funcionou como gostaria. Alguma sugestão? abraço

Jhonas, já q você citou esse endereço, talvez esteja trabalhando com NFe ou tenha um conhecimento sobre o assunto (mas qualquer outro q souber é grata a resposta) Seguinte, na definição dos campos estou utilizando o Manual de Integração do Contribuinte fornceido pelo site da receita federal. Na pág 86/114 começa a definição das TAGs utilizadas na criação do XML. Mas gostaria de saber, são todos os campos obrigatórios? Alguns eu achei estranho e nesse manual não mostra se é de uso obrigatório ou não (o campo). No Manual de Formatação de TXT e XML já é mostrado campos com definição Obrigatório ou não e a propriedade Max Lenght, mas esse do contribuinte está me deixando confuso Abraço

Obrigado Jhonas, me foi bastante util o site

Olá . uma questao que acho que deve ser bem discutida é a respeito da NF-e.. andei pesquisando em varios foruns e não encontro de forma objetiva o que preciso Em primeiro lugar preciso saber como gerar o XML pelo delphi de uma nf-e alguém já experimentou ou fez testes e poderia me ajudar? edit: obs. deve criar esse xml apartir de um banco de dados e não só uma forma de ler arquivo xml como TXMLDocument abraço

ta certo.. obrigado a voces

Muito obrigado a voces.. deu certo sim só outra pergunta ao Micheus: realmente eu alinhei pela propriedade Columns do DBGrid. Fui olhar agora essa parte de alinhar pelo field do dataset mas não soube solucionar por este método.. Onde ela estaria mais especificamente? a título de curiosidade abraço

Micheus, muito obrigado pela resposta, fiz um esqueminha de teste e já vi resultado.. Ainda não testei no programa, mas acredito q ira funcionar sim Valeu

Formatei um dbgrid para zebrado e ele perdeu todos os alinhamentos das colunas. tem varios campos como cod, desc, qnt, valor vista, a prazo etc todos exceto a desc devem ficar alinhados, (e estao quando vou nas colunas do grid) mas na execução ficam justificadas a direita. não sei se é por causa da formatação zebrado... Vou postar o codigo usado e gostaria de saber como alinho as colunas procedure TfrmCaixa.grdItemDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if odd(qrItemVenda.RecNo) then grdItem.Canvas.Brush.Color := $00EFEFEF else grdItem.Canvas.Brush.Color := $00E6E6E6; TDbGrid(Sender).Canvas.Font.Color:= $00400000; if gdSelected in State then with (Sender as TDBGrid).Canvas do begin Brush.Color := clMenuHighlight; FillRect(Rect); Font.Style := [fsbold]; Font.Color := clWhite; end; TDbGrid(Sender).DefaultDrawDataCell(Rect, TDbGrid(Sender).columns[datacol].field, State);

Obrigado Micheus .. o manual já baixei (está um pouco ruim de entender, tem mtas palavras estranhas, rs) Sobre o sumary, a idéia seria +/- essa mesmo. No subdetail iria mostrar em cada produto buscado o que eu tiver na subdetail.. Suponhamos q tenha 3 produtos na venda, em cada linha da venda vai mostrar o vencimento da prestação e o numero da parcela. A idéia é colocar isso separado, no fim, mas que mostre todas as parcelas. Exemplificando: 50,00 Bolacha R$65,00 20,00 Suco daFruta R$60,00 15,00 Cx Bombom R$ 100,00 isso acima seria no detail. Se colocar subdetail e eu dividir isso em 3x, em cada linha dessas vai msotrar vencimento e parcela. O certo seria no fim mostrar : Vencimento 20/10/2008 R$ 75,00 20/11/2008 R$ 75,00 20/12/2008 R$ 75,00 Ah, o mask deu certo. Obrigado

atualizando o probl: estou tentando mexer aki e já descobri parte do problema .. agora estou com probl so na parte do sumario .. lá tem vencimento, valor da prestação.. mesmo quie a compra foi em 3x la so mostra o valor de 1 prestação.. eu queria q fosse mostrado da 1,2 e 3º os valores iguais.. como faço isso? o quickrep ta ligado na query q mostra os itens. outra coisa, quando o valor é bem quedrado é msotrado todas as casas decimais, por exemplo 123,3256987441 de valor da parcela como posso definir com 2 algarismos dps da virgula e com o cifrão R$ ?

Galera, meu primeiro post, vi q esse é um bom forum de discussao sobre programação delphi meu caso é o seguinte : tenho q criar um relatorio e estou usando do quickrep porém não tenho mta experiencia com relatorio. eu habilitei as bands title/colummheader/summary/detail (não sei o q as outras fazem, também não sei como funciona o QRGroup.) o problem é q tenho q trazer varios dados sobre uma venda no title esta o titulo - ok no colum header eu coloquei dados como Nome cliente, data da venda, endereço dele, cod da venda etc com QRLabels e na frente os QRDBText mais embaixo mas ainda no colum header tem informações da venda como qtdd, cod-descrição do produto, valor etc. em detail coloquei os QRDBText pra mostrar essas ultimas informações.. no summary deve conter as parcelas, o vencimento delas, subtotal e total geral O meu probl é o seguinte.. ligar tudo isso heheh.. eu tenho varias IBQuery pra me mostrar essas informações uma query item pra me trazer as info da venda, uma query imprimir q tem as informações do cliente, uma outra q tem as condições de pgto q vai sair o vencimento e as parcelas Como eu faço pra ligar tudo isso? A principio eu fiz de um jeito q mostra os itens da venda APENAS mas com redundancia.. de uma lista de 4 itens, o primeiro é Bolacha Bauducco, o segundo é outro item e assim vai, e na hora de mostrar, os 4 itens sai escrito Bolacha Bauducco com o mesmo valor pra todas.. Como resolvo isso?