[Tópico Único] - Funções Interessantes

[Marcos Guedes]

Relembrando a primeira mensagem :

Conferindo CEP
Clique aqui para acessar o site oficial e/ou consultar o exemplo em outras linguagens...

Código:

* ########################################################################################
* #######        Desenvolvido por Leandro Sbrissa                                  ####### 
* #######        MSN: [Você precisa estar registrado e conectado para ver este link.]                                        #######
* ########################################################################################

* EXEMPLO FEITO PELO COLEGA ACIMA E CONVERTIDO PARA O VFP POR PABLO SOLLAR
******************************************************************************************

* Cria objeto e realiza consulta no "[Você precisa estar registrado e conectado para ver este link.] (XML)


lc_cep_a_ser_procurado="50920180"

lc_url_procura ="http://[Você precisa estar registrado e conectado para ver este link.]

srvXMLHttp = CreateObject("MSXML2.ServerXMLHTTP.4.0")
srvXMLHttp.open("GET",lc_url_procura,.f.)
srvXMLHttp.Send()
*!*MESSAGEBOX(srvXMLHttp.responseText)
STORE "" TO cep, uf, cidade, bairro, t_logradouro, logradouro, resultado, resultado_txt

*Cria objeto e Adquiri resultado da busca em formato XML
xmlResult  = CreateObject("MSXML2.DomDocument")
xmlResult.loadXML(srvXMLHttp.ResponseText)

* Recupera valores do resultado da busca
* ********************** Observação 
*     O servidor [Você precisa estar registrado e conectado para ver este link.] retorna apenas 1 resultado para cada CEP
*    por esta razão o método ".item(0)" foi usado, ou seja, se existisse, mais de 1 resultado
*    seria necessario realizar um LOOP de "0" à "xmlResult.length" para recuperar
*    todos os items de cada resultado retornado com o nome de cada nó do XML
   

resultado    = xmlResult.SelectNodes("//resultado"      ).item(0).Text
resultado_txt= xmlResult.SelectNodes("//resultado_txt"  ).item(0).Text
cep          = xmlResult.SelectNodes("//cep"            ).item(0).Text

*     Caso ocorra alguma irregularidade os nós abaixo não vão existir
*    portanto para evitar erros pegaremos os valore apenas se o resultado for positivo 

IF INT(VAL(resultado)) > 0
  uf          = xmlResult.SelectNodes("//uf"            ).item(0).Text
  cidade      = xmlResult.SelectNodes("//cidade"        ).item(0).Text
  bairro      = xmlResult.SelectNodes("//bairro"        ).item(0).Text
  t_logradouro = xmlResult.SelectNodes("//tipo_logradouro").item(0).Text
  logradouro  = xmlResult.SelectNodes("//logradouro"    ).item(0).Text
ENDIF

CLEAR
?cep
?uf
?cidade
?bairro
?t_logradouro
?logradouro

[edspicer]

muito boas estas funcoes

[hugo]

abaixo uma rotina bem simples
para criar um arquivo .txt

Código:

x=fcreate("teste.txt")
=fputs(x,"asdf")
=fputs(x,"asdf")
=fclose(x)
modi comm teste.txt

espero q ´possa ajudar alguem

[hugo]

[Você precisa estar registrado e conectado para ver este link.]

espero que tenham gostado!

hehehe

[Cleiton Fidelis]

Marcao,

Salve , salve


Deixe esse topico como fixo, na pagina inicial, ha possibilidade ?
Muito util.

Abraços

[Marcos Guedes]

Marcao,

Salve , salve


Deixe esse topico como fixo, na pagina inicial, ha possibilidade ?
Muito util.

Abraços

pedido atendido!
este tópico está como primeiro do fórum Foxpro.

[Nelson Arcas]

Pessoal
Estou colocando um projeto de exemplo de como utilizar uma impressora de Cheques Chronos via porta Com1 ou com2:

[Você precisa estar registrado e conectado para ver este link.]


Caso sirva pra alguém.!

abs,

[hugo]

Pessoal
Estou colocando um projeto de exemplo de como utilizar uma impressora de Cheques Chronos via porta Com1 ou com2:

[Você precisa estar registrado e conectado para ver este link.]


Caso sirva pra alguém.!

abs,

ta reputado!

[pablo_frosi]

Função interessante para gerar PDF com integração do PDFCreator...
Funciona em x32 e x64.

Código:


=ImpPdf("testereport","TESTEPDF")

