azilves

Opa !!!! Eu só vi o tópico agora !!! Tô dentro tb !!!

Mas olha só, cada banco tem um layout diferente, portanto, será preciso ter o layout de todos os bancos, pois caso contrário, você só poderá pagar boletos do bradesco. Os layouts dos bancos são muito parecidos, mas não iguais. Alexandre

Antenor, O que vc está usando para se conectar ao banco ? Eu uso o HeidiSql e ele fica um bom tempo conectado, alias comigo ele nunca desconectou. Abraço Alexandre Zilves

Valeu João, Vou baixar as dicas e dar uma estudada agora, depois deixo as dúvidas ou se resolvi. Abraço Alexandre

Pessoal, tenho que montar um sistema de controle de acesso com leitor biométrico de digital. Alguém pode me indicar alguma marca, se é fácil trabalhar com estes leitores ? Obrigado desde já Alexandre Zilves

Pessoal, tenho que montar um sistema de controle de acesso com leitor biométrico de digital. Alguém pode me indicar alguma marca, se é fácil trabalhar com estes leitores ? Obrigado desde já Alexandre Zilves

Salve ! Pessoal, tenho um array de pedidos e com ele montei o seguinte xBrowse: Redefine XBROWSE oBrw ARRAY aPED AUTOCOLS COLUMNS 1,2,3,6,9,49,50,7,51,52 HEADERS {"Data","Hora","Cliente","Cond. Pagto","Tipo Pedido","Valor Total","Observação","Vendedor","Impresso","Aprovado"} ID 101 OF oDLG LINES Agora preciso destacar algumas linhas do browse da seguinte forma: Pedidos nao impressos - amarelo Pedidos impressos e em análise - azul Pedidos impressos e aprovados - verde Pedidos impressos e reprovados - vermelho Abraço Alexandre Zilves

Salve ! Pessoal, tenho um array de pedidos e com ele montei o seguinte xBrowse: Redefine XBROWSE oBrw ARRAY aPED AUTOCOLS COLUMNS 1,2,3,6,9,49,50,7,51,52 HEADERS {"Data","Hora","Cliente","Cond. Pagto","Tipo Pedido","Valor Total","Observação","Vendedor","Impresso","Aprovado"} ID 101 OF oDLG LINES Agora preciso destacar algumas linhas do browse da seguinte forma: Pedidos nao impressos - amarelo Pedidos impressos e em análise - azul Pedidos impressos e aprovados - verde Pedidos impressos e reprovados - vermelho Abraço Alexandre Zilves

Meus contatos Alexandre Zilves msn azilves@hotmail.com Skype Alexandre_Zilves

Salve Oscar ! Rapaz, acho que vc tá incluindo muita coisa no seu projeto, estou começando um primeiro projeto, já está funcionando e não tive que incluir tanta coisa no projeto não. Me chame no msn ou skype para analizarmos o que vc tá usando. Alexandre Zilves FW 10.03 - xHB 121 rev.6644 - SQLRDD

Como assim, ele não tinha se comprometido a começar a acertar no mês passado ? Ihhhhh a coisa é pior que pensávamos...rs Vamos esperar ele se pronunciar... Editado por - azilves on 06/03/2012 13:53:47

Vitor, continuarei atrás de outros hotéis para o evento. Já temos o apoio do Charles, e temos o acerto que o Cristiano vem fazendo, em breve já teremos caixa para dar o sinal e reservarmos o hotel, por isso estou correndo nos hotéis. Abraço Alexandre

Pessoal !!! Estou a todo vapor aqui no Rio de Janeiro já visitei alguns hotéis e já passei para o Vitor dar uma olhada e avaliada nos custos se estão compatíveis com a nossa realidade. A data já está firmada no dia 17 de Novembro de 2012. Quem quiser já pode ver as passagens, assim que o Vitor me der o ok de um dos hotéis posto para vocês. Grande Abraço a Todos. Aguardo a todos na Cidade Maravilhosa.

