joaosolution

Bom dia 
Neste tópico têm refrências ao ADORDD
Att
João Bosco

Sim
Faltou:
DbSelectArea("Func")
Func->Nome é buscando do banco de dados
@NOME é a variável dentro do documento Word padrão.
Crio o documento padrão no Word, contrato, proposta, recibo, etc:
Depois substituo as informações pelos dados do banco de dados:
Ex.:
Ao Sr. @NOME  da empresa @EMPRESA...
O Sistema substitui por:
Ao Sr. JOAO BOSCO da empresa SOLUTION....
Att
João Bosco
 

Fladimir
Bom dia
Para contratos utilizo a classe word com as mesmas opções de alterar o documento com os campos de variáveis.
Att
João Bosco

Fladimir
Bom dia
Para contratos utilizo a classe word com as mesmas opções de alterar o documento com os campos de variáveis.
Att
João Bosco

Rogerio
Com a função ADIR você consegue o tamanho do arquivo.
https://vivaclipper.wordpress.com/2012/11/01/adir-function/
Att
João Bosco
 
 

João
Xamarin não é linguagem é um ambiente de integração para desenvolvimento para celular, utilizando C#, com Visual Studio.
 
Att
João Bosco

Acessosoft?
Não seria oCbx:oGet:GetText() para pegar o conteúdo digitado?
Att
João Bosco
 
 

Acessosoft?
Você já tentou converter para hexadecimal antes de gravar
strtohex () depois para recuperar a informação do BD hextostr()
Att
João Bosco

Se quiser mando minha foto pra vc colocar ai...
 
 

Tanto faz: 32 bits roda em 64 bits. Ai, é questão de gosto, teste os dois e decida-se. abs.
 
Eu não largo o meu Workshop.exe the best,  nem a pau Juvenal!! kkkkkkkkkkkkkkk

* Este módulo demonstra um servidor de descoberta UDP simples
  *
  * Se você executar algum serviço na rede (ex., Hbnetio), você precisa
  * Conheça o endereço IP do servidor e configure o cliente para se conectar a este
  * endereço. UDPDS ajuda o cliente a encontrar o endereço do servidor (ou endereços
  * de vários servidores) na rede local. UDPDS deve ser executado em
  * paralelo ao servidor real (ex., hbnetio). Parte do servidor de UDPDS usa
  * threads, portanto, ele deve ser compilado no modo MT.
 
Att
João Bosco

Bom dia
//------------------------------------------------------------------- Function Aposta() Local aCampos, hi aCampos:={{"NOME","C",50,0},{"AP1","N",3,0},{"AP2","N",3,0},{"AP3","N",3,0},{"AP4","N",3,0},; {"AP5","N",3,0},{"AP6","N",3,0},{"AP7","N",3,0},{"AP8","N",3,0},{"AP9","N",3,0},{"AP10","N",3,0}} DbCreate("APOSTA.DBF",aCampos) Use aposta New Alias Aposta Aposta->( DbAppend() ) Aposta->Nome := "JOAO" Aposta->AP1 := 5 Aposta->AP2 := 15 Aposta->AP3 := 25 Aposta->AP4 := 35 Aposta->AP5 := 45 Aposta->AP6 := 55 Aposta->AP7 := 65 Aposta->AP8 := 75 Aposta->AP9 := 85 Aposta->AP10 := 95 Aposta->( DbAppend() ) Aposta->Nome := "Maria" Aposta->AP1 := 8 Aposta->AP2 := 18 Aposta->AP3 := 25 Aposta->AP4 := 35 Aposta->AP5 := 45 Aposta->AP6 := 58 Aposta->AP7 := 65 Aposta->AP8 := 78 Aposta->AP9 := 85 Aposta->AP10 := 95 aResultados:={} While .T. For hi:=1 To 10 If Len(aResultados) < hi nResu := 0 Else nResu := aResultados[hi] Endif MsgGet("Informe o resultado","Resultado:"+StrZero(hi,2),@nResu,"99") If Len(aResultados) < hi AADD( aResultados, nResu ) Else aResultados[hi] := nResu Endif Next ? "Resultados lançados:"+CRLF+; "1-"+StrZero(aResultados[1],2)+CRLF+; "2-"+StrZero(aResultados[2],2)+CRLF+; "3-"+StrZero(aResultados[3],2)+CRLF+; "4-"+StrZero(aResultados[4],2)+CRLF+; "5-"+StrZero(aResultados[5],2)+CRLF+; "6-"+StrZero(aResultados[6],2)+CRLF+; "7-"+StrZero(aResultados[7],2)+CRLF+; "8-"+StrZero(aResultados[8],2)+CRLF+; "9-"+StrZero(aResultados[9],2)+CRLF+; "10-"+StrZero(aResultados[10],2) If !MsgYesNo("Deseja alterar os resultados lançados?","Escolha opção") Exit Endif End aAcertos:={} Aposta->( DbGoTop() ) While Aposta->( !Eof() ) nAcertos:=0 If Ascan(aResultados,Aposta->Ap1) > 0 nAcertos ++ Endif If Ascan(aResultados,Aposta->Ap2) > 0 nAcertos ++ Endif If Ascan(aResultados,Aposta->Ap3) > 0 nAcertos ++ Endif If Ascan(aResultados,Aposta->Ap4) > 0 nAcertos ++ Endif If Ascan(aResultados,Aposta->Ap5) > 0 nAcertos ++ Endif If Ascan(aResultados,Aposta->Ap6) > 0 nAcertos ++ Endif If Ascan(aResultados,Aposta->Ap7) > 0 nAcertos ++ Endif If Ascan(aResultados,Aposta->Ap8) > 0 nAcertos ++ Endif If Ascan(aResultados,Aposta->Ap9) > 0 nAcertos ++ Endif If Ascan(aResultados,Aposta->Ap10) > 0 nAcertos ++ Endif AADD( aAcertos,{nAcertos,Aposta->Nome}) Aposta->( DbSkip( 1 ) ) End Asort( aAcertos,,,{|x,y| x[1] < y[1] } ) xBrowse(aAcertos) Return .T. Att
João Bosco

