Merge remote-tracking branch 'refs/remotes/origin/dev'

renhao

2023-09-22 964b4387b4b3ba025c996b1f04fa75f72ae5da09

 _Main/BL/Type_GlobalDTOTable/Method_ReceivingPanelMaterials.qbl

@@ -44,44 +44,18 @@
    
    replynvt := LibInt_MessageAccessor::CreateEmptyMessage();
    LibInt_MessageAccessor::SetHeaderProperty( replynvt, "Content-Type", "application/json" );
    LibInt_MessageAccessor::SetHeaderProperty( replynvt, "path", "/panelMaterial/send" );
    
    rootNamedValue := replynvt.Root();
    bodyHandle := replynvt.GetHandle( "Body" );
    petHandle := replynvt.GetHandle( "Pet" );
    
    //petHandle := replynvt.GetHandle( "Pet" );
    bodyNamedValue := rootNamedValue.Child( bodyHandle );
    petNamedValue := bodyNamedValue.AddChild( petHandle );
    categoryHandle := replynvt.GetHandle( "Category" );
    categoryNamedValue := petNamedValue.AddChild( categoryHandle );
    categoryIDHandle := replynvt.GetHandle( "Id" );
    categoryIDNamedValue := categoryNamedValue.AddChild( categoryIDHandle );
    categoryIDNamedValue.SetValue( 3 );
    categoryNameHandle := replynvt.GetHandle( "Name" );
    categoryNameNamedValue := categoryNamedValue.AddChild( categoryNameHandle );
    categoryNameNamedValue.SetValue( "Cat" );
    petNameHandle := replynvt.GetHandle( "Name" );
    petNameValue := petNamedValue.AddChild( petNameHandle );
    petNameValue.SetValue( "Pet1" );
    petIdHandle := replynvt.GetHandle( "PetId" );
    petIdNameValue := petNamedValue.AddChild( petIdHandle );
    petIdNameValue.SetValue( 1 );
    codeHandler := replynvt.GetHandle( "code" );
    codeNamedValue := bodyNamedValue.AddChild( codeHandler );
    codeNamedValue.SetValue( 200 );
    
    photoUrlHandle := replynvt.GetHandle( "PhotoUrl" );
    photoUrlNameValue := petNamedValue.AddChild( photoUrlHandle );
    urlHandle := replynvt.GetHandle( "Url" );
    photoUrlNameValue.AddChild( urlHandle, "url1" );
    
    statusHandle := replynvt.GetHandle( "Status" );
    statusNameValue := petNamedValue.AddChild( statusHandle );
    statusNameValue.SetValue( "available" );
    
    tagHandle := replynvt.GetHandle( "Tag" );
    tagNameValue := petNamedValue.AddChild( tagHandle );
    tagIdHandle := replynvt.GetHandle( "Id" );
    tagNameValue.AddChild( tagIdHandle, 123 );
    tagNameHandle := replynvt.GetHandle( "Name" );
    tagNameValue.AddChild( tagNameHandle, "tag1" );
    
    
    info( "响应------------------------------------------------------------" );
    info( replynvt.ToString() );