Pessoal !!! Estou a todo vapor aqui no Rio de Janeiro já visitei alguns hotéis e já passei para o Vitor dar uma olhada e avaliada nos custos se estão compatíveis com a nossa realidade. A data já está firmada no dia 17 de Novembro de 2012. Quem quiser já pode ver as passagens, assim que o Vitor me der o ok de um dos hotéis posto para vocês. Grande Abraço a Todos. Aguardo a todos na Cidade Maravilhosa.

Perfeito Funcionou 100% Valeu Professor !!!!

Agora entendi o que vc estava falando. Quem sabe, sabe... Vou colocar aki e aviso...

Fazendo Melhor, Seguem as duas funções na íntegra... *--------------------* FUNCTION AGENDVEND() *--------------------* LOCAL oDLG LOCAL oVEND LOCAL cVEND := SPACE(50) PRIVATE aAGENDA := {} * FOR A := 1 TO 20 FOR B := 1 TO 21 AADD(aAGENDA ,SPACE(50)) NEXT NEXT DEFINE DIALOG oDLG RESOURCE "ROTEIRO" TITLE "ROT - Roteiro de Visitas" BRUSH xFUNDO() TRANSPARENT Redefine Get oVEND Var cVEND Id 110 OF oDLG PICTURE "@!" VALID (cVEND := VERIFVEND(cVEND), oVEND:REFRESH(), !EMPTY(cVEND)) Redefine BUTTON Id 201 Of oDLG ACTION (FAZDIA(01,cVEND)) WHEN !EMPTY(cVEND) Redefine BUTTON Id 202 Of oDLG ACTION (FAZDIA(02,cVEND)) WHEN !EMPTY(cVEND) Redefine BUTTON Id 203 Of oDLG ACTION (FAZDIA(03,cVEND)) WHEN !EMPTY(cVEND) Redefine BUTTON Id 204 Of oDLG ACTION (FAZDIA(04,cVEND)) WHEN !EMPTY(cVEND) Redefine BUTTON Id 205 Of oDLG ACTION (FAZDIA(05,cVEND)) WHEN !EMPTY(cVEND) Redefine BUTTON Id 206 Of oDLG ACTION (FAZDIA(06,cVEND)) WHEN !EMPTY(cVEND) Redefine BUTTON Id 207 Of oDLG ACTION (FAZDIA(07,cVEND)) WHEN !EMPTY(cVEND) Redefine BUTTON Id 208 Of oDLG ACTION (FAZDIA(08,cVEND)) WHEN !EMPTY(cVEND) Redefine BUTTON Id 209 Of oDLG ACTION (FAZDIA(09,cVEND)) WHEN !EMPTY(cVEND) Redefine BUTTON Id 210 Of oDLG ACTION (FAZDIA(10,cVEND)) WHEN !EMPTY(cVEND) Redefine BUTTON Id 211 Of oDLG ACTION (FAZDIA(11,cVEND)) WHEN !EMPTY(cVEND) Redefine BUTTON Id 212 Of oDLG ACTION (FAZDIA(12,cVEND)) WHEN !EMPTY(cVEND) Redefine BUTTON Id 213 Of oDLG ACTION (FAZDIA(13,cVEND)) WHEN !EMPTY(cVEND) Redefine BUTTON Id 214 Of oDLG ACTION (FAZDIA(14,cVEND)) WHEN !EMPTY(cVEND) Redefine BUTTON Id 215 Of oDLG ACTION (FAZDIA(15,cVEND)) WHEN !EMPTY(cVEND) Redefine BUTTON Id 216 Of oDLG ACTION (FAZDIA(16,cVEND)) WHEN !EMPTY(cVEND) Redefine BUTTON Id 217 Of oDLG ACTION (FAZDIA(17,cVEND)) WHEN !EMPTY(cVEND) Redefine BUTTON Id 218 Of oDLG ACTION (FAZDIA(18,cVEND)) WHEN !EMPTY(cVEND) Redefine BUTTON Id 219 Of oDLG ACTION (FAZDIA(19,cVEND)) WHEN !EMPTY(cVEND) Redefine BUTTON Id 220 Of oDLG ACTION (FAZDIA(20,cVEND)) WHEN !EMPTY(cVEND) Redefine BtnBmp Id 910 Of oDLG FILE "CONFIRMA.BMP" NO BORDER TOOLTIP "Confirma" ; ACTION ( lOK := .T., oDLG:END() ) Redefine BtnBmp Id 920 Of oDLG FILE "CANCELA.BMP" NO BORDER TOOLTIP "Cancela" ; ACTION ( lOK := .F. , oDLG:EDND() ) ACTIVATE DIALOG oDLG CENTERED RETURN(NIL) FUNCTION FAZDIA(nDIA,cVEND) LOCAL oDLG, aROTAS, cCLIENT LOCAL oROTA, cROTA := SPACE(50) LOCAL oCLI01, oCLI02, oCLI03, oCLI04, oCLI05 LOCAL oCLI06, oCLI07, oCLI08, oCLI09, oCLI10 LOCAL oCLI11, oCLI12, oCLI13, oCLI14, oCLI15 LOCAL oCLI16, oCLI17, oCLI18, oCLI19, oCLI20, oCLI21 * MSGSTOP(REPLI("X",50)) FOR A := 1 TO 21 aAGENDA[nDIA,A] := REPLI("X",50) ?len(aAGENDA[nDIA,A]) NEXT * aROTAS := PEGAROTAS2(cVEND) * DEFINE DIALOG oDLG RESOURCE "AGENDA" TITLE "Roteiro do Vendedor " + ALLTRIM(cVEND) + " Dia Útil " + STRZERO(nDIA,2) * Redefine COMBOBOX oROTA Var cROTA Id 810 OF oDLG ITEMS aROTAS ON CHANGE ( PEGACLI(SUBS(cROTA,1,4)), oBRW:REFRESH(),aAGENDA[nDIA,01] := cROTA, oCLI01:REFRESH()) Redefine XBROWSE oBrw ARRAY aCLI AUTOCOLS COLUMNS 1,2,3 COLSIZES 250,200,50 HEADERS {"Código","Razão Social","N Fantasia"} ID 820 OF oDlg LINES oBrw:blDblClick := { || { cCLIENT := ALLTRIM(aCLI[oBrw])+" - "+ALLTRIM(aCLI[oBrw])+" - "+ALLTRIM(aCLI[oBrw]),MSGSTOP(cCLIENT)}} Redefine Get oCLI01 Var aAGENDA[nDIA,01] Id 100 OF oDLG NO MODIFY //PICTURE "@!" Redefine Get oCLI02 Var aAGENDA[nDIA,02] Id 110 OF oDLG NO MODIFY //PICTURE "@!" Redefine Get oCLI03 Var aAGENDA[nDIA,03] Id 120 OF oDLG NO MODIFY //PICTURE "@!" Redefine Get oCLI04 Var aAGENDA[nDIA,04] Id 130 OF oDLG NO MODIFY //PICTURE "@!" Redefine Get oCLI05 Var aAGENDA[nDIA,05] Id 140 OF oDLG NO MODIFY //PICTURE "@!" Redefine Get oCLI06 Var aAGENDA[nDIA,06] Id 150 OF oDLG NO MODIFY //PICTURE "@!" Redefine Get oCLI07 Var aAGENDA[nDIA,07] Id 160 OF oDLG NO MODIFY //PICTURE "@!" Redefine Get oCLI08 Var aAGENDA[nDIA,08] Id 170 OF oDLG NO MODIFY //PICTURE "@!" Redefine Get oCLI09 Var aAGENDA[nDIA,09] Id 180 OF oDLG NO MODIFY //PICTURE "@!" Redefine Get oCLI10 Var aAGENDA[nDIA,10] Id 190 OF oDLG NO MODIFY //PICTURE "@!" Redefine Get oCLI11 Var aAGENDA[nDIA,11] Id 200 OF oDLG NO MODIFY //PICTURE "@!" Redefine Get oCLI12 Var aAGENDA[nDIA,12] Id 210 OF oDLG NO MODIFY //PICTURE "@!" Redefine Get oCLI13 Var aAGENDA[nDIA,13] Id 220 OF oDLG NO MODIFY //PICTURE "@!" Redefine Get oCLI14 Var aAGENDA[nDIA,14] Id 230 OF oDLG NO MODIFY //PICTURE "@!" Redefine Get oCLI15 Var aAGENDA[nDIA,15] Id 240 OF oDLG NO MODIFY //PICTURE "@!" Redefine Get oCLI16 Var aAGENDA[nDIA,16] Id 250 OF oDLG NO MODIFY //PICTURE "@!" Redefine Get oCLI17 Var aAGENDA[nDIA,17] Id 260 OF oDLG NO MODIFY //PICTURE "@!" Redefine Get oCLI18 Var aAGENDA[nDIA,18] Id 270 OF oDLG NO MODIFY //PICTURE "@!" Redefine Get oCLI19 Var aAGENDA[nDIA,19] Id 280 OF oDLG NO MODIFY //PICTURE "@!" Redefine Get oCLI20 Var aAGENDA[nDIA,20] Id 290 OF oDLG NO MODIFY //PICTURE "@!" Redefine Get oCLI21 Var aAGENDA[nDIA,21] Id 300 OF oDLG NO MODIFY //PICTURE "@!" * oCLI02:blDblClick := { || { MSGSTOP(LEN(aAGENDA[nDIA,02])),aAGENDA[nDIA,02] := cCLIENT, oCLI02:REFRESH() }} oCLI03:blDblClick := { || { aAGENDA[nDIA,03] := cCLIENT, oCLI03:REFRESH() }} oCLI04:blDblClick := { || { aAGENDA[nDIA,04] := cCLIENT, oCLI04:REFRESH() }} oCLI05:blDblClick := { || { aAGENDA[nDIA,05] := cCLIENT, oCLI05:REFRESH() }} oCLI06:blDblClick := { || { aAGENDA[nDIA,06] := cCLIENT, oCLI06:REFRESH() }} oCLI07:blDblClick := { || { aAGENDA[nDIA,07] := cCLIENT, oCLI07:REFRESH() }} oCLI08:blDblClick := { || { aAGENDA[nDIA,08] := cCLIENT, oCLI08:REFRESH() }} oCLI09:blDblClick := { || { aAGENDA[nDIA,09] := cCLIENT, oCLI09:REFRESH() }} oCLI10:blDblClick := { || { aAGENDA[nDIA,10] := cCLIENT, oCLI10:REFRESH() }} oCLI11:blDblClick := { || { aAGENDA[nDIA,11] := cCLIENT, oCLI11:REFRESH() }} oCLI12:blDblClick := { || { aAGENDA[nDIA,12] := cCLIENT, oCLI12:REFRESH() }} oCLI13:blDblClick := { || { aAGENDA[nDIA,13] := cCLIENT, oCLI13:REFRESH() }} oCLI14:blDblClick := { || { aAGENDA[nDIA,14] := cCLIENT, oCLI14:REFRESH() }} oCLI15:blDblClick := { || { aAGENDA[nDIA,15] := cCLIENT, oCLI15:REFRESH() }} oCLI16:blDblClick := { || { aAGENDA[nDIA,16] := cCLIENT, oCLI16:REFRESH() }} oCLI17:blDblClick := { || { aAGENDA[nDIA,17] := cCLIENT, oCLI17:REFRESH() }} oCLI18:blDblClick := { || { aAGENDA[nDIA,18] := cCLIENT, oCLI18:REFRESH() }} oCLI19:blDblClick := { || { aAGENDA[nDIA,19] := cCLIENT, oCLI19:REFRESH() }} oCLI20:blDblClick := { || { aAGENDA[nDIA,20] := cCLIENT, oCLI20:REFRESH() }} oCLI21:blDblClick := { || { aAGENDA[nDIA,21] := cCLIENT, oCLI21:REFRESH() }} Redefine BtnBmp Id 910 Of oDLG FILE "CONFIRMA.BMP" NO BORDER TOOLTIP "Confirma" ; ACTION ( lOK := .T., oDLG:END() ) Redefine BtnBmp Id 920 Of oDLG FILE "CANCELA.BMP" NO BORDER TOOLTIP "Cancela" ; ACTION ( lOK := .F. , oDLG:EDND() ) ACTIVATE DIALOG oDLG CENTERED RETURN(NIL)

