gvc

Se vc quer os dias entre 01/01/2010 e 07/10/2010: (Data final) - (data inicial) + 1 Agora se vc quer os dias úteis terá que verificar na faixa entre as data quais são sábados e domingos. Terá tb que montar um arquivo para conter os feriádos e "pular" esses dias tb.

Coloque um campo sequencial no arquivo para funcionar como chave de inclusão. Verifique se a sequencia foi quebrada. Isso indicaria que foi apagado o registro. Veja tb se alguma rotina de pesquisa não esta movendo o ponteiro de registro antes de fazer uma inclusão. Seu sistema pode estar fazendo sobreposição nos registros. Eu tive problemas com usuário abrindo arquivo para "olhar" como era. Tive usuário que tirava cópia dos arquivos, fazia inclusão, imprimia o que queria e depois voltava a cópia. É claro que os indices baleavam. Trocar a extensão dos arquivos resolveu boa parte dos problemas.

citação:sig_gilbertox = "123456-5" ? strtran(x,"-","") id=quote>id=quote>Esta é a melhor solução por remover todos os "-" da string, não importa a posição. Como apresentado pelo Eric.Developer, vc não precisa colocar o 3o. parâmetro se vai remover algo da string. Eu sempre uso quando vou remover "coisas" de campos especiais.

Eu uso o PDFCREATOR a algum tempo e ele gera um arquivo PDF com todas as páginas do relatório automaticamente. Dá para configurar local, nome do arquivo, abertura automática e envio de eMail. Só não entendi essa de precisar confirmar gravação página por página.

AddMonth() Adds or subtracts a number of months to/from a Date value. Syntax: AddMonth( , ) --> dNewDate Arguments - A Date value, except for an empty date, can be passed. - An integer numeric value specifying the number of months to add to . If is a negative value, it is subtracted from . Return - The function returns the modified date, or an empty date on error.

Curioso. Tanto calculo e cuidado. Só para constar a função AddMonth é nativa do xHarbour e faz o incremento/decremento de meses direto.

_data := CtoD('12/05/2010') _parc := 3 FOR X = 1 TO _parc // Coloque (_parc - 1) se o primeiro pagamento for a vista. := AddMonth(_data, x) NEXT id=code>id=code>Lembrando que somar 30 dias não dá certo pois nem todos os meses tem 30 dias.

label olabel size 63.5, 25.4; separators 1, 1; on line 3; file "label.prn" ; preview ; to file "label.txt" ; caption ctitle 63.5 - Largura 25.4 - Altura 1, 1 - separador de etiquetas (largura e altura) 3 - qtd de etiquetas por coluna.

Para simplificar sua vida, instale o PdfCreator e monte seu relatório normalmente mandando a impressão para ele. Será gerado o pdf do relatório e vc poderá configurar até para enviar o email. É a solução mais rápida para vc. Vc tb poder usar a classe TPdf para gerar o arquivo sem usar programas externos. Só que terá que aprender a usar essa classe.

Procedure ListaVisita(odlg) cDiaI=Date() cDiaF=Date() Select Diario Set Index To DataVisi Diario->(ordscope(0,dtos(cDiaI) )) Diario->(ordscope(1,dtos(cDiaF) )) Lin=5 diario->(dbgotop())id=red> While diario->(eof()) @Lin,5 Say "Nome "+rTrim(diario->Nome_Cli) Of oDlg @Lin++,50 Say diario->DataVisita Of oDlg diario->(dbskip()) End Diario->(ordscope()) Return .t. id=code>id=code>

Vc ativou o filtro por indice (ordscope) mas não posicionou o ponteiro de registros. Não lembro se o DBGTOP() vai funcionar. Acredito que sim. Se não funcionar, use o DBSEEK(dtos(cDiaI), .T.) para posicionar o ponteiro no registro inicial.

Eu uso o IrfanView (gratuito entre outras vantagens) e funciona muito bem para converter imagens.

na documentação do [x]Harbour veja o exemplo em TXmlDocument()que mostra como trabalhar com o XML. Esse é o comando para criar arquivo XML.

ACTIVATE DIALOG oDlgBrw oDlgBrw:bvalid := {|| iif(msgyesno('Fechar a Janela?', 'Selecione uma Opção'), (oWinBrw:end(), .T.), .F.)}

Eu uso o PDFCreator e funciona muito bem. Uso inclusive para testar relatórios. Só para constar: No xHarbour tem a classe para criar pdf. (Mas eu ainda não consegui colocar imagens corretamente)

veja em http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=17389

[evandro] Eu coloquei uma resposta a alguns meses fazendo isso que vc quer. infelizmente o sistema de busca continua com problemas. Vou ter que remontar e postar para vc. Mas no help do FWH tem todas essas opções.

Na verdade vc pode usar conforme vai "escrevendo" a mensagem. Vc pode ativar negrito quando chega em determinada parate do texto e desativa depois. Como vc faz usando tag's.

