Ajuda para pegar rotina de vb6 e transforma-la em vfp9

[amaury]

Boa tarde, pessoal eu tenho aqui um projeto em vb6 o qual só uma parte me interessa buscar o arquivo pdf da nota fiscal automaticamente link para o projeto [Você precisa estar registrado e conectado para ver este link.]

A parte que me interessa fazer a adaptação para o vfp9 é o frm teste gerar nota pdf, preciso de ajuda em transform o que esta em vb6 para o visual fox 9.
alguem se habilita a dar uma mão.

Abraços

Amaury

[amaury]

ninguem pode ajudar ou falar alguma coisa ?

[halisson]

-

ninguem pode ajudar ou falar alguma coisa ?

Amaury, favor prestar mais atenção ao:
"[Você precisa estar registrado e conectado para ver este link.]".

Você além de "duplicar" o tópico ( ver o seu outro [Você precisa estar registrado e conectado para ver este link.] ), você está cometendo "FLOOD" respondendo o tópico antes das 24 horas.

Todos os que participam ativamente do fórum nem sempre conseguem
ajudar dentro de um curto espaço de tempo, seja por ocupação profissional,
seja por falta de conhecimento específico sobre o assunto.

Mas não se sinta desanimado. Pode ser que algum membro ativo ainda
responda ao seu tópico.

Desculpe essa minha moderação.

Abraço.
-

[amaury]

ok, eu é que peço desculpas pelo acontecido

[m@r<3|o]

Amaury , voce comecou a converter ?

O que tem de referencia la ,
vi que no fox tem tb ... em classes

Ta meio estranho o entendimento do formulário em vb
ele esta conectando ? parece que nao conectava ai deixei queito

Meu primeiro teste nele , não consegui ver nada funcionar

[amaury]

Amigo obrigado pela resposta, ele esta conectando sim, eu só queria saber como consumir este webservice, na questão do gerar o pdf, ou seja esta rotina busca la o arquivo pdf da nota fiscal, não tenho nenhuma ideia de como fazer isto como declarar,como conectar.

'----------------------------------------------------------------------------------------
'Método que gera o PDF da nota do WebService da VARITUS
'----------------------------------------------------------------------------------------
Private Sub cmdTesteGerarPDF_Click()
On Error GoTo erroWebService
Dim bytesDoPDF() As Byte
bytesDoPDF = webservice.replyInvoiceBytes(txtNumeroNotaPDF.Text, txtSerieNotaPDF.Text, txtDataPDF.Text, txtCNPJPDF.Text)

Open txtCaminhoPDF.Text For Binary As #1
Put #1, , bytesDoPDF()
Close #1
MsgBox "Gravado com sucesso"
Exit Sub
erroWebService:
MsgBox "Problemas com o web service, o seguinte erro foi reportado: " + Err.Description
End Sub

[m@r<3|o]

Código:

Local bytesDoPDF() As Byte
bytesDoPDF = webservice.replyInvoiceBytes;    (this.parent.txtNumeroNotaPDF.value, ;
this.parent.txtSerieNotaPDF.value, ;
this.parent.txtDataPDF.value,;
this.parent.txtCNPJPDF.value)

aa = this.parent. txtCaminhoPDF.value
#DEFINE arquivo "&aa"

LOCAL learquivo AS STRING
LOCAL grava AS STRING
LOCAL setS
         
setS = SET("Safety")
SET SAFETY OFF
         
m.learquivo = ALLTRIM(FILETOSTR(arquivo))
m.grava = ??????????

SET SAFETY &setS
=messagebox('Gravado com sucesso')
release thisform

[amaury]

Bom dia grande amigo, obrigado pelo retorno, ja deu uma clareada, mas como nunca usei isto será que voce poderia me ajudar nos passos abaixo
1) Como declarar o webservice
2) Como conectar e saber se a conexao foi ok ou não
3) se conexao foi ok eu vou preencher os dados dos respectivos :
this.parent.txtNumeroNotaPDF.value,this.parent.txtSerieNotaPDF.value,this.parent.txtDataPDF.value, this.parent.txtCNPJPDF.value) via comandos do vfp
4) e finalmente verificar se o arquivo foi gravado.

Agradeço muito vosso retorno e sua ajuda

Abraços

Amaury

Código:

Local bytesDoPDF() As Byte
bytesDoPDF = webservice.replyInvoiceBytes;    (this.parent.txtNumeroNotaPDF.value, ;
this.parent.txtSerieNotaPDF.value, ;
this.parent.txtDataPDF.value,;
this.parent.txtCNPJPDF.value)

aa = this.parent. txtCaminhoPDF.value
#DEFINE arquivo "&aa"

LOCAL learquivo AS STRING
LOCAL grava AS STRING
LOCAL setS
         
setS = SET("Safety")
SET SAFETY OFF
         
m.learquivo = ALLTRIM(FILETOSTR(arquivo))
m.grava = ??????????

SET SAFETY &setS
=messagebox('Gravado com sucesso')
release thisform

[m@r<3|o]

O seu WDSL já está publicado ?

[amaury]

Boa noite, gostaria de avisa que ja consegui resolver, obrigado a todos !

Amaury