Pessoal, acho que estamos saindo do rumo, deixa eu explicar certinho o que preciso, este for foi um teste que fiz e o problema continuou, por isso achei que seria mais fácil postar ele mas to achando que estamos complicando. Em uma função eu tenho a declaração do array aAGENDA como private e já tentei como static e o mesmo erro acontece. Logo abaixo da declaração eu faço o seguinte for: *--------------------* FUNCTION AGENDVEND() *--------------------* LOCAL oDLG LOCAL oVEND LOCAL cVEND := SPACE(50) PRIVATE aAGENDA := {} * FOR A := 1 TO 20 FOR B := 1 TO 21 AADD(aAGENDA ,SPACE(50)) NEXT NEXT ... Nesta função, chamo outra que faz a atribuição... Redefine Get oCLI02 Var aAGENDA[nDIA,02] Id 110 OF oDLG NO MODIFY //PICTURE "@!" oCLI02:blDblClick := { || { aAGENDA[nDIA,02] := cCLIENT, oCLI02:REFRESH() }} Onde cCLIENT = "000001 - CLIENTE TESTE " Quando o refresh no objeto é executado só aparece o primeiro dígito. No caso "0" Este é o problema. Vejam se ficou melhor de entender...

Este é o código: FUNCTION FAZDIA(nDIA,cVEND) LOCAL oDLG, aROTAS, cCLIENT LOCAL oROTA, cROTA := SPACE(50) LOCAL oCLI01, oCLI02, oCLI03, oCLI04, oCLI05 LOCAL oCLI06, oCLI07, oCLI08, oCLI09, oCLI10 LOCAL oCLI11, oCLI12, oCLI13, oCLI14, oCLI15 LOCAL oCLI16, oCLI17, oCLI18, oCLI19, oCLI20, oCLI21 * MSGSTOP(REPLI("X",50)) FOR A := 1 TO 21 aAGENDA[nDIA,A] := REPLI("X",50) ?len(aAGENDA[nDIA,A]) NEXT * E sim, mostra 1 no ? Na verdade onde está REPLI("X",50) seria SPACE(50), o REPLICATE já é parte do desespero por não funcionar. Abraço Editado por - azilves on 22/02/2012 14:21:37

