Gerar DBF no java

02Out08

Para gerar o DBF utilizei o javaDBF.
import com.linuxense.javadbf.DBFException;
import com.linuxense.javadbf.DBFField;
import com.linuxense.javadbf.DBFWriter;
import java.io.FileNotFoundException;
import java.io.FileOutputStream;
import java.io.IOException;
public class GeraDBF {
    /* Numero de campos do DBF */
    private DBFField fields[] = new DBFField[1];
    private void defineCampos() {
        fields[0] = new DBFField();
        fields[0].setName(“CODIGO”);
        fields[0].setDataType(DBFField.FIELD_TYPE_N);
        fields[0].setFieldLength(10);
        fields[0].setDecimalCount(0);
        fields[1] = [...]

Filed under: Java   |  Leave a Comment
Tags: DBF, Gerar, Java, javaDBF, linuxense

Como centralizar um jFrame?

02Out08

Para centralizar um jFrame, basta incluir a linha abaixo no construtor da classe.
setLocationRelativeTo(null); 
Aconselho utilizar o NetBeans para aplicações gráficas no Java.

Filed under: Java   |  Leave a Comment
Tags: Centralizar, Java, jFrame, NetBeans

Usuário do windows no VB

02Out08

Para saber qual o usuário da máquina no Visual Basic, basta utilizar a função abaixo em um “Módulo”.
Public Declare Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” (ByVal lpbuffer As String, nSize As Long) As Long
E no form utilizando as rotinas abaixo, chamar “MostraUsuario”.
Public Function sUserID() As String
  Dim sBuffer As String
  Dim lSize As Long
  sBuffer = Space$(255)
  lSize = [...]

Filed under: Visual Basic   |  Leave a Comment
Tags: Máquina, Usuário, Vb, Visual Basic, Windows

Consumir WebServices no progress

02Out08

O programa abaixo consome um webservice e exporta o retorno para um arquivo .XML no diretório C:\.
DEFINE VARIABLE hWebService AS HANDLE NO-UNDO.
DEFINE VARIABLE hConsultaValorPortType AS HANDLE NO-UNDO.
DEFINE VARIABLE ConsultaValor AS LONGCHAR NO-UNDO.
DEFINE VARIABLE ConsultaValorResponse AS LONGCHAR NO-UNDO.
ASSIGN ConsultaValor = “xml de entrada”.
CREATE SERVER hWebService.
hWebService:CONNECT(“-WSDL ‘http://…. seu wsdl”) NO-ERROR.
RUN ConsultaValorPortType SET hConsultaValorPortType ON hWebService NO-ERROR.
RUN INVOKE [...]

Filed under: Progress   |  7 Comments
Tags: 4gl, Consumir, Progress, SOA, WebService