oziel

Obrigado vou testar..

OLS-Soft - Clipper 5.2c - Fw 2.2c - Workshop 4.5

Na atualização do perfil, o sistema volta com informação que é necessário o protocolo da URL.

Isto é item obrigatóro?

Posso deixar em Branco?

OLS-Soft - Clipper 5.2c - Fw 2.2c - Workshop 4.5

Precisei fazer algumas alterações em meu prog.

1) Abre os dados e depois vai para o menu de senha etc.

2) Com as mod. que fiz foi necessário acrecentar mais um arq. DBF -> surpresa foi que que os BMP´s não apareceram mais, ou seja após abrir 17 arquivos, tudo mudou.

3) Retirei um arq. de dados na função de abertura para testar, os BMP´s voltaram a aparecer. (16)

Qual seria o problema?

Alguém tem uma idéia ?

Grato

Oziel Lopes

Precisei fazer algumas alterações em meu prog.

1) Abre os dados e depois vai para o menu de senha etc.

2) Com as mod. que fiz foi necessário acrecentar mais um arq. DBF -> surpresa foi que que os BMP´s não apareceram mais, ou seja após abrir 17 arquivos, tudo mudou.

3) Retirei um arq. de dados na função de abertura para testar, os BMP´s voltaram a aparecer. (16)

Qual seria o problema?

Alguém tem uma idéia ?

Grato

Oziel Lopes

Luciane

É por isso q eu gosto deste forum...

E também do FW

Vc. viu qtas respostas...

Tc

OZIEL LOPES

oziellsilva@hotmail.com

oziellsilva@click21.com.br

Luciane

Utilizo em meus sistema de atendimento médico e recursos humanos da seguinte forma.

Faço uma Dialog com o nome qualquer prefiro definir como Folder para não esquecer.

Depois criei varias janelas Window Style para que fossem usadas no folder.

Exemplo: Fld_... Fld_... Fld_... Fld... (Dando nomes sugestivos para não ficar mais maluco do que sou)

Segue abaixo um exemplo que eu já utilizo, espero que tenha dado uma idéia a vc. - Atenção este exemplo q coloquei é apos o browse com banco de dados.

Tc

Oziel Lopes

oziellsilva@hotmail.com

oziellsilva@click21.com.br

-----------------------------------------

FUNCTION GetAtende(lAppend)

LOCAL oDlg, oFnt // Objetos Caixa de Dialogo

LOCAL lGravar := .F. // Para Alterar

DEFAULT lAppend := .F.

CursorWait()

IF lAppend

Select Numcod

SET ORDER TO 1

cNumCod := NumCod->NumAte+1

cCodigo = str(cNumCod,6)

Select Atende

SET ORDER TO 1

GO BOTT

Skip 1

ELSE

cCodigo := Atende->Codigo

ENDIF

If Travareg()

cNome = Atende->Nome

cSexo = Atende->Sexo

cEndereco = Atende->Endereco

cCep = Atende->Cep

cBairro = Atende->Bairro

cCidade = Atende->Cidade

....

....

Endif

// Caixa de Dialogo ----------------------------------------------------

DEFINE FONT oFnt NAME "Arial" SIZE 0,-10

DEFINE DIALOG oDlg RESOURCE "FOLDER_ATENDE" TITLE "ATENDIMENTO"

REDEFINE FOLDER oFld ID 101 OF oDlg ;

PROMPT "Cadastro de Atendimentos","Anamnese 1 ","Anamnese 2 ","A. S. O." ;

DIALOGS "FLD_ATENDE","FLD_ANAMNESE1","FLD_ANAMNESE2","FLD_ASO" // janela de cada aba do folder.

//--- Folder aba 1 --

REDEFINE CHECKBOX Atende->Demis ID 101 OF oFld:aDialogs[ 1 ]

REDEFINE CHECKBOX Atende->Admis ID 102 OF oFld:aDialogs[ 1 ]

REDEFINE CHECKBOX Atende->Perio ID 103 OF oFld:aDialogs[ 1 ]

//--- Folder aba 2 --

REDEFINE CHECKBOX Atende->Demis ID 101 OF oFld:aDialogs[ 2 ]

REDEFINE CHECKBOX Atende->Admis ID 102 OF oFld:aDialogs[ 2 ]

REDEFINE CHECKBOX Atende->Perio ID 103 OF oFld:aDialogs[ 2 ]

//---Folder aba 3 --

REDEFINE GET Atende->OutrasD Memo ID 155 OF oFld:aDialogs[ 3 ] FONT oFnt

REDEFINE GET Atende->ExameCli Memo ID 156 OF oFld:aDialogs[ 3 ] FONT oFnt

REDEFINE GET Atende->ExameCom Memo ID 157 OF oFld:aDialogs[ 3 ] FONT oFnt

// ----- Folder aba 4

REDEFINE GET Atende->Nome PICTURE '@!' ID 20 OF oFld:aDialogs[ 4 ] FONT oFnt

REDEFINE GET Atende->CTPS PICTURE '@!' ID 21 OF oFld:aDialogs[ 4 ] FONT oFnt

REDEFINE GET Atende->Serie PICTURE '@!' ID 22 OF oFld:aDialogs[ 4 ] FONT oFnt

//--- Fim ---------

REDEFINE BUTTON ID 701 OF oDlg ACTION(Libera(), oDlg:End() )

REDEFINE BUTTON ID 702 OF oDlg ACTION(Libera(), oDlg:End() )

ACTIVATE DIALOG oDlg CENTERED

RETURN NIL

//----------------------------

Bem eu utilizo a INIUSB.EXE que peguei no site de Ariston

www.arsoft-ap.com.br e utilizo no iniciar do Windows, para evitar que seja carregada várias vezes. Até a presente data

tudo está normal.

Caro Elitenet

Em primeiro lugar parabéns as telas são lindas, tanto no 98 qto no XP

Vou chegar lá.

Queria uma informação sobre a confecção das mesmas onde são geradas as DLL, pois no meu programa qdo usa XP a DLL gerada no BWS 4.5 as letras ficam com um fundo cinza, não fica nada gatinho...

Utilizo Fw 2.2c – Clipper 5.2e – BWS 4.5 - Blinker 5.0

Grato Oziel Lopes

oziellsilva@hotmail.com

oziellsilva@click21.com.br

Não dando certo vejam.

Utilizei uma dica que me foi dada no site do PCToledo FW é pegar o Prog.INIUSB.EXE que está no site de Ariston -> arsoft-ap.com.br seção de essênciais, baixe e utilize o programa antes da entrada do seu executável (Carregar o Drive da Imp.) No meu caso carreguei no Iniciar do Windows.

Até agora está tudo bem..

OZIEL

Dê uma olhada no site:

www.arsoft-ap.com.br

O Ariston do Pará tem vários programas em FW, e tb apostilhas.

tente..

oziellisilva@hotmail.com