Bom dia
Já tentou
nVrOleo := GetPvProfString("SISTEMA","VALOR DO OLEO","",   "c:\teste.ini")
Att
João Bosco

João
Acredito que o problema está relacionado ao path utilizado.
Att
João Bosco

João
Boa tarde
A conversão de relatórios para Word é feita através da inserção da imagem de cada página do relatório em uma página do Word
               oWord:Selection:InlineShapes:AddPicture( cEMF, .f., .t. )
Para poder editar, a exportação teria que ser mais fiel ao relatório criando as colunas em uma tabela (por exemplo) e depois inserindo os dados.
Para isso vc teria que converter a função ConvertToWordDoc para criar a página em Word linha a linha, acredito que em report isso é tranquilo já que existe uma padrão de cabeçalho e colunas, mas para Printer seria mais complicado.
Att
João Bosco

JFAguiar
Boa tarde
Resolvi utilizando esta função.
//-------------------------- Function TtoDate( tDate ) If empty( tDate) Return( ctod("00/00/00")) Endif If ValType( tDate ) = "D" Return(tDate ) Endif Return( stod( substr( ttos( tDate ), 1, 8 ) )) Att
João Bosco

JMSilva
Bom dia
Acredito que se você adicionar ao PATH do Windows vai resolver o problema:
Ex.: PATH=%PATH%;C:\SISTEMA\DLL
Att
João Bosco
 

Marcio
Create table BK_tabela_2015
insert into BK_tabela_2015 (campo1,campo2,campo3) select campo1,campo2,campo3 from tabela where ano='2015'
delete from tabela where ano=2015
Att
João Bosco

Bom dia
 
Segue Exemplo!!
// Arquivo base cFile := "Consu.xls" If !File(cDirExcel+"\"+cFile) MsgAlert("Arquivo não econtrado : "+cDirExcel+"\"+cFile,"Verifique") Return .T. Endif oExcel:= TOleauto():New( "Excel.Application") If Ole2TxtError() # "S_OK" MsgInfo("EXCEL não está instalado nesta máquina."+CRLF+" Impossível gerar planilha","ATENÇÃO") Return nil Endif oExcel:Workbooks:Open( cDirExcel+"\"+cFile ) aDados:={} nCol := 1 nLin := 1 oFolha := oExcel:Get( "ActiveSheet") While .T. If Empty(oFolha:Cells(nLin, 1):Value) Exit Endif cColA := oFolha:Cells(nLin, 1):Value cColB := oFolha:Cells(nLin, 2):Value cColC := oFolha:Cells(nLin, 3):Value AADD( aDados, {cColA, cColB, cColC}) nLin++ End oExcel:AlertBeforeOverwriting = .F. oExcel:DisplayAlerts = .F. oExcel:Visible = .T. xBrowse(aDados)  
Att
João Bosco

Bom dia
 
Segue Exemplo!!
// Arquivo base cFile := "Consu.xls" If !File(cDirExcel+"\"+cFile) MsgAlert("Arquivo não econtrado : "+cDirExcel+"\"+cFile,"Verifique") Return .T. Endif oExcel:= TOleauto():New( "Excel.Application") If Ole2TxtError() # "S_OK" MsgInfo("EXCEL não está instalado nesta máquina."+CRLF+" Impossível gerar planilha","ATENÇÃO") Return nil Endif oExcel:Workbooks:Open( cDirExcel+"\"+cFile ) aDados:={} nCol := 1 nLin := 1 oFolha := oExcel:Get( "ActiveSheet") While .T. If Empty(oFolha:Cells(nLin, 1):Value) Exit Endif cColA := oFolha:Cells(nLin, 1):Value cColB := oFolha:Cells(nLin, 2):Value cColC := oFolha:Cells(nLin, 3):Value AADD( aDados, {cColA, cColB, cColC}) nLin++ End oExcel:AlertBeforeOverwriting = .F. oExcel:DisplayAlerts = .F. oExcel:Visible = .T. xBrowse(aDados)  
Att
João Bosco

De nada, pelo menos uma ajudinha, né....
Sobre o PellesC:
Dentro do Pelles vá no menu Resource, opção Import.
Dentro da tela do Import, vai ter um botão no rodapé Import, neste botão vai ter uma seta, como um combobox, click na seta e escolha a opção, Import - RCDATA.
Att
João Bosco
 
 
 

João
Boa tarde
Eu adiciono o FR3 no projeto como DATA.
cRes:="RELAT01"
E chamo trocando:
        oFrPrn:LoadFromFile(cDirConfig+cRes+'.fr3')
Por isso:
        oFrPrn:LoadFromResource( cRes )
 
Att
João Bosco

Boa tarde
Trabalho desta forma e nunca tive problemas.
Sempre gero os indices pelo sistema clipper, nunca pelo sistema  fivewin
Att
João Bosco

Luiz
Bom dia
Nesta linha:
oDlg:aEvalWhen(),oDlg:update,nArray:=oBrw_cliente1:nArrayAT , ;
Não seria assim, parênteses no update oDlg:aEvalWhen(),oDlg:update(),nArray:=oBrw_cliente1:nArrayAT , ;
Att João Bosco

veja \samples\xbrwtree.prg se ajuda.
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=28553&p=159893&hilit=bLDClickData#p159893