É isso mesmo que eu quero. Eu estou alterando apenas a agenda do dia 1 que possui 21 elementos, sendo: o primeiro a rota onde o vendedor vai atender neste dia e os outros 20 elementos são os clientes que o vendedor terá que atender. Mas vcs não acham que todos os elementos de [1,1] até [1,21] deveriam ter um len() de 50 ? POis é, este é o meu problema o len() resulta 1. Abraços

Pessoal, Estou com um problema aqui com atribuição de valores a um array como segue: FOR A := 1 TO 21 aAGENDA[1,A] := REPLI("X",50) NEXT e quando testo o Len(aAgenda[x,y]) é igual a 1. Já tentei de tudo e não sei o que pode ser. Aguardo sugestões Editado por - azilves on 22/02/2012 22:19:05

Pessoal, Estou com um problema aqui com atribuição de valores a um array como segue: FOR A := 1 TO 21 aAGENDA[1,A] := REPLI("X",50) NEXT e quando testo o Len(aAgenda[x,y]) é igual a 1. Já tentei de tudo e não sei o que pode ser. Aguardo sugestões Editado por - azilves on 22/02/2012 22:19:05

Pessoal, Minha humilde opinião. Se é preciso mudar e não se aproveitará 100% do código, o que irá gerar um imenso trabalho e mais pra frente o mesmo trabalho. Pq não mudar de uma vez para o Fw última versão? O código será aproveitado na parde da lógica e manipulação de arquivos. A única coisa que deve ser realmente refeita é a parte de visual. Acho muito mais proveitoso e quando terminarem, já estarão totalmente treinados no FW. Espero ter ajudado. Abraços

Ok, Se precisar, é só chamar! Abraço Alexandre

Devido aos acontecimentos aqui no Rio de Janeiro, o cliente que visitaria é bem na frente dos prédios que desabaram, portanto só estarei por lá na próxima semana. Abraço Alexandre