FUNCTION ImpPdf
   PARAMETERS barchivo,btitulo
   IF EMPTY(btitulo)
      mnom='PDFCreator'
      SET PRINTER TO NAME (mnom)
      REPORT FORM (barchivo) TO PRINTER NOCONSOLE
      SET PRINTER TO default
   ELSE
      IF !DIRECTORY("c:temp")
         mkDIR("c:temp")
      ENDIF
      =proclase()
      DECLARE Sleep IN WIN32API INTEGER
      ReadyState = 0 && Variable indiquant que l'imprimante n'est pas prête
      PDFCreator = CREATEOBJECT("PDFCreator.clsPDFCreator")
      PDFReady = CREATEOBJECT("PDFEvent") && Voir définition de la classe plus bas
      EVENTHANDLER(PDFCreator,PDFReady)

      WITH PDFCreator
         * Démarrer sans lancer les travaux :
         ..cStart ("/NoProcessingAtStartup")
         * Options de autoguardado :
         ..cOption("UseAutosave") = 1
         ..cOption("UseAutosaveDirectory") = 1
         ..cOption("AutosaveDirectory") = "C:temp"
         ..cOption("AutosaveFilename") = btitulo
         ..cOption("AutosaveFormat") = 0 && 0 para formato PDF
         * Modificacion temporal de lo impresora por defecto :
         DefaultPrinter = .cDefaultprinter
         ..cDefaultprinter = "PDFCreator"
         ..cClearcache
      ENDWITH
      
      mnom='PDFCreator'
      SET PRINTER TO NAME (mnom)
      REPORT FORM (barchivo) TO PRINTER NOCONSOLE
      * Lanzamiento de la impresion :
      PDFCreator.cPrinterStop = .F.
      
      * On attend jusqu'à ce que l'imprimante soit prête ou que 10 secondes sesoient écoulées :
      c = 0
      DO WHILE (ReadyState = 0) AND (c < 10)
         c = c + 1
         Sleep (500)
      ENDDO
      
      PDFCreator.cDefaultprinter = DefaultPrinter
      Sleep (200)
      PDFCreator.cClose

      RELEASE PDFCreator
      RELEASE PDFReady
      SET PRINTER TO default

      cfile="c:temp"+btitulo+".pdf"
      DECLARE INTEGER ShellExecute ;
      IN SHELL32.DLL ;
      INTEGER nWinHandle,;
      STRING cOperation,;
      STRING cFileName,;
      STRING cParameters,;
      STRING cDirectory,;
      INTEGER nShowWindow
      ShellExecute(0, "Open", cFile, "", "", 1)
   ENDIF
ENDFUNC


PROCEDURE proclase
* Définition de la classe gérant les événements :
DEFINE CLASS PDFEvent AS Custom

   IMPLEMENTS __clsPDFCreator IN "PDFCreator.clsPDFCreatorOptions"
   
   * Evénement qui indique si l'imprimante est prête
   PROCEDURE __clsPDFCreator_eReady() AS VOID
      ReadyState = 1
   ENDPROC

   * Gestion de errores
   PROCEDURE __clsPDFCreator_eError() AS VOID
   ENDPROC
ENDDEFINE


Eu não quis alterar muito a fonte, só formatei um pouco o código. Mas tem muito o que ajeitar ainda!

Fonte: [Você precisa estar registrado e conectado para ver este link.]

Abraço!

[Marcos Guedes]

Muito bom, Pablo!
Peço perdão, pois na hora de votar em sua reputação, acabei clicando no ícone errado.
Mas tentarei corrigir o problema.

[hugo]

ta reputado tambem pablo

obrigado por compartilhar com todos!

valeu

[_batmanvfp_]

Código:

Var1 = 25
Var2 = 15
Var3 = Somar(Var1,Var2)
? Var3
Function Somar
Parameters X, Y
 Resultado = X + Y
 Return Resultado
EndFunc

Valor1  = 35
Valor2  = 15
? CalcularValor(Valor1, Valor2)
Function CalcularValor
  Parameters X, Y
  ValorTotal = X + Y
  ValorDesconto = CalcularDesconto(ValorTotal)
  ValorComDesconto = ValorTotal - ValorDesconto
  Return ValorComDesconto
EndFunc
Function CalcularDesconto
  Parameters Valor
  Desconto = Valor * 0.25
       
  Return Desconto
EndFunc

[Marcos Guedes]

Reputado batman!