Histórico da Página

Para que esse processo seja realizado o parceiro deve fazer uma chamada a DLL disponibilizada no pacote de Library disponível no CCW. Antes de realizar a chamada a DLL deve ser gravado as informações na tabela de sugestão de compras conforme layout abaixo:

Caminho para baixar a Rotina no CCW:
- Acessar o CCW,
- Baixar a Biblioteca Library,
- Descompactar,
- Pegar a dll RotinaLaunch.DLL,
- Salvar na pasta P:\lib

Para a rotina 220 realizar a importação da sugestão de compra de forma automática deverá ser realizada a chamada na DDL (RotinaLaunch.dll), passando os seguintes parâmetros:

• Código da rotina (220)
• Nome do banco de dados
• Usuário do banco de dados
• Senha do banco de dados
• Usuário do WINTHOR
• Senha do WINTHOR
• Parâmetros Adicionais, onde deverão ser informados:
  -  220S (fixo) – A letra S, significa Sugestão de compra.
  - Número da sugestão a ser importada
  - S ou N para importar produtos foram de linha
  - S ou N para importar produtos proibidos para venda
  - Todos os parâmetros deverão ser separados por ; (ponto e virgula)  Ex: 220S;125;S;S.
  
  
  

Exemplo de uso da DLL:

// Declare a função de que representa a interface da DLL;

TDLL_RotinaLaunch = function (pRotina: Integer;

                                pAliasBD: AnsiString;

                                pUsuarioBD: AnsiString;

                                pSenhaBD: AnsiString;

                                pUsuarioWT: AnsiString;

                                pSenhaWT: AnsiString;

                                pParamAdicional: AnsiString;

                                var pMsg: WideString): Boolean;

// Implementação

procedure TestarDLL;

var

  vHandle: THandle;

  vFuncaoLoadRotina: TDLL_RotinaLaunch;

  vRotinaCarregada: Boolean;

  vMsg: WideString;

begin

  vHandle := LoadLibrary(<caminho da DLL>);

  try

    if vHandle <> 0 then

    begin

      @vFuncaoLoadRotina := GetProcAddress(vHandle, 'LoadRotina');

      // Executa a função e retorna se foi possível ou não carregar a rotina

      vRotinaCarregada := vFuncaoLoadRotina(<Codigo da Rotina>

                                           , <Alias do BD>

                                           , <Usuario do BD>

                                           , <Senha do BD>

                                           , <Usuario do WT>

                                           , <Senha do Usuário do WT>

                                           , <Parametros adicionais, se necessário>

                                           , vMsg // traz mensagem de retorno da DLL

                                           );

    end;

  finally

    FreeLibrary(vHandle);

  end;

end;