Merge branch 'dev' of http://47.101.211.7:10101/r/VWED into dev

rislai

2024-07-25 290e66e2ed986ae5c6fe3f78f7203a0988657e21

 _Main/BL/Type_InterfaceLoginfo/StaticMethod_CallInterface.qbl

@@ -10,23 +10,44 @@
    // 甄兰鸽 Jul-22-2024 (created)
    address       := Translations::InterfaceDataset_Address(); 
    httpinterface := HTTPInterface::Create( address,80);
    
    if( loginfo.Name() = Translations::InterfaceDataset_ShippingActualData_Name() ){//发运实际数据
      
      httpinterface.URL( Translations::InterfaceDataset_ShippingActualData_URL() );
      httpinterface.MediaType( Translations::InterfaceDataset_ContentType() );
      httpinterface.PostMethod( true ); 
      try{
        httpinterface.AddHeader("Authorization",InterfaceLoginfo::CallToken())
    try{
      if( loginfo.Name() = Translations::InterfaceDataset_ShippingActualData_Name() ){//发运实际数据
        
        httpinterface.URL( Translations::InterfaceDataset_ShippingActualData_URL() );
        httpinterface.MediaType( Translations::InterfaceDataset_ContentType() );
        httpinterface.PostMethod( true ); 
        httpinterface.AddHeader("Authorization",InterfaceLoginfo::CallToken( Translations::InterfaceDataset_ShippingActualData_Secret() ))
        
        httpinterface.Call( loginfo.RequestBody() );
        
        result := httpinterface.Result();
        loginfo.Response( result );
        loginfo.Success( true );
      }onerror{
        loginfo.ReturnMsg( e.GeneralInformation() );
      } else if ( loginfo.Name() = Translations::InterfaceDataset_MachineStockData_Name() ){//库存数据（机加库存）
        httpinterface.URL( Translations::InterfaceDataset_MachineStockData_URL() );
        httpinterface.MediaType( Translations::InterfaceDataset_ContentType() );
        httpinterface.PostMethod( true ); 
        httpinterface.AddHeader("Authorization",InterfaceLoginfo::CallToken( Translations::InterfaceDataset_MachineStockData_Secret() ))
        
        httpinterface.Call( loginfo.RequestBody() );
        
        result := httpinterface.Result();
        loginfo.Response( result );
        loginfo.Success( true );
      } else if ( loginfo.Name() = Translations::InterfaceDataset_FinishedEngineInventory_Name() ){//库存数据（发动机成品库存）
        httpinterface.URL( Translations::InterfaceDataset_FinishedEngineInventory_URL() );
        httpinterface.MediaType( Translations::InterfaceDataset_ContentType() );
        httpinterface.PostMethod( true ); 
        httpinterface.AddHeader("Authorization",InterfaceLoginfo::CallToken( Translations::InterfaceDataset_FinishedEngineInventory_Secret() ))
        
        httpinterface.Call( loginfo.RequestBody() );
        
        result := httpinterface.Result();
        loginfo.Response( result );
        loginfo.Success( true );
      }
    }onerror{
      loginfo.ReturnMsg( e.GeneralInformation() );
    }
    if( loginfo.Name() = Translations::InterfaceDataset_ActualDailyProductionData_Name() ){//生产实际数据