Luiz Arruda (ICO)

Ola SCOM Tente colocar na ordem q vc. deseja usando aquele 1,2 no WS. Espero ter ajudado. ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701

Se eu uso a TdosPrn que eu tenho da o erro TDOSPRN:_LZERABUFF id=blue>, se eu tiro as linhas oPrin:lZeraBuffer:=.T. e oPrin:lZeraBuffer:=.F. id=red>, me da o erro base/1003 variavel does not exist IRESET , ref. a linha 180 da TdosPrn com a linha oPrin:EndPage() id=red> no adm.prg Abraços. ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701

Ola. Paulo, se uso a TdosPrn que vc. indicou, na hora de compilar me da um monte de erro. Compiling TDOSPRN.PRG TDOSPRN.PRG(106) Error C2001 Syntax error: 'THISPRN' TDOSPRN.PRG(108) Error C2002 Incomplete statement or unbalanced delimiters TDOSPRN.PRG(116) Error C2002 Incomplete statement or unbalanced delimiters TDOSPRN.PRG(117) Error C2002 Incomplete statement or unbalanced delimiters TDOSPRN.PRG(323) Error C2005 Statement not recognized, match failed at: 'CONS TRUCTOR' TDOSPRN.PRG(325) Error C2024 Unclosed control structures TDOSPRN.PRG(325) Error C2021 Redefinition of procedure or function: 'SAY' TDOSPRN.PRG(327) Error C2021 Redefinition of procedure or function: 'END' TDOSPRN.PRG(328) Error C2027 ENDIF does not match IF TDOSPRN.PRG(330) Error C2021 Redefinition of procedure or function: 'NEW' TDOSPRN.PRG(342) Error C2021 Redefinition of procedure or function: 'SAY' TDOSPRN.PRG(347) Error C2021 Redefinition of procedure or function: 'END' TDOSPRN.PRG(352) Error C2001 Syntax error: 'THISPRN' TDOSPRN.PRG(354) Error C2002 Incomplete statement or unbalanced delimiters TDOSPRN.PRG(362) Error C2002 Incomplete statement or unbalanced delimiters TDOSPRN.PRG(363) Error C2002 Incomplete statement or unbalanced delimiters 16 errors No code generated ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701

Ok. Paulo. Compilou legal apos eu tirar ImpSpool( "C:\PLENOTMP\RELAT.TXT",, .T. ) id=red> da o seguinte IMPSPOLL : unresolved external. tirando compila normal, e ao executar da um erro; TDOSPRN:_LZERABUFF id=blue> assim mesmo em maiusculas id=red> ele ejeta a folha e nao imprime nada. Abraçao. até amanha, meus olhos já estao reclamando. ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701 Editado por - ico on 20/06/2005 18:51:10

Ola Paulo. Ao Compilar esta dando erro em tres linhas, vou tentar descobrir. wvar_impr = "SALDO DE TRANSPORTE" + ; IF(TRA<0,SPAC(10),SPAC(25)) + ; TRANS(TRA,PICT "99,999.99") ************* aqui TIREI O PICT id=red> DO WHILE .NOT. EOF() // o arquivo ja esta aberto/index data TRA:=TRA + (VALOR * IF(DC="D",-1,1) ************ aqui COLOQUEI UM ")" depois do ultimo )id=red> wvar_impr = DTOC(data) + " " + ; Historico + ; IF(DC="D",SPAC(??),SPAC(??)) + ; TRANS(VALOR,"99,999.99")+ ; IF(DC="D",SPAC(??),SPAC(??)) + ; TRANS(TRA,"99,999.99") ************* E AQUI aqui ta dando erro de SINTAX c2001 id=red> Abraços. ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701 Editado por - ico on 20/06/2005 18:13:13

Certo, entendi +-, agora veja como eu fazia antes **** dicas do Vagner oPrin := TDosPrn():New() @ 00,00 PSay "EMPRESA :"+EEMP @ 01,00 PSay "EMPREGADO:"+NEM **** eof dicas do Vagner Agora como eu passo isto para o tdosPrn. TRA:=TRANSPORTE // Variavel de saldo de transporte @PROW()+,12 SAY "SALDO DE TRANSPORTE" IF TRA<0 // se menor que 0 C:=40 // coluna=40 ELSE C:=55 // ou coluna 55 se >0 ENDIF @PROW(),C SAY TRA PICT "99,999.99" // imprimi o transporte na coluna DO WHILE .NOT. EOF() // o arquivo ja esta aberto/index data @prow()+,02 say data @prow(),12 say historico IF DC="D" // DC(debito/credito) for "D" COL:=40 // coluna 40 J:=-1 ELSE COL:=55 // se for "C" coluna 55 J:=1 ENDIF TRA=TRA+VALOR*J @PROW(),COL SAY VALOR PICT "99,999.99" // sai o VL na coluna 40 ou 55 @PROW(),90 SAY TRA PICT "99,999.99" // sai o saldo atualizado SKIP ENDD Se alguém puder me ajudar, agradeco desculpem é qestou com um pouco de urgencia, e nao da tempo p/ estudar/analisar exemplos. Mas tenho o compromisso de assim q dominar bem o FW/xHB, ajudarei no forum. Obrigado. ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701 Editado por - ico on 20/06/2005 17:00:13

