Histórico da Página

METHOD PUBLIC TOTVSMessage sendMessage():        
        DEFINE VARIABLE businessContent AS com.totvs.datasul.eai2.messages.CostCenter_2_000.BusinessContentType NO-UNDO.
        DEFINE VARIABLE response        AS TOTVSMessage NO-UNDO.
        
        /* Criar o business content */
        businessContent = CAST( helper:createBusinessContent(),
                                "com.totvs.datasul.eai2.messages.CostCenter_2_000.BusinessContentType" ).
        
        /* Registrar a estrutura dos "internal IDs" da mensagem */
        IF NOT mapper:existMapping("CompanyInternalId","empresa") THEN
            mapper:register( INPUT "CompanyInternalId", INPUT "empresa", INPUT "cod_empresa").
  
        IF NOT mapper:existMapping("CostCenterInternalId", "centro_custo") THEN
            mapper:register( INPUT "CompanyInternalId", "centro_custo", "cod_empresa|cod_estabel|cod_ccusto").
             
        /* Preencher o businessContent */
        businessContent:CLASS = 111.
        businessContent:CODE  = "111.000.000".
        businessContent:NAME  = "Centro de custo 111".
        businessContent:SPED  = TRUE.
        businessContent:ShortCode = "111".
        businessContent:CompanyId = "123".
        businessContent:BranchId  = "XYZ".           
        
        /* Preencher os dados dos "internal IDs" na mensagem */
        businessContent:CompanyInternalId = "123@empresa".
        businessContent:InternalId = "123|XYZ|111.000.000@centro_custo".
        
        /* Criar a business message */
        msg = BusinessMessage:createBusinessMessage( businessContent ).
        
        
        DO ON ERROR UNDO, LEAVE:
        /* Enviar a mensagem */
            response = EAIEngine:instance:dispatchMessage( msg ).
            
            /* Tratar a resposta */
            IF response:GetClass():IsA("com.totvs.datasul.eai.ResponseMessage") THEN
             THIS-OBJECT:processMessage( CAST(response,"com.totvs.datasul.eai.ResponseMessage")).
                
        CATCH e AS Progress.Lang.Error :
             EAILog:ERROR("Couldn’t send message!").
                
             RETURN ?.                       
        END CATCH.
     END.
        
     RETURN response.
        
END METHOD.
  
METHOD PUBLIC LOGICAL processMessage( INPUT resp AS com.totvs.datasul.eai.ResponseMessage ):
                
        DEFINE VARIABLE businessContent AS BusinessContentType NO-UNDO.
        DEFINE VARIABLE returnContent   AS ReturnContentType   NO-UNDO.
  
        businessContent = CAST(MessageContentHelper:createBusinessContent( msg, helper ),
                          "com.totvs.datasul.eai2.messages.CostCenter_2_000.BusinessContentType").    
        returnContent   = CAST(MessageContentHelper:createReturnContent( resp, helper ),
                          "com.totvs.datasul.eai2.messages.CostCenter_2_000.ReturnContentType").
        
        IF returnContent = ? THEN
            RETURN FALSE.
        
        /* Extração dos internal ids enviados pelo destino */
        
		DEFINE VARIABLE iCont AS INTEGER NO-UNDO.
		DEFINE VARIABLE internalId AS com.totvs.datasul.eai2.messages.CostCenter_2_000.InternalIdType NO-UNDO.
		DEFINE VARIABLE listOfinternalId AS com.totvs.datasul.eai2.messages.CostCenter_2_000.ListOfInternalIdType NO-UNDO.
        
        listOfinternalId = returnContent:ListOfInternalId.
        
        DO iCont = 1 TO listOfinternalId:NUM-InternalID:
        
            internalId = listOfInternalId:getInternalId(iCont).
            
            IF internalId:NAME = "CompanyInternalId" THEN DO:
		   /* Completa o mapeamento dos internal ids, gravando o codigo do aplicativo 
      		  de origem e o código do aplicativo de destino. */
   				mapper:setValue( internalId:NAME,
			    businessContent:CompanyInternalId,
   				resp:SourceApp,
   				internalId:Destination ).
   			END.
 		END.                            
	RETURN TRUE.
END METHOD.