1) Vc esta criando 7 tag's de indice e depois selecionando a tag 8. Isso não dá certo. 2) OrdScope é para usar o indice ativo no filtro. Ex: Seu indice é por código e vc ativa o ordscope para filtrar uma faixa desses código. 3) Vc pode criar a tag 8 por descricao + numero e usar FOR para filtrar o arquivo. Ex. index on descricao + numero tag 8 for estmin <= quantidade - Veja que assim vc sempre terá nesse indice os registro que tiverem quantidade menor ou igual ao estoque mínimo de cada produto. Ah! Vc não precisa usar DELETED() no indice. Coloque SET DELETE ON no inicio do seu sistema.

Aqui vc tem os exemplos e inclusive como colocar imagens dentro do seu arquivo. C:\FWH805\samples\testrtf.prg C:\FWH805\samples\testrich.prg C:\FWH805\samples\srcview.prg C:\FWH805\samples\enrico91.prg Vc já olhou no help do FWH? Avise se não ajudou. (vou verificar os fontes de sistema que estão em casa depois)

Crie um programa para abrir o arquivo que contem o DBT usando o RDD DBFNTX. Depois mude o RDD para DBFCDX e abra o arquivo que vai receber os dados. Agora é só "correr" o 1o. arquivo e gravando os registros no 2o., lembrando de dar replace em todos os campos. rddsetdefault('dbfntx') rddsetdefault('dbfcdx')

Só para constar existe a configuração pré-definida de LetterSmall e Statmente US.

Se é a metade do A4 então é o tamanho A5. Da classe Printer: SetPage Specifies the size of the paper to print on. Syntax: :SetPage( ) \\ nil Parameters: Specifies the size of the paper to print on. 1 Letter 8 1/2 x 11 in, 2 Letter Small 8 1/2 x 11 in, 3 Tabloid 11 x 17 in, 4 Ledger 17 x 11 in, 5 Legal 8 1/2 x 14 in, 6 Statement 5 1/2 x 8 1/2 in, 7 Executive 7 1/4 x 10 1/2 in, 8 A3 297 x 420 mm, 9 A4 210 x 297 mm, 10 A4 Small 210 x 297 mm, 11 A5 148 x 210 mm, 12 B4 250 x 354, 13 B5 182 x 257 mm, 14 Folio 8 1/2 x 13 in, 15 Quarto 215 x 275, 16 10x14 in, 17 11x17 in, 18 Note 8 1/2 x 11 in, 19 Envelope #9 3 7/8 x 8 7/8, 20 Envelope #10 4 1/8 x 9 1/2, 21 Envelope #11 4 1/2 x 10 3/8, 22 Envelope #12 4 \276 por 11, 23 Envelope #14 5 x 11 1/2, 24 C size sheet, 25 D size sheet, 26 E size sheet, 27 Envelope DL 110 x 220mm, 28 Envelope C5 162 x 229 mm, 29 Envelope C3 324 x 458 mm, 30 Envelope C4 229 x 324 mm, 31 Envelope C6 114 x 162 mm, 32 Envelope C65 114 x 229 mm, 33 Envelope B4 250 x 353 mm, 34 Envelope B5 176 x 250 mm, 35 Envelope B6 176 x 125 mm, 36 Envelope 110 x 230 mm, 37 Envelope Monarch 3.875 x 7.5 in, 38 6 3/4 Envelope 3 5/8 por 6 1/2 in, 39 US Std Fanfold 14 7/8 x 11 in, 40 German Std Fanfold 8 1/2 x 12 in, 41 German Legal Fanfold 8 1/2 x 13 in, #define DMPAPER_LAST DMPAPER_FANFOLD_LGL_GERMAN, #define DMPAPER_USER 256 Returns: nil. SetSize Selects a different page dimensions Syntax: :SetSize( , ) \\ nil Parameters: The new dimensions for the printer page in tenths of millimeters. Returns: nothing id=code>id=code>

Eu uso o WS gravando o arquivo em formato .RC. Uso o RC2DLL32 para compilar esse arquivo em DLL32. todll.bat id=code>id=code>rc2dll32.bat rem syntax: rc2dll32.bat Your_rc_file !!! without the .RC extension c:\bcc55\bin\bcc32 -c c:\fwh805\dll\screen32.c c:\bcc55\bin\brc32 -r %1.rc c:\bcc55\bin\ilink32 /Tpd c:\bcc55\lib\c0d32.obj screen32.obj, %1.dll,,c:\bc55\lib\cw32.lib c:\bcc55\lib\import32.lib,, %1.res @if exist *.i* del *.i* @if exist *.map del *.map @if exist *.obj del *.obj @if exist *.res del *.res @if exist *.tds del *.tds echo done! id=code>id=code>

Coloque o número 7 na sua lista que é o identificador do CA-VO.