Histórico da Página

O programa é responsável por, além de interagir com o usuário, selecionar quais cadastros serão enviados para o Adapter montar a estrutura da mensagem.

A interação do programa abordada nesse ponto será só de envio de mensagens, uma vez que já se explicou o tratamento do recebimento de mensagens no Adapter.

Assim, existem três possibilidades de utilizar o programa para envio: Event (upsert, delete) ou Request.

Upsert

Exemplo em Progress:

Bloco de código

theme	Emacs
language	actionscript3
linenumbers	true

DEFINE VARIABLE oControlItemAdapter as com.totvs.datasul.manufacture.sfc.ControlItemAdapter no-undo.
 
/* Chamada - Integracao SFC - oControlItemAdapter*/
{com/totvs/datasul/manufacture/axrmantransactionstatus.i "ControlItem"}
IF lEnabledAndRouted THEN DO:
    oControlItemAdapter = NEW com.totvs.datasul.manufacture.sfc.ControlItemAdapter().
    oResponseMessage    = CAST(oControlItemAdapter:sendUpsert(cMode, BUFFER item-controle), "com.totvs.datasul.eai.ResponseMessage").
 
    {com/totvs/datasul/manufacture/axrmanresponsemessage.i "adm-error"}
END.

Exemplo em Java:

Bloco de código

theme	Emacs
language	java
linenumbers	true

Map item_controle = new HashMap<String,String>();
       
if(lEnabledAndRouted) {
        ControlItemAdapter oControlItemAdapter = new ControlItemAdapter();
        ResponseMessage oResponseMessage = oControlItemAdapter.sendUpsert(cMode, item_controle);
}

Delete

Exemplo para Exclusão em Progress:

Bloco de código

theme	Emacs
language	actionscript3
linenumbers	true

DEFINE VARIABLE oControlItemAdapter as com.totvs.datasul.manufacture.sfc.ControlItemAdapter no-undo.
 
/* Chamada Delete - Integracao SFC  - oControlItemAdapter*/
{com/totvs/datasul/manufacture/axrmantransactionstatus.i "ControlItem"}
IF lEnabledAndRouted THEN DO:
    oControlItemAdapter = NEW com.totvs.datasul.manufacture.sfc.ControlItemAdapter().
    oResponseMessage    = CAST(oControlItemAdapter:sendDelete(cMode, c-cod-ic, c-des-ic), "com.totvs.datasul.eai.ResponseMessage").
 
    {com/totvs/datasul/manufacture/axrmanresponsemessage.i "adm-error"}
END.

Exemplo para Exclusão em Java:

Bloco de código

theme	Emacs
language	java
linenumbers	true

String cod_item, des_item;
       
if(lEnabledAndRouted) {
        ControlItemAdapter oControlItemAdapter = new ControlItemAdapter();
        ResponseMessage oResponseMessage = oControlItemAdapter.sendDelete(cMode, cod_item, des_item);
}

Request

Exemplo para Mensagem em Progress:

Bloco de código

theme	Emacs
language	actionscript3
linenumbers	true

DEFINE VARIABLE oControlItemAdapter as com.totvs.datasul.manufacture.sfc.ControlItemAdapter no-undo.
 
/* Chamada - Integracao SFC - oControlItemAdapter*/
{com/totvs/datasul/manufacture/axrmantransactionstatus.i "ControlItem"}
IF lEnabledAndRouted THEN DO:
    oControlItemAdapter = NEW com.totvs.datasul.manufacture.sfc.ControlItemAdapter().
    oResponseMessage    = CAST(oControlItemAdapter:sendRequest(cMode, BUFFER item-controle), "com.totvs.datasul.eai.ResponseMessage").
 
    {com/totvs/datasul/manufacture/axrmanresponsemessage.i "adm-error"}
END.

Exemplo para Mensagem em Java:

Bloco de código

theme	Emacs
language	java
linenumbers	true

Map item_controle = new HashMap<String,String>();
       
if(lEnabledAndRouted) {
        ControlItemAdapter oControlItemAdapter = new ControlItemAdapter();
        ResponseMessage oResponseMessage = oControlItemAdapter.sendRequest(cMode, item_controle);
}

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave