gibaf

vexxx..
 
laskei-me ??
 
hehe

ola a todos !
 
estou usando um MULTILINE... nele, estou atribuindo uma strings.. quando essa string for muito longa, nao esta quebrando e ficando dentro, tipo, esta ficando tudo numa linha e escondendo, o q nao cabe, no limite a direita...
 
segue, abaixo, a sintaxe q estou usando:
@ 15,01 GET oTexto VAR wTexto OF oDlg MULTILINE COLORS CLR_BLACK,RGB(255,255,213) SIZE 400,200 FONT oFont PIXEL READONLY HSCROLL NOBORDER
 
desde ja agracedo a ajuda

Amiguinhos,
Gibaf
O XML go GNRE é a única obrigação, sendo ele depois importado para o portal.
O impresso não é obrigado a emitir, imprimir, etc, mesmo porque quem preenche é o sistema on-line do GNRE.
Portanto, não esquente a cabeça em criar um impresso a não ser para folow-up, porque se voce fizer por conta própria terá que codificar o código de barras no padrão GNRE, validar nos bancos, etc.
O próprio portal diz que não existe a necessidade do emissor criar o impresso do boleto.
Portanto esquente a cuca somente com o XML, importação e resposta.

e, nao tem como imprimir o GNRE, sem o xml ???

ola
tenho um DIALOG...
nesse dialog tem 2 get's: cpf e nome
o cpf tem um valid pra checar se ja existe um cadastro com o mesmo cpf..
o get executa, isso se sair com enter, ou tab, ou seja, pra pular para o nome.
agora, eu tenho tambem um botao pra GRAVAR... se eu clicar nesse botao, o valid do cpf nao executa... ate parece q executa, tipo, dah a mensagem q ja existe um cadastro, mas o get sai do codigo, ou seja, deixa gravar
alguem tem alguma solucao para isso ?
desde ja agradeco a ajuda: MUITO OBRIGADO

ola a todos
estou precisando converter uma tabela dataflex (.dat) para .dbf
tem um odbc flexODBC mas eh pago, e o free mostra apenas 1000 registros da query
tem tambem o flexql, mas nao consegui achar para baixar
se alguem puder ajudar, fico muito agradecido: muito obrigado
Gilberto

ola a todos !
agradeco a quem me ajudar: muito obrigado

facin:
*-------------- Function Main() *-------------- Local cConteudo := "A Carta de Correção é disciplinada pelo § 1º-A do art. 7º do Convênio S/N, de 15 de dezembro de 1970 e pode ser utilizada para regularização de erro ocorrido na emissão de documento fiscal, desde que o erro não esteja relacionado com: I - as variáveis que determinam o valor do imposto tais como: base de cálculo, alíquota, diferença de preço, quantidade, valor da operação ou da prestação; II - a correção de dados cadastrais que implique mudança do remetente ou do destinatário; III - a data de emissão ou de saída." Local cConteudoSemAcentos := TiraAcentos(cConteudo) msgAlert(cConteudo) msgAlert(cConteudoSemAcentos) Return(Nil) *------------------------------------- Static Function TiraAcentos(_Conteudo) *------------------------------------- Local x,cRet := _Conteudo Local aArray1 := {"Á","É","Í","Ó","Ú","á","é","í","ó","ú","Â","Ê","Ô","â","ê","ô","Ã","ã","Õ","õ","Ç","ç"} Local aArray2 := {"A","E","I","O","U","a","e","i","o","u","A","E","O","a","e","o","A","a","O","O","C","c"} For x := 1 to Len(aArray1) cRet := StrTran( cRet , aArray1[x] , aArray2[x] ) Next x Return(cRet)

quem conhece os 2, sabe q o Pelles C eh superior...
veja bem, estou desconsiderando a PREFERENCIA (ja vi em varios topicos vc dizer ter PREFERENCIA pelo WS)...
vc, certamente conhece ou ja usou os dois.. deixe de lado a PREFERENCIA... foi a resposta q dei, o Pelles C eh mil vezes melhor..
agora, vc PREFERINDO o WS, vai dizer q eh o WS..
eu estou deixando a opcao "preferencia" de lado... hehehe.. estou dizendo, dentre os 2, qual eh o melhor...rss
att

ola a todos
no Clipper, se eu tivesse q dar GET em 100 variaveis, se ficava pressionando a tecla enter, ficava no buffer, e soltava o enter, se via o cursos alternando nos GET`s... isso no fivewin nao tem.
alguem tem alguma solucao pra ter isso no fivewin ???
desde ja agradeco: MUITO OBRIGADO !!!

ola a todos...
em alguns clientes esta acontecendo muito QUEDA DE ENERGIA, apartir dae, alguns titulos ja pagos, voltam como se nao foram ainda pagos... alem disse, tambem, some uns registros de banco/caixa... aparentemente, somente essas duas tabelas sofreram com a QUEDA DE ENERGIA...
gostaria saber de vcs, se tem alguma forma pra evitar/preve a perca das informacoes guardados em dbf/cdx, via programacao (sei q pode ter alguns q vao sugerir no-break, etc....) ??
desde ja agradeco a ajuda: MUITO OBRIGADO !!!!

ola a todos !!!
fiz um demo (abaixo) para melhor explicar um problema q estou tendo: o problema esta na dialog em negrito, onde, nesse dialog, tem um get, com um valid, mas o valid nao esta executando...
pq ? e, principalmente, como fazer pra resulver ?
#Include "FiveWin.ch"
#Include "\Sistemas\Include\VGet.ch"
*--------------
Function Main()
*--------------
Private oFonGet := TFont():New("Ms Sans Serif",06,07 ,,.F.,,,,,,,,,,,,)
Private oDlgMain
DEFINE DIALOG oDlgMain From 00,00 to 540,795 TITLE "Teste." PIXEL COLORS CLR_WHITE,CLR_WHITE STYLE nOr(DS_MODALFRAME)
@ 10,10 BUTTON "Faz Get" OF oDlgMain SIZE 100,30 PIXEL ACTION FazGet()
ACTIVATE DIALOG oDlgMain
Return(Nil)
*-----------------------
Static Function FazGet()
*-----------------------
Local oFonGet := TFont():New("Ms Sans Serif",06,07 ,,.F.,,,,,,,,,,,,)
Private oDlg,oGet
Private wVar := Space(15) , lCloseGet := .F.
DEFINE DIALOG oDlg FROM 200,100 TO 300,400 PIXEL STYLE nOr( WS_POPUP, WS_VISIBLE ) OF oDlgMain
@ 05,05 GET oGet VAR wVar OF oDlg PIXEL SIZE 140,40 COLOR CLR_BLACK,CLR_WHITE FONT oFonGet VALID ValidaGet()
ACTIVATE DIALOG oDlg ON INIT oDlg:oClient:=oGet VALID lCloseGet
oFonSay:End() ; oFonGet:End() ; oGet:End()
Return(Nil)
*--------------------------
Static Function ValidaGet()
*--------------------------
Local lRet := .T.
// Faz a Validacao e retorna .T. ou .F.
MsgAlert( iif( lRet , "Valido" , "Invalido" ) )
If lCloseGet
oDlg:End()
Endif
Return(lRet)
desde ja agradeco a ajuda de todos: MUITO OBRIGADO !!!!

ola a todos !!!
fiz um demo (abaixo) para melhor explicar um problema q estou tendo: o problema esta na dialog em negrito, onde, nesse dialog, tem um get, com um valid, mas o valid nao esta executando...
pq ? e, principalmente, como fazer pra resulver ?
#Include "FiveWin.ch"
#Include "\Sistemas\Include\VGet.ch"
*--------------
Function Main()
*--------------
Private oFonGet := TFont():New("Ms Sans Serif",06,07 ,,.F.,,,,,,,,,,,,)
Private oDlgMain
DEFINE DIALOG oDlgMain From 00,00 to 540,795 TITLE "Teste." PIXEL COLORS CLR_WHITE,CLR_WHITE STYLE nOr(DS_MODALFRAME)
@ 10,10 BUTTON "Faz Get" OF oDlgMain SIZE 100,30 PIXEL ACTION FazGet()
ACTIVATE DIALOG oDlgMain
Return(Nil)
*-----------------------
Static Function FazGet()
*-----------------------
Local oFonGet := TFont():New("Ms Sans Serif",06,07 ,,.F.,,,,,,,,,,,,)
Private oDlg,oGet
Private wVar := Space(15) , lCloseGet := .F.
DEFINE DIALOG oDlg FROM 200,100 TO 300,400 PIXEL STYLE nOr( WS_POPUP, WS_VISIBLE ) OF oDlgMain
@ 05,05 GET oGet VAR wVar OF oDlg PIXEL SIZE 140,40 COLOR CLR_BLACK,CLR_WHITE FONT oFonGet VALID ValidaGet()
ACTIVATE DIALOG oDlg ON INIT oDlg:oClient:=oGet VALID lCloseGet
oFonSay:End() ; oFonGet:End() ; oGet:End()
Return(Nil)
*--------------------------
Static Function ValidaGet()
*--------------------------
Local lRet := .T.
// Faz a Validacao e retorna .T. ou .F.
MsgAlert( iif( lRet , "Valido" , "Invalido" ) )
If lCloseGet
oDlg:End()
Endif
Return(lRet)
desde ja agradeco a ajuda de todos: MUITO OBRIGADO !!!!

o link q vc passou nao gera ideia alguma (hehehe)
e, sim..claro...concordo com vc... o pequeno detalhe e o valor q sempre tem dispor a cada atualizacao...