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)