Ola Vagner. "Compilar ela junto com seu programa", significa; * FI ADMP //* meu programa FI TDOSPRN //* Classe * dentro do arquivo.LNK ???, é exatamente isso que quero saber. Abraços. ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701

Obrigado. Mais eu gostaria de saber como usa-la, uma vez vi alguem dizer compile junto com seu programa, mais como se faz isso ? terei que mudar alguma coisa nos fontes ?. desculpem a ignorancia, mais eu entrei no mundo FiveWin agora. Mais uma vez obrigado. ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701

Ola. Sempre vejo falarem em CLASSE TDOSPRN, como faço para utiliza-la. e aonde encontro esta classe ?. tem algun exemplo ?. Abraços ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701

Obrigado ao Kleyton e ao Carlos Laurentino. Five Abraços e até próxima. ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701

Clipper Versao 5.2 ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701

Ola. Alguém poderia enviar-me o arq. FILEIO.CH, ou indicar um link onde posso pegar ?. Obrigado. ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701

PERSONAL. Sem querer ser chato, mandei meu código pro seu email. Obrigado. ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701 Editado por - ico on 19/06/2005 09:17:22

Boa Tarde. Meu relatorio está sendo impresso somente na horizontal, o que devo fazer p/ q o mesmo saia normal, na vertical ?? e como faço tb. para fechar o quadro na ultima linha ? |----------| |Relatorio | |__________| Abraços. ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701

OBRIGADO A TODOS PELO INTERESSE EM ME AJUDAR A solução foi a seguinte: mapeei o SERVIDOR para F:\\,como o PAULO E SUPI disseram, em vez de SET DEFA coloquei SET PATH..., o programa abre empresa.DBF pega os dados e faz outro SET PATH.. com as coordenadas da empresa(PASTA), a principio esta funcionando, acessei o programa no terminal WEFB002 e ele iniciou corretamente. mais uma vez obrigadao e até a próxima. ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701 Editado por - ico on 17/06/2005 09:29:37

Boa tarde. Estou terminando um programa de contas de empregados (fazendas) Tentei colocar em rede nao consegui, é seguinte: logo que eu entro no prog. chamo um arquivo de nome empresa.dbf //* sempre entra na ultima fazenda acessada. USE EMPRESA prop:= senha eEMP:=NOME TUDO FUNCIONAVA PERFEITAMENTE ATÉ TENTAR POR EM REDE: o servidor é wefb001 + dois terminais wefb002/wefb003 Se eu coloco no inicio function main() SET DAFAULT TO \\wefb001\ADMP //* servidor e pasta admp da este erro - err0...BASE/1003 DIZ QUE VARIAVEL NOME NAO EXISTE SE EU COLOCO SET DEFAULT \\wefb001\c\ADMP da o mesmo erro. SE EU COLOCO SET DEFAULT X:\\WEFB001\ADMP OU X:\\WEFB001\C\ADMP DA ESTE ERRO error description [DOS Error 53] DBFNTX/1001 OPEN ERROR F:\\WEFB001\C\ADMP\EMPREDA.DBF SEE ERROR.LOG FILE Nao sei porque nenhuma das opcoes esta funcionando Alguém sabe o que esta acontecendo ???. ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701

Veja seu Email. ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701

Saudações Pantaneiras. Grande Flavio. na mosca. Mangueira seu cod. esta certo só que como disse o Flavio. o BMP tem que estar dentro da DLL/RC. he!he!he! to ficando esperto. Mangueira semana passada mandei-lhe um email verifique e entre em contato.( pelo meu email ) Obrigado aos dois pelo interesse em ajudar-me ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701

BOM DIA. Só isso ?? ... NAO FUNCIONOU. ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701 Editado por - ico on 15/06/2005 10:02:33

Saudaçoes Pantaneiras a todos. É possível colocar icones ao lado do menu ? Ex: MENUITEM "&LANCAMENTOS" MENU MENUITEM " &Feliz" MENUITEM " &Muito Feliz" ** ** PS. USEI ESTES ICONES SÓ PARA DAR UMA IDÉIA DO QUE EU PRETENDO; DESDE Jà OBRIGADO. ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701

Obrigado pela resposta e pela dica, seu exemplo já resolveu meu problema, acertou a bola óia como eu tô feliz abração ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701 Editado por - ico on 14/06/2005 18:26:34

Boa tarde a todos é o seguinte: Criei um campo combobox no WS. como que eu defino para seleciona-lo na tela de lancamentos como sendo "P" ou "R". dependendo da escolha do usuario ? o mesmo tem ser gravado num arquivo.DBF como "R" ou "P" PS: no WS ele tem ID 12 Obrigado ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701

Bom dia. Tô ficando bão nesse tar de Orque xóp. he! he" , para os bão memo, como eu mudo a cor de fundo de uma get ? obrigado. ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701

Jose Carlos. isso quer dizer que programar em harbour/xharbour é mais fácil que em FW ?????, na versao demo fica aquela janelinha chata pulando na tela ??. ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701

Mandei p/ seu email, nao sei se é isso que vc. quer. abraço Pantaneiro ICO - Corumba/MS iko67@ibest.com.br -> (67) 9244-0701 Editado por - ico on 11/06/2005 11:22:03