|
Bem Vindo, Visitante
|
Todos os Fórums
ADVPL
|
Imprimir
Enviar Para um Amigo Precisa estar Logado
|
|
|
Assunto: |
Dll delphi com protheus 12 |
|
Versão: |
12 |
|
Plataforma: |
Linux |
Complemento: |
|
|
DB: |
Oracle |
Complemento: |
|
|
|
|
|
Mensagem do
RIQUINTAIS
em 15/01/2018, 11:52 h
Local: GO Registro: 09/06/2008 Postagens: 20 |
Bom dia,
Alguem teve algum problema na migracao do protheus 11 para o protheus 12, com dll feita em delphi ?
No protheus 11 executa normal, no protheus 12 ele da um erro de smartclient.
Segue chamado no advpl
User Function relOsTs(_numP)
Local hHdl := 0,buffer := "",xRet1 := 0
IF .T. //(SubStr(cFilAnt,1,2)=‘02‘) // Filial TS
If .T. //Empty(Posicione("SC5",1,xFilial("SC5")+_numP,"C5_XPED1")) //Tratativa para não imprimir pedido de estoque.
hHdl := ExecInDLLOpen("osts.dll")
buffer := _numP
If hHdl = -1
MSGSTOP("Erro ao abrir a osts.dll")
Else
ExecInDllRun( hHdl, 1, @buffer) << Erro ocorre aqui
ExecInDllClose( hHdl )
EndIf
Else
MsgStop("Atenção: o pedido de venda selecionado é inválido para a Ordem de Serviço.","Pedido de venda inválido")
EndIf
ELSE
Alert("Acesso negado.")
ENDIF
|
|
|
Mensagem do
MARCELLOW
em 15/01/2018, 12:58 h
Local: SP Registro: 22/01/2009 Postagens: 259 |
NUNCA PRECISEI ABRIR UMA DDL. MAS ACHEI ESSE TDN
QUEM SABE TE AJUDA
http://tdn.totvs.com/display/tec/Como+utilizar+DLL+de+terceiros
